ucreateaccount.~dfm

天涯進銷存系統

        44C8CBBF826BE40D1BC7A6CE5B503A7C8BFE94B1D1204D987C023134D0068510
        83DD4564F8F0FBC3A21AEA125F52990123F15C6A9D061B28CA0D0B12C8E320FA
        073E256890438440D4F5FD4B4890AE9203FA96751D843AB7CC949A9A5311EC35
        3F165664652323D7C16A9C7041B19125C973DD3232649089D924C23C49B5F056
        0BA4425AFC3A14D8E9A249C91A1C0F608C1749440A6985A1F12DAA609760900A
        644F74930C0FDDABF8A6464B3893808E324D303469120A25B86F82894860F14E
        DF34C8CF4D521D13AE3267BC7C49251B81D0B9F14B81DB16F1FD489D689C10B7
        29E66FB490D290792CF2E8AA7397A9261A3E9F2495A0906C8C9319D65859E29D
        1980B44C2D0D0F13A754627E67F1EA91BCBAB8CB5493241AB78562490086FDAA
        02C52921AA25301498946134C2C78974460F72943A6BF044087EBD534C2381EA
        A210544A4878B7D4A6C1BAFD8241EA5589315C947ACD00F89D510F14B0510968
        C9906921512E491D10028BE5AAA7C1828C492BE651C554C8C68D7BA6C06A9613
        2320134118AC043BC22125A2820F8F44C052A127469A0B19196BAF7440A4BB10
        88498A498607C4E87E454400A89490F227A9511773F855FF00BAB967ACB8CB46
        646141D3B22FB2488400772AF737455F6507D12205172536209430FE94E874EC
        92232C0215A2FB2A1F44D043AC3A706410E9D917D93A918C89098E1263DBA260
        FA26A4213AB050F8F4443E8A9F0625A7DD4507D3BA891307FFD9}
    end
  end
  object PriorButton: TLBButton
    Left = 250
    Top = 273
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #19978#19968#27493
    Enabled = False
    TabOrder = 4
    OnClick = PriorButtonClick
  end
  object NextButton: TLBButton
    Left = 322
    Top = 273
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #19979#19968#27493
    TabOrder = 5
    OnClick = NextButtonClick
  end
  object CancelButton: TLBButton
    Left = 394
    Top = 273
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040
    TabOrder = 6
    OnClick = CancelButtonClick
  end
  object Notebook: TNotebook
    Left = 152
    Top = 40
    Width = 306
    Height = 219
    PageIndex = 2
    TabOrder = 7
    object TPage
      Left = 0
      Top = 0
      Caption = 'Welcome'
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 264
        Height = 12
        Caption = #27426#36814#24744#20351#29992#26412#36719#20214#65292#35831#36755#20837#24080#22871#32534#36753#21517#31216#21644#21517#31216#65306
      end
      object Label2: TLabel
        Left = 32
        Top = 40
        Width = 60
        Height = 12
        Caption = #24080#22871#32534#21495#65306
      end
      object Label3: TLabel
        Left = 32
        Top = 72
        Width = 60
        Height = 12
        Caption = #24080#22871#21517#31216#65306
      end
      object AccountCodeEdit: TLBEdit
        Left = 90
        Top = 37
        Width = 175
        Height = 18
        ParentColor = True
        TabOrder = 0
        OnKeyDown = AccountCodeEditKeyDown
      end
      object AccountNameEdit: TLBEdit
        Left = 90
        Top = 68
        Width = 175
        Height = 18
        ParentColor = True
        TabOrder = 1
        OnKeyDown = AccountNameEditKeyDown
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Accinfo'
      object LBLabel2: TLBLabel
        Left = 24
        Top = 88
        Width = 72
        Height = 13
        Caption = #25968#25454#24211#36335#24452#65306
        MouseInColor = clBlack
      end
      object LBLabel3: TLBLabel
        Left = 24
        Top = 48
        Width = 90
        Height = 12
        AutoSize = False
        Caption = #25968#25454#24211#21517#31216#20026#65306
        MouseInColor = clBlack
      end
      object DataName: TLBLabel
        Left = 40
        Top = 8
        Width = 257
        Height = 12
        AutoSize = False
        MouseInColor = clBlack
      end
      object DataPath: TLBEdit
        Left = 112
        Top = 85
        Width = 182
        Height = 18
        ParentColor = True
        ReadOnly = True
        TabOrder = 0
        OnKeyDown = AccountNameEditKeyDown
      end
      object LBButton3: TLBButton
        Left = 232
        Top = 107
        Width = 62
        Height = 19
        Caption = #27983#35272'(&B)'
        TabOrder = 1
        OnClick = LBButton3Click
      end
      object LBEdit1: TLBEdit
        Left = 112
        Top = 48
        Width = 182
        Height = 18
        ParentColor = True
        TabOrder = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Userinfo'
      object LBLabel4: TLBLabel
        Left = 16
        Top = 8
        Width = 257
        Height = 12
        AutoSize = False
        Caption = #35831#24744#36755#20837#24080#22871#31649#29702#21592#30340#32534#21495#12289#21517#31216#21644#23494#30721#65306
        MouseInColor = clBlack
      end
      object LBLabel5: TLBLabel
        Left = 36
        Top = 40
        Width = 60
        Height = 13
        Caption = #30331#38470#24080#21495#65306
        MouseInColor = clBlack
      end
      object LBLabel6: TLBLabel
        Left = 36
        Top = 102
        Width = 72
        Height = 13
        Caption = #31649#29702#21592#21517#31216#65306
        MouseInColor = clBlack
      end
      object LBLabel7: TLBLabel
        Left = 36
        Top = 69
        Width = 60
        Height = 13
        Caption = #30331#38470#23494#30721#65306
        MouseInColor = clBlack
      end
      object LBLabel8: TLBLabel
        Left = 36
        Top = 196
        Width = 60
        Height = 13
        Caption = #30830#23450#23494#30721#65306
        MouseInColor = clBlack
      end
      object Label4: TLabel
        Left = 36
        Top = 168
        Width = 78
        Height = 12
        Caption = #21021#22987#23494#30721#65306'   '
      end
      object Label5: TLabel
        Left = 36
        Top = 136
        Width = 84
        Height = 12
        Caption = #21021#22987#24080#21495#65306'    '
      end
      object UserCodeEdit: TLBEdit
        Left = 112
        Top = 36
        Width = 176
        Height = 18
        ParentColor = True
        TabOrder = 0
        OnKeyDown = AccountCodeEditKeyDown
      end
      object UserNameEdit: TLBEdit
        Left = 112
        Top = 98
        Width = 176
        Height = 18
        ParentColor = True
        TabOrder = 1
        Text = #31995#32479#31649#29702#21592
        OnKeyDown = AccountCodeEditKeyDown
      end
      object UserPasswordEdit: TLBEdit
        Left = 112
        Top = 65
        Width = 176
        Height = 18
        ParentColor = True
        PasswordChar = '*'
        TabOrder = 2
        OnKeyDown = AccountCodeEditKeyDown
      end
      object qrmm: TLBEdit
        Left = 112
        Top = 192
        Width = 176
        Height = 18
        ParentColor = True
        PasswordChar = '*'
        TabOrder = 3
        OnKeyDown = AccountNameEditKeyDown
      end
      object zhhao: TLBEdit
        Left = 112
        Top = 128
        Width = 176
        Height = 18
        ParentColor = True
        TabOrder = 4
      end
      object csmm: TLBEdit
        Left = 112
        Top = 160
        Width = 176
        Height = 18
        ParentColor = True
        TabOrder = 5
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Createaccinfo'
      object CreateInfo: TLBLabel
        Left = 16
        Top = 8
        Width = 217
        Height = 12
        AutoSize = False
        Caption = #35831#25353#8220#19979#19968#27493#8221#24320#22987#21019#24314#24080#22871'......'
        MouseInColor = clBlack
      end
      object Panel2: TPanel
        Left = 16
        Top = 32
        Width = 278
        Height = 20
        BevelOuter = bvLowered
        TabOrder = 0
        Visible = False
        object Gauge1: TGauge
          Left = 1
          Top = 1
          Width = 276
          Height = 18
          Align = alClient
          BorderStyle = bsNone
          Color = clGreen
          ForeColor = clGreen
          ParentColor = False
          Progress = 0
        end
      end
    end
  end
  object SQLConnection: TSQLConnection
    ConnectionName = 'SQLServerConnection'
    DriverName = 'SQLServer'
    GetDriverFunc = 'getSQLDriverSQLServer'
    KeepConnection = False
    LibraryName = 'dbexpsda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'HostName=a6'
      'DataBase=letwin'
      'DriverName=SQLServer'
      'User_Name=sa'
      'Password='
      'LongStrings=True'
      'EnableBCD=True'
      'FetchAll=True')
    VendorLib = 'sqloledb.dll'
    Left = 8
    Top = 264
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'CREATE TABLE ACCOUNTINFO ('
      'CODE'#9'VARCHAR(10),'
      'NAME'#9'VARCHAR(100),'
      'CREATEDATE'#9'TIMESTAMP,'
      'BACKUPDATE'#9'TIMESTAMP,'
      'COMEBACKDATE'#9'TIMESTAMP,'
      'DATAPATH'#9'VARCHAR(200),'
      'MEMO'#9'VARCHAR(100),'
      'USERCODE'#9'VARCHAR(20),'
      'USERNAME'#9'VARCHAR(50),'
      'USERPASS'#9'VARCHAR(50),'
      'ISNEW'#9'CHAR(1)'
      ' )')
    SQLConnection = SQLConnection
    Left = 40
    Top = 264
  end
  object cdsData: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 72
    Top = 264
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'SQLServerConnection'
    DriverName = 'SQLServer'
    GetDriverFunc = 'getSQLDriverSQLServer'
    LibraryName = 'dbexpsda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'HostName=a6'
      'DataBase=letwin'
      'DriverName=SQLServer'
      'User_Name=sa'
      'Password='
      'LongStrings=True'
      'EnableBCD=True'
      'FetchAll=True')
    VendorLib = 'sqloledb.dll'
    Left = 120
    Top = 264
  end
end