dabrclientk.dfm

详细的ERP设计资料

            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
  inherited ActionList: TActionList
    Left = 160
    Top = 120
    object RolePermissionsAction: TAction
      Caption = #25480#26435
      Hint = #25480#26435
      ImageIndex = 9
    end
  end
  inherited DataSource: TDataSource
    Left = 216
    Top = 128
  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 = 88
    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 SLSaleMaster SSM LEFT JOIN SLSaleDetail SSD ON SSM.ID=S' +
      'SD.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 = 144
    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 FNClearSLMaster  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 = 528
    Top = 256
    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 adsClearBillRecordClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsClearBillRecordBillAffix: TBytesField
      FieldName = 'BillAffix'
      Visible = False
      Size = 1
    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 adsClearBillRecordModeC: TIntegerField
      FieldName = 'ModeC'
      Visible = False
    end
    object adsClearBillRecordAmountBL: TBCDField
      FieldName = 'AmountBL'
      Visible = False
      Precision = 19
    end
    object adsClearBillRecordEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
      Visible = False
    end
    object adsClearBillRecordAccountsID: TIntegerField
      FieldName = 'AccountsID'
      Visible = False
    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 adsClearBillRecordAmountD: TBCDField
      DisplayLabel = #25910#27454#37329#39069
      FieldName = 'AmountD'
      Precision = 19
    end
    object adsClearBillRecordAmountC: TBCDField
      DisplayLabel = #20184#27454#37329#39069
      FieldName = 'AmountC'
      Precision = 19
    end
    object adsClearBillRecordAmountRed: TBCDField
      DisplayLabel = #20914#24080#37329#39069
      FieldName = 'AmountRed'
      Precision = 19
    end
    object adsClearBillRecordBrief: TStringField
      DisplayLabel = #19994#21153#25688#35201
      FieldName = 'Brief'
      Size = 30
    end
    object adsClearBillRecordMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
    object adsClearBillRecordClearDate: TDateTimeField
      DisplayLabel = #32467#31639#26085#26399
      FieldName = 'ClearDate'
    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 = 16
    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 = 16
    Top = 280
  end
  object DsDAArea: TDataSource
    DataSet = tbDAArea
    Left = 565
    Top = 133
  end
  object tbDAArea: TADOTable
    Connection = CommonData.acnConnection
    Filtered = True
    TableName = 'DAArea'
    Left = 499
    Top = 136
  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 = 557
    Top = 248
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 605
    Top = 249
  end
end