gl_qry_credence.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_Credence: TFrm_Gl_Qry_Credence
  Left = 17
  Top = 72
  Caption = '记账凭证列表查询'
  ClientWidth = 749
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 749
  end
  inherited Pnl_Title: TPanel
    Width = 749
    inherited Image2: TImage
      Width = 749
    end
    inherited PnlTitleLabel: TLabel
      Left = 352
      Width = 56
      Caption = '凭证查询'
    end
  end
  inherited Pnl_Head: TPanel
    Width = 749
    inherited Image1: TImage
      Width = 749
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 749
    inherited Image4: TImage
      Width = 749
    end
  end
  inherited Pnl_Body: TPanel
    Width = 749
    inherited Image3: TImage
      Width = 749
    end
    inherited DBGridEh: TDBGridEh
      Width = 749
      Columns = <
        Item
          FieldName = 'CredenceDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credenceid'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credenceno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '凭证号'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CharacterNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DebitAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreditAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DocketName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FCurrencyRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FDebitAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FCreditAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Amount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepArtCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PersonEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PersonEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 115
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 232
    Top = 64
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=ExtDATAS' +
      'ERVER'
    CurSorType = ctStatic
    SQL.Strings = (
      'select * from Vw_Gl_Qry_Credence')
    Left = 360
    Top = 225
    object AdoQry_MainCredenceDate: TDateTimeField
      DisplayLabel = '记帐日期'
      FieldName = 'CredenceDate'
    end
    object AdoQry_MainCredenceid: TAutoIncField
      DisplayLabel = '凭证字'
      FieldName = 'Credenceid'
      ReadOnly = True
    end
    object AdoQry_MainCharacterNo: TStringField
      DisplayLabel = '凭证类型'
      FieldName = 'CharacterNo'
      Size = 2
    end
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      DisplayWidth = 12
      FieldName = 'kmCode'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      DisplayWidth = 20
      FieldName = 'kmName'
      Size = 40
    end
    object AdoQry_MainDebitAmount: TFloatField
      DisplayLabel = '借方金额'
      FieldName = 'DebitAmount'
    end
    object AdoQry_MainCreditAmount: TFloatField
      DisplayLabel = '贷方金额'
      FieldName = 'CreditAmount'
    end
    object AdoQry_MaInBillAmount: TIntegerField
      DisplayLabel = '附单据数'
      FieldName = 'BillAmount'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      DisplayLabel = '制单人员代码'
      DisplayWidth = 10
      FieldName = 'CreateEmployeeCode'
      Size = 30
    end
    object AdoQry_MaincreateEmployeeName: TStringField
      DisplayLabel = '制单人员名称'
      DisplayWidth = 10
      FieldName = 'createEmployeeName'
      Size = 60
    end
    object AdoQry_MainCashierEmployeeCode: TStringField
      DisplayLabel = '出纳人员代码'
      DisplayWidth = 10
      FieldName = 'CashierEmployeeCode'
      Size = 30
    end
    object AdoQry_MainCashierEmployeeName: TStringField
      DisplayLabel = '出纳人员名称'
      DisplayWidth = 10
      FieldName = 'CashierEmployeeName'
      Size = 60
    end
    object AdoQry_MainTallyEmployeeCode: TStringField
      DisplayLabel = '记账人员代码'
      DisplayWidth = 10
      FieldName = 'TallyEmployeeCode'
      Size = 30
    end
    object AdoQry_MainTallyEmployeeName: TStringField
      DisplayLabel = '记账人员名称'
      DisplayWidth = 10
      FieldName = 'TallyEmployeeName'
      Size = 60
    end
    object AdoQry_MainAssessorEmployeeCode: TStringField
      DisplayLabel = '审核人员代码'
      DisplayWidth = 10
      FieldName = 'AssessorEmployeeCode'
      Size = 30
    end
    object AdoQry_MainAssessorEmployeeName: TStringField
      DisplayLabel = '审核人员名称'
      DisplayWidth = 10
      FieldName = 'AssessorEmployeeName'
      Size = 60
    end
    object AdoQry_MainDocketName: TStringField
      DisplayLabel = '摘要'
      DisplayWidth = 20
      FieldName = 'DocketName'
      Size = 60
    end
    object AdoQry_MainFCurrencyRate: TFloatField
      DisplayLabel = '外币汇率'
      FieldName = 'FCurrencyRate'
    end
    object AdoQry_MainFDebitAmount: TFloatField
      DisplayLabel = '外币借方金额'
      FieldName = 'FDebitAmount'
    end
    object AdoQry_MainFCreditAmount: TFloatField
      DisplayLabel = '外币贷方金额'
      FieldName = 'FCreditAmount'
    end
    object AdoQry_MainAmount: TFloatField
      DisplayLabel = '核算数量'
      FieldName = 'Amount'
    end
    object AdoQry_MainPrice: TFloatField
      DisplayLabel = '核算单价'
      FieldName = 'Price'
    end
    object AdoQry_MainDepArtCode: TStringField
      DisplayLabel = '部门代码'
      FieldName = 'DepArtCode'
      Size = 12
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '部门名称'
      DisplayWidth = 12
      FieldName = 'DeptName'
      Size = 40
    end
    object AdoQry_MainPersonEmployeeCode: TStringField
      DisplayLabel = '个人代码'
      DisplayWidth = 12
      FieldName = 'PersonEmployeeCode'
      Size = 30
    end
    object AdoQry_MainPersonEmployeeName: TStringField
      DisplayLabel = '个人名称'
      DisplayWidth = 12
      FieldName = 'PersonEmployeeName'
      Size = 60
    end
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      DisplayWidth = 16
      FieldName = 'customerName'
      Size = 60
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      DisplayWidth = 16
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MainBalanceTypeCode: TStringField
      DisplayLabel = '结算方式代码'
      FieldName = 'BalanceTypeCode'
      Size = 3
    end
    object AdoQry_MainBalanceTypeName: TStringField
      DisplayLabel = '结算方式名称'
      DisplayWidth = 16
      FieldName = 'BalanceTypeName'
      Size = 30
    end
    object AdoQry_MaInBillNo: TStringField
      DisplayLabel = '票据号'
      FieldName = 'BillNo'
      Size = 16
    end
    object AdoQry_MainCredenceno: TStringField
      FieldName = 'Credenceno'
      Origin = 'Gl_Credence'
      Size = 16
    end
  end
end