gl_enter_passcredenceh1.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_PassCredenceH1: TFrm_Gl_Enter_PassCredenceH1
  Left = 33
  Top = 204
  Caption = '出纳签字'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '出纳签字'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未签字'
    end
    inherited Lbl_Order: TLabel
      Width = 36
      Caption = '凭证号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'SignFlag'
          PickList.Strings = (
            '未签字'
            '已签字')
          Title.Alignment = taCenter
          Title.Caption = '签字标志'
          Width = 58
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'CharacterName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '凭证类别'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CredenceDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单日期'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CredenceNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '凭证号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '附单据数'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalDebitAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '借方合计'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalCreditAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '贷方合计'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员代码'
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员名称'
          Width = 88
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeFlag'
          PickList.Strings = ()
          Title.Caption = '制单人标识'
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出纳人员代码'
          Width = 88
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出纳人员名称'
          Width = 86
          Visible = False
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Caption = '出纳标识'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记账人员代码'
          Width = 81
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记账人员名称'
          Width = 78
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyerFlag'
          PickList.Strings = ()
          Title.Caption = '过账人标识'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '审核人员代码'
          Width = 84
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '审核人员名称'
          Width = 89
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorFlag'
          PickList.Strings = ()
          Title.Caption = '审核人标识'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 147
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      
        'Select Gl_Credence.*,Gl_CredenceType.CharacterName,A.EmployeeNam' +
        'e As CreateEmployeeName,'
      
        '       Gl_Credence.CreateEmployeeCode+'#39' '#39'+A.EmployeeName As Crea' +
        'teEmployeeFlag,'
      
        '       B.EmployeeName As CashierEmployeeName,Gl_Credence.Cashier' +
        'EmployeeCode+'#39' '#39'+B.EmployeeName As CashierFlag,'
      
        '       C.EmployeeName As TallyEmployeeName,Gl_Credence.TallyEmpl' +
        'oyeeCode+'#39' '#39'+C.EmployeeName As TallyerFlag,'
      
        '       D.EmployeeName As AssessorEmployeeName,Gl_Credence.Assess' +
        'orEmployeeCode+'#39' '#39'+D.EmployeeName As AssessorFlag '
      'From Gl_Credence'
      '     Join Gl_CredenceType'
      '     On Gl_Credence.CharacterNo = Gl_CredenceType.CharacterNo'
      '     Left Join Employee A'
      '     On Gl_Credence.CreateEmployeeCode = A.EmployeeCode '
      '     Left Join Employee B'
      '     On Gl_Credence.CashierEmployeeCode = B.EmployeeCode '
      '     Left Join Employee C'
      '     On Gl_Credence.TallyEmployeeCode = C.EmployeeCode '
      '     Left Join Employee D'
      '     On Gl_Credence.AssessorEmployeeCode = D.EmployeeCode ')
    Left = 344
    Top = 209
    object AdoQry_HeadCredenceId: TAutoIncField
      FieldName = 'CredenceId'
      Origin = '#Gl_Credence1'
      ReadOnly = True
    end
    object AdoQry_HeadCharacterNo: TStringField
      FieldName = 'CharacterNo'
      Origin = '#Gl_Credence1'
      Size = 2
    end
    object AdoQry_HeadCredenceDate: TDateTimeField
      FieldName = 'CredenceDate'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadCredenceType: TIntegerField
      FieldName = 'CredenceType'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadBillAmount: TIntegerField
      FieldName = 'BillAmount'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadTotalDebitAmount: TFloatField
      FieldName = 'TotalDebitAmount'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadTotalCreditAmount: TFloatField
      FieldName = 'TotalCreditAmount'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = '#Gl_Credence1'
      Size = 30
    end
    object AdoQry_HeadSignFlag: TIntegerField
      FieldName = 'SignFlag'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadCashierEmployeeCode: TStringField
      FieldName = 'CashierEmployeeCode'
      Origin = '#Gl_Credence1'
      Size = 30
    end
    object AdoQry_HeadTallyFlag: TIntegerField
      FieldName = 'TallyFlag'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadTallyEmployeeCode: TStringField
      FieldName = 'TallyEmployeeCode'
      Origin = '#Gl_Credence1'
      Size = 30
    end
    object AdoQry_HeadAssessFlag: TIntegerField
      FieldName = 'AssessFlag'
      Origin = '#Gl_Credence1'
    end
    object AdoQry_HeadAssessorEmployeeCode: TStringField
      FieldName = 'AssessorEmployeeCode'
      Origin = '#Gl_Credence1'
      Size = 30
    end
    object AdoQry_HeadCharacterName: TStringField
      FieldName = 'CharacterName'
      Origin = '#Gl_Credence1'
      Size = 14
    end
    object AdoQry_HeadCreateEmployeeName: TStringField
      FieldName = 'CreateEmployeeName'
      Origin = '#Gl_Credence1'
      Size = 60
    end
    object AdoQry_HeadCashierEmployeeName: TStringField
      FieldName = 'CashierEmployeeName'
      Origin = '#Gl_Credence1'
      Size = 60
    end
    object AdoQry_HeadTallyEmployeeName: TStringField
      FieldName = 'TallyEmployeeName'
      Origin = '#Gl_Credence1'
      Size = 60
    end
    object AdoQry_HeadAssessorEmployeeName: TStringField
      FieldName = 'AssessorEmployeeName'
      Origin = '#Gl_Credence1'
      Size = 60
    end
    object AdoQry_HeadCreateEmployeeFlag: TStringField
      FieldName = 'CreateEmployeeFlag'
      Origin = '#Gl_Credence1'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadCashierFlag: TStringField
      FieldName = 'CashierFlag'
      Origin = '#Gl_Credence1'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadTallyerFlag: TStringField
      FieldName = 'TallyerFlag'
      Origin = '#Gl_Credence1'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadAssessorFlag: TStringField
      FieldName = 'AssessorFlag'
      Origin = '#Gl_Credence1'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadCredenceNo: TStringField
      FieldName = 'CredenceNo'
      Origin = 'Gl_Credence'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 592
    Top = 177
  end
end