gl_qry_dailyreport.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_DailyReport: TFrm_Gl_Qry_DailyReport
  Left = 119
  Top = 141
  Caption = '日报表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '日报表'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Top = 22
    end
    inherited Lbl_Order: TLabel
      Top = 22
      Width = 48
      Caption = '科目代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Balancedirection1'
          PickList.Strings = (
            '1 借方'
            '2 贷方')
          Width = 78
          KeyList.Strings = (
            '1'
            '2')
        end
        Item
          FieldName = 'Balance1'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'debitAmount2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'creditAmount2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Balancedirection2'
          PickList.Strings = (
            '1 借方'
            '2 贷方')
          Width = 77
          KeyList.Strings = (
            '1'
            '2')
        end
        Item
          FieldName = 'Balance2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'debitCount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'creditCount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 208
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'select kmCode,'
      '       kmName,'
      '       1 as Balancedirection1,'
      '       0.0 as Balance1,'
      '       0.0 as debitAmount2,'
      '       0.0 as creditAmount2,'
      '       1 as Balancedirection2,'
      '       0.0 as Balance2,'
      '       0 as debitCount,'
      '       0 as creditCount'
      'from   Gl_AccountSubject')
    Left = 184
    Top = 257
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = '#ttttt'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = '#ttttt'
      Size = 40
    end
    object AdoQry_MainBalancedirection1: TIntegerField
      DisplayLabel = '昨日余额方向'
      FieldName = 'Balancedirection1'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MainBalance1: TFloatField
      DisplayLabel = '昨日余额'
      FieldName = 'Balance1'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MaindebitAmount2: TFloatField
      DisplayLabel = '今日借方'
      FieldName = 'debitAmount2'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MaincreditAmount2: TFloatField
      DisplayLabel = '今日贷方'
      FieldName = 'creditAmount2'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MainBalancedirection2: TIntegerField
      DisplayLabel = '今日余额方向'
      FieldName = 'Balancedirection2'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MainBalance2: TFloatField
      DisplayLabel = '今日余额'
      FieldName = 'Balance2'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MaindebitCount: TIntegerField
      DisplayLabel = '借方笔数'
      FieldName = 'debitCount'
      Origin = '#ttttt'
      ReadOnly = True
    end
    object AdoQry_MaincreditCount: TIntegerField
      DisplayLabel = '贷方笔数'
      FieldName = 'creditCount'
      Origin = '#ttttt'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end