gl_enter_passaccount.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_PassAccount: TFrm_Gl_Enter_PassAccount
  Left = 8
  Top = 104
  Caption = '凭证过帐'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_CancelCheck: TToolButton
        Visible = False
        OnClick = TlBtn_CancelCheckClick
      end
    end
  end
  inherited Pnl_Title: TPanel
    object Label1: TLabel
      Left = 384
      Top = 8
      Width = 56
      Height = 14
      Caption = '凭证过账'
      TransParent = True
    end
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未过帐'
    end
    inherited Lbl_Order: TLabel
      Width = 78
      Caption = '凭证字/凭证号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      ReadOnly = False
      OnDblClick = Act_LookExecute
      OnTitleClick = DBGridEhTitleClick
      Columns = <
        Item
          FieldName = 'CheckFlag'
          PickList.Strings = (
            '1'
            '0')
          Title.Caption = '标记'
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 34
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'TallyFlag'
          PickList.Strings = (
            '未过帐'
            '已过帐')
          ReadOnly = True
          Title.Caption = '过帐标志'
          Width = 52
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'CredenceDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '制单日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Gl_CredenceCodeNo'
          PickList.Strings = ()
          Title.Caption = '凭证字号'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CharacterName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '凭证类别'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '附单据数'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalDebitAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '借方合计'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalCreditAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '贷方合计'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Caption = '制单人代码'
          Width = 67
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeName'
          PickList.Strings = ()
          Title.Caption = '制单人名称'
          Width = 66
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeFlag'
          PickList.Strings = ()
          Title.Caption = '制单人标识'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeCode'
          PickList.Strings = ()
          Title.Caption = '出纳人代码'
          Width = 67
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierEmployeeName'
          PickList.Strings = ()
          Title.Caption = '出纳人名称'
          Width = 63
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashierFlag'
          PickList.Strings = ()
          Title.Caption = '出纳人标识'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeCode'
          PickList.Strings = ()
          Title.Caption = '审核人代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorEmployeeName'
          PickList.Strings = ()
          Title.Caption = '审核人名称'
          Width = 63
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessorFlag'
          PickList.Strings = ()
          Title.Caption = '审核人标识'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeCode'
          PickList.Strings = ()
          Title.Caption = '过帐人代码'
          Width = 69
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyEmployeeName'
          PickList.Strings = ()
          Title.Caption = '过帐人名称'
          Width = 68
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TallyerFlag'
          PickList.Strings = ()
          Title.Caption = '过账人标识'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 87
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    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=ExtDAT' +
      'ASERVER;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    AfterPost = AdoQry_HeadAfterPost
    SQL.Strings = (
      
        'Select Convert(Integer,0) As CheckFlag,Gl_Credence.*,Gl_Credence' +
        'Type.CharacterName,Gl_CredenceType.CharacterCode+'#39'-'#39'+Convert(var' +
        'chAr,Gl_Credence.CredenceNo) As Gl_CredenceCodeNo,'
      
        '       A.EmployeeName As CreateEmployeeName,Gl_CredenceType.ChAr' +
        'acterCode,'
      
        '       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 = 440
    Top = 265
    object AdoQry_HeadCharacterNo: TStringField
      FieldName = 'CharacterNo'
      Origin = '#Gl_PassAccount'
      Size = 2
    end
    object AdoQry_HeadCredenceDate: TDateTimeField
      FieldName = 'CredenceDate'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadTotalDebitAmount: TFloatField
      FieldName = 'TotalDebitAmount'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadTotalCreditAmount: TFloatField
      FieldName = 'TotalCreditAmount'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = '#Gl_PassAccount'
      Size = 30
    end
    object AdoQry_HeadSignFlag: TIntegerField
      FieldName = 'SignFlag'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadCashierEmployeeCode: TStringField
      FieldName = 'CashierEmployeeCode'
      Origin = '#Gl_PassAccount'
      Size = 30
    end
    object AdoQry_HeadTallyFlag: TIntegerField
      FieldName = 'TallyFlag'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadTallyEmployeeCode: TStringField
      FieldName = 'TallyEmployeeCode'
      Origin = '#Gl_PassAccount'
      Size = 30
    end
    object AdoQry_HeadAssessFlag: TIntegerField
      FieldName = 'AssessFlag'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadAssessorEmployeeCode: TStringField
      FieldName = 'AssessorEmployeeCode'
      Origin = '#Gl_PassAccount'
      Size = 30
    end
    object AdoQry_HeadCharacterName: TStringField
      FieldName = 'CharacterName'
      Origin = '#Gl_PassAccount'
      Size = 14
    end
    object AdoQry_HeadCreateEmployeeName: TStringField
      FieldName = 'CreateEmployeeName'
      Origin = '#Gl_PassAccount'
      Size = 60
    end
    object AdoQry_HeadCreateEmployeeFlag: TStringField
      FieldName = 'CreateEmployeeFlag'
      Origin = '#Gl_PassAccount'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadCashierEmployeeName: TStringField
      FieldName = 'CashierEmployeeName'
      Origin = '#Gl_PassAccount'
      Size = 60
    end
    object AdoQry_HeadCashierFlag: TStringField
      FieldName = 'CashierFlag'
      Origin = '#Gl_PassAccount'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadTallyEmployeeName: TStringField
      FieldName = 'TallyEmployeeName'
      Origin = '#Gl_PassAccount'
      Size = 60
    end
    object AdoQry_HeadTallyerFlag: TStringField
      FieldName = 'TallyerFlag'
      Origin = '#Gl_PassAccount'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadAssessorEmployeeName: TStringField
      FieldName = 'AssessorEmployeeName'
      Origin = '#Gl_PassAccount'
      Size = 60
    end
    object AdoQry_HeadAssessorFlag: TStringField
      FieldName = 'AssessorFlag'
      Origin = '#Gl_PassAccount'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadBillAmount: TIntegerField
      FieldName = 'BillAmount'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadGl_CredenceCodeNo: TStringField
      FieldName = 'Gl_CredenceCodeNo'
      Origin = '#Gl_PassAccount'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_HeadCheckFlag: TIntegerField
      FieldName = 'CheckFlag'
      Origin = '#Gl_PassAccount'
    end
    object AdoQry_HeadCredenceId: TAutoIncField
      FieldName = 'CredenceId'
      ReadOnly = True
    end
    object AdoQry_HeadCredenceType: TIntegerField
      FieldName = 'CredenceType'
    end
    object AdoQry_HeadCharacterCode: TStringField
      FieldName = 'CharacterCode'
      Size = 2
    end
    object AdoQry_HeadRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Size = 30
    end
    object AdoQry_HeadCredenceNo: TStringField
      FieldName = 'CredenceNo'
      Origin = 'Gl_Credence'
      Size = 16
    end
  end
end