fnedexpense.dfm

详细的ERP设计资料

  end
  inherited MasterDataSource: TDataSource
    DataSet = adsMaster
    Left = 115
    Top = 75
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsDetail
    Left = 18
    Top = 362
  end
  inherited ActionList: TActionList
    Left = 443
    Top = 2
  end
  inherited MainMenu: TMainMenu
    Left = 390
    Top = 2
  end
  inherited DetailsPopupMenu: TPopupMenu
    Left = 328
    Top = 2
  end
  object ClientName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 225
    Top = 43
  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 = 181
    Top = 43
  end
  object GoodName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 221
    Top = 319
  end
  object adsAccounts: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select  a.ID, a.Name,b.IsLocation  from dbo.FNAccounts a'#13#10'left o' +
      'uter join dbo.MSCurrency b on b.ID=a.CurrencyID'#13#10'where  a.Record' +
      'state<>'#39#21024#38500#39#13#10'and a.Name not like '#39'%'#19994#20027#36164#37329'%'#39#13#10'and  b.IsLocation=1'#13#10
    Parameters = <>
    Left = 144
    Top = 43
  end
  object dsAccounts: TDataSource
    DataSet = adsAccounts
    Left = 144
    Top = 75
  end
  object DSClientName: TDataSource
    DataSet = ClientName
    Left = 225
    Top = 75
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 181
    Top = 75
  end
  object adsMaster: TADODataSet
    Tag = 11
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 
      'select *'#13#10'from   FNExpenseMaster'#13#10'where RecordState<>'#39#21024#38500#39' and ID' +
      '=:ID'
    IndexFieldNames = 'ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 115
    Top = 43
    object adsMasterID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsMasterCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsMasterCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsMasterRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsMasterOriginTable: TStringField
      FieldName = 'OriginTable'
      Visible = False
      Size = 30
    end
    object adsMasterAccountsID: TIntegerField
      FieldName = 'AccountsID'
      Visible = False
    end
    object adsMasterPeriodID: TIntegerField
      FieldName = 'PeriodID'
      Visible = False
    end
    object adsMasterBillAffix: TBytesField
      FieldName = 'BillAffix'
      Visible = False
      Size = 1
    end
    object adsMasterAmountBL: TBCDField
      FieldName = 'AmountBL'
      Visible = False
      Precision = 19
    end
    object adsMasterOriginID: TIntegerField
      FieldName = 'OriginID'
      Visible = False
    end
    object adsMasterClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsMasterAmountRed: TBCDField
      FieldName = 'AmountRed'
      Visible = False
      DisplayFormat = '#,#.00'
      EditFormat = '#.00'
      Precision = 19
    end
    object adsMasterEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
      Visible = False
    end
    object adsMasterCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'CODE'
    end
    object adsMasterDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Date'
    end
    object adsMasterBrief: TStringField
      DisplayLabel = #19994#21153#25688#35201
      FieldName = 'Brief'
      Size = 30
    end
    object adsMasterBillMode: TStringField
      DisplayLabel = #19994#21153#31867#21035
      FieldName = 'BillMode'
      Size = 16
    end
    object adsMasterClient: TStringField
      DisplayLabel = #25910#27454#20154#21517#31216
      FieldKind = fkLookup
      FieldName = 'Client'
      LookupDataSet = ClientName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ClientID'
      Lookup = True
    end
    object adsMasterAmountD: TBCDField
      DisplayLabel = #25910#27454#37329#39069
      FieldName = 'AmountD'
      DisplayFormat = '#,#.00'
      EditFormat = '#.00'
      Precision = 19
    end
    object adsMasterAmountC: TBCDField
      DisplayLabel = #20184#27454#37329#39069
      FieldName = 'AmountC'
      DisplayFormat = '#,#.00'
      EditFormat = '#.00'
      Precision = 19
    end
    object adsMasterMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
    object adsMasterEmployee: TStringField
      DisplayLabel = #32463#25163#20154
      FieldKind = fkLookup
      FieldName = 'Employee'
      LookupDataSet = EmployeeName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'EmployeeID'
      Lookup = True
    end
    object adsMasterModeDC: TIntegerField
      FieldName = 'ModeDC'
      Visible = False
    end
    object adsMasterModeC: TIntegerField
      FieldName = 'ModeC'
      Visible = False
    end
    object adsMasterClearDate: TDateTimeField
      FieldName = 'ClearDate'
      Visible = False
    end
  end
  object adsDetail: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select *'#13#10'from  FNExpenseDetail '#13#10'where MasterID = :ID'
    IndexFieldNames = 'ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 18
    Top = 319
    object adsDetailID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsDetailMasterID: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object adsDetailPoClearID: TIntegerField
      FieldName = 'PoClearID'
      Visible = False
    end
    object adsDetailCheckNo: TStringField
      FieldName = 'CheckNo'
      Visible = False
    end
    object adsDetailOriginTable: TStringField
      FieldName = 'OriginTable'
      Visible = False
      Size = 30
    end
    object adsDetailBillTypeID: TIntegerField
      FieldName = 'BillTypeID'
      Visible = False
    end
    object adsDetailOriginID: TIntegerField
      FieldName = 'OriginID'
      Visible = False
    end
    object adsDetailExpenseID: TIntegerField
      FieldName = 'ExpenseID'
      Visible = False
      OnChange = adsDetailExpenseIDChange
    end
    object adsDetailClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsDetailProjectID: TIntegerField
      FieldName = 'ProjectID'
      Visible = False
    end
    object adsDetailGoodsID: TIntegerField
      FieldName = 'GoodsID'
      Visible = False
    end
    object adsDetailExpense: TStringField
      DisplayLabel = #36153#29992#21517#31216
      FieldKind = fkLookup
      FieldName = 'Expense'
      LookupDataSet = ExpenseADS
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ExpenseID'
      Lookup = True
    end
    object adsDetailAmount: TBCDField
      DisplayLabel = #25253#38144#37329#39069
      FieldName = 'Amount'
      currency = True
      Precision = 19
    end
    object adsDetailAmountB: TBCDField
      DisplayLabel = #21442#32771#25968#37327
      FieldName = 'AmountB'
      currency = True
      Precision = 19
    end
    object adsDetailBillCode: TStringField
      DisplayLabel = #21457#31080#21495#30721
      FieldName = 'BillCode'
    end
    object adsDetailMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 30
    end
    object adsDetailClient: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'Client'
      LookupDataSet = ClientADS
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ClientID'
      Lookup = True
    end
    object adsDetailAssets: TStringField
      DisplayLabel = #36164#20135#35774#22791
      FieldKind = fkLookup
      FieldName = 'Assets'
      LookupDataSet = AssetsADS
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Lookup = True
    end
    object adsDetailProject: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldKind = fkLookup
      FieldName = 'Project'
      LookupDataSet = ProjectADS
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ProjectID'
      Lookup = True
    end
    object adsDetailApportionMode: TStringField
      DisplayLabel = #20998#25674#26041#24335
      FieldName = 'ApportionMode'
      Size = 16
    end
  end
  object ClientADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name from DAClient'#13#10'where Recordstate<>'#39#21024#38500#39
    Parameters = <>
    Left = 99
    Top = 319
  end
  object ClientDS: TDataSource
    DataSet = ClientADS
    Left = 99
    Top = 362
  end
  object ProjectADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name  from   DAProject'#13#10'where recordstate<>'#39#21024#38500#39
    Parameters = <>
    Left = 180
    Top = 319
  end
  object ProjectDS: TDataSource
    DataSet = ProjectADS
    Left = 180
    Top = 362
  end
  object adsBrief: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select  distinct Brief  from FNClearSLMaster'
    Parameters = <>
    Left = 269
    Top = 43
  end
  object ExpenseDS: TDataSource
    DataSet = ExpenseADS
    Left = 58
    Top = 362
  end
  object ExpenseADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select ID, Name from DAExpenseClass'#13#10'where RecordState<>'#39#21024#38500#39#13#10'an' +
      'd upid<>-1'
    Parameters = <>
    Left = 58
    Top = 319
  end
  object AssetsADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select a.ID, a.Name   from DAGoods a'#13#10'Left join DAGoodsClass b o' +
      'n b.ID=a.GoodsClassID'#13#10'where a.Recordstate<>'#39#21024#38500#39#13#10'and a.GoodsCla' +
      'ssID in  '#13#10'( select ID  from DAGoodsClass'#13#10'where Name like '#39'%'#36164#20135'%' +
      #39' or Name like '#39'%'#35774#22791'%'#39' or'#13#10'Name like '#39'%'#36710#36742'%'#39' or Name like '#39'%'#24037#20855'%'#39' )' +
      #13#10#13#10#13#10
    Parameters = <>
    Left = 139
    Top = 319
  end
  object AssetsDS: TDataSource
    DataSet = AssetsADS
    Left = 139
    Top = 362
  end
  object ApportionModeADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select distinct a.ApportionMode from '#13#10'( select distinct Apporti' +
      'onMode from  FNExpenseDetail'#13#10'union  '#13#10'select top 1 '#39#26412#26399#39' Apporti' +
      'onMode from MSCompanyUser '#13#10'union  '#13#10'select top 1 '#39#36328#26399#39' Apportion' +
      'Mode from MSCompanyUser ) '#13#10'as a'#13#10'where a.ApportionMode<>'#39#39#13#10'and' +
      ' a.ApportionMode is not null'
    Parameters = <>
    Left = 268
    Top = 319
  end
  object ApportionModeDS: TDataSource
    DataSet = ApportionModeADS
    Left = 268
    Top = 362
  end
end