object fmCompanySetupWizard: TfmCompanySetupWizard Left = 156 Top = 112 HelpContext = 730 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] BorderStyle = bsDialog Caption = 'Company Setup Wizard' ClientHeight = 353 ClientWidth = 592 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Notebook1: TNotebook Left = 152 Top = 0 Width = 440 Height = 288 Align = alRight PageIndex = 3 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'WelcomePage' object RxLabel7: TRxLabel Left = 20 Top = 15 Width = 215 Height = 23 Caption = 'Company Setup Wizard.' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label23: TLabel Left = 44 Top = 72 Width = 360 Height = 80 Caption = 'Welcome to the company setup wizard. This wizard will guide '#13#10'yo' + 'u through the process of creating a new company. '#13#10'All you have ' + 'to do is answer some basic questions using the'#13#10'< Back > and < N' + 'ext > buttons to progress through the setup process.' WordWrap = True end object Label24: TLabel Left = 200 Top = 188 Width = 4 Height = 16 end object FileListBox1: TFileListBox Left = 12 Top = 216 Width = 65 Height = 33 ItemHeight = 16 TabOrder = 0 Visible = False end end object TPage Left = 0 Top = 0 Caption = 'MainDetails' object Label1: TLabel Left = 36 Top = 56 Width = 341 Height = 16 Caption = 'Please enter your company details. Click Next to continue.' WordWrap = True end object RxLabel1: TRxLabel Left = 20 Top = 15 Width = 172 Height = 23 Caption = 'Company details ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label5: TLabel Left = 36 Top = 100 Width = 93 Height = 16 Caption = 'Company Name' end object Label6: TLabel Left = 36 Top = 130 Width = 59 Height = 16 Caption = 'Address 1' end object Label7: TLabel Left = 36 Top = 161 Width = 59 Height = 16 Caption = 'Address 2' end object Label8: TLabel Left = 36 Top = 191 Width = 59 Height = 16 Caption = 'Address 3' end object Label9: TLabel Left = 36 Top = 222 Width = 59 Height = 16 Caption = 'Address 4' end object Label10: TLabel Left = 36 Top = 252 Width = 61 Height = 16 Caption = 'Post Code' end object DBECompanyName: TwwDBEdit Left = 144 Top = 96 Width = 284 Height = 24 DataField = 'COMPANY' DataSource = DM1.dsSetup TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False OnExit = DBECompanyNameExit end object DBEdit2: TwwDBEdit Left = 144 Top = 126 Width = 214 Height = 24 DataField = 'ADDRESS1' DataSource = DM1.dsSetup TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEdit3: TwwDBEdit Left = 144 Top = 157 Width = 214 Height = 24 DataField = 'ADDRESS2' DataSource = DM1.dsSetup TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEdit4: TwwDBEdit Left = 144 Top = 187 Width = 214 Height = 24 DataField = 'ADDRESS3' DataSource = DM1.dsSetup TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEdit5: TwwDBEdit Left = 144 Top = 218 Width = 214 Height = 24 DataField = 'ADDRESS4' DataSource = DM1.dsSetup TabOrder = 4 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEPostcode: TwwDBEdit Left = 144 Top = 248 Width = 74 Height = 24 CharCase = ecUpperCase DataField = 'POSTCODE' DataSource = DM1.dsSetup TabOrder = 5 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end object TPage Left = 0 Top = 0 Caption = 'TelephoneNo' object Label2: TLabel Left = 28 Top = 72 Width = 272 Height = 16 Caption = 'Please type your Telephone and Fax Numbers.' WordWrap = True end object RxLabel2: TRxLabel Left = 20 Top = 15 Width = 229 Height = 23 Caption = 'Company details (cont) ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label11: TLabel Left = 28 Top = 116 Width = 83 Height = 16 Caption = 'Telephone No.' FocusControl = DBETelephoneNo end object Label12: TLabel Left = 28 Top = 148 Width = 42 Height = 16 Caption = 'Fax No' FocusControl = DBEdit8 end object Label13: TLabel Left = 28 Top = 180 Width = 33 Height = 16 Caption = 'Email' FocusControl = DBEdit9 end object DBETelephoneNo: TwwDBEdit Left = 120 Top = 112 Width = 109 Height = 24 DataField = 'TELNO' DataSource = DM1.dsSetup TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEdit8: TwwDBEdit Left = 120 Top = 144 Width = 109 Height = 24 DataField = 'FAXNO' DataSource = DM1.dsSetup TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBEdit9: TwwDBEdit Left = 120 Top = 176 Width = 309 Height = 24 DataField = 'EMAIL' DataSource = DM1.dsSetup TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end object TPage Left = 0 Top = 0 Caption = 'FinancialYear' object RxLabel3: TRxLabel Left = 20 Top = 15 Width = 193 Height = 23 Caption = 'Financial year start ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label3: TLabel Left = 40 Top = 72 Width = 234 Height = 32 Caption = 'Please set the start date of your current financial year.' WordWrap = True end object Label14: TLabel Left = 40 Top = 120 Width = 115 Height = 16 Caption = 'Financial Year Start' end object DBDFinancialYear: TDBDateEdit Left = 172 Top = 116 Width = 100 Height = 24 DataField = 'STARTFY' DataSource = DM1.dsSetup ClickKey = 16452 NumGlyphs = 2 CalendarStyle = csDialog TabOrder = 0 YearDigits = dyFour OnExit = DBDFinancialYearExit end end object TPage Left = 0 Top = 0 Caption = 'VATRegistration' object Label17: TLabel Left = 40 Top = 72 Width = 249 Height = 16 Caption = 'Please type your VAT Registration Number' WordWrap = True end object Label39: TLabel Left = 40 Top = 120 Width = 122 Height = 16 Caption = 'VAT Registration No.' FocusControl = DBEVATReg end object RxLabel4: TRxLabel Left = 20 Top = 15 Width = 239 Height = 23 Caption = 'VAT registration number ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object DBEVATReg: TwwDBEdit Left = 188 Top = 116 Width = 113 Height = 24 DataField = 'VATREGNO' DataSource = DM1.dsSetup TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end object TPage Left = 0 Top = 0 Caption = 'InvoiceNo' object Label4: TLabel Left = 40 Top = 116 Width = 63 Height = 16 Caption = 'Invoice No.' end object Label15: TLabel Left = 40 Top = 147 Width = 89 Height = 16 Caption = 'Credit Note No.' end object Label18: TLabel Left = 40 Top = 178 Width = 76 Height = 16 Caption = 'Proforma No.' end object Label19: TLabel Left = 40 Top = 209 Width = 80 Height = 16 Caption = 'Quotation No.' end object Label20: TLabel Left = 40 Top = 240 Width = 115 Height = 16 Caption = 'Purchase Order No.' end object RxLabel6: TRxLabel Left = 20 Top = 15 Width = 252 Height = 23 Caption = 'Start transaction numbers ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label21: TLabel Left = 40 Top = 60 Width = 349 Height = 32 Caption = 'Please type the numbers you want your various transactions'#13#10'to s' + 'tart from.' end object DBSEInvoiceNo: TwwDBSpinEdit Left = 176 Top = 115 Width = 95 Height = 24 Increment = 1.000000000000000000 MaxValue = 9999999999.000000000000000000 Value = 23.000000000000000000 DataField = 'INVOICENO' DataSource = DM1.dsSetup TabOrder = 0 UnboundDataType = wwDefault end object DBSECreditNo: TwwDBSpinEdit Left = 176 Top = 145 Width = 95 Height = 24 Increment = 1.000000000000000000 MaxValue = 9999999999.000000000000000000 Value = 8.000000000000000000 DataField = 'CREDITNO' DataSource = DM1.dsSetup TabOrder = 1 UnboundDataType = wwDefault end object DBSEProformaNo: TwwDBSpinEdit Left = 176 Top = 175 Width = 95 Height = 24 Increment = 1.000000000000000000 MaxValue = 9999999999.000000000000000000 Value = 20.000000000000000000 DataField = 'PROFNO' DataSource = DM1.dsSetup TabOrder = 2 UnboundDataType = wwDefault end object DBSEQuotationNo: TwwDBSpinEdit Left = 176 Top = 205 Width = 95 Height = 24 Increment = 1.000000000000000000 MaxValue = 9999999999.000000000000000000 Value = 21.000000000000000000 DataField = 'QUONO' DataSource = DM1.dsSetup TabOrder = 3 UnboundDataType = wwDefault end object DBSEPurcOrderNo: TwwDBSpinEdit Left = 176 Top = 235 Width = 95 Height = 24 Increment = 1.000000000000000000 MaxValue = 9999999999.000000000000000000 DataField = 'PORDNO' DataSource = DM1.dsSetup TabOrder = 4 UnboundDataType = wwDefault end end object TPage Left = 0 Top = 0 Caption = 'CopmanyPassword' object Label25: TLabel Left = 44 Top = 60 Width = 359 Height = 96 Caption = 'You can protect this company from unauthorised access'#13#10'by assign' + 'ing a password to it. This means that any person '#13#10'trying to lo' + 'g on to this company has to type the password '#13#10'before getting a' + 'ccess to it. This is optional and can be '#13#10'set at any time from' + ' within the program. Leave blank if this is '#13#10'not required' end object RxLabel8: TRxLabel Left = 20 Top = 15 Width = 201 Height = 23 Caption = 'Company password ...' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label26: TLabel Left = 48 Top = 220 Width = 116 Height = 16 Caption = 'Company Password' end object edtCompany: TEdit Left = 192 Top = 216 Width = 121 Height = 24 CharCase = ecUpperCase MaxLength = 10 PasswordChar = '*' TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'TheEnd' object RxLabel5: TRxLabel Left = 20 Top = 15 Width = 233 Height = 23 Caption = 'Well done, you'#39've made it!' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False ShadowColor = clWhite ShadowSize = 2 ShadowPos = spRightBottom end object Label22: TLabel Left = 40 Top = 76 Width = 370 Height = 64 Caption = 'That'#39's all you need to do to setup a new company. '#13#10'Now just cl' + 'ick on < Start > if you want to go ahead with creating the new c' + 'ompany, alternatively click on < Back > to change '#13#10'your selecti' + 'ons.' WordWrap = True end object MessagePanel: TPanel Left = 40 Top = 180 Width = 377 Height = 57 BorderStyle = bsSingle Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False TabOrder = 0 Visible = False end end end object Panel1: TPanel Left = 0 Top = 288 Width = 592 Height = 65 Align = alBottom BevelOuter = bvNone TabOrder = 1 object Bevel1: TBevel Left = 16 Top = 8 Width = 573 Height = 13 Shape = bsTopLine end object BtnBack: TButton Left = 336 Top = 24 Width = 75 Height = 30 Hint = 'Back to previous screen' Caption = '<< &Back' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 1 end object BtnNext: TButton Left = 410 Top = 24 Width = 75 Height = 30 Hint = 'Go to next screen' Caption = '&Next >>' ParentShowHint = False ShowHint = True TabOrder = 0 end object BtnStart: TButton Left = 504 Top = 24 Width = 75 Height = 30 Hint = 'Create the new company' Caption = '&Start' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnStartClick end object BtnCancel: TButton Left = 240 Top = 24 Width = 75 Height = 30 Caption = '&Cancel' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BtnCancelClick end end object Panel2: TPanel Left = 0 Top = 0 Width = 152 Height = 288 Align = alClient BevelOuter = bvNone TabOrder = 2 object Panel3: TPanel Left = 20 Top = 16 Width = 115 Height = 220 BevelOuter = bvLowered BorderStyle = bsSingle TabOrder = 0 object Image1: TImage Left = 1 Top = 1 Width = 109 Height = 214 Align = alClient AutoSize = True Picture.Data = {} Stretch = True end end end object PageManager1: TPageManager PageOwner = Notebook1 NextBtn = BtnNext PriorBtn = BtnBack Left = 52 Top = 240 object WelcomePage: TPageProxy PageName = 'WelcomePage' OnEnter = WelcomePageEnter OnLeave = WelcomePageLeave end object MainDetails: TPageProxy PageName = 'MainDetails' OnShow = MainDetailsShow end object TelephoneNo: TPageProxy PageName = 'TelephoneNo' OnShow = TelephoneNoShow end object FinancialYear: TPageProxy PageName = 'FinancialYear' OnShow = FinancialYearShow end object VATRegistration: TPageProxy PageName = 'VATRegistration' OnShow = VATRegistrationShow end object InvoiceNo: TPageProxy PageName = 'InvoiceNo' OnShow = InvoiceNoShow end object CompanyPassword: TPageProxy PageName = 'CopmanyPassword' OnShow = CompanyPasswordShow end object TheEnd: TPageProxy PageName = 'TheEnd' OnEnter = TheEndEnter OnLeave = TheEndLeave end end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 112 Top = 240 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 600) OriginalFormHeight = ( 380) OriginalFormLeft = ( 156) OriginalFormTop = ( 112) OriginalFormPPI = ( 120) OriginalClientWidth = ( 592) OriginalClientHeight = ( 353) end object TempTable: TwwTable DatabaseName = 'MainEB' TableName = 'Setup.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 88 Top = 240 end end