gl_enter_credence.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_Credence: TFrm_Gl_Enter_Credence
  Left = -12
  Top = 95
  Caption = '记账凭证'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '记账凭证'
  end
  inherited Pnl_Head: TPanel
    object Label1: TLabel
      Left = 542
      Top = 7
      Width = 60
      Height = 12
      Caption = '附单据数：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 227
      Top = 6
      Width = 60
      Height = 12
      Caption = '制单日期：'
      TransParent = True
    end
    object Label9: TLabel
      Left = 398
      Top = 6
      Width = 48
      Height = 12
      Caption = '凭证号：'
      TransParent = True
    end
    object Label15: TLabel
      Left = 33
      Top = 6
      Width = 48
      Height = 12
      Caption = '凭证字：'
      TransParent = True
    end
    object Lab_ShipAddressName: TLabel
      Left = 213
      Top = 118
      Width = 6
      Height = 12
      Visible = False
    end
    object lab_ShipModeName: TLabel
      Left = 574
      Top = 90
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_SaleTermName: TLabel
      Left = 342
      Top = 64
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_CurrencyName: TLabel
      Left = 139
      Top = 35
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_SaleDeptName: TLabel
      Left = 341
      Top = 48
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_CustomerName: TLabel
      Left = 184
      Top = 91
      Width = 6
      Height = 12
      Visible = False
    end
    object Label2: TLabel
      Left = 309
      Top = 8
      Width = 6
      Height = 12
      Visible = False
    end
    object Label8: TLabel
      Left = 44
      Top = 30
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object MEdt_CreateDate: TMaskEdit
      Left = 287
      Top = 2
      Width = 81
      Height = 20
      EditMask = '!9999/99/99;1;_'
      MaxLength = 10
      TabOrder = 2
      Text = '    .  .  '
      OnChange = MEdt_CreateDateChange
      OnExit = MEdt_CreateDateExit
    end
    object Edt_Credenceno: TEdit
      Left = 450
      Top = 2
      Width = 76
      Height = 20
      Enabled = False
      MaxLength = 5
      TabOrder = 3
    end
    object edt_BillAmount: TEdit
      Left = 602
      Top = 3
      Width = 82
      Height = 20
      MaxLength = 16
      TabOrder = 4
      OnExit = IntegerCheck
    end
    object edt_ChCode: TLinkEdit
      Left = 84
      Top = 3
      Width = 56
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 0
      OnButtonClick = edt_ChCodeButtonClick
      OnExit = Edt_ChCodeExit
      OnKeyDown = edt_ChCodeKeyDown
    end
    object edt_ChName: TEdit
      Left = 142
      Top = 3
      Width = 72
      Height = 20
      Enabled = False
      TabOrder = 1
    end
    object edt_RemArk: TEdit
      Left = 82
      Top = 27
      Width = 603
      Height = 20
      MaxLength = 30
      TabOrder = 5
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 402
    Height = 66
    inherited Image4: TImage
      Height = 66
    end
    object Label5: TLabel
      Left = 23
      Top = 46
      Width = 48
      Height = 12
      Caption = '制单人：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 431
      Top = 46
      Width = 48
      Height = 12
      Caption = '记账人：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 299
      Top = 46
      Width = 36
      Height = 12
      Caption = '出纳：'
      TransParent = True
    end
    object Label10: TLabel
      Left = 161
      Top = 46
      Width = 48
      Height = 12
      Caption = '审核人：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 11
      Top = 22
      Width = 60
      Height = 12
      Caption = '借方合计：'
      TransParent = True
    end
    object Label16: TLabel
      Left = 149
      Top = 22
      Width = 60
      Height = 12
      Caption = '贷方合计：'
      TransParent = True
    end
    object edt_CreateEmployeeName: TEdit
      Left = 70
      Top = 38
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object edt_CashierEmployeeName: TEdit
      Left = 336
      Top = 38
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 1
    end
    object edt_tallyEmployeeName: TEdit
      Left = 480
      Top = 38
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 4
    end
    object edt_assessEmployeeName: TEdit
      Left = 212
      Top = 38
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 3
    end
    object Edt_Totaldebit: TEdit
      Left = 70
      Top = 14
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 2
      Text = ' '
    end
    object edt_Totalcredit: TEdit
      Left = 212
      Top = 14
      Width = 67
      Height = 20
      Enabled = False
      TabOrder = 5
      Text = ' '
    end
    object edt_CreateEmployeeCode: TLinkEdit
      Left = 72
      Top = 40
      Width = 53
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 6
      Visible = False
    end
    object edt_assessEmployeeCode: TLinkEdit
      Left = 216
      Top = 38
      Width = 53
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 7
      Visible = False
    end
    object edt_CashierEmployeeCode: TLinkEdit
      Left = 336
      Top = 38
      Width = 53
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 8
      Visible = False
    end
    object edt_tallyEmployeeCode: TLinkEdit
      Left = 480
      Top = 38
      Width = 53
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 9
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Height = 292
    inherited Image3: TImage
      Height = 292
    end
    inherited DBGridEh: TDBGridEh
      Height = 292
      Columns = <
        Item
          FieldName = 'docketName'
          PickList.Strings = ()
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'debitAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'creditAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CashWay'
          PickList.Strings = ()
          Title.Caption = '现金流向代码'
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'projectName'
          PickList.Strings = ()
          Title.Caption = '现金流向描述'
          Width = 216
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FCurrencyRate'
          PickList.Strings = ()
          Title.Caption = '外币汇率'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 206
    Top = 291
  end
  inherited ActionList: TActionList
    Left = 523
    Top = 328
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select t1.*, t2.kmName,  t3.projectName'
      ' from   Gl_Credenceline t1  left join Gl_AccountSubject t2'
      'on t1.kmCode=t2.kmCode  left join Gl_CashReport t3 '
      'on t1.CashWay=t3.projectCode')
    Left = 427
    Top = 305
    object AdoQry_BodydocketName: TStringField
      DisplayLabel = '摘要'
      FieldName = 'docketName'
      Size = 60
    end
    object AdoQry_BodykmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Size = 15
    end
    object AdoQry_BodykmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Size = 40
    end
    object AdoQry_BodydebitAmount: TFloatField
      DisplayLabel = '借方金额'
      FieldName = 'debitAmount'
    end
    object AdoQry_BodycreditAmount: TFloatField
      DisplayLabel = '贷方金额'
      FieldName = 'creditAmount'
    end
    object AdoQry_BodyFCurrencyRate: TFloatField
      FieldName = 'FCurrencyRate'
    end
    object AdoQry_BodyFDebitAmount: TFloatField
      FieldName = 'FDebitAmount'
    end
    object AdoQry_BodyFCreditAmount: TFloatField
      FieldName = 'FCreditAmount'
    end
    object AdoQry_BodyAmount: TFloatField
      FieldName = 'Amount'
    end
    object AdoQry_BodyPrice: TFloatField
      FieldName = 'Price'
    end
    object AdoQry_BodyDepArtCode: TStringField
      FieldName = 'DepArtCode'
      Size = 12
    end
    object AdoQry_BodyPersonEmployeeCode: TStringField
      FieldName = 'PersonEmployeeCode'
      Size = 30
    end
    object AdoQry_BodyCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Size = 12
    end
    object AdoQry_BodyVendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_BodyProjectCode: TStringField
      FieldName = 'ProjectCode'
      Size = 6
    end
    object AdoQry_BodyBalanceTypeCode: TStringField
      FieldName = 'BalanceTypeCode'
      Size = 3
    end
    object AdoQry_BodyBillNo: TStringField
      FieldName = 'BillNo'
      Size = 16
    end
    object AdoQry_BodyGl_CredenceLineNo: TIntegerField
      FieldName = 'Gl_CredenceLineNo'
    end
    object AdoQry_BodyCashWay: TStringField
      FieldName = 'CashWay'
      Size = 16
    end
    object AdoQry_BodyprojectName: TStringField
      FieldName = 'projectName'
      Size = 60
    end
    object AdoQry_BodyCredenceId: TIntegerField
      FieldName = 'CredenceId'
    end
  end
  inherited DataSource: TDataSource
    Left = 355
    Top = 289
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 635
    Top = 289
  end
end