ar_qry_chginfogathering.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_ChgInfoGathering: TFrm_Ar_Qry_ChgInfoGathering
  Left = 204
  Top = 188
  Caption = '收款票据操作日志'
  ClientHeight = 290
  ClientWidth = 541
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 541
  end
  inherited Pnl_Title: TPanel
    Width = 541
    Caption = '收款票据操作日志'
    inherited Image2: TImage
      Width = 541
    end
  end
  inherited Pnl_Head: TPanel
    Width = 541
    inherited Image1: TImage
      Width = 541
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '销售客户/操作日期'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 264
    Width = 541
    inherited Image4: TImage
      Width = 541
    end
  end
  inherited Pnl_Body: TPanel
    Width = 541
    Height = 167
    inherited Image3: TImage
      Width = 541
      Height = 167
    end
    inherited DBGridEh: TDBGridEh
      Width = 541
      Height = 167
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售客户代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售客户名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售客户标识'
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'GatheringNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '收款序号'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'GatheringDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '票据日期'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '票据号'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结算方式代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结算方式名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结算方式'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ActSubjectCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '会计科目代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '会计科目名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ActSubjectB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '会计科目标识'
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBank'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '银行'
          Width = 44
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBankActNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '银行帐号'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门标识'
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员标识'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员标识'
          Width = 106
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档日期'
          Width = 78
          KeyList.Strings = ()
        end
        Item