Visual Basic 4 Unleashed

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / ocx45_32 / demo.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-08-30 | 124.0 KB | 3,152 lines

VERSION 4.00 Begin VB.Form Demo BorderStyle = 3 'Fixed Dialog Caption = "Crystal Reports 4.5 OCX Demo Application" ClientHeight = 6315 ClientLeft = 990 ClientTop = 1575 ClientWidth = 10320 Height = 6720 Icon = "Demo.frx":0000 Left = 930 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 421 ScaleMode = 3 'Pixel ScaleWidth = 688 ShowInTaskbar = 0 'False Top = 1230 Width = 10440 Begin VB.Timer Timer1 Left = 9840 Top = 0 End Begin VB.CommandButton CmdCancel Caption = "Cancel" Height = 375 Left = 8400 TabIndex = 16 Top = 5760 Width = 1575 End Begin VB.CommandButton CmdAccept Caption = "Print Report" Height = 375 Left = 6720 TabIndex = 15 Top = 5760 Width = 1455 End Begin VB.CommandButton CmdNext Caption = "Next >>" Height = 375 Left = 2040 TabIndex = 14 Top = 5760 Width = 1455 End Begin VB.CommandButton CmdBack Caption = "<< Back " Height = 375 Left = 360 TabIndex = 13 Top = 5760 Width = 1455 End Begin TabDlg.SSTab MainTab Height = 5415 Left = 360 TabIndex = 0 Top = 240 Width = 9615 _Version = 65536 _ExtentX = 16960 _ExtentY = 9551 _StockProps = 15 Caption = "Destination" TabsPerRow = 6 Tab = 1 TabOrientation = 0 Tabs = 6 Style = 1 TabMaxWidth = 265 TabHeight = 529 TabCaption(0) = "Open a Crystal Report" Tab(0).ControlCount= 1 Tab(0).ControlEnabled= 0 'False Tab(0).Control(0)= "Frame1" TabCaption(1) = "Destination" Tab(1).ControlCount= 1 Tab(1).ControlEnabled= -1 'True Tab(1).Control(0)= "Frame4" TabCaption(2) = "Database / Formatting" Tab(2).ControlCount= 1 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "Frame9" TabCaption(3) = "Set Report Formulas" Tab(3).ControlCount= 1 Tab(3).ControlEnabled= 0 'False Tab(3).Control(0)= "Frame5" TabCaption(4) = "Graphing" Tab(4).ControlCount= 1 Tab(4).ControlEnabled= 0 'False Tab(4).Control(0)= "Frame27" TabCaption(5) = "About The OCX Demo" Tab(5).ControlCount= 1 Tab(5).ControlEnabled= 0 'False Tab(5).Control(0)= "Frame20" Begin VB.Frame Frame27 Height = 4695 Left = -74520 TabIndex = 39 Top = 480 Width = 8895 Begin VB.TextBox TxtGrphNum Height = 285 Left = 8040 TabIndex = 270 Top = 840 Width = 735 End Begin VB.CommandButton CmdGrphType Caption = "Set &Type" Height = 375 Left = 6180 TabIndex = 269 Top = 4200 Width = 1200 End Begin VB.CommandButton CmdGrphOpt Caption = "Set &Options" Height = 375 Left = 4800 TabIndex = 268 Top = 4200 Width = 1200 End Begin VB.ComboBox CboSecList Height = 300 Index = 1 Left = 2640 Style = 2 'Dropdown List TabIndex = 245 Top = 840 Width = 3255 End Begin VB.CommandButton CmdSetGraph Caption = "&Set Text" Height = 375 Left = 7560 TabIndex = 236 Top = 4200 Width = 1200 End Begin VB.Frame Frame43 Height = 3375 Left = 120 TabIndex = 166 Top = 1200 Width = 4575 Begin VB.TextBox TxtRisers Height = 285 Left = 2520 TabIndex = 278 Top = 2475 Width = 1935 End Begin VB.ComboBox CboDataDir Height = 300 Left = 120 Style = 2 'Dropdown List TabIndex = 275 Top = 2880 Width = 3015 End Begin VB.TextBox TxtGraphCols Height = 285 Left = 2520 TabIndex = 274 Top = 2175 Width = 1935 End Begin VB.TextBox TxtGraphRows Height = 285 Left = 2520 TabIndex = 273 Top = 1860 Width = 1935 End Begin VB.CommandButton CmdGraphData Caption = "Set &Data" Height = 375 Left = 3240 TabIndex = 272 Top = 2880 Width = 1200 End Begin VB.Frame Frame46 Caption = "Graph Options:" Height = 1575 Left = 120 TabIndex = 237 Top = 240 Width = 4335 Begin VB.OptionButton OptGrphBars Caption = "Horzontal" Height = 255 Index = 1 Left = 3240 TabIndex = 260 Top = 840 Width = 975 End Begin VB.OptionButton OptGrphBars Caption = "Vertical" Height = 195 Index = 0 Left = 2160 TabIndex = 259 Top = 840 Value = -1 'True Width = 855 End Begin VB.CheckBox ChkLegend Caption = "Show Legend" Height = 225 Left = 120 TabIndex = 244 Top = 720 Width = 1335 End Begin VB.CheckBox ChkGridLines Caption = "Show Grid Lines" Height = 255 Left = 120 TabIndex = 243 Top = 480 Width = 1455 End Begin VB.CheckBox ChkBarRisers Caption = "Show Bar Risers" Height = 255 Left = 120 TabIndex = 242 Top = 240 Width = 1455 End Begin VB.TextBox TxtGrphFont Height = 285 Left = 3000 TabIndex = 241 Top = 240 Width = 1215 End Begin VB.TextBox TxtMinRange Height = 285 Left = 2160 TabIndex = 239 Top = 1200 Width = 735 End Begin VB.TextBox TxtMaxRange Height = 285 Left = 3480 TabIndex = 238 Top = 1200 Width = 735 End Begin VB.Label Label46 Caption = "Direction of Bars" Height = 255 Left = 2160 TabIndex = 258 Top = 600 Width = 1335 End Begin VB.Label Label45 Caption = "Max:" Height = 255 Left = 3000 TabIndex = 257 Top = 1200 Width = 375 End Begin VB.Label Label36 Caption = "Range of Values: Min:" Height = 255 Left = 120 TabIndex = 256 Top = 1200 Width = 1935 End Begin VB.Label Label44 Caption = "Graph Font:" Height = 255 Left = 2040 TabIndex = 240 Top = 360 Width = 975 End End Begin VB.Label Label48 Caption = "Summarized field for Risers:" Height = 255 Left = 120 TabIndex = 279 Top = 2560 Width = 2415 End Begin VB.Label Label47 Caption = "Group # used to create columns:" Height = 255 Left = 120 TabIndex = 277 Top = 2280 Width = 2380 End Begin VB.Label Label43 Caption = "Group # used to create rows:" Height = 255 Left = 120 TabIndex = 276 Top = 1920 Width = 2295 End End Begin VB.Frame Frame28 Caption = "Graph Text:" Height = 2895 Left = 4800 TabIndex = 165 Top = 1200 Width = 3975 Begin VB.TextBox TxtZAxis Height = 285 Left = 1350 TabIndex = 254 Top = 2450 Width = 2500 End Begin VB.TextBox TxtYAxis Height = 285 Left = 1350 TabIndex = 235 Top = 2130 Width = 2500 End Begin VB.TextBox TxtXAxis Height = 285 Left = 1350 TabIndex = 234 Top = 1820 Width = 2500 End Begin VB.TextBox TxtSeriesTitle Height = 285 Left = 1350 TabIndex = 233 Top = 1500 Width = 2500 End Begin VB.TextBox TxtGrpTitle Height = 285 Left = 1350 TabIndex = 232 Top = 1190 Width = 2500 End Begin VB.TextBox TxtFootNote Height = 285 Left = 1350 TabIndex = 231 Top = 870 Width = 2500 End Begin VB.TextBox TxtSubTitle Height = 285 Left = 1350 TabIndex = 230 Top = 560 Width = 2500 End Begin VB.TextBox TxtTitle Height = 285 Left = 1350 TabIndex = 229 Top = 240 Width = 2500 End Begin VB.Label LblGraphText Caption = "Z Axis Title:" Height = 255 Index = 7 Left = 240 TabIndex = 255 Top = 2600 Width = 1095 End Begin VB.Label LblGraphText Caption = "Y Axis Title:" Height = 255 Index = 6 Left = 240 TabIndex = 253 Top = 2250 Width = 1095 End Begin VB.Label LblGraphText Caption = "X Axis Title:" Height = 255 Index = 5 Left = 240 TabIndex = 252 Top = 1940 Width = 1095 End Begin VB.Label LblGraphText Caption = "Series Title:" Height = 255 Index = 4 Left = 240 TabIndex = 251 Top = 1620 Width = 1215 End Begin VB.Label LblGraphText Caption = "Groups Title:" Height = 255 Index = 3 Left = 240 TabIndex = 250 Top = 1290 Width = 975 End Begin VB.Label LblGraphText Caption = "FootNote:" Height = 255 Index = 2 Left = 240 TabIndex = 249 Top = 980 Width = 1095 End Begin VB.Label LblGraphText Caption = "Sub Title:" Height = 255 Index = 1 Left = 240 TabIndex = 248 Top = 680 Width = 1095 End Begin VB.Label LblGraphText Caption = "Title:" Height = 255 Index = 0 Left = 240 TabIndex = 247 Top = 360 Width = 975 End End Begin VB.Label LblGrphNum Caption = "Graph Number:" Height = 255 Left = 6720 TabIndex = 271 Top = 960 Width = 1215 End Begin VB.Label LblGrphSection Caption = "Section with Graph to be modified:" Height = 255 Left = 120 TabIndex = 246 Top = 960 Width = 2655 End Begin ComctlLib.Toolbar Toolbar1 Height = 675 Left = 750 TabIndex = 164 Top = 120 Width = 7455 _Version = 65536 _ExtentX = 13150 _ExtentY = 1191 _StockProps = 96 ImageList = "ImageList1" ButtonWidth = 1085 ButtonHeight = 1085 NumButtons = 12 i1 = "Demo.frx":030A i2 = "Demo.frx":04BD i3 = "Demo.frx":0670 i4 = "Demo.frx":081F i5 = "Demo.frx":09D2 i6 = "Demo.frx":0B81 i7 = "Demo.frx":0D34 i8 = "Demo.frx":0EDB i9 = "Demo.frx":1082 i10 = "Demo.frx":122D i11 = "Demo.frx":13CD i12 = "Demo.frx":1581 AlignSet = -1 'True End Begin ComctlLib.ImageList ImageList1 Left = 240 Top = 360 _Version = 65536 _ExtentX = 1005 _ExtentY = 1005 _StockProps = 1 BackColor = -2147483643 ImageWidth = 34 ImageHeight = 35 NumImages = 12 i1 = "Demo.frx":1735 i2 = "Demo.frx":1B28 i3 = "Demo.frx":1F07 i4 = "Demo.frx":22E6 i5 = "Demo.frx":26C5 i6 = "Demo.frx":2A1C i7 = "Demo.frx":2D53 i8 = "Demo.frx":309A i9 = "Demo.frx":33E1 i10 = "Demo.frx":37AC i11 = "Demo.frx":3B8C i12 = "Demo.frx":3F58 End End Begin VB.Frame Frame4 Height = 4695 Left = 360 TabIndex = 37 Top = 480 Width = 8895 Begin TabDlg.SSTab DestTab Height = 4215 Left = 240 TabIndex = 38 Top = 240 Width = 8415 _Version = 65536 _ExtentX = 14843 _ExtentY = 7435 _StockProps = 15 Caption = "E-Mail" TabsPerRow = 5 Tab = 4 TabOrientation = 0 Tabs = 5 Style = 1 TabMaxWidth = 0 TabHeight = 529 TabCaption(0) = "General" Tab(0).ControlCount= 1 Tab(0).ControlEnabled= 0 'False Tab(0).Control(0)= "Frame7" TabCaption(1) = "Print to a Window" Tab(1).ControlCount= 1 Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "Frame22" TabCaption(2) = "Print to a Printer" Tab(2).ControlCount= 1 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "Frame23" TabCaption(3) = "Print to a File" Tab(3).ControlCount= 1 Tab(3).ControlEnabled= 0 'False Tab(3).Control(0)= "Frame24" TabCaption(4) = "E-Mail" Tab(4).ControlCount= 1 Tab(4).ControlEnabled= -1 'True Tab(4).Control(0)= "FrameEmail" Begin VB.Frame FrameEmail Height = 3255 Left = 360 TabIndex = 44 Top = 600 Width = 7695 Begin VB.ComboBox CboPrnFileType Height = 300 Index = 1 Left = 240 Style = 2 'Dropdown List TabIndex = 267 Top = 2760 Width = 3855 End Begin VB.TextBox TxtQuote Enabled = 0 'False Height = 285 Index = 1 Left = 6720 TabIndex = 266 Top = 840 Width = 700 End Begin VB.TextBox TxtSep Enabled = 0 'False Height = 285 Index = 1 Left = 5160 TabIndex = 264 Top = 840 Width = 700 End Begin VB.CheckBox ChkDateFormat Caption = "Same &date format as in the report" Enabled = 0 'False Height = 255 Index = 1 Left = 4320 TabIndex = 262 Top = 550 Width = 3255 End Begin VB.CheckBox ChkNumFormat Caption = "Same &number format as in the report" Enabled = 0 'False Height = 255 Index = 1 Left = 4320 TabIndex = 261 Top = 240 Width = 3255 End Begin VB.CommandButton CmdEmail Caption = "Set Mail &Info" Height = 375 Left = 6000 TabIndex = 154 Top = 2760 Width = 1455 End Begin VB.TextBox TxtMailMessage Height = 1215 Left = 240 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 48 Top = 1320 Width = 7215 End Begin VB.TextBox TxtMailSub Height = 285 Left = 1080 TabIndex = 47 Top = 960 Width = 3135 End Begin VB.TextBox TxtMailCC Height = 285 Left = 1080 TabIndex = 46 Top = 600 Width = 3135 End Begin VB.TextBox TxtMailTo Height = 285 Left = 1080 TabIndex = 45 Top = 240 Width = 3135 End Begin VB.Label LblQuote Caption = "Quote:" Enabled = 0 'False Height = 255 Index = 1 Left = 6120 TabIndex = 265 Top = 960 Width = 615 End Begin VB.Label LblSep Caption = "Seperator:" Enabled = 0 'False Height = 255 Index = 1 Left = 4320 TabIndex = 263 Top = 960 Width = 855 End Begin VB.Label Label23 Caption = "Subject:" Height = 255 Left = 240 TabIndex = 153 Top = 1080 Width = 855 End Begin VB.Label Label22 Caption = "CC:" Height = 255 Left = 240 TabIndex = 152 Top = 720 Width = 495 End Begin VB.Label Label13 Caption = "To:" Height = 255 Left = 240 TabIndex = 49 Top = 360 Width = 495 End End Begin VB.Frame Frame24 Height = 3135 Left = -74640 TabIndex = 43 Top = 600 Width = 7695 Begin VB.TextBox TxtPrnFileName Height = 285 Left = 4800 TabIndex = 53 Top = 240 Width = 2775 End Begin VB.Frame Frame29 Caption = "Print File Type:" Height = 855 Left = 3120 TabIndex = 52 Top = 2160 Width = 4455 Begin VB.ComboBox CboPrnFileType Height = 300 Index = 0 ItemData = "Demo.frx":4338 Left = 120 List = "Demo.frx":433A Style = 2 'Dropdown List TabIndex = 144 Top = 360 Width = 4215 End End Begin VB.Frame FrameSep Height = 1455 Left = 3120 TabIndex = 51 Top = 600 Width = 4455 Begin VB.TextBox TxtQuote Enabled = 0 'False Height = 285 Index = 0 Left = 3360 TabIndex = 150 Top = 960 Width = 700 End Begin VB.TextBox TxtSep Enabled = 0 'False Height = 285 Index = 0 Left = 1200 TabIndex = 147 Top = 960 Width = 700 End Begin VB.CheckBox ChkDateFormat Caption = "Same &date as in the report" Enabled = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 146 Top = 560 Width = 2295 End Begin VB.CheckBox ChkNumFormat Caption = "Same &number format as in the report" Enabled = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 145 Top = 240 Width = 3135 End Begin VB.Label LblQuote Caption = "Quote:" Enabled = 0 'False Height = 255 Index = 0 Left = 2280 TabIndex = 149 Top = 1080 Width = 1215 End Begin VB.Label LblSep Caption = "Seperator:" Enabled = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 148 Top = 1080 Width = 1215 End End Begin VB.Frame Frame26 Caption = "File Directory:" Height = 2775 Left = 120 TabIndex = 50 Top = 240 Width = 2895 Begin VB.DriveListBox PrnFileDrive Height = 315 Left = 120 TabIndex = 56 Top = 2400 Width = 2655 End Begin VB.DirListBox PrnFileDir Height = 2055 Left = 120 TabIndex = 55 Top = 240 Width = 2655 End End Begin VB.Label Label14 Caption = "Filename:" Height = 255 Left = 3180 TabIndex = 54 Top = 360 Width = 1335 End End Begin VB.Frame Frame23 Height = 3135 Left = -74640 TabIndex = 42 Top = 600 Width = 7695 Begin VB.Frame Frame31 Caption = "Print Range:" Height = 2775 Left = 120 TabIndex = 58 Top = 240 Width = 4455 Begin VB.CommandButton CmdRange Caption = "Set &Print Range" Height = 375 Left = 2960 TabIndex = 209 Top = 1680 Width = 1335 End Begin VB.OptionButton OptRange Caption = "Modify Print Range" Height = 255 Index = 1 Left = 2160 TabIndex = 208 Top = 240 Width = 2055 End Begin VB.OptionButton OptRange Caption = "All Pages" Height = 255 Index = 0 Left = 240 TabIndex = 207 Top = 240 Value = -1 'True Width = 1815 End Begin VB.TextBox TxtStartPage Enabled = 0 'False Height = 285 Left = 3360 TabIndex = 204 Top = 840 Width = 855 End Begin VB.TextBox TxtEndPage Enabled = 0 'False Height = 285 Left = 3360 TabIndex = 203 Top = 1200 Width = 855 End Begin VB.CheckBox ChkCollate Caption = "Collate Copies" Height = 255 Left = 120 TabIndex = 108 Top = 2350 Width = 1575 End Begin VB.TextBox TxtPrnCopies Height = 285 Left = 3360 TabIndex = 106 Top = 2280 Width = 495 End Begin VB.Label LblRange Caption = "End Page:" Enabled = 0 'False Height = 255 Index = 1 Left = 1680 TabIndex = 206 Top = 1320 Width = 1455 End Begin VB.Label LblRange Caption = "Start Page:" Enabled = 0 'False Height = 255 Index = 0 Left = 1680 TabIndex = 205 Top = 960 Width = 1095 End Begin VB.Label LblNumCopies Caption = "Number of Copies:" Height = 255 Left = 1920 TabIndex = 107 Top = 2400 Width = 1335 End Begin Spin.SpinButton SpinButton1 Height = 350 Left = 3960 TabIndex = 105 Top = 2250 Width = 350 _Version = 65536 _ExtentX = 609 _ExtentY = 609 _StockProps = 73 TdThickness = 2 End End Begin VB.Frame Frame30 Caption = "Select Printer:" Height = 2775 Left = 4680 TabIndex = 57 Top = 240 Width = 2895 Begin VB.CommandButton CmdSelPrinter Caption = "&Select Printer" Height = 375 Left = 240 TabIndex = 65 Top = 2280 Width = 2415 End Begin VB.TextBox TxtPrnPort Height = 285 Left = 240 TabIndex = 64 Top = 1680 Width = 2415 End Begin VB.TextBox TxtPrnDriver Height = 285 Left = 240 TabIndex = 62 Top = 1080 Width = 2415 End Begin VB.TextBox TxtPrnName Height = 285 Left = 240 TabIndex = 60 Top = 480 Width = 2415 End Begin VB.Label Label17 Caption = "Printer Port:" Height = 255 Left = 240 TabIndex = 63 Top = 1440 Width = 2415 End Begin VB.Label Label16 Caption = "Printer Driver:" Height = 255 Left = 240 TabIndex = 61 Top = 840 Width = 2415 End Begin VB.Label Label15 Caption = "Printer Name:" Height = 255 Left = 240 TabIndex = 59 Top = 240 Width = 2535 End End End Begin VB.Frame Frame22 Height = 3135 Left = -74640 TabIndex = 41 Top = 600 Width = 7695 Begin VB.Frame Frame39 Caption = "Window Title" Height = 1095 Left = 3960 TabIndex = 97 Top = 240 Width = 3615 Begin VB.CommandButton CmdWinTitle Caption = "Set &Title" Height = 375 Left = 360 TabIndex = 100 Top = 600 Width = 1215 End Begin VB.CommandButton CmdClearTitle Caption = "&Clear Title" Height = 375 Left = 2040 TabIndex = 99 Top = 600 Width = 1215 End Begin VB.TextBox TxtWinTitle Height = 285 Left = 120 TabIndex = 98 Top = 240 Width = 3375 End End Begin VB.Frame Frame36 Caption = "Window Style:" Height = 1335 Left = 120 TabIndex = 78 Top = 240 Width = 3735 Begin VB.CheckBox ChkCtrls Caption = "Window Controls" Height = 255 Left = 120 TabIndex = 101 Top = 960 Value = 1 'Checked Width = 1695 End Begin VB.CheckBox ChkMax Caption = "Maximize Button" Height = 255 Left = 120 TabIndex = 90 Top = 600 Value = 1 'Checked Width = 1455 End Begin VB.CheckBox ChkMin Caption = "Minimize Button" Height = 255 Left = 120 TabIndex = 89 Top = 240 Value = 1 'Checked Width = 1575 End End Begin VB.Frame Frame35 Caption = "Page Margins:" Height = 1575 Left = 3960 TabIndex = 74 Top = 1440 Width = 3615 Begin VB.CommandButton CmdClearMargins Caption = "Clear &Margins" Height = 375 Left = 2040 TabIndex = 84 Top = 1080 Width = 1215 End Begin VB.CommandButton CmdSetMargins Caption = "&Set Margins" Height = 375 Left = 360 TabIndex = 83 Top = 1080 Width = 1215 End Begin VB.TextBox TxtLeft Alignment = 1 'Right Justify Height = 285 Left = 2640 TabIndex = 82 Top = 600 Width = 735 End Begin VB.TextBox TxtBottom Alignment = 1 'Right Justify Height = 285 Left = 960 TabIndex = 81 Top = 600 Width = 735 End Begin VB.TextBox TxtRight Alignment = 1 'Right Justify Height = 285 Left = 2640 TabIndex = 80 Top = 240 Width = 735 End Begin VB.TextBox TxtTop Alignment = 1 'Right Justify Height = 285 Left = 960 TabIndex = 79 Top = 240 Width = 735 End Begin VB.Label LblBottom Caption = "Bottom:" Height = 255 Left = 240 TabIndex = 88 Top = 720 Width = 735 End Begin VB.Label LblTop Caption = "Top:" Height = 255 Left = 240 TabIndex = 87 Top = 360 Width = 615 End Begin VB.Label LblLeft Caption = "Left:" Height = 255 Left = 2040 TabIndex = 86 Top = 720 Width = 495 End Begin VB.Label LblRight Caption = "Right:" Height = 255 Left = 2040 TabIndex = 85 Top = 360 Width = 615 End End Begin VB.Frame Frame34 Caption = "Window State:" Height = 1335 Left = 120 TabIndex = 73 Top = 1680 Width = 3735 Begin VB.OptionButton OptWinState Caption = "Normal Preview Window" Height = 255 Index = 0 Left = 120 TabIndex = 77 Top = 240 Value = -1 'True Width = 2415 End Begin VB.OptionButton OptWinState Caption = "Maximized Preview Window" Height = 255 Index = 2 Left = 120 TabIndex = 76 Top = 960 Width = 2295 End Begin VB.OptionButton OptWinState Caption = "Minimized Preview Window" Height = 255 Index = 1 Left = 120 TabIndex = 75 Top = 600 Width = 2295 End End End Begin VB.Frame Frame7 Height = 3135 Left = -74640 TabIndex = 40 Top = 600 Width = 7695 Begin VB.Frame Frame40 Caption = "Print Date:" Height = 1575 Left = 120 TabIndex = 104 Top = 1440 Width = 4455 Begin VB.CommandButton CmdPrintDate Caption = "Set &Print Date" Height = 375 Left = 3000 TabIndex = 225 Top = 1080 Width = 1335 End Begin VB.TextBox TxtPrintDate Height = 285 Left = 3000 TabIndex = 201 Top = 240 Width = 1335 End Begin VB.Label Label35 Caption = "e.g. 08/23/1995" Height = 255 Left = 3000 TabIndex = 228 Top = 720 Width = 1335 End Begin VB.Label Label34 Caption = $"Demo.frx":433C Height = 1215 Left = 120 TabIndex = 202 Top = 240 Width = 2655 End End Begin VB.Frame Frame38 Caption = "Report Destination:" Height = 1095 Left = 120 TabIndex = 92 Top = 240 Width = 4455 Begin VB.OptionButton OptDest Caption = "Send Report via E-Mail" Height = 255 Index = 3 Left = 2280 TabIndex = 96 Top = 600 Width = 1935 End Begin VB.OptionButton OptDest Caption = "Print Report to File" Height = 255 Index = 2 Left = 2280 TabIndex = 95 Top = 240 Width = 1935 End Begin VB.OptionButton OptDest Caption = "Print Report to Printer" Height = 255 Index = 1 Left = 120 TabIndex = 94 Top = 600 Width = 1935 End Begin VB.OptionButton OptDest Caption = "Print Report to Window" Height = 255 Index = 0 Left = 120 TabIndex = 93 Top = 240 Width = 2055 End End Begin VB.Frame Frame37 Caption = "General Settings:" Height = 2775 Left = 4680 TabIndex = 91 Top = 240 Width = 2895 Begin VB.CommandButton CmdNumDetails Caption = "Set &Detail Copies" Height = 375 Left = 840 TabIndex = 227 Top = 2280 Width = 1400 End Begin VB.TextBox TxtNumDetails Height = 300 Left = 1560 TabIndex = 226 Top = 1710 Width = 615 End Begin VB.CheckBox ChkDiscard Caption = "Discard Saved Data" Height = 255 Left = 120 TabIndex = 103 Top = 600 Value = 1 'Checked Width = 2175 End Begin VB.CheckBox ChkStatus Caption = "Recieve Report Status " Height = 255 Left = 120 TabIndex = 102 Top = 240 Width = 2055 End Begin Spin.SpinButton SpinButton2 Height = 345 Left = 2280 TabIndex = 224 Top = 1680 Width = 345 _Version = 65536 _ExtentX = 609 _ExtentY = 609 _StockProps = 73 TdThickness = 2 End Begin VB.Label Label32 Caption = "Number of Detail Copies:" Height = 255 Left = 120 TabIndex = 196 Top = 1200 Width = 2655 End End End End End Begin VB.Frame Frame20 Height = 4695 Left = -74760 TabIndex = 17 Top = 480 Width = 9015 Begin VB.Frame Frame33 Height = 2655 Left = 120 TabIndex = 67 Top = 1920 Width = 8775 Begin VB.Label Label31 Caption = "800-663-1244 or 604-681-3435 E-Mail: sales@crystalinc.com" Height = 735 Left = 3480 TabIndex = 163 Top = 1800 Width = 2055 End Begin VB.Label Label30 Caption = "You can also Contact Crystal directly at:" Height = 255 Left = 480 TabIndex = 162 Top = 1800 Width = 2895 End Begin VB.Label Label29 Alignment = 2 'Center Caption = "Or Go Reports to visit the Crystal CompuServe forum." Height = 255 Left = 360 TabIndex = 161 Top = 1440 Width = 7815 End Begin VB.Label Label28 Alignment = 2 'Center Caption = $"Demo.frx":4416 Height = 375 Left = 360 TabIndex = 160 Top = 960 Width = 8055 End Begin VB.Label Label21 Alignment = 2 'Center Caption = "Crystal Reports is the #1 award-winning reporting tool with over 1 million copies shipped." Height = 255 Left = 720 TabIndex = 72 Top = 600 Width = 7215 End Begin VB.Label Label20 Alignment = 2 'Center Caption = "Copyright 1995 Crystal Computer Services Inc. A Seagate Software Company" Height = 255 Left = 1320 TabIndex = 71 Top = 240 Width = 6135 End End Begin VB.Frame Frame32 Height = 1575 Left = 120 TabIndex = 66 Top = 240 Width = 8775 Begin VB.PictureBox Picture1 AutoSize = -1 'True Height = 510 Left = 240 Picture = "Demo.frx":44C3 ScaleHeight = 480 ScaleWidth = 480 TabIndex = 68 Top = 240 Width = 510 End Begin VB.Label Label19 Alignment = 2 'Center Caption = $"Demo.frx":47CD Height = 615 Left = 720 TabIndex = 70 Top = 840 Width = 7335 End Begin VB.Label Label18 Alignment = 2 'Center Caption = "Crystal Reports Professional 4.5 sample application using the Crystal 32-bit OLE Control." Height = 495 Left = 1200 TabIndex = 69 Top = 240 Width = 6255 End End End Begin VB.Frame Frame9 Height = 4695 Left = -74760 TabIndex = 9 Top = 480 Width = 9015 Begin TabDlg.SSTab DataTab Height = 4215 Left = 360 TabIndex = 109 Top = 240 Width = 8415 _Version = 65536 _ExtentX = 14843 _ExtentY = 7435 _StockProps = 15 Caption = "Format Section" TabsPerRow = 5 Tab = 3 TabOrientation = 0 Tabs = 5 Style = 1 TabMaxWidth = 0 TabHeight = 529 TabCaption(0) = "Database Location" Tab(0).ControlCount= 2 Tab(0).ControlEnabled= 0 'False Tab(0).Control(0)= "CmdSecurity" Tab(0).Control(1)= "Frame6" TabCaption(1) = "ODBC Connection" Tab(1).ControlCount= 1 Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "Frame8" TabCaption(2) = "SQL Query" Tab(2).ControlCount= 1 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "Frame42" TabCaption(3) = "Format Section" Tab(3).ControlCount= 1 Tab(3).ControlEnabled= -1 'True Tab(3).Control(0)= "Frame44" TabCaption(4) = "Group Condition" Tab(4).ControlCount= 1 Tab(4).ControlEnabled= 0 'False Tab(4).Control(0)= "Frame45" Begin VB.Frame Frame45 Height = 3375 Left = -74760 TabIndex = 197 Top = 480 Width = 7935 Begin VB.TextBox TxtGrpSection Height = 285 Left = 3240 TabIndex = 223 Top = 360 Width = 1095 End Begin VB.OptionButton OptGrpCond Caption = "Descending" Height = 255 Index = 1 Left = 5280 TabIndex = 220 Top = 1920 Width = 1575 End Begin VB.OptionButton OptGrpCond Caption = "Ascending" Height = 255 Index = 0 Left = 3240 TabIndex = 219 Top = 1920 Value = -1 'True Width = 1935 End Begin VB.CommandButton CmdGrpCond Caption = "Set &Group" Height = 375 Left = 6240 TabIndex = 218 Top = 2880 Width = 1455 End Begin VB.TextBox TxtGrpCond Height = 285 Left = 3240 TabIndex = 214 Top = 840 Width = 3615 End Begin VB.ComboBox CboCond Height = 300 Left = 3240 Style = 2 'Dropdown List TabIndex = 213 Top = 1320 Width = 3615 End Begin VB.Label Label42 Caption = $"Demo.frx":48C1 Height = 975 Left = 120 TabIndex = 222 Top = 2280 Width = 5895 End Begin VB.Label Label41 Caption = "Sort Direction of group:" Height = 255 Left = 240 TabIndex = 221 Top = 1920 Width = 2415 End Begin VB.Label Label40 Caption = "Condtion value that changes group:" Height = 255 Left = 240 TabIndex = 217 Top = 1440 Width = 2775 End Begin VB.Label Label39 Caption = "Field to base group section upon:" Height = 255 Left = 240 TabIndex = 216 Top = 960 Width = 2415 End Begin VB.Label Label38 Caption = "Group Section to be changed:" Height = 255 Left = 240 TabIndex = 215 Top = 480 Width = 2175 End End Begin VB.Frame Frame44 Height = 3375 Left = 240 TabIndex = 167 Top = 480 Width = 7935 Begin VB.CommandButton CmdSetFont Caption = "Set &Font" Height = 375 Left = 4680 TabIndex = 186 Top = 2880 Width = 1400 End Begin VB.CommandButton CmdSetFormat Caption = "&Set Format" Height = 375 Left = 2880 TabIndex = 185 Top = 2880 Width = 1400 End Begin VB.CommandButton CmdSetHeight Caption = "Set &Line Height" Height = 375 Left = 6400 TabIndex = 184 Top = 2880 Width = 1400 End Begin VB.ComboBox CboSecList Height = 300 Index = 0 Left = 2880 Style = 2 'Dropdown List TabIndex = 171 Top = 240 Width = 2775 End Begin VB.Frame FrameSecHeight Caption = "Section Line Height:" Height = 1095 Left = 2880 TabIndex = 170 Top = 1680 Width = 4935 Begin VB.TextBox TxtLineNum Height = 285 Left = 1680 TabIndex = 195 Top = 240 Width = 975 End Begin VB.TextBox TxtMinHeight Height = 285 Left = 1680 TabIndex = 193 Top = 600 Width = 975 End Begin VB.TextBox TxtLineAscent Height = 285 Left = 3840 TabIndex = 189 Top = 600 Width = 975 End Begin VB.TextBox TxtLineHeight Height = 285 Left = 3840 TabIndex = 188 Top = 240 Width = 975 End Begin VB.Label LblLineHeight Caption = "Line Number:" Height = 255 Index = 0 Left = 120 TabIndex = 194 Top = 360 Width = 1335 End Begin VB.Label LblLineHeight Caption = "Minimum Line Height:" Height = 255 Index = 1 Left = 120 TabIndex = 192 Top = 720 Width = 1575 End Begin VB.Label LblLineHeight Caption = "Line Ascent:" Height = 255 Index = 3 Left = 2760 TabIndex = 191 Top = 720 Width = 975 End Begin VB.Label LblLineHeight Caption = "Line Height:" Height = 255 Index = 2 Left = 2760 TabIndex = 190 Top = 360 Width = 975 End End Begin VB.Frame FrameSecFont Caption = "Section Font:" Height = 975 Left = 2880 TabIndex = 169 Top = 600 Width = 4935 Begin VB.TextBox TxtFontSize Height = 285 Left = 3840 TabIndex = 212 Top = 240 Width = 975 End Begin VB.TextBox TxtFontName Height = 285 Left = 120 TabIndex = 211 Top = 240 Width = 3015 End Begin VB.CheckBox ChkSecFont Caption = "Italic" Height = 255 Index = 2 Left = 2400 TabIndex = 183 Top = 600 Width = 735 End Begin VB.CheckBox ChkSecFont Caption = "StrikeThrough" Height = 255 Index = 3 Left = 3360 TabIndex = 182 Top = 600 Width = 1455 End Begin VB.CheckBox ChkSecFont Caption = "UnderLined" Height = 255 Index = 1 Left = 1080 TabIndex = 181 Top = 600 Width = 1215 End Begin VB.CheckBox ChkSecFont Caption = "Bold" Height = 255 Index = 0 Left = 120 TabIndex = 180 Top = 600 Width = 735 End End Begin VB.Frame FrameSecFormat Caption = "Section Format:" Height = 2655 Left = 120 TabIndex = 168 Top = 600 Width = 2655 Begin VB.CheckBox ChkSecFormat Caption = "Suppress Blank Lines" Height = 255 Index = 4 Left = 120 TabIndex = 179 Top = 1620 Width = 2055 End Begin VB.CheckBox ChkSecFormat Caption = "Print at Bottom of Page" Height = 255 Index = 6 Left = 120 TabIndex = 178 Top = 2220 Width = 2055 End Begin VB.CheckBox ChkSecFormat Caption = "Reset Page Number After" Height = 255 Index = 5 Left = 120 TabIndex = 177 Top = 1920 Width = 2175 End Begin VB.CheckBox ChkSecFormat Caption = "New Page After" Height = 255 Index = 2 Left = 120 TabIndex = 176 Top = 1005 Width = 1455 End Begin VB.CheckBox ChkSecFormat Caption = "Keep Section Together" Height = 255 Index = 3 Left = 120 TabIndex = 175 Top = 1320 Width = 2055 End Begin VB.CheckBox ChkSecFormat Caption = "New Page Before" Height = 255 Index = 1 Left = 120 TabIndex = 174 Top = 675 Width = 1695 End Begin VB.CheckBox ChkSecFormat Caption = "Visible" Height = 255 Index = 0 Left = 120 TabIndex = 173 Top = 360 Width = 1455 End End Begin VB.Label LblSec Caption = "Section to be Formatted:" Height = 255 Left = 180 TabIndex = 172 Top = 360 Width = 2415 End End Begin VB.Frame Frame42 Height = 3255 Left = -74640 TabIndex = 142 Top = 480 Width = 7695 Begin VB.CommandButton CmdQuery Caption = "Set &Query" Height = 375 Left = 6000 TabIndex = 151 Top = 2760 Width = 1455 End Begin VB.TextBox TxtSQLQuery Height = 2295 Left = 240 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 143 Top = 360 Width = 7215 End Begin VB.Label Label37 Caption = "From this text box, the SQL Query 'WHERE' and 'ORDERBY' clauses can be modified from what was used in the report." Height = 375 Left = 240 TabIndex = 210 Top = 2760 Width = 5655 End End Begin VB.Frame Frame8 Height = 3135 Left = -74760 TabIndex = 121 Top = 480 Width = 7935 Begin VB.Frame Frame41 Caption = "Stored Procedure Parameters:" Height = 2775 Left = 4680 TabIndex = 131 Top = 240 Width = 3135 Begin VB.CommandButton CmdStoredProc Caption = "Set &Parameter" Height = 375 Left = 840 TabIndex = 200 Top = 2280 Width = 1695 End Begin VB.TextBox TxtStoredProc Height = 285 Left = 120 TabIndex = 199 Top = 1320 Width = 2895 End Begin VB.Label Label33 Alignment = 2 'Center Caption = "This text box will allow you to pass Stored Procedure Parameters to a report that is based upon a Stored Procedure." Height = 975 Left = 240 TabIndex = 198 Top = 240 Width = 2655 End End Begin VB.Frame Frameodbc Caption = "ODBC Connection:" Height = 2775 Left = 120 TabIndex = 122 Top = 240 Width = 4455 Begin VB.CommandButton CmdConnect Caption = "&Connect" Height = 375 Left = 1320 TabIndex = 132 Top = 2280 Width = 1695 End Begin VB.TextBox TxtDSN Height = 285 Left = 1800 TabIndex = 126 Top = 360 Width = 2415 End Begin VB.TextBox TxtUID Height = 285 Left = 1800 TabIndex = 125 Top = 840 Width = 2415 End Begin VB.TextBox TxtPWD Height = 285 Left = 1800 PasswordChar = "*" TabIndex = 124 Top = 1320 Width = 2415 End Begin VB.TextBox TxtDSQ Height = 285 Left = 1800 TabIndex = 123 Top = 1800 Width = 2415 End Begin VB.Label Label3 Caption = "Data Source Name:" Height = 255 Left = 120 TabIndex = 130 Top = 480 Width = 1455 End Begin VB.Label Label6 Caption = "Password:" Height = 255 Left = 120 TabIndex = 129 Top = 1440 Width = 1455 End Begin VB.Label Label7 Caption = "User ID:" Height = 255 Left = 120 TabIndex = 128 Top = 960 Width = 735 End Begin VB.Label Label8 Caption = "Database Qualifier:" Height = 255 Left = 120 TabIndex = 127 Top = 1920 Width = 1455 End End End Begin VB.CommandButton CmdSecurity Caption = "&Set Security" Height = 375 Left = -68640 TabIndex = 118 Top = 3720 Width = 1695 End Begin VB.Frame Frame6 Caption = "Database/Access Security:" Height = 3135 Left = -74760 TabIndex = 110 Top = 480 Width = 7815 Begin VB.Frame Frame14 Caption = "Database:" Height = 2775 Left = 3600 TabIndex = 114 Top = 240 Width = 4095 Begin VB.TextBox TxtPassword Height = 285 Left = 2040 TabIndex = 120 Top = 2280 Width = 1935 End Begin VB.TextBox TxtUserName Height = 285 Left = 120 TabIndex = 119 Top = 2280 Width = 1815 End Begin VB.FileListBox DataFileList Height = 1590 Left = 120 Pattern = "*.mdb" TabIndex = 115 Top = 240 Width = 3855 End Begin VB.Label Label5 Caption = "Password:" Height = 255 Left = 2040 TabIndex = 117 Top = 1920 Width = 855 End Begin VB.Label Label4 Caption = "User Name:" Height = 255 Left = 120 TabIndex = 116 Top = 1920 Width = 1095 End End Begin VB.Frame Frame13 Caption = "Directory:" Height = 2775 Left = 120 TabIndex = 111 Top = 240 Width = 3375 Begin VB.DirListBox DataDirList Height = 1830 Left = 120 TabIndex = 113 Top = 240 Width = 3135 End Begin VB.DriveListBox DataDriveList Height = 315 Left = 120 TabIndex = 112 Top = 2280 Width = 3135 End End End End End Begin VB.Frame Frame5 Height = 4695 Left = -74760 TabIndex = 7 Top = 480 Width = 9015 Begin VB.CommandButton CmdClrFormula Caption = "Clear Formula Text" Height = 375 Left = 5400 TabIndex = 27 Top = 4200 Width = 1575 End Begin VB.CommandButton CmdAccptFormula Caption = "Accept Formula" Height = 375 Left = 7200 TabIndex = 26 Top = 4200 Width = 1575 End Begin TabDlg.SSTab FormulaTab Height = 3735 Left = 240 TabIndex = 8 Top = 360 Width = 8535 _Version = 65536 _ExtentX = 15055 _ExtentY = 6588 _StockProps = 15 Caption = "Record/Group Sort Orders" TabsPerRow = 4 Tab = 3 TabOrientation = 0 Tabs = 4 Style = 1 TabMaxWidth = 0 TabHeight = 529 TabCaption(0) = "Report Formula" Tab(0).ControlCount= 1 Tab(0).ControlEnabled= 0 'False Tab(0).Control(0)= "Frame10" TabCaption(1) = "Record Selection Formula" Tab(1).ControlCount= 1 Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "Frame11" TabCaption(2) = "Group Selection Formula" Tab(2).ControlCount= 1 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "Frame12" TabCaption(3) = "Record/Group Sort Orders" Tab(3).ControlCount= 1 Tab(3).ControlEnabled= -1 'True Tab(3).Control(0)= "Frame16" Begin VB.Frame Frame16 Height = 3015 Left = 240 TabIndex = 29 Top = 480 Width = 8055 Begin VB.Frame Frame18 Caption = "Group Sort Order" Height = 2655 Left = 4080 TabIndex = 31 Top = 240 Width = 3800 Begin VB.OptionButton OptGrpSort Caption = "Descending" Height = 255 Index = 1 Left = 2040 TabIndex = 141 Top = 840 Width = 1575 End Begin VB.OptionButton OptGrpSort Caption = "Ascending" Height = 255 Index = 0 Left = 240 TabIndex = 140 Top = 840 Value = -1 'True Width = 1215 End Begin VB.CommandButton CmdClearGrp Caption = "Clear Group S&ort" Height = 375 Left = 2040 TabIndex = 139 Top = 2160 Width = 1400 End Begin VB.CommandButton CmdGrpSort Caption = "Set &Group Sort" Height = 375 Left = 360 TabIndex = 138 Top = 2160 Width = 1400 End Begin VB.TextBox TxtGrpSort Height = 285 Left = 120 TabIndex = 133 Top = 360 Width = 3495 End Begin VB.Label Label27 Caption = "e.g. Sum ({empdata.salary}, {empdata.empnum})" Height = 255 Left = 120 TabIndex = 159 Top = 1830 Width = 3615 End Begin VB.Label Label25 Caption = "The group field being entered into the textbox must be entered using the same syntax as is entered into Crystal Reports." Height = 735 Left = 120 TabIndex = 156 Top = 1080 Width = 3615 End End Begin VB.Frame Frame17 Caption = "Record Sort Order" Height = 2655 Left = 120 TabIndex = 30 Top = 240 Width = 3800 Begin VB.CommandButton CmdClearRec Caption = "&Clear Record Sort" Height = 375 Left = 2040 TabIndex = 137 Top = 2160 Width = 1400 End Begin VB.CommandButton CmdRecSort Caption = "&Set Record Sort" Height = 375 Left = 360 TabIndex = 136 Top = 2160 Width = 1400 End Begin VB.OptionButton OptRecSort Caption = "Descending" Height = 255 Index = 1 Left = 1920 TabIndex = 135 Top = 840 Width = 1575 End Begin VB.OptionButton OptRecSort Caption = "Ascending" Height = 255 Index = 0 Left = 120 TabIndex = 134 Top = 840 Value = -1 'True Width = 1455 End Begin VB.TextBox TxtRecSort Height = 285 Left = 120 TabIndex = 32 Top = 360 Width = 3495 End Begin VB.Label Label26 Caption = "e.g. {Empdata.Salary}" Height = 255 Left = 120 TabIndex = 158 Top = 1850 Width = 3615 End Begin VB.Label Label24 Caption = "The field being entered into the text box must be entered using the same syntax as is entered into Crystal Reports." Height = 615 Left = 120 TabIndex = 155 Top = 1200 Width = 3615 End End End Begin VB.CommandButton CmdAccptFormulas Caption = "Accept Formula" Height = 375 Left = -68400 TabIndex = 25 Top = 3600 Width = 1695 End Begin VB.Frame Frame12 Height = 3015 Left = -74760 TabIndex = 12 Top = 480 Width = 8055 Begin VB.Frame Frame21 Height = 975 Left = 120 TabIndex = 35 Top = 1920 Width = 7815 Begin VB.Label Label12 Caption = $"Demo.frx":4A1B Height = 615 Left = 120 TabIndex = 36 Top = 240 Width = 7575 End End Begin VB.TextBox TxtGrpSelFormula Height = 1695 Left = 120 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 24 Top = 240 Width = 7815 End Begin VB.Label Label9 Height = 855 Left = 120 TabIndex = 33 Top = 2040 Width = 7815 End End Begin VB.Frame Frame11 Height = 3015 Left = -74760 TabIndex = 11 Top = 480 Width = 8055 Begin VB.Frame Frame19 Height = 975 Left = 120 TabIndex = 34 Top = 1920 Width = 7815 Begin VB.Label Label11 Caption = $"Demo.frx":4B33 Height = 615 Left = 120 TabIndex = 157 Top = 240 Width = 7575 End End Begin VB.TextBox TxtRecSelFormula Height = 1695 Left = 120 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 23 Top = 240 Width = 7815 End End Begin VB.Frame Frame10 Height = 3015 Left = -74760 TabIndex = 10 Top = 480 Width = 8055 Begin VB.Frame Frame15 Caption = "Formula Text:" Height = 2055 Left = 120 TabIndex = 21 Top = 840 Width = 7815 Begin VB.TextBox TxtFormula Height = 1695 Left = 120 MaxLength = 255 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 22 Top = 240 Width = 7575 End End Begin VB.TextBox TxtFormulaName Height = 285 Left = 1560 TabIndex = 19 Top = 360 Width = 2655 End Begin VB.Label Label2 Caption = "This formula must be entered using the same syntax of the Formula Editor." Height = 375 Left = 4440 TabIndex = 20 Top = 360 Width = 3375 End Begin VB.Label Label1 Caption = "Formula Name:" Height = 255 Left = 180 TabIndex = 18 Top = 480 Width = 1215 End End End Begin VB.Label Label10 Height = 405 Left = 240 TabIndex = 28 Top = 4200 Width = 5055 End End Begin VB.Frame Frame1 Height = 4695 Left = -74640 TabIndex = 1 Top = 480 Width = 8895 Begin VB.CommandButton CmdChooseRpt Caption = "&OK" Height = 375 Left = 7320 TabIndex = 187 Top = 4200 Width = 1455 End Begin VB.Frame Frame3 Caption = "Reports:" Height = 3855 Left = 3840 TabIndex = 3 Top = 240 Width = 4935 Begin VB.FileListBox FileList Height = 3345 Left = 120 Pattern = "*.rpt" TabIndex = 6 Top = 240 Width = 4695 End End Begin VB.Frame Frame2 Caption = "Directory:" Height = 3855 Left = 240 TabIndex = 2 Top = 240 Width = 3495 Begin VB.DriveListBox DriveList Height = 315 Left = 120 TabIndex = 5 Top = 3360 Width = 3255 End Begin VB.DirListBox DirList Height = 2955 Left = 120 TabIndex = 4 Top = 240 Width = 3255 End End End End Begin Crystal.CrystalReport CrystalReport1 Left = 0 Top = 0 _version = 262149 _extentx = 741 _extenty = 741 _stockprops = 0 reportfilename = "" destination = 0 windowleft = 100 windowtop = 100 windowwidth = 490 windowheight = 300 windowtitle = "" windowborderstyle= 2 windowcontrolbox= -1 'True windowmaxbutton = -1 'True windowminbutton = -1 'True copiestoprinter = 1 printfilename = "" printfiletype = 0 selectionformula= "" groupselectionformula= "" connect = "" username = "" reportsource = 0 boundreportheading= "" boundreportfooter= 0 'False sqlquery = "" discardsaveddata= 0 'False windowcontrols = -1 'True printerdriver = "" printername = "" printerport = "" detailcopies = 1 printerstartpage= 0 printerstoppage = 0 printercollation= 2 windowstate = 0 marginleft = 0 marginright = 0 margintop = 0 marginbottom = 0 printfileuserptnumberfmt= 0 'False printfileuserptdatefmt= 0 'False printfilecharsepseperator= "" printfilecharsepquote= "" emailsubject = "" emailmessage = "" emailtolist = "" emailcclist = "" emailvimbcclist = "" End Attribute VB_Name = "Demo" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit ' Sets a variable to increment the CrystalReport1.Formulas ' array index for each formula that is being set. This value Dim FormulaNum As Integer Dim RecSort, GrpSort As Integer Dim SecNum, SecFont As Integer Dim StoredProc As Integer Dim MinHeight, LineHeight As Integer Dim GroupCond As Integer Dim GraphTextNum, GraphTypeNum, GraphOptNum, GraphDataNum As Integer Dim ButtonVal, DataVal As String Private Sub CboCond_Click() GrpCondition End Sub Private Sub CboDataDir_Click() Dim DataDir As String DataDir = CboDataDir.ListIndex Select Case DataDir Case 0 DataVal = "ROWS" Case 1 DataVal = "COLS" Case 2 DataVal = "ROWANDCOL" Case 3 DataVal = "COLANDROW" End Select End Sub Private Sub CboPrnFileType_Click(Index As Integer) Dim iPrnFileType As Integer Select Case Index Case 0 iPrnFileType = 0 Case 1 iPrnFileType = 1 End Select FileType (iPrnFileType) End Sub Private Sub CboSecList_Click(Index As Integer) Dim SectionList As Integer Select Case Index Case 0 SectionList = 0 Case 1 SectionList = 1 End Select RptSection (SectionList) End Sub Private Sub ChkCollate_Click() If ChkCollate.Value = 1 Then CrystalReport1.PrinterCollation = 1 CrystalReport1.PrinterCollation = 0 End If End Sub Private Sub ChkCtrls_Click() If ChkCtrls.Value = 1 Then CrystalReport1.WindowControls = True CrystalReport1.WindowControls = False End If End Sub Private Sub ChkDateFormat_Click(Index As Integer) If ChkDateFormat(Index).Value = 1 Then CrystalReport1.PrintFileUseRptDateFmt = True CrystalReport1.PrintFileUseRptDateFmt = True End If End Sub Private Sub ChkDiscard_Click() If ChkDiscard.Value = 1 Then CrystalReport1.DiscardSavedData = 1 CrystalReport1.DiscardSavedData = 0 End If End Sub Private Sub ChkMax_Click() If ChkMax.Value = 1 Then CrystalReport1.WindowMaxButton = True CrystalReport1.WindowMaxButton = False End If End Sub Private Sub ChkMin_Click() If ChkMin.Value = 1 Then CrystalReport1.WindowMinButton = True CrystalReport1.WindowMinButton = False End If End Sub Private Sub ChkNumFormat_Click(Index As Integer) If ChkNumFormat(Index).Value = 1 Then CrystalReport1.PrintFileUseRptNumberFmt = True CrystalReport1.PrintFileUseRptNumberFmt = True End If End Sub Private Sub CmdAccept_Click() Dim iCrystalError As Integer On Error GoTo ErrorHandler If CrystalReport1.Destination = 1 Then CrystalReport1.CopiesToPrinter = Val(TxtPrnCopies.Text) End If CrystalReport1.Action = 1 ResetIndexes If ChkStatus.Value = 1 Then status.Show 1 End If ErrorHandler: iCrystalError = CrystalReport1.LastErrorNumber PrintError (iCrystalError) Exit Sub End Sub Private Sub CmdAccptFormula_Click() Dim sFormulaText As String ' create avariable to hold the formula text ' that is entered by the user. Dim iFormulaTabNum As Integer ' hold the number of the tab selected. iFormulaTabNum = FormulaTab.Tab ' assign the Formula Tab's active tab number to ' to the FormulaTabNum variable. ' Depending on the active tab chosen, determine what formula is being edited and then assign ' the formula text to the appropriate formula property. Select Case iFormulaTabNum Case 0 ' sets the value for the CrystalReport1.Formulas(0) array property. sFormulaText = TxtFormulaName.Text & "= " & TxtFormula.Text CrystalReport1.Formulas(FormulaNum) = sFormulaText FormulaNum = FormulaNum + 1 ' increments the CrystalReport1.Formulas(0) ' array index. Case 1 ' Set the Record Selection Formula. CrystalReport1.SelectionFormula = TxtRecSelFormula.Text Case 2 ' Set the Group Selection Formula. CrystalReport1.GroupSelectionFormula = TxtGrpSelFormula.Text Case 3 ' Disables the "Accept Formula" command button CmdAccptFormula.Enabled = False ' when the user chooses the Record/Group Sort ' Orders tab. End Select Timer1.Interval = 2000 TxtFormulaName.Text = " " TxtFormula.Text = " " End Sub Private Sub CmdBack_Click() If MainTab.Tab > 0 Then MainTab.Tab = MainTab.Tab - 1 CmdNext.Enabled = True End If If MainTab.Tab < 1 Then CmdBack.Enabled = False End If End Sub Private Sub CmdCancel_Click() End ' Exit the program. End Sub Private Sub CmdChooseRpt_Click() ChooseRpt End Sub Private Sub CmdClearGrp_Click() TxtGrpSort.Text = " " End Sub Private Sub CmdClearMargins_Click() TxtTop.Text = " " TxtBottom.Text = " " TxtRight.Text = " " TxtLeft.Text = " " CrystalReport1.MarginTop = 720 '1/2 inch CrystalReport1.MarginBottom = 720 '1/2 inch CrystalReport1.MarginRight = 1440 '1 inch CrystalReport1.MarginLeft = 1440 '1 inch End Sub Private Sub CmdClearRec_Click() TxtRecSort.Text = " " End Sub Private Sub CmdClearTitle_Click() TxtWinTitle.Text = " " CrystalReport1.WindowTitle = FileList.Path & "\" & FileList.filename End Sub Private Sub CmdClrFormula_Click() Dim iClearTabNum As Integer iClearTabNum = FormulaTab.Tab Select Case iClearTabNum Case 0 TxtFormulaName.Text = " " TxtFormula.Text = " " CmdAccptFormula.Enabled = False Case 1 TxtRecSelFormula.Text = " " CmdAccptFormula.Enabled = False Case 2 TxtGrpSelFormula.Text = " " CmdAccptFormula.Enabled = False End Select End Sub Private Sub CmdConnect_Click() Dim sCnctStrng As String, sDataSrce As String, sUserID As String, sPwd As String, sDsq As String sDataSrce = "DSN=" & TxtDSN.Text sUserID = "UID=" & TxtUID.Text sPwd = "PWD=" & TxtPWD.Text sDsq = "DSQ=" & TxtDSQ.Text 'if TxtPWD.TEXT = " " CrystalReport1.Connect = sDataSrce & ";" & sUserID & ";" & sPwd & ";" & sDsq End Sub Private Sub CmdEmail_Click() CrystalReport1.PrintFileName = TxtPrnFileName.Text CrystalReport1.EMailToList = TxtMailTo.Text CrystalReport1.EMailCCList = TxtMailCC.Text CrystalReport1.EMailSubject = TxtMailSub.Text CrystalReport1.EMailMessage = TxtMailMessage.Text MsgBox "To send this mail, click the 'Print Report' Button" End Sub Private Sub CmdGraphData_Click() Dim RptGraphData As String RptGraphData = ReportSection & ";" & Val(TxtGrphNum.Text) & ";" & UCase(TxtGraphRows.Text) & ";" RptGraphData = RptGraphData & UCase(TxtGraphCols.Text) & ";" & TxtRisers.Text & ";" & DataVal CrystalReport1.GraphData(GraphDataNum) = RptGraphData GraphDataNum = GraphDataNum + 1 End Sub Private Sub CmdGrpCond_Click() Dim GrpChange, SortDir As String If OptGrpCond(0).Value Then SortDir = "A" SortDir = "D" End If GrpChange = "GROUP" & TxtGrpSection.Text & ";" & TxtGrpCond.Text & ";" & GroupCondition & ";" GrpChange = GrpChange & SortDir CrystalReport1.GroupCondition(GroupCond) = GrpChange GroupCond = GroupCond + 1 End Sub Private Sub CmdGrphOpt_Click() Dim RptGraphOptions, GrphOptDir As String If OptGrphBars(0).Value Then GrphOptDir = "V" GrphOptDir = "H" End If RptGraphOptions = ReportSection & ";" & Val(TxtGrphNum.Text) & ";" & TxtGrphFont.Text & ";" RptGraphOptions = RptGraphOptions & GrphOptDir & ";" & ChkBarRisers.Value & ";" RptGraphOptions = RptGraphOptions & ChkGridLines.Value & ";" & ChkLegend.Value & ";" RptGraphOptions = RptGraphOptions & Val(TxtMinRange.Text) & ";" & Val(TxtMaxRange.Text) CrystalReport1.GraphOptions(GraphOptNum) = RptGraphOptions GraphOptNum = GraphOptNum + 1 End Sub Private Sub CmdGrphType_Click() Dim RptGraphType As String RptGraphType = ReportSection & ";" & Val(TxtGrphNum.Text) & ";" & ButtonVal CrystalReport1.GraphType(GraphTypeNum) = RptGraphType GraphTypeNum = GraphTypeNum + 1 End Sub Private Sub CmdGrpSort_Click() Dim sortgrp As String If OptGrpSort(0).Value Then sortgrp = "+" & TxtGrpSort.Text sortgrp = "-" & TxtGrpSort.Text End If CrystalReport1.GroupSortFields(GrpSort) = sortgrp GrpSort = GrpSort + 1 End Sub Private Sub CmdNext_Click() If MainTab.Tab < MainTab.Tabs - 1 Then MainTab.Tab = MainTab.Tab + 1 CmdBack.Enabled = True End If If MainTab.Tab = MainTab.Tabs - 1 Then CmdNext.Enabled = False End If End Sub Private Sub CmdNumDetails_Click() CrystalReport1.DetailCopies = Val(TxtNumDetails.Text) End Sub Private Sub CmdPrintDate_Click() Dim RptDay, RptMonth, RptYear As String If Left(TxtPrintDate.Text, 2) >= 1 And Left(TxtPrintDate.Text, 2) <= 12 Then RptMonth = Left(TxtPrintDate.Text, 2) CrystalReport1.PrintMonth = RptMonth MsgBox "Invalid Month Range" TxtPrintDate.SetFocus End If If Mid(TxtPrintDate.Text, 4, 2) >= 1 And Mid(TxtPrintDate.Text, 4, 2) <= 31 Then RptDay = Mid(TxtPrintDate.Text, 4, 2) CrystalReport1.PrintDay = RptDay MsgBox "Invalid Day Range" TxtPrintDate.SetFocus End If If Mid(TxtPrintDate.Text, 7, 2) = 19 And (Right(TxtPrintDate.Text, 2) >= 0 And Right(TxtPrintDate.Text, 2) <= 99) Then RptYear = Right(TxtPrintDate.Text, 4) CrystalReport1.PrintYear = RptYear MsgBox "Invalid Year Range" TxtPrintDate.SetFocus End If End Sub Private Sub CmdQuery_Click() CrystalReport1.SQLQuery = TxtSQLQuery.Text End Sub Private Sub CmdRange_Click() CrystalReport1.PrinterStartPage = Val(TxtStartPage.Text) CrystalReport1.PrinterStopPage = Val(TxtEndPage.Text) End Sub Private Sub CmdRecSort_Click() Dim sort As String If OptRecSort(0).Value Then sort = "+" & TxtRecSort.Text sort = "-" & TxtRecSort.Text End If CrystalReport1.SortFields(RecSort) = sort RecSort = RecSort + 1 End Sub Private Sub CmdSecurity_Click() CrystalReport1.UserName = TxtUserName.Text CrystalReport1.Password = TxtPassword.Text End Sub Private Sub CmdSelPrinter_Click() CrystalReport1.PrinterName = TxtPrnName.Text CrystalReport1.PrinterDriver = TxtPrnDriver.Text CrystalReport1.PrinterPort = TxtPrnPort.Text End Sub Private Sub CmdSetFont_Click() Dim SectionFontAttrib As String SectionFontAttrib = ChkSecFont(0).Value & ";" & ChkSecFont(1).Value & ";" & ChkSecFont(2).Value & ";" SectionFontAttrib = SectionFontAttrib & ChkSecFont(3).Value CrystalReport1.SectionFont(SecFont) = ReportSection & ";" & TxtFontName.Text & ";" & TxtFontSize.Text & ";" & SectionFontAttrib SecFont = SecFont + 1 End Sub Private Sub CmdSetFormat_Click() Dim SectionValue As String SectionValue = ChkSecFormat(0).Value & ";" & ChkSecFormat(1).Value & ";" & ChkSecFormat(2).Value & ";" & ChkSecFormat(3).Value & ";" SectionValue = SectionValue & ChkSecFormat(4).Value & ";" & ChkSecFormat(5).Value & ";" & ChkSecFormat(6).Value CrystalReport1.SectionFormat(SecNum) = ReportSection & ";" & SectionValue SecNum = SecNum + 1 End Sub Private Sub CmdSetGraph_Click() Dim GraphText, GraphInfo As String GraphText = TxtTitle.Text & ";" & TxtSubTitle.Text & ";" & TxtFootNote.Text & ";" GraphText = GraphText & TxtGrpTitle.Text & ";" & TxtSeriesTitle.Text & ";" & TxtXAxis.Text & ";" GraphText = GraphText & TxtYAxis.Text & ";" & TxtZAxis.Text GraphInfo = ReportSection & ";" & Val(TxtGrphNum.Text) & ";" & GraphText CrystalReport1.GraphText(GraphTextNum) = GraphInfo GraphTextNum = GraphTextNum + 1 End Sub Private Sub CmdSetHeight_Click() Dim MinLine, LineInfo As String MinLine = ReportSection & ";" & (Trim(Val(TxtMinHeight.Text)) * 1440) LineInfo = ReportSection & ";" & Trim(Val(TxtLineNum.Text)) & ";" LineInfo = LineInfo & (Trim(Val(TxtLineHeight.Text)) * 1440) & ";" & (Trim(Val(TxtLineAscent.Text)) * 1440) CrystalReport1.SectionMinHeight(MinHeight) = MinLine MinHeight = MinHeight + 1 CrystalReport1.SectionLineHeight(LineHeight) = ReportSection & ";" & LineInfo LineHeight = LineHeight + 1 End Sub Private Sub CmdSetMargins_Click() CrystalReport1.MarginTop = Val(TxtTop.Text) * 1440 CrystalReport1.MarginBottom = Val(TxtBottom.Text) * 1440 CrystalReport1.MarginRight = Val(TxtRight.Text) * 1440 CrystalReport1.MarginLeft = Val(TxtLeft.Text) * 1440 End Sub Private Sub CmdStoredProc_Click() CrystalReport1.StoredProcParam(StoredProc) = TxtStoredProc.Text StoredProc = StoredProc + 1 End Sub Private Sub CmdWinTitle_Click() CrystalReport1.WindowTitle = TxtWinTitle.Text End Sub Private Sub DataDirList_Change() DataFileList.Path = DataDirList.Path End Sub Private Sub DataDriveList_Change() DataDirList.Path = DataDriveList.Drive End Sub Private Sub DataFileList_DblClick() Dim sRptDataFile As String sRptDataFile = DataFileList.Path & "\" & DataFileList.filename CrystalReport1.DataFiles(0) = sRptDataFile End Sub Private Sub DirList_Change() FileList.Path = DirList.Path End Sub Private Sub DriveList_Change() DirList.Path = DriveList.Drive End Sub Private Sub FileList_DblClick() ChooseRpt End Sub Private Sub Form_Load() Center Me ' Centers the form onto the screen. MainTab.Tab = 0 ' Intialize the program with the first tab open. CmdBack.Enabled = False ' Disable the << Back button so that the user CmdNext.Enabled = False ' is not able to click and try to go back from the CmdAccept.Enabled = False ' first tab. The Next >> button is disabled so that the ' user cannot proceed without choosing a report first. ' The Accept button is disabled as there is nothing to ' accept at this point. With MainTab ' Disable all tabs other than the first tab .TabEnabled(1) = False ' (Open a Crystal Report) and the last tab .TabEnabled(2) = False ' (About Crystal Reports) .TabEnabled(3) = False .TabEnabled(4) = False End With End Sub Private Sub FormulaTab_Click(PreviousTab As Integer) If FormulaTab.Tab = 3 Then CmdAccptFormula.Enabled = False CmdClrFormula.Enabled = False CmdAccptFormula.Enabled = True CmdClrFormula.Enabled = True End If End Sub Private Sub OptRange_Click(Index As Integer) Select Case Index Case 0 LblRange(0).Enabled = False LblRange(1).Enabled = False TxtStartPage.Enabled = False TxtEndPage.Enabled = False Case 1 LblRange(0).Enabled = True LblRange(1).Enabled = True TxtStartPage.Enabled = True TxtEndPage.Enabled = True End Select End Sub Private Sub PrnFileDrive_Change() PrnFileDir.Path = PrnFileDrive.Drive End Sub Private Sub SpinButton1_SpinDown() ' Decrement the value in the text box on every SpinDown event. If Str$(Val(TxtPrnCopies.Text)) > 1 Then TxtPrnCopies.Text = Str$(Val(TxtPrnCopies.Text) - 1) ' Display the current value in the text box. TxtPrnCopies.Refresh Else TxtPrnCopies.Text = 1 End If End Sub Private Sub SpinButton1_SpinUp() ' Increment the value in the text box on every SpinUp event. TxtPrnCopies.Text = Str$(Val(TxtPrnCopies.Text) + 1) ' Display the current value in the text box. TxtPrnCopies.Refresh End Sub Private Sub OptDest_Click(Index As Integer) Dim Destination As Integer Select Case Index Case 0 CrystalReport1.Destination = 0 ' to window DestTab.TabEnabled(1) = True With DestTab .TabEnabled(2) = False .TabEnabled(3) = False .TabEnabled(4) = False End With DestTab.Tab = 1 Case 1 CrystalReport1.Destination = 1 ' to printer DestTab.TabEnabled(2) = True With DestTab .TabEnabled(1) = False .TabEnabled(3) = False .TabEnabled(4) = False End With DestTab.Tab = 2 Case 2 CrystalReport1.Destination = 2 ' to file DestTab.TabEnabled(3) = True With DestTab .TabEnabled(1) = False .TabEnabled(2) = False .TabEnabled(4) = False End With DestTab.Tab = 3 Case 3 CrystalReport1.Destination = 3 ' to email DestTab.TabEnabled(4) = True With DestTab .TabEnabled(1) = False .TabEnabled(2) = False .TabEnabled(3) = False End With DestTab.Tab = 4 End Select End Sub Private Sub OptWinState_Click(Index As Integer) Select Case Index Case 0 CrystalReport1.WindowState = 0 'normal Case 1 CrystalReport1.WindowState = 1 'minimized Case 2 CrystalReport1.WindowState = 2 'maximized End Select End Sub Private Sub SpinButton2_SpinDown() ' Decrement the value in the text box on every SpinDown event. If Str$(Val(TxtNumDetails.Text)) > 1 Then TxtNumDetails.Text = Str$(Val(TxtNumDetails.Text) - 1) ' Display the current value in the text box. TxtNumDetails.Refresh Else TxtNumDetails.Text = 1 End If End Sub Private Sub SpinButton2_SpinUp() ' Increment the value in the text box on every SpinUp event. TxtNumDetails.Text = Str$(Val(TxtNumDetails.Text) + 1) ' Display the current value in the text box. TxtNumDetails.Refresh End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Button) ButtonVal = Button.Key End Sub Private Sub TxtFormulaName_Change() CmdAccptFormula.Enabled = True End Sub Private Sub TxtGrpSelFormula_Change() CmdAccptFormula.Enabled = True End Sub Private Sub TxtPrnFileName_Change() Dim sPrintFile As String sPrintFile = PrnFileDir.Path & "\" & TxtPrnFileName.Text CrystalReport1.PrintFileName = sPrintFile End Sub Private Sub TxtQuote_Change(Index As Integer) CrystalReport1.PrintFileCharSepQuote = TxtQuote(Index).Text End Sub Private Sub TxtRecSelFormula_Change() CmdAccptFormula.Enabled = True End Sub Public Sub ResetIndexes() FormulaNum = 0 RecSort = 0 GrpSort = 0 SecNum = 0 SecFont = 0 StoredProc = 0 MinHeight = 0 LineHeight = 0 GroupCond = 0 GraphTextNum = 0 GraphTypeNum = 0 GraphOptNum = 0 GraphDataNum = 0 End Sub Private Sub TxtSep_Change(Index As Integer) CrystalReport1.PrintFileCharSepSeparator = TxtSep(Index).Text End Sub Private Sub TxtUserName_Change() CmdSecurity.Enabled = True End Sub Public Sub LoadFileTypes() Dim ListTypes As Integer For ListTypes = 0 To 1 With CboPrnFileType(ListTypes) .AddItem "Record", 0 .AddItem "Tab Seperated", 1 .AddItem "Text", 2 .AddItem "Data Interchange Format", 3 .AddItem "Comma Seperated", 4 .AddItem "Character Seperated", 5 .AddItem "Tab Setperated Text", 6 .AddItem "Crystal Report", 7 .AddItem "Excel 2.1", 8 .AddItem "Excel 3.0", 9 .AddItem "Excel 4.0", 10 .AddItem "Excel 5.0", 11 .AddItem "Lotus 1-2-3 WK1", 12 .AddItem "Lotus 1-2-3 WK3", 13 .AddItem "Lotus 1-2-3 WKS", 14 .AddItem "Quattro Pro 5.0 WB1", 15 .AddItem "Rich Text Format", 16 .AddItem "Word for DOS", 17 .AddItem "Word for Windows", 18 .AddItem "WordPerfect", 19 End With CboPrnFileType(ListTypes).Text = CboPrnFileType(ListTypes).List(0) Next ListTypes End Sub Public Sub LoadSections() Dim AddNum As Integer For AddNum = 0 To 1 With CboSecList(AddNum) .AddItem "Title", 0 .AddItem "Page Header", 1 .AddItem "Group Header1", 2 .AddItem "Group Header2", 3 .AddItem "Group Header3", 4 .AddItem "Group Header4", 5 .AddItem "Group Header5", 6 .AddItem "Group Header6", 7 .AddItem "Group Header7", 8 .AddItem "Group Header8", 9 .AddItem "Group Header9", 10 .AddItem "Details", 11 .AddItem "Group Footer9", 12 .AddItem "Group Footer8", 13 .AddItem "Group Footer7", 14 .AddItem "Group Footer6", 15 .AddItem "Group Footer5", 16 .AddItem "Group Footer4", 17 .AddItem "Group Footer3", 18 .AddItem "Group Footer2", 19 .AddItem "Group Footer1", 20 .AddItem "Page Footer", 21 .AddItem "Grand Total", 22 .AddItem "Summary", 23 .AddItem "All", 24 End With CboSecList(AddNum).Text = CboSecList(AddNum).List(0) Next AddNum End Sub Public Sub LoadCond() With CboCond .AddItem "On Any Change", 0 .AddItem "---Used with Date Conditions---", 1 .AddItem "Daily", 2 .AddItem "Weekly", 3 .AddItem "Bi Weekly", 4 .AddItem "Semi Monthly", 5 .AddItem "Monthly", 6 .AddItem "Quarterly", 7 .AddItem "Semi Anually", 8 .AddItem "Anually", 9 .AddItem "---Used with Boolean Conditions---", 10 .AddItem "To Yes", 11 .AddItem "To No", 12 .AddItem "Every Yes", 13 .AddItem "Every No", 14 .AddItem "Next is Yes", 15 .AddItem "Next is No", 16 End With CboCond.Text = CboCond.List(0) End Sub Public Sub LoadDataDir() Dim DataDir As Integer With CboDataDir .AddItem "Rows", 0 .AddItem "Columns", 1 .AddItem "Rows and Columns", 2 .AddItem "Columns and Rows", 3 End With CboDataDir.Text = CboDataDir.List(0) End Sub