gl_qry_chginfocredence.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_ChgInfoCredence: TFrm_Gl_Qry_ChgInfoCredence
  Top = 98
  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 = 'docketName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 106
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 125
          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 = 'FCurrencyRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FdebitAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FcreditAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 78
          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
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'personEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'personEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 153
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 126
          KeyList.Strings = ()
        end
        Item
          FieldName = 'projectCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'projectName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Billno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgtime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 119
          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 docketName,Gl_CredenceLineHistory.kmCode,kmName,debitamou' +
        'nt,creditAmount,FCurrencyRate,'
      
        '       FdebitAmount,FcreditAmount,Amount,Price,depArtCode,Deptna' +
        'me,'
      
        '       personEmployeeCode,e1.EmployeeName as personEmployeeName ' +
        ','
      '       Gl_CredenceLineHistory.customerCode,customerName,'
      
        '       Gl_CredenceLineHistory.VendorCode,VendorName,projectCode,' +
        #39#39' as projectName,'
      
        '       Gl_CredenceLineHistory.BalanceTypeCode,BalanceTypeName,bi' +
        'llno,chgType,'
      
        '       chgEmployeeCode,e2.EmployeeName as chgEmployeeName,chgtim' +
        'e'
      'from Gl_CredenceLineHistory'
      
        'left join Employee e1 on Gl_CredenceLineHistory.personEmployeeco' +
        'de=e1.EmployeeCode'
      
        'left join Employee e2 on Gl_CredenceLineHistory.chgEmployeeCode=' +
        'e2.EmployeeCode'
      
        'left join Gl_AccountSubject on Gl_CredenceLineHistory.kmCode=Gl_' +
        'AccountSubject.kmCode'
      
        'left join Dept on Gl_CredenceLineHistory.depArtCode=Dept.Deptnam' +
        'e'
      
        'left join customer on Gl_CredenceLineHistory.customerCode=custom' +
        'er.customerCode'
      
        'left join Vendor on Gl_CredenceLineHistory.VendorCode=Vendor.ven' +
        'dorCode'
      
        'left join BalanceType on Gl_CredenceLineHistory.BalanceTypeCode=' +
        'BalanceType.BalanceTypeCode')
    Top = 257
    object AdoQry_MaindocketName: TStringField
      DisplayLabel = '摘要'
      FieldName = 'docketName'
      Origin = '#QryCredenceLineHistory'
      Size = 60
    end
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = '#QryCredenceLineHistory'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = '#QryCredenceLineHistory'
      Size = 40
    end
    object AdoQry_MaindebitAmount: TFloatField
      DisplayLabel = '借方金额'
      FieldName = 'debitAmount'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MaincreditAmount: TFloatField
      DisplayLabel = '贷方金额'
      FieldName = 'creditAmount'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MainFCurrencyRate: TFloatField
      DisplayLabel = '外币汇率'
      FieldName = 'FCurrencyRate'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MainFdebitAmount: TFloatField
      DisplayLabel = '外币借方金额'
      FieldName = 'FdebitAmount'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MainFcreditAmount: TFloatField
      DisplayLabel = '外币贷方金额'
      FieldName = 'FcreditAmount'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MainAmount: TFloatField
      DisplayLabel = '核算数量'
      FieldName = 'Amount'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MainPrice: TFloatField
      DisplayLabel = '核算单价'
      FieldName = 'Price'
      Origin = '#QryCredenceLineHistory'
    end
    object AdoQry_MaindepArtCode: TStringField
      DisplayLabel = '部门代码'
      FieldName = 'depArtCode'
      Origin = '#QryCredenceLineHistory'
      Size = 12
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '部门名称'
      FieldName = 'DeptName'
      Origin = '#QryCredenceLineHistory'
      Size = 40
    end
    object AdoQry_MainpersonEmployeeCode: TStringField
      DisplayLabel = '个人代码'
      FieldName = 'personEmployeeCode'
      Origin = '#QryCredenceLineHistory'
      Size = 30
    end
    object AdoQry_MainpersonEmployeeName: TStringField
      DisplayLabel = '个人名称'
      FieldName = 'personEmployeeName'
      Origin = '#QryCredenceLineHistory'
      Size = 60
    end
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = '#QryCredenceLineHistory'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = '#QryCredenceLineHistory'
      Size = 60
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      Origin = '#QryCredenceLineHistory'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      Origin = '#QryCredenceLineHistory'
      Size = 60
    end
    object AdoQry_MainprojectCode: TStringField
      DisplayLabel = '项目代码'
      FieldName = 'projectCode'
      Origin = '#QryCredenceLineHistory'
      Size = 6
    end
    object AdoQry_MainprojectName: TStringField
      DisplayLabel = '项目名称'
      FieldName = 'projectName'
      Origin = '#QryCredenceLineHistory'
      ReadOnly = True
      Size = 0
    end
    object AdoQry_MainBalanceTypeCode: TStringField
      DisplayLabel = '结算方式代码'
      FieldName = 'BalanceTypeCode'
      Origin = '#QryCredenceLineHistory'
      Size = 3
    end
    object AdoQry_MainBalanceTypeName: TStringField
      DisplayLabel = '结算方式名称'
      FieldName = 'BalanceTypeName'
      Origin = '#QryCredenceLineHistory'
      Size = 30
    end
    object AdoQry_MaInBillno: TStringField
      DisplayLabel = '票据号'
      FieldName = 'Billno'
      Origin = '#QryCredenceLineHistory'
      Size = 16
    end
    object AdoQry_MainchgType: TStringField
      DisplayLabel = '操作类型'
      FieldName = 'chgType'
      Origin = '#QryCredenceLineHistory'
      Size = 10
    end
    object AdoQry_MainchgEmployeeCode: TStringField
      DisplayLabel = '操作人员代码'
      FieldName = 'chgEmployeeCode'
      Origin = '#QryCredenceLineHistory'
      Size = 30
    end
    object AdoQry_MainchgEmployeeName: TStringField
      DisplayLabel = '操作人员名称'
      FieldName = 'chgEmployeeName'
      Origin = '#QryCredenceLineHistory'
      Size = 60
    end
    object AdoQry_Mainchgtime: TDateTimeField
      DisplayLabel = '操作时间'
      FieldName = 'chgtime'
      Origin = '#QryCredenceLineHistory'
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end