gl_enter_credenceh.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_CredenceH: TFrm_Gl_Enter_CredenceH
  Left = 3
  Top = 78
  Caption = '记账凭证'
  ClientWidth = 790
  Position = poMainformCenter
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 790
  end
  inherited Pnl_Title: TPanel
    Width = 790
    Caption = '记账凭证'
    inherited Image2: TImage
      Width = 790
    end
  end
  inherited Pnl_Head: TPanel
    Width = 790
    inherited Image1: TImage
      Width = 790
    end
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未审核'
    end
    inherited Lbl_Order: TLabel
      Width = 36
      Caption = '凭证号'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 790
    inherited Image4: TImage
      Width = 790
    end
  end
  inherited Pnl_Body: TPanel
    Width = 790
    inherited Image3: TImage
      Width = 790
    end
    inherited DBGridEh: TDBGridEh
      Width = 790
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CharacterCode'
          PickList.Strings = ()
          Width = 65
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CharacterName'
          PickList.Strings = ()
          Title.Caption = '凭证字'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credencedate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credenceno'
          PickList.Strings = ()
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaldebitAmount'
          PickList.Strings = ()
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalcreditAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeName'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'cashierEmployeeCode'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'cashierEmployeeName'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tallyEmployeeCode'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tallyEmployeeName'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessorEmployeeCode'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessorEmployeeName'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Caption = '备注'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 581
  end
  inherited ActionList: TActionList
    Left = 216
    Top = 280
    inherited Act_Delete: TAction
      Caption = '弃废'
      Enabled = False
      Hint = '弃废'
      Visible = False
    end
    inherited Act_CancelCheck: TAction
      Caption = '作废'
      Enabled = False
      Hint = '作废'
      Visible = False
      OnExecute = Act_CancelCheckExecute
    end
  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'
    CurSorType = ctStatic
    AfterScroll = AdoQry_HeadAfterScroll
    SQL.Strings = (
      'select t1.Credenceid,t1.Characterno as CharacterCode,'
      '  Gl_CredenceType.CharacterCode as CharacterName,       '
      't1.Credencedate,          t1.Credenceno,             '
      't1.CredenceType,           t1.BillAmount,             '
      't1.TotaldebitAmount,        t1.TotalcreditAmount,       '
      '  t1.CreateEmployeeCode,         t1.assessflag,              '
      '   t1.tallyflag,                  t1.signflag,            '
      ' t1.RemArk,          '
      '  Employee1.EmployeeName as createEmployeeName,     '
      '    t1.cashierEmployeeCode,                            '
      '   Employee2.EmployeeName as cashierEmployeeName,      '
      '  t1.tallyEmployeeCode,                                '
      ' Employee3.EmployeeName as tallyEmployeeName,         '
      ' t1.assessorEmployeeCode,                             '
      ' Employee4.EmployeeName as assessorEmployeeName   '
      ' from  Gl_Credence t1    left join Employee Employee1 '
      'on t1.CreateEmployeeCode=Employee1.EmployeeCode   '
      ' left join Employee Employee2 on '
      't1.cashierEmployeeCode=Employee2.EmployeeCode   '
      'left join Employee Employee3 on '
      't1.tallyEmployeeCode=Employee3.EmployeeCode    '
      ' left join Employee Employee4 on'
      't1.assessorEmployeeCode=Employee4.EmployeeCode  '
      ' left join Gl_CredenceType on '
      't1.Characterno=Gl_CredenceType.Characterno'
      ''
      '/*select t1.* ,t1.Credenceid,--t1.CharacterCode,'
      '    --   Gl_CredenceType.CharacterName,'
      '       t1.Credencedate,'
      '       t1.Credenceno,'
      '       t1.CredenceType,'
      '       t1.BillAmount,'
      '       t1.TotaldebitAmount,'
      '       t1.TotalcreditAmount,'
      '       t1.CreateEmployeeCode,'
      '       Employee1.EmployeeName as createEmployeeName,'
      '       t1.cashierEmployeeCode,'
      '       Employee2.EmployeeName as cashierEmployeeName,'
      '       t1.tallyEmployeeCode,'
      '       Employee3.EmployeeName as tallyEmployeeName,'
      '       t1.assessorEmployeeCode,'
      '       Employee4.EmployeeName as assessorEmployeeName'
      'from  Gl_Credence t1'
      
        'left join Employee Employee1 on t1.CreateEmployeeCode=Employee1.' +
        'EmployeeCode'
      
        'left join Employee Employee2 on t1.cashierEmployeeCode=Employee2' +
        '.EmployeeCode'
      
        'left join Employee Employee3 on t1.tallyEmployeeCode=Employee3.e' +
        'mployeeCode'
      
        'left join Employee Employee4 on t1.assessorEmployeeCode=Employee' +
        '4.EmployeeCode'
      
        '--left join Gl_CredenceType on t1.CharacterCode=Gl_CredenceType.' +
        'CharacterCode'
      '*/'
      ' ')
    Left = 424
    Top = 249
    object AdoQry_HeadCharacterCode: TStringField
      DisplayLabel = '凭证字'
      FieldName = 'CharacterCode'
      Origin = '#tmpGl_Credence'
      Size = 10
    end
    object AdoQry_HeadCredencedate: TDateTimeField
      DisplayLabel = '制单日期'
      FieldName = 'Credencedate'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadCredenceType: TIntegerField
      DisplayLabel = '凭证类型'
      FieldName = 'CredenceType'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadBillAmount: TIntegerField
      DisplayLabel = '附单据数'
      FieldName = 'BillAmount'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadTotaldebitAmount: TFloatField
      DisplayLabel = '借方合计'
      FieldName = 'TotaldebitAmount'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadTotalcreditAmount: TFloatField
      DisplayLabel = '贷方合计'
      FieldName = 'TotalcreditAmount'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadcreateEmployeeCode: TStringField
      DisplayLabel = '制单人员代码'
      FieldName = 'createEmployeeCode'
      Origin = '#tmpGl_Credence'
      Size = 30
    end
    object AdoQry_HeadcreateEmployeeName: TStringField
      DisplayLabel = '制单人员名称'
      FieldName = 'createEmployeeName'
      Origin = '#tmpGl_Credence'
      Size = 60
    end
    object AdoQry_HeadcashierEmployeeName: TStringField
      DisplayLabel = '出纳人员名称'
      FieldName = 'cashierEmployeeName'
      Origin = '#tmpGl_Credence'
      Size = 60
    end
    object AdoQry_HeadcashierEmployeeCode: TStringField
      DisplayLabel = '出纳人员代码'
      FieldName = 'cashierEmployeeCode'
      Origin = '#tmpGl_Credence'
      Size = 30
    end
    object AdoQry_HeadtallyEmployeeCode: TStringField
      DisplayLabel = '记账人员代码'
      FieldName = 'tallyEmployeeCode'
      Origin = '#tmpGl_Credence'
      Size = 30
    end
    object AdoQry_HeadtallyEmployeeName: TStringField
      DisplayLabel = '记账人员名称'
      FieldName = 'tallyEmployeeName'
      Origin = '#tmpGl_Credence'
      Size = 60
    end
    object AdoQry_HeadassessorEmployeeCode: TStringField
      DisplayLabel = '审核人员代码'
      FieldName = 'assessorEmployeeCode'
      Origin = '#tmpGl_Credence'
      Size = 30
    end
    object AdoQry_HeadassessorEmployeeName: TStringField
      DisplayLabel = '审核人员名称'
      FieldName = 'assessorEmployeeName'
      Origin = '#tmpGl_Credence'
      Size = 60
    end
    object AdoQry_HeadCharacterName: TStringField
      DisplayLabel = '凭证类别字名称'
      FieldName = 'CharacterName'
      Origin = '#tmpGl_Credence'
      Size = 14
    end
    object AdoQry_HeadTallyFlag: TIntegerField
      FieldName = 'TallyFlag'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadAssessFlag: TIntegerField
      FieldName = 'AssessFlag'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadSignFlag: TIntegerField
      FieldName = 'SignFlag'
      Origin = '#tmpGl_Credence'
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Size = 30
    end
    object AdoQry_HeadCredenceid: TAutoIncField
      FieldName = 'Credenceid'
    end
    object AdoQry_HeadCredenceno: TStringField
      DisplayLabel = '凭证号'
      FieldName = 'Credenceno'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 496
    Top = 169
  end
end