gl_qry_chginfocredenceh.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_ChgInfoCredenceH: TFrm_Gl_Qry_ChgInfoCredenceH
  Left = 40
  Top = 102
  Caption = '记账凭证表头操作日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '记账凭证表头操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Top = 22
    end
    inherited Lbl_Order: TLabel
      Top = 22
      Width = 48
      Caption = '制单日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'Characterno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 49
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credencedate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credenceno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CredenceType'
          PickList.Strings = (
            '1 有效凭证'
            '2 作废凭证'
            '3 有错凭证')
          Title.Alignment = taCenter
          KeyList.Strings = (
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'BillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaldebitAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalcreditAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'cashierEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          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 = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tallyEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessorEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessorEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgtime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 121
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 208
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Characterno,Credencedate,Credenceno,CredenceType,'
      
        '       BillAmount,TotaldebitAmount,TotalcreditAmount,createemplo' +
        'yeeCode,'
      '       e1.EmployeeName as createEmployeeName,'
      '       cashierEmployeeCode,'
      '       e2.EmployeeName as cashierEmployeeName,'
      '       tallyEmployeeCode,'
      '       e3.EmployeeName as tallyEmployeeName,'
      '       assessorEmployeeCode ,'
      '       e4.EmployeeName as assessorEmployeeName,'
      '       chgType,chgEmployeeCode,'
      '       e5.EmployeeName as chgEmployeeName,'
      '       chgtime'
      'from  Gl_CredenceHistory'
      
        'left join Employee e1 on Gl_CredenceHistory.CreateEmployeeCode=e' +
        '1.EmployeeCode'
      
        'left join Employee e2 on Gl_CredenceHistory.cashierEmployeeCode=' +
        'e2.EmployeeCode'
      
        'left join Employee e3 on Gl_CredenceHistory.tallyEmployeeCode=e3' +
        '.EmployeeCode'
      
        'left join Employee e4 on Gl_CredenceHistory.assessorEmployeeCode' +
        '=e4.EmployeeCode'
      
        'left join Employee e5 on Gl_CredenceHistory.chgEmployeeCode=e5.e' +
        'mployeeCode')
    Top = 257
    object AdoQry_MainCharacterno: TStringField
      DisplayLabel = '凭证字'
      FieldName = 'Characterno'
      Origin = '#QryCredenceHistory'
      Size = 2
    end
    object AdoQry_MainCredencedate: TDateTimeField
      DisplayLabel = '制单日期'
      FieldName = 'Credencedate'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MainCredenceno: TIntegerField
      DisplayLabel = '凭证号'
      FieldName = 'Credenceno'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MainCredenceType: TIntegerField
      DisplayLabel = '凭证类型'
      FieldName = 'CredenceType'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MaInBillAmount: TIntegerField
      DisplayLabel = '附单据数'
      FieldName = 'BillAmount'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MainTotaldebitAmount: TFloatField
      DisplayLabel = '借方合计'
      FieldName = 'TotaldebitAmount'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MainTotalcreditAmount: TFloatField
      DisplayLabel = '贷方合计'
      FieldName = 'TotalcreditAmount'
      Origin = '#QryCredenceHistory'
    end
    object AdoQry_MaincreateEmployeeCode: TStringField
      DisplayLabel = '制单人员代码'
      FieldName = 'createEmployeeCode'
      Origin = '#QryCredenceHistory'
      Size = 30
    end
    object AdoQry_MaincreateEmployeeName: TStringField
      DisplayLabel = '制单人员名称'
      FieldName = 'createEmployeeName'
      Origin = '#QryCredenceHistory'
      Size = 60
    end
    object AdoQry_MaincashierEmployeeCode: TStringField
      DisplayLabel = '出纳人员代码'
      FieldName = 'cashierEmployeeCode'
      Origin = '#QryCredenceHistory'
      Size = 30
    end
    object AdoQry_MaincashierEmployeeName: TStringField
      DisplayLabel = '出纳人员名称'
      FieldName = 'cashierEmployeeName'
      Origin = '#QryCredenceHistory'
      Size = 60
    end
    object AdoQry_MaintallyEmployeeCode: TStringField
      DisplayLabel = '记账人员代码'
      FieldName = 'tallyEmployeeCode'
      Origin = '#QryCredenceHistory'
      Size = 30
    end
    object AdoQry_MaintallyEmployeeName: TStringField
      DisplayLabel = '记账人员名称'
      FieldName = 'tallyEmployeeName'
      Origin = '#QryCredenceHistory'
      Size = 60
    end
    object AdoQry_MainassessorEmployeeCode: TStringField
      DisplayLabel = '审核人员代码'
      FieldName = 'assessorEmployeeCode'
      Origin = '#QryCredenceHistory'
      Size = 30
    end
    object AdoQry_MainassessorEmployeeName: TStringField
      DisplayLabel = '审核人员名称'
      FieldName = 'assessorEmployeeName'
      Origin = '#QryCredenceHistory'
      Size = 60
    end
    object AdoQry_MainchgType: TStringField
      DisplayLabel = '操作类型'
      FieldName = 'chgType'
      Origin = '#QryCredenceHistory'
      Size = 10
    end
    object AdoQry_MainchgEmployeeCode: TStringField
      DisplayLabel = '操作人员代码'
      FieldName = 'chgEmployeeCode'
      Origin = '#QryCredenceHistory'
      Size = 30
    end
    object AdoQry_MainchgEmployeeName: TStringField
      DisplayLabel = '操作人员名称'
      FieldName = 'chgEmployeeName'
      Origin = '#QryCredenceHistory'
      Size = 60
    end
    object AdoQry_Mainchgtime: TDateTimeField
      DisplayLabel = '操作时间'
      FieldName = 'chgtime'
      Origin = '#QryCredenceHistory'
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end