ucmexpenseappform.dfm

DELPHI DFM资源文件内码批量转换程序

      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'GOODSNAME'
      ProviderFlags = []
      Size = 64
    end
    object qryDetail1SPECS: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'SPECS'
      ProviderFlags = []
      Size = 64
    end
    object qryDetail1UNITNAME: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNITNAME'
      ProviderFlags = []
      Size = 64
    end
    object qryDetail1QUANTITY: TFloatField
      DisplayLabel = #39564#25910#25968#37327
      FieldName = 'QUANTITY'
      ProviderFlags = []
    end
    object qryDetail1BATCHCODE: TStringField
      DisplayLabel = #25209#27425
      FieldName = 'BATCHCODE'
      ProviderFlags = []
      Size = 10
    end
  end
  object dsDetail2: TDataSource
    DataSet = qryDetail2
    Left = 26
    Top = 309
  end
  object qryDetail2: TClientQuery
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select m.*,'
      '  e.billdate as bdate,'
      '  e.billcode as bcode,'
      '  t.name as bname,'
      '  d.expamt,'
      '  e.appamt,'
      '  m.amount as oldamount'
      ' from cm_expenseappexpense m '
      '  inner join cm_expense e on  m.referbillid=e.billid'
      '  left join '
      
        ' (select sum(expenseamt) as expamt,billid from cm_expensedetail ' +
        'ed group by billid'
      ') d on e.billid=d.billid'
      '  left join l_trader t on e.traderid=t.traderid')
    Adapter = AdpDetail2
    Left = 71
    Top = 311
    object qryDetail2BILLID: TIntegerField
      FieldName = 'BILLID'
    end
    object qryDetail2ITEMNO: TIntegerField
      FieldName = 'ITEMNO'
    end
    object qryDetail2REFERCOUNT: TIntegerField
      FieldName = 'REFERCOUNT'
    end
    object qryDetail2REFERBILLTYPE: TIntegerField
      FieldName = 'REFERBILLTYPE'
    end
    object qryDetail2REFERBILLID: TIntegerField
      FieldName = 'REFERBILLID'
    end
    object qryDetail2AMOUNT: TFloatField
      DisplayLabel = #26412#27425#20998#25674
      FieldName = 'AMOUNT'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qryDetail2USERDEF1: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'1'
      FieldName = 'USERDEF1'
      Size = 64
    end
    object qryDetail2USERDEF2: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'2'
      FieldName = 'USERDEF2'
      Size = 64
    end
    object qryDetail2USERDEF3: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'3'
      FieldName = 'USERDEF3'
      Size = 64
    end
    object qryDetail2REMARK: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'REMARK'
      Size = 255
    end
    object qryDetail2BNAME: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'BNAME'
      ProviderFlags = []
      Size = 12
    end
    object qryDetail2BCODE: TStringField
      DisplayLabel = #21333#25454#32534#21495
      DisplayWidth = 32
      FieldName = 'BCODE'
      ProviderFlags = []
    end
    object qryDetail2BDATE: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BDATE'
      ProviderFlags = []
    end
    object qryDetail2ExpAmt: TFloatField
      DisplayLabel = #36153#29992#37329#39069
      FieldName = 'ExpAmt'
      ProviderFlags = []
      DisplayFormat = '#0.00##'
    end
    object qryDetail2appamt: TFloatField
      FieldName = 'appamt'
      ProviderFlags = []
    end
    object qryDetail2appamount: TFloatField
      DisplayLabel = #24050#20998#25674#37329#39069
      FieldKind = fkCalculated
      FieldName = 'appamount'
      ProviderFlags = []
      Calculated = True
    end
    object qryDetail2shouldamt: TFloatField
      DisplayLabel = #24453#25674#37329#39069
      FieldKind = fkCalculated
      FieldName = 'shouldamt'
      ProviderFlags = []
      DisplayFormat = '#0.00##'
      Calculated = True
    end
    object qryDetail2oldamount: TFloatField
      FieldName = 'oldamount'
      ProviderFlags = []
    end
  end
  object DetailMenu1: TPopupMenu
    Left = 239
    Top = 170
    object muAppendDetail1: TMenuItem
      Caption = #22686#21152#26126#32454
      OnClick = muAppendDetail1Click
    end
    object muDeleteDetail1: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = muDeleteDetail1Click
    end
  end
  object DetailMenu2: TPopupMenu
    Left = 248
    Top = 305
    object muAppendDetail2: TMenuItem
      Caption = #22686#21152#26126#32454
      OnClick = muAppendDetail2Click
    end
    object muDeleteDetail2: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = muDeleteDetail2Click
    end
  end
  object csPrintDetail: TClientDataSet
    Active = True
    Aggregates = <>
    AutoCalcFields = False
    FieldDefs = <
      item
        Name = 'BCODE'
        DataType = ftString
        Size = 32
      end
      item
        Name = 'BNAME'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'BDATE'
        DataType = ftDateTime
      end
      item
        Name = 'BKIND'
        DataType = ftSmallint
      end
      item
        Name = 'BAMOUNT'
        DataType = ftFloat
      end
      item
        Name = 'referamt'
        DataType = ftFloat
      end
      item
        Name = 'shouldamt'
        DataType = ftFloat
      end
      item
        Name = 'AMOUNT'
        DataType = ftFloat
      end
      item
        Name = 'USERDEF1'
        DataType = ftString
        Size = 64
      end
      item
        Name = 'USERDEF2'
        DataType = ftString
        Size = 64
      end
      item
        Name = 'USERDEF3'
        DataType = ftString
        Size = 64
      end
      item
        Name = 'REMARK'
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 498
    Top = 76
    Data = {
      1E0100009619E0BD01000000180000000C0000000000030000001E010542434F
      4445010049000000010005574944544802000200200005424E414D4501004900
      00000100055749445448020002000C0005424441544508000800000000000542
      4B494E4402000100000000000742414D4F554E54080004000000000008726566
      6572616D7408000400000000000973686F756C64616D74080004000000000006
      414D4F554E540800040000000000085553455244454631010049000000010005
      5749445448020002004000085553455244454632010049000000010005574944
      5448020002004000085553455244454633010049000000010005574944544802
      00020040000652454D41524B020049000000010005574944544802000200FF00
      0000}
    object csPrintDetailBCODE: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'BCODE'
      Size = 32
    end
    object csPrintDetailBNAME: TStringField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'BNAME'
      Size = 12
    end
    object csPrintDetailBDATE: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BDATE'
    end
    object csPrintDetailBAMOUNT: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'BAMOUNT'
    end
    object csPrintDetailBKIND: TSmallintField
      FieldName = 'BKIND'
    end
    object csPrintDetailreferamt: TFloatField
      DisplayLabel = #24050#32467#31639#37329#39069
      FieldName = 'referamt'
    end
    object csPrintDetailshouldamt: TFloatField
      DisplayLabel = #26410#32467#31639#37329#39069
      FieldName = 'shouldamt'
    end
    object csPrintDetailAMOUNT: TFloatField
      DisplayLabel = #26412#27425#26680#38144
      FieldName = 'AMOUNT'
    end
    object csPrintDetailUSERDEF1: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'1'
      FieldName = 'USERDEF1'
      Size = 64
    end
    object csPrintDetailUSERDEF2: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'2'
      FieldName = 'USERDEF2'
      Size = 64
    end
    object csPrintDetailUSERDEF3: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'3'
      FieldName = 'USERDEF3'
      Size = 64
    end
    object csPrintDetailREMARK: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'REMARK'
      Size = 255
    end
    object csPrintDetailgoodsname: TStringField
      FieldKind = fkCalculated
      FieldName = 'goodsname'
      Size = 18
      Calculated = True
    end
    object csPrintDetailMaterial: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Material'
      Calculated = True
    end
  end
  object dsPrintDetail: TDataSource
    DataSet = csPrintDetail
    Left = 571
    Top = 73
  end
  object cdsBillKind: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 530
    Top = 155
  end
  object PopupMenu1: TPopupMenu
    Left = 308
    Top = 88
    object MenuItem1: TMenuItem
      Tag = 3
      Caption = #24341#29992#23457#25209#25991#20214
      OnClick = muReferFileClick
    end
    object MenuItem2: TMenuItem
      Tag = 4
      Caption = #21457#36215#23457#25209#25991#20214
      OnClick = muLaunchFileClick
    end
    object MenuItem3: TMenuItem
      Caption = '-'
    end
    object MenuItem4: TMenuItem
      Tag = 1
      Caption = #26597#30475#24341#29992#25991#20214
      OnClick = muLookReferFileClick
    end
    object MenuItem5: TMenuItem
      Tag = 2
      Caption = #26597#30475#21457#36215#25991#20214
      OnClick = muLookLaunchFileClick
    end
  end
  object dsAppType: TDataSource
    DataSet = cdsAppType
    Left = 200
    Top = 54
  end
  object cdsAppType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 272
    Top = 42
    object cdsAppTypeAppTypeID: TIntegerField
      FieldName = 'AppTypeID'
    end
    object cdsAppTypeAppTypeName: TStringField
      FieldName = 'AppTypeName'
      Size = 10
    end
  end
  object AdpDetail1: TSQLAdapter
    InsertCommand.Strings = (
      'Insert into CM_EXPENSEAPPFINISHED(billid,'
      'itemno,'
      'amount,'
      'referbilltype,'
      'referbillid,'
      'userdef1,'
      'userdef2,'
      'userdef3,'
      'remark'
      ')'
      'Values'
      '(:billid,'
      ':itemno,'
      ':amount,'
      ':referbilltype,'
      ':referbillid,'
      ':userdef1,'
      ':userdef2,'
      ':userdef3,'
      ':remark)')
    UpdateCommand.Strings = (
      'Update CM_EXPENSEAPPFINISHED set '
      'billid=:billid,'
      'itemno=:itemno,'
      'amount=:amount,'
      'referbilltype=:referbilltype,'
      'referbillid=:referbillid,'
      'userdef1=:userdef1,'
      'userdef2=:userdef2,'
      'userdef3=:userdef3,'
      'remark=:remark'
      ' where billid=:OLD_billid and itemno=:OLD_itemno ')
    DeleteCommand.Strings = (
      
        'Delete from CM_EXPENSEAPPFINISHED where billid=:OLD_billid and i' +
        'temno=:OLD_itemno ')
    Left = 144
    Top = 202
  end
  object AdpDetail2: TSQLAdapter
    InsertCommand.Strings = (
      'Insert into CM_EXPENSEAPPEXPENSE(billid,'
      'itemno,'
      'referbilltype,'
      'referbillid,'
      'amount,'
      'userdef1,'
      'userdef2,'
      'userdef3,'
      'remark'
      ')'
      'Values'
      '(:billid,'
      ':itemno,'
      ':referbilltype,'
      ':referbillid,'
      ':amount,'
      ':userdef1,'
      ':userdef2,'
      ':userdef3,'
      ':remark)')
    UpdateCommand.Strings = (
      'Update CM_EXPENSEAPPEXPENSE set '
      'billid=:billid,'
      'itemno=:itemno,'
      'referbilltype=:referbilltype,'
      'referbillid=:referbillid,'
      'amount=:amount,'
      'userdef1=:userdef1,'
      'userdef2=:userdef2,'
      'userdef3=:userdef3,'
      'remark=:remark'
      ' where billid=:OLD_billid and itemno=:OLD_itemno ')
    DeleteCommand.Strings = (
      
        'Delete from CM_EXPENSEAPPEXPENSE where billid=:OLD_billid and it' +
        'emno=:OLD_itemno ')
    Left = 124
    Top = 310
  end
end