dabrclientc.dfm

详细的ERP设计资料

              TabOrder = 3
            end
            object DBEdit16: TDBEdit
              Left = 67
              Top = 78
              Width = 151
              Height = 20
              DataField = 'RegisterCapital'
              DataSource = dsDAClient
              TabOrder = 4
            end
            object DBEdit17: TDBEdit
              Left = 67
              Top = 112
              Width = 151
              Height = 20
              DataField = 'Charter'
              DataSource = dsDAClient
              TabOrder = 5
            end
            object DBEdit19: TDBEdit
              Left = 67
              Top = 145
              Width = 151
              Height = 20
              DataField = 'Corporation'
              DataSource = dsDAClient
              TabOrder = 6
            end
            object DBEdit20: TDBEdit
              Left = 67
              Top = 178
              Width = 376
              Height = 20
              DataField = 'BankOpened'
              DataSource = dsDAClient
              TabOrder = 7
            end
            object DBEdit21: TDBEdit
              Left = 67
              Top = 212
              Width = 377
              Height = 20
              DataField = 'BankAccount'
              DataSource = dsDAClient
              TabOrder = 8
            end
            object DBMemo1: TDBMemo
              Left = 293
              Top = 77
              Width = 151
              Height = 89
              DataField = 'Certificates'
              DataSource = dsDAClient
              TabOrder = 9
            end
          end
        end
      end
    end
  end
  inherited ActionList: TActionList
    Left = 496
    Top = 96
    object RolePermissionsAction: TAction
      Caption = #25480#26435
      Hint = #25480#26435
      ImageIndex = 9
    end
  end
  inherited DataSource: TDataSource
    Left = 568
    Top = 144
  end
  object adsOAJobRecords: TADODataSet
    Tag = 1
    Connection = CommonData.acnConnection
    BeforeOpen = adsOAJobRecordsBeforeOpen
    BeforePost = adsOAJobRecordsBeforePost
    AfterPost = adsOAJobRecordsAfterPost
    CommandText = 
      'SELECT OJR.*,MP.Name PeriodName FROM OAJobRecords OJR LEFT JOIN ' +
      'MSPeriod MP ON OJR.PeriodID=MP.ID WHERE OJR.RecordState<>'#39#21024#38500#39' An' +
      'd  OJR.ClientID=:ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 80
    Top = 240
    object adsOAJobRecordsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsOAJobRecordsCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsOAJobRecordsCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsOAJobRecordsRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsOAJobRecordsDate: TDateTimeField
      DisplayLabel = #24037#20316#26085#26399
      FieldName = 'Date'
    end
    object adsOAJobRecordsCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
    end
    object adsOAJobRecordsClient: TStringField
      FieldName = 'Client'
      Visible = False
      Size = 60
    end
    object adsOAJobRecordsRecordAffair: TMemoField
      DisplayLabel = #24773#20917#35760#24405
      FieldName = 'RecordAffair'
      BlobType = ftMemo
    end
    object adsOAJobRecordsMainDemand: TMemoField
      DisplayLabel = #20027#35201#20219#21153
      FieldName = 'MainDemand'
      BlobType = ftMemo
    end
    object adsOAJobRecordsProjectAmount: TBCDField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'ProjectAmount'
      Precision = 19
    end
    object adsOAJobRecordsPlanDate: TDateTimeField
      DisplayLabel = #35745#21010#26085#26399
      FieldName = 'PlanDate'
    end
    object adsOAJobRecordsDoneDate: TDateTimeField
      DisplayLabel = #23436#25104#26085#26399
      FieldName = 'DoneDate'
    end
    object adsOAJobRecordsClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsOAJobRecordsMemo: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      BlobType = ftMemo
    end
    object adsOAJobRecordsPeriodID: TIntegerField
      FieldName = 'PeriodID'
    end
    object adsOAJobRecordsPeriodName: TStringField
      DisplayLabel = #31649#29702#26399#38388
      FieldName = 'PeriodName'
      FixedChar = True
      Size = 7
    end
  end
  object adsSaleRecord: TADODataSet
    Tag = 2
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'SELECT id,Code,Date,Memo,sum(tot) tot FROM (SELECT SSM.*,(IsNull' +
      '(SSD.Amount,0)+IsNull(SSD.TaxAmount,0)+IsNull(SSD.SundryFee,0)) ' +
      'tot FROM PCPurchaseMaster SSM LEFT JOIN PCPurchaseDetail SSD ON ' +
      'SSM.ID=SSD.MasterID WHERE SSM.RecordState<>'#39#21024#38500#39' AND SSM.ClientID' +
      '=:ID ) T group by id,code,date,memo'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 216
    Top = 240
    object adsSaleRecordid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
      Visible = False
    end
    object adsSaleRecordCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
    end
    object adsSaleRecordDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Date'
    end
    object adsSaleRecordtot: TBCDField
      DisplayLabel = #21512#35745#37329#39069
      FieldName = 'tot'
      ReadOnly = True
      Precision = 32
      Size = 5
    end
    object adsSaleRecordMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 50
    end
  end
  object adsClearBillRecord: TADODataSet
    Tag = 3
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'SELECT b.Name  as accounts ,a.* FROM FNClearPCMaster  a'#13#10'left ou' +
      'ter join FNAccounts b on b.Id=A.AccountsID'#13#10'WHERE a.RecordState<' +
      '>'#39#21024#38500#39' AND a.ClientID=:ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 264
    Top = 240
    object adsClearBillRecordID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsClearBillRecordCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsClearBillRecordCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsClearBillRecordRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsClearBillRecordModeDC: TIntegerField
      FieldName = 'ModeDC'
      Visible = False
    end
    object adsClearBillRecordModeC: TIntegerField
      FieldName = 'ModeC'
      Visible = False
    end
    object adsClearBillRecordOriginID: TIntegerField
      FieldName = 'OriginID'
      Visible = False
    end
    object adsClearBillRecordOriginTable: TStringField
      FieldName = 'OriginTable'
      Visible = False
      Size = 30
    end
    object adsClearBillRecordPeriodID: TIntegerField
      FieldName = 'PeriodID'
      Visible = False
    end
    object adsClearBillRecordClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsClearBillRecordEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
      Visible = False
    end
    object adsClearBillRecordAccountsID: TIntegerField
      FieldName = 'AccountsID'
      Visible = False
    end
    object adsClearBillRecordAmountBL: TBCDField
      FieldName = 'AmountBL'
      Visible = False
      Precision = 19
    end
    object adsClearBillRecordBillAffix: TBytesField
      FieldName = 'BillAffix'
      Visible = False
      Size = 1
    end
    object adsClearBillRecordDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Date'
    end
    object adsClearBillRecordCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
    end
    object adsClearBillRecordBillMode: TStringField
      DisplayLabel = #19994#21153#31867#21035
      FieldName = 'BillMode'
      Size = 16
    end
    object adsClearBillRecordaccounts: TStringField
      DisplayLabel = #24080#25143#21517#31216
      FieldName = 'accounts'
      Size = 40
    end
    object adsClearBillRecordAmountC: TBCDField
      DisplayLabel = #20184#27454#37329#39069
      FieldName = 'AmountC'
      Precision = 19
    end
    object adsClearBillRecordAmountD: TBCDField
      DisplayLabel = #25910#27454#37329#39069
      FieldName = 'AmountD'
      Precision = 19
    end
    object adsClearBillRecordAmountRed: TBCDField
      DisplayLabel = #20914#24080#37329#39069
      FieldName = 'AmountRed'
      Precision = 19
    end
    object adsClearBillRecordMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
    object adsClearBillRecordClearDate: TDateTimeField
      DisplayLabel = #32467#31639#26085#26399
      FieldName = 'ClearDate'
    end
    object adsClearBillRecordBrief: TStringField
      DisplayLabel = #19994#21153#25688#35201
      FieldName = 'Brief'
      Size = 30
    end
  end
  object adsDAClient: TADODataSet
    Tag = 8
    Connection = CommonData.acnConnection
    BeforePost = adsDAClientBeforePost
    CommandText = 'SELECT * FROM DAClient WHERE ID=:ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 128
    Top = 240
    object adsDAClientID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsDAClientCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      ReadOnly = True
    end
    object adsDAClientCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      ReadOnly = True
    end
    object adsDAClientRecordState: TStringField
      FieldName = 'RecordState'
      ReadOnly = True
      Size = 12
    end
    object adsDAClientName: TStringField
      FieldName = 'Name'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientFullName: TStringField
      FieldName = 'FullName'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientAreaID: TIntegerField
      FieldName = 'AreaID'
      ReadOnly = True
    end
    object adsDAClientAddress: TStringField
      FieldName = 'Address'
      ReadOnly = True
      Size = 60
    end
    object adsDAClientTelephone: TStringField
      FieldName = 'Telephone'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientFax: TStringField
      FieldName = 'Fax'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientRegisterDate: TDateTimeField
      FieldName = 'RegisterDate'
      ReadOnly = True
    end
    object adsDAClientRegisterCapital: TBCDField
      FieldName = 'RegisterCapital'
      ReadOnly = True
      Precision = 19
    end
    object adsDAClientCharter: TStringField
      FieldName = 'Charter'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientBossName: TStringField
      FieldName = 'BossName'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientRunRange: TStringField
      FieldName = 'RunRange'
      ReadOnly = True
      Size = 300
    end
    object adsDAClientCentralTax: TStringField
      FieldName = 'CentralTax'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientLandTax: TStringField
      FieldName = 'LandTax'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientCorporation: TStringField
      FieldName = 'Corporation'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientCertificates: TStringField
      FieldName = 'Certificates'
      ReadOnly = True
      Size = 300
    end
    object adsDAClientBankOpened: TStringField
      FieldName = 'BankOpened'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientClientType: TStringField
      FieldName = 'ClientType'
      ReadOnly = True
      Size = 8
    end
    object adsDAClientBankAccount: TStringField
      FieldName = 'BankAccount'
      ReadOnly = True
      Size = 50
    end
    object adsDAClientMemo: TStringField
      FieldName = 'Memo'
      ReadOnly = True
      Size = 60
    end
    object adsDAClientEMail: TStringField
      FieldName = 'EMail'
      ReadOnly = True
      Size = 30
    end
    object adsDAClientWeb: TStringField
      FieldName = 'Web'
      ReadOnly = True
      Size = 30
    end
    object adsDAClientPostalCode: TStringField
      FieldName = 'PostalCode'
      ReadOnly = True
      Size = 10
    end
    object adsDAClientToAddress: TStringField
      FieldName = 'ToAddress'
      Size = 60
    end
    object adsDAClientMobile: TStringField
      FieldName = 'Mobile'
      Size = 50
    end
    object adsDAClientEmlpoyeeID: TIntegerField
      FieldName = 'EmlpoyeeID'
    end
  end
  object dsDAClient: TDataSource
    Tag = 8
    DataSet = adsDAClient
    Left = 576
    Top = 208
  end
  object tbDAArea: TADOTable
    Connection = CommonData.acnConnection
    Filtered = True
    TableName = 'DAArea'
    Left = 371
    Top = 136
  end
  object DsDAArea: TDataSource
    DataSet = tbDAArea
    Left = 437
    Top = 133
  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 = 429
    Top = 248
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 477
    Top = 249
  end
end