daedclient.dfm

详细的ERP设计资料

          Caption = #27880#20876#36164#26412
          FocusControl = DBEdit16
        end
        object Label18: TLabel
          Left = 17
          Top = 115
          Width = 48
          Height = 12
          Caption = #25191#29031#21495#30721
          FocusControl = DBEdit17
        end
        object Label19: TLabel
          Left = 242
          Top = 81
          Width = 48
          Height = 12
          Caption = #20854#23427#35777#20070
        end
        object Label20: TLabel
          Left = 17
          Top = 148
          Width = 48
          Height = 12
          Caption = #20195#30721#35777#21495
          FocusControl = DBEdit19
        end
        object Label21: TLabel
          Left = 17
          Top = 181
          Width = 48
          Height = 12
          Caption = #24320#25143#38134#34892
          FocusControl = DBEdit20
        end
        object Label22: TLabel
          Left = 17
          Top = 215
          Width = 48
          Height = 12
          Caption = #38134#34892#24080#21495
          FocusControl = DBEdit21
        end
        object Label26: TLabel
          Left = 242
          Top = 148
          Width = 48
          Height = 12
          Caption = #23545#24212#31185#30446
        end
        object SpeedButton1: TSpeedButton
          Left = 526
          Top = 145
          Width = 16
          Height = 18
          Hint = #25353#27492#38190#21487#20197#23558#25152#23458#25143#36164#26009#30340#23545#24212#31185#30446#20840#37096#26356#26032#20026#24403#21069#31185#30446
          Caption = '..'
          OnClick = SpeedButton1Click
        end
        object DBEdit12: TDBEdit
          Left = 74
          Top = 12
          Width = 151
          Height = 20
          DataField = 'BossName'
          DataSource = dsClientEdit
          TabOrder = 0
        end
        object DBEdit13: TDBEdit
          Left = 300
          Top = 12
          Width = 223
          Height = 20
          DataField = 'CentralTax'
          DataSource = dsClientEdit
          TabOrder = 1
        end
        object DBEdit14: TDBEdit
          Left = 300
          Top = 45
          Width = 223
          Height = 20
          DataField = 'LandTax'
          DataSource = dsClientEdit
          TabOrder = 3
        end
        object DBEdit15: TDBEdit
          Left = 74
          Top = 45
          Width = 151
          Height = 20
          DataField = 'RegisterDate'
          DataSource = dsClientEdit
          TabOrder = 2
        end
        object DBEdit16: TDBEdit
          Left = 74
          Top = 78
          Width = 151
          Height = 20
          DataField = 'RegisterCapital'
          DataSource = dsClientEdit
          TabOrder = 4
        end
        object DBEdit17: TDBEdit
          Left = 74
          Top = 112
          Width = 151
          Height = 20
          DataField = 'Charter'
          DataSource = dsClientEdit
          TabOrder = 6
        end
        object DBEdit19: TDBEdit
          Left = 74
          Top = 144
          Width = 151
          Height = 20
          DataField = 'Corporation'
          DataSource = dsClientEdit
          TabOrder = 7
        end
        object DBEdit20: TDBEdit
          Left = 74
          Top = 178
          Width = 376
          Height = 20
          DataField = 'BankOpened'
          DataSource = dsClientEdit
          TabOrder = 8
        end
        object DBEdit21: TDBEdit
          Left = 74
          Top = 212
          Width = 377
          Height = 20
          DataField = 'BankAccount'
          DataSource = dsClientEdit
          TabOrder = 9
        end
        object DBMemo1: TDBMemo
          Left = 300
          Top = 77
          Width = 223
          Height = 43
          DataField = 'Certificates'
          DataSource = dsClientEdit
          TabOrder = 5
        end
        object GeneralACIDLkup: TQLDBLookupComboBox
          Left = 300
          Top = 144
          Width = 223
          Height = 20
          DataField = 'GeneralACID'
          DataSource = dsClientEdit
          KeyField = 'ID'
          ListField = 'Name'
          ListSource = GeneralACIDds
          TabOrder = 10
          ButtonHeight = 22
          SearchMode = smLocate
          SearchType = stAuto
          VisibleButtons = [lbSetNull]
        end
      end
    end
  end
  object tblClientEdit: TADOTable
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    BeforePost = tblClientEditBeforePost
    OnFilterRecord = tblClientEditFilterRecord
    TableName = 'DAClient'
    Left = 162
    Top = 11
    object tblClientEditID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblClientEditCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object tblClientEditCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object tblClientEditRecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object tblClientEditName: TStringField
      DisplayLabel = #22995'   '#21517
      FieldName = 'Name'
      Size = 50
    end
    object tblClientEditFullName: TStringField
      DisplayLabel = #20840'   '#31216
      FieldName = 'FullName'
      Size = 50
    end
    object tblClientEditAreaID: TIntegerField
      DisplayLabel = #22320'   '#21306
      FieldName = 'AreaID'
    end
    object tblClientEditAddress: TStringField
      DisplayLabel = #22320'   '#22336
      FieldName = 'Address'
      Size = 60
    end
    object tblClientEditTelephone: TStringField
      DisplayLabel = #30005'   '#35805
      FieldName = 'Telephone'
      Size = 50
    end
    object tblClientEditFax: TStringField
      DisplayLabel = #20256'   '#30495
      FieldName = 'Fax'
      Size = 50
    end
    object tblClientEditRegisterDate: TDateTimeField
      DisplayLabel = #27880#20876#26085#26399
      FieldName = 'RegisterDate'
    end
    object tblClientEditRegisterCapital: TBCDField
      DisplayLabel = #27880#20876#36164#26412
      FieldName = 'RegisterCapital'
      Precision = 19
    end
    object tblClientEditCharter: TStringField
      DisplayLabel = #25191#29031#21495#30721
      FieldName = 'Charter'
      Size = 50
    end
    object tblClientEditBossName: TStringField
      DisplayLabel = #27861#23450#20195#34920
      FieldName = 'BossName'
      Size = 50
    end
    object tblClientEditRunRange: TStringField
      DisplayLabel = #32463#33829#33539#22260
      FieldName = 'RunRange'
      Size = 300
    end
    object tblClientEditCentralTax: TStringField
      DisplayLabel = #22269#31246#35777#21495
      FieldName = 'CentralTax'
      Size = 50
    end
    object tblClientEditLandTax: TStringField
      DisplayLabel = #22320#31246#35777#21495
      FieldName = 'LandTax'
      Size = 50
    end
    object tblClientEditCorporation: TStringField
      DisplayLabel = #20195#30721#35777#21495
      FieldName = 'Corporation'
      Size = 50
    end
    object tblClientEditCertificates: TStringField
      DisplayLabel = #20854#23427#35777#20070
      FieldName = 'Certificates'
      Size = 300
    end
    object tblClientEditBankOpened: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'BankOpened'
      Size = 50
    end
    object tblClientEditBankAccount: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'BankAccount'
      Size = 50
    end
    object tblClientEditMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
    object tblClientEditEMail: TStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'EMail'
      Size = 30
    end
    object tblClientEditWeb: TStringField
      DisplayLabel = #32593'   '#22336
      FieldName = 'Web'
      Size = 30
    end
    object tblClientEditPostalCode: TStringField
      DisplayLabel = #37038'   '#32534
      FieldName = 'PostalCode'
      Size = 10
    end
    object tblClientEditClientType: TStringField
      DisplayLabel = #23458#25143#31867#22411
      FieldName = 'ClientType'
      Size = 16
    end
    object tblClientEditEmlpoyeeID: TIntegerField
      FieldName = 'EmlpoyeeID'
    end
    object tblClientEditToAddress: TStringField
      FieldName = 'ToAddress'
      Size = 60
    end
    object tblClientEditMobile: TStringField
      FieldName = 'Mobile'
      Size = 50
    end
    object tblClientEditGeneralACID: TIntegerField
      FieldName = 'GeneralACID'
    end
    object tblClientEditRunScope: TStringField
      DisplayLabel = #32463#33829#35268#27169
      FieldName = 'RunScope'
      Size = 50
    end
  end
  object dsClientEdit: TDataSource
    DataSet = tblClientEdit
    Left = 189
    Top = 11
  end
  object ADOTable1: TADOTable
    Connection = CommonData.acnConnection
    Filtered = True
    OnFilterRecord = ADOTable1FilterRecord
    TableName = 'DAArea'
    Left = 227
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 269
    Top = 13
  end
  object EmployeeName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 485
    Top = 40
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 485
    Top = 73
  end
  object GeneralACIDAds: TADODataSet
    Connection = CommonData.acnConnection
    CommandText = 
      'select ID, SubCode,  Name  from DASubject'#13#10'where LEN(SubCode) =4' +
      '   and'#13#10'name like '#39'%'#24212'%'#39' or'#13#10'name like '#39'%'#25910'%'#39' or '#13#10'name like '#39'%'#24080'%'#39 +
      '  '#13#10'order by SubCode,name '
    Parameters = <>
    Left = 488
    Top = 216
  end
  object GeneralACIDds: TDataSource
    DataSet = GeneralACIDAds
    Left = 528
    Top = 216
  end
end