gl_enter_cashway.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_CashWay: TFrm_Gl_Enter_CashWay
  Left = 67
  Top = 101
  Caption = '现金流向标识'
  OnDestroy = FormDestroy
  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 = 90
      Caption = '制单日期/凭证号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'Credencedate'
          PickList.Strings = ()
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Credenceno'
          PickList.Strings = ()
          Title.Caption = '凭证号'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CredenceType'
          PickList.Strings = (
            '1 有效凭证'
            '2 作废凭证'
            '3 有错凭证')
          Width = 80
          KeyList.Strings = (
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'CashWay'
          PickList.Strings = ()
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'projectName'
          PickList.Strings = ()
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 138
          KeyList.Strings = ()
        end
        Item
          FieldName = 'debitAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'creditAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'docketName'
          PickList.Strings = ()
          Width = 139
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 389
    Top = 163
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 160
    inherited Act_New: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kl;Data Source=ExtDATASERVE' +
      'R'
    CurSorType = ctStatic
    SQL.Strings = (
      'select Credencedate,   '
      '   Gl_Credence.Credenceid,'
      '     Gl_Credence.Credenceno,  '
      '   CredenceType,   '
      'CashWay,       '
      ' Gl_CashReport.projectName,'
      '   Gl_Credenceline.Gl_Credencelineno,'
      '  Gl_Credenceline.kmCode, '
      ' kmName,     '
      '  debitAmount,    '
      '    creditAmount,  '
      '    docketName     '
      
        ' from  Gl_Credence ,Gl_Credenceline ,Gl_AccountSubject, Gl_Cashr' +
        'eport '
      'where  Gl_Credence.Credenceid=Gl_Credenceline.Credenceid '
      ' and Gl_Credenceline.kmCode=Gl_AccountSubject.kmCode  '
      '  and Gl_CashReport.projectCode=Gl_Credenceline.CashWay  ')
    Left = 400
    Top = 281
    object AdoQry_MainCredencedate: TDateTimeField
      DisplayLabel = '制单日期'
      FieldName = 'Credencedate'
      Origin = 'Gl_Credence'
    end
    object AdoQry_MainCredenceType: TIntegerField
      DisplayLabel = '凭证类型'
      FieldName = 'CredenceType'
      Origin = 'Gl_Credence'
    end
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = 'Gl_Credenceline'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = 'Gl_AccountSubject'
      Size = 40
    end
    object AdoQry_MaindebitAmount: TFloatField
      DisplayLabel = '借方金额'
      FieldName = 'debitAmount'
      Origin = 'Gl_Credenceline'
    end
    object AdoQry_MaincreditAmount: TFloatField
      DisplayLabel = '贷方金额'
      FieldName = 'creditAmount'
      Origin = 'Gl_Credenceline'
    end
    object AdoQry_MaindocketName: TStringField
      DisplayLabel = '摘要'
      FieldName = 'docketName'
      Origin = 'Gl_Credenceline'
      Size = 60
    end
    object AdoQry_MainCredenceid: TAutoIncField
      FieldName = 'Credenceid'
      Origin = 'Gl_Credence'
      ReadOnly = True
    end
    object AdoQry_MainGl_Credencelineno: TIntegerField
      FieldName = 'Gl_Credencelineno'
      Origin = 'Gl_Credenceline'
    end
    object AdoQry_MainCashWay: TStringField
      DisplayLabel = '现金流向标识'
      FieldName = 'CashWay'
      Size = 16
    end
    object AdoQry_MainprojectName: TStringField
      DisplayLabel = '现金流向'
      FieldName = 'projectName'
      Size = 60
    end
    object AdoQry_MainCredenceno: TStringField
      FieldName = 'Credenceno'
      Origin = 'Gl_Credence'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 153
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 248
    Top = 209
  end
end