gl_qry_accountbook3.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_AccountBook3: TFrm_Gl_Qry_AccountBook3
  Left = 26
  Top = 102
  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
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 180
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtdir'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtsum'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisdebitAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisdebitsum'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thiScreditAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thiScreditsum'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisYeardebitAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisYeardebitsum'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisYearcreditAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisYearcreditsum'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'enddir'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endsum'
          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 t1.kmid,'
      '       kmCode,'
      '       kmName,'
      '       0 as stArtdir,'
      '       convert(float,0) as stArtAmount,'
      '       convert(float,0) as stArtPrice,'
      '       convert(float,0) as stArtsum,'
      '       convert(float,0) as thisdebitAmount,'
      '       convert(float,0) as thisdebitsum,'
      '       convert(float,0) as thiScreditAmount,'
      '       convert(float,0) as thiScreditsum,'
      '       convert(float,0) as thisYeardebitAmount,'
      '       convert(float,0) as thisYeardebitsum,'
      '       convert(float,0) as thisYearcreditAmount,'
      '       convert(float,0) as thisYearcreditsum,'
      '       0 as enddir,'
      '       convert(float,0) as endAmount,'
      '       convert(float,0) as endPrice,'
      '       convert(float,0) as endsum'
      ' from Gl_AccountSubjectBalance t1'
      ' join Gl_AccountSubject t2 on  t1.kmid=t2.kmid'
      'group by t1.kmid,kmCode,kmName')
    Left = 184
    Top = 257
    object AdoQry_Mainkmid: TIntegerField
      FieldName = 'kmid'
    end
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = '#tmpResult'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = '#tmpResult'
      Size = 40
    end
    object AdoQry_MainstArtdir: TIntegerField
      DisplayLabel = '期初余额|借贷'
      FieldName = 'stArtdir'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainstArtAmount: TFloatField
      DisplayLabel = '期初余额|数量'
      FieldName = 'stArtAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainstArtPrice: TFloatField
      DisplayLabel = '期初余额|单价'
      FieldName = 'stArtPrice'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainstArtsum: TFloatField
      DisplayLabel = '期初余额|金额'
      FieldName = 'stArtsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthisdebitAmount: TFloatField
      DisplayLabel = '本期借方发生|数量'
      FieldName = 'thisdebitAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_Mainthisdebitsum: TFloatField
      DisplayLabel = '本期借方发生|金额'
      FieldName = 'thisdebitsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthiScreditAmount: TFloatField
      DisplayLabel = '本期贷方发生|数量'
      FieldName = 'thiScreditAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthiScreditsum: TFloatField
      DisplayLabel = '本期贷方发生|金额'
      FieldName = 'thiScreditsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthisYeardebitAmount: TFloatField
      DisplayLabel = '本年借方发生|数量'
      FieldName = 'thisYeardebitAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthisYeardebitsum: TFloatField
      DisplayLabel = '本年借方发生|金额'
      FieldName = 'thisYeardebitsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthisYearcreditAmount: TFloatField
      DisplayLabel = '本年贷方发生|数量'
      FieldName = 'thisYearcreditAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainthisYearcreditsum: TFloatField
      DisplayLabel = '本年贷方发生|金额'
      FieldName = 'thisYearcreditsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_Mainenddir: TIntegerField
      DisplayLabel = '期末余额|借贷'
      FieldName = 'enddir'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainendAmount: TFloatField
      DisplayLabel = '期末余额|数量'
      FieldName = 'endAmount'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_MainendPrice: TFloatField
      DisplayLabel = '期末余额|单价'
      FieldName = 'endPrice'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_Mainendsum: TFloatField
      DisplayLabel = '期末余额|金额'
      FieldName = 'endsum'
      Origin = '#tmpResult'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 328
    Top = 177
  end
end