ucmexpenseappform.dfm

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

        item
          FieldName = 'USERDEF3'
          Title.Alignment = taCenter
          Width = 100
          Tag = 0
        end>
    end
    object cmbAppType: TSDDBLkupGridCombo
      Tag = 20
      Left = 64
      Top = 29
      Width = 200
      Height = 18
      Ctl3D = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ParentCtl3D = False
      TabOrder = 0
      Style = csBottomLine
      AlwaysHidePopup = False
      DataSource = dsMaster
      DataField = 'APPTYPE'
      GridColumns = <
        item
          Expanded = False
          FieldName = 'AppTypeName'
          Visible = True
        end>
      GridHeight = 179
      GridWidth = 115
      DisplayField = 'AppTypeName'
      LookupField = 'APPTYPEID'
      KeyDownLocateFields.Strings = (
        'AppTypeName')
      PBs.Strings = (
        #26032#22686'#'
        #32534#36753'#'
        #32622#31354)
      PBHeight = 0
      PWidth = 100
    end
    object pnlExpense: TPanel
      Left = 9
      Top = 177
      Width = 647
      Height = 23
      Align = alBottom
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = #22996#25176#21152#24037#36153#29992#21333
      ParentColor = True
      TabOrder = 5
    end
    object pnlFinished: TPanel
      Left = 9
      Top = 48
      Width = 647
      Height = 30
      Align = alBottom
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = #22996#25176#21152#24037#39564#25910#21333
      ParentColor = True
      TabOrder = 6
    end
  end
  inherited dsMaster: TDataSource
    Left = 28
    Top = 118
  end
  inherited qryMaster: TClientQuery
    SQL.Strings = (
      'select m.*,'
      'p.printed'
      ' from cm_expenseapp m'
      
        'left join ab_billprint p on (p.billtype=56 and m.billid=p.billid' +
        ')'
      ''
      '')
    Left = 77
    Top = 116
    object qryMasterBILLID: TIntegerField
      FieldName = 'BILLID'
      Required = True
    end
    object qryMasterBILLKIND: TSmallintField
      DisplayLabel = #20914#38144#31867#22411
      FieldName = 'BILLKIND'
      Required = True
    end
    object qryMasterBILLSTATE: TSmallintField
      DisplayLabel = #21333#25454#29366#24577
      FieldName = 'BILLSTATE'
      Required = True
    end
    object qryMasterBILLCODE: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'BILLCODE'
      Required = True
      Size = 32
    end
    object qryMasterBILLDATE: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BILLDATE'
      Required = True
    end
    object qryMasterAppType: TIntegerField
      FieldName = 'AppType'
    end
    object qryMasterEMPID: TIntegerField
      DisplayLabel = #32463#21150#20154
      FieldName = 'EMPID'
    end
    object qryMasterSHOPID: TIntegerField
      FieldName = 'SHOPID'
      Required = True
    end
    object qryMasterDEPARTMENTID: TIntegerField
      DisplayLabel = #37096#38376
      FieldName = 'DEPARTMENTID'
    end
    object qryMasterOPID: TIntegerField
      DisplayLabel = #21046#21333#20154
      FieldName = 'OPID'
    end
    object qryMasterCHECKORID: TIntegerField
      DisplayLabel = #23457#26680#20154
      FieldName = 'CHECKORID'
    end
    object qryMasterCREDID: TIntegerField
      DisplayLabel = #20973#35777
      FieldName = 'CREDID'
    end
    object qryMasterPRINTTMPLTID: TIntegerField
      FieldName = 'PRINTTMPLTID'
    end
    object qryMasterREFERCOUNT: TIntegerField
      FieldName = 'REFERCOUNT'
      Required = True
    end
    object qryMasterUPDATETIME: TDateTimeField
      FieldName = 'UPDATETIME'
    end
    object qryMasterREMARK: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'REMARK'
      Size = 255
    end
    object qryMasterSFLAG: TIntegerField
      FieldName = 'SFLAG'
      Required = True
    end
    object qryMasterOPNAME: TStringField
      DisplayLabel = #21046#21333#20154
      FieldKind = fkCalculated
      FieldName = 'OPNAME'
      ProviderFlags = []
      Size = 64
      Calculated = True
    end
    object qryMasterCHECKOR: TStringField
      DisplayLabel = #23457#26680#20154
      FieldKind = fkCalculated
      FieldName = 'CHECKOR'
      ProviderFlags = []
      Size = 64
      Calculated = True
    end
    object qryMasterAMOUNT: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'AMOUNT'
      Required = True
    end
    object qryMasterUSERDEF1: TStringField
      FieldName = 'USERDEF1'
      Size = 64
    end
    object qryMasterUSERDEF2: TStringField
      FieldName = 'USERDEF2'
      Size = 64
    end
    object qryMasterUSERDEF3: TStringField
      FieldName = 'USERDEF3'
      Size = 64
    end
    object qryMasterUSERDEF4: TStringField
      FieldName = 'USERDEF4'
      Size = 64
    end
    object qryMasterUSERDEF5: TStringField
      FieldName = 'USERDEF5'
      Size = 64
    end
    object qryMasterCREDCODE: TStringField
      DisplayLabel = #20973#35777#21495
      FieldKind = fkCalculated
      FieldName = 'CREDCODE'
      ProviderFlags = []
      Size = 43
      Calculated = True
    end
  end
  inherited BillMenu: TPopupMenu
    Left = 364
    Top = 88
    inherited muSelectBill: TMenuItem
      Visible = True
    end
    object muSelectBill2: TMenuItem [11]
      Caption = #36873#25321#36153#29992#21333
      OnClick = muSelectBill2Click
    end
    object muColumnSetting: TMenuItem [12]
      Caption = #35774#32622#21015#65288#39564#25910#21333#65289'...'
      OnClick = muColumnSettingClick
    end
    object muColumnSettingExp: TMenuItem [13]
      Caption = #35774#32622#21015#65288#36153#29992#21333#65289'...'
      OnClick = muColumnSettingExpClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object muAuto: TMenuItem
      Caption = #33258#21160#20998#37197
      OnClick = muAutoClick
    end
  end
  inherited PrintMenu: TPopupMenu
    Left = 680
    Top = 51
  end
  inherited cdsPrint: TClientDataSet
    Left = 625
    Top = 50
  end
  inherited dsPrint: TDataSource
    Left = 640
    Top = 96
  end
  inherited CourseMenu: TPopupMenu
    Left = 299
    Top = 167
  end
  inherited ActionList: TActionList
    Left = 464
    Top = 157
  end
  inherited ArchPMenu: TPopupMenu
    Left = 408
    Top = 88
  end
  inherited adpMaster: TSQLAdapter
    InsertCommand.Strings = (
      'Insert into CM_EXPENSEAPP(billid,'
      'billkind,'
      'billstate,'
      'billcode,'
      'billdate,'
      'apptype,'
      'opid,'
      'checkorid,'
      'shopid,'
      'empid,'
      'departmentid,'
      'printtmpltid,'
      'credid,'
      'amount,'
      'refercount,'
      'userdef1,'
      'userdef2,'
      'userdef3,'
      'userdef4,'
      'userdef5,'
      'updatetime,'
      'remark,'
      'sflag'
      ')'
      'Values'
      '(:billid,'
      ':billkind,'
      ':billstate,'
      ':billcode,'
      ':billdate,'
      ':apptype,'
      ':opid,'
      ':checkorid,'
      ':shopid,'
      ':empid,'
      ':departmentid,'
      ':printtmpltid,'
      ':credid,'
      ':amount,'
      ':refercount,'
      ':userdef1,'
      ':userdef2,'
      ':userdef3,'
      ':userdef4,'
      ':userdef5,'
      ':updatetime,'
      ':remark,'
      ':sflag)')
    UpdateCommand.Strings = (
      'Update CM_EXPENSEAPP set '
      'billid=:billid,'
      'billkind=:billkind,'
      'billstate=:billstate,'
      'billcode=:billcode,'
      'billdate=:billdate,'
      'apptype=:apptype,'
      'opid=:opid,'
      'checkorid=:checkorid,'
      'shopid=:shopid,'
      'empid=:empid,'
      'departmentid=:departmentid,'
      'printtmpltid=:printtmpltid,'
      'credid=:credid,'
      'amount=:amount,'
      'refercount=:refercount,'
      'userdef1=:userdef1,'
      'userdef2=:userdef2,'
      'userdef3=:userdef3,'
      'userdef4=:userdef4,'
      'userdef5=:userdef5,'
      'updatetime=:updatetime,'
      'remark=:remark,'
      'sflag=:sflag'
      ' where billid=:OLD_billid ')
    DeleteCommand.Strings = (
      'Delete from CM_EXPENSEAPP where billid=:OLD_billid ')
  end
  inherited batMaster: TBatchSQL
    Left = 236
    Top = 108
  end
  object dsBillKind: TDataSource
    DataSet = cdsBillKind
    Left = 589
    Top = 153
  end
  object dsDetail1: TDataSource
    DataSet = qryDetail1
    Left = 29
    Top = 193
  end
  object qryDetail1: TClientQuery
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select m.*,'
      '  f.billdate as bdate,'
      '  f.billcode as bcode,'
      '  t.name as bname,'
      '  g.code as goodscode,'
      '  g.name as goodsname,'
      '  g.specs,'
      '  u.unitname,'
      '  f.quantity,'
      '  f.batchcode,'
      
        '  material=isnull((Select sum(amount) from cm_finisheddetail whe' +
        're billid=f.billid),0)'
      ' from cm_expenseappfinished m '
      '  inner join cm_finished f on  m.referbillid=f.billid'
      '  left join l_trader t on f.traderid=t.traderid'
      '  left join l_goods g on f.goodsid=g.goodsid'
      '  left join l_goodsunit u on f.unitid=u.unitid')
    Adapter = AdpDetail1
    WriteUnknown = True
    Left = 72
    Top = 194
    object qryDetail1BILLID: TIntegerField
      FieldName = 'BILLID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qryDetail1ITEMNO: TIntegerField
      FieldName = 'ITEMNO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qryDetail1REFERCOUNT: TIntegerField
      FieldName = 'REFERCOUNT'
      ProviderFlags = [pfInUpdate]
    end
    object qryDetail1REFERBILLTYPE: TIntegerField
      FieldName = 'REFERBILLTYPE'
    end
    object qryDetail1REFERBILLID: TIntegerField
      FieldName = 'REFERBILLID'
      ProviderFlags = [pfInUpdate]
    end
    object qryDetail1AMOUNT: TFloatField
      DisplayLabel = #20998#25674#36153#29992
      FieldName = 'AMOUNT'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '#0.00'
    end
    object qryDetail1USERDEF1: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'1'
      FieldName = 'USERDEF1'
      ProviderFlags = [pfInUpdate]
      Size = 64
    end
    object qryDetail1USERDEF2: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'2'
      FieldName = 'USERDEF2'
      ProviderFlags = [pfInUpdate]
      Size = 64
    end
    object qryDetail1USERDEF3: TStringField
      DisplayLabel = #33258#23450#20041#23383#27573'3'
      FieldName = 'USERDEF3'
      ProviderFlags = [pfInUpdate]
      Size = 64
    end
    object qryDetail1REMARK: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'REMARK'
      ProviderFlags = [pfInUpdate]
      Size = 255
    end
    object qryDetail1BNAME: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 'BNAME'
      ProviderFlags = []
      Size = 12
    end
    object qryDetail1BDATE: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BDATE'
      ProviderFlags = []
    end
    object qryDetail1BCode: TStringField
      DisplayLabel = #21333#25454#32534#21495
      DisplayWidth = 32
      FieldName = 'BCODE'
      ProviderFlags = []
    end
    object qryDetail1MATERIAL: TFloatField
      DisplayLabel = #26448#26009#37329#39069
      FieldName = 'MATERIAL'
      ProviderFlags = []
      DisplayFormat = '#0.00##'
    end
    object qryDetail1GOODSCODE: TStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'GOODSCODE'
      ProviderFlags = []
      Size = 32
    end
    object qryDetail1GOODSNAME: TStringField