gl_qry_subjectbalance.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_SubjectBalance: TFrm_Gl_Qry_SubjectBalance
  Left = 62
  Top = 109
  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
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 156
          KeyList.Strings = ()
        end
        Item
          FieldName = 'debitFirstBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'creditFirstBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thisdebitBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thiScreditBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'YeardebitBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'YearcreditBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'enddebitBalance'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endcreditBalance'
          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.kmCode,'
      '       t1.kmName,'
      '       --t1.kmproperty,'
      '       0.0 as debitFirstBalance,'
      '       0.0 as creditFirstBalance,'
      '       0.0 as thisdebitBalance,'
      '       0.0 as thiScreditBalance,'
      '       0.0 as YeardebitBalance,'
      '       0.0 as YearcreditBalance,'
      '       0.0 as enddebitBalance,'
      '       0.0 as endcreditBalance'
      'from  Gl_AccountSubject  t1')
    Left = 184
    Top = 257
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = '#tmpfff'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = '#tmpfff'
      Size = 40
    end
    object AdoQry_MaindebitFirstBalance: TFloatField
      DisplayLabel = '期初余额|借方'
      FieldName = 'debitFirstBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MaincreditFirstBalance: TFloatField
      DisplayLabel = '期初余额|贷方'
      FieldName = 'creditFirstBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainthisdebitBalance: TFloatField
      DisplayLabel = '本期发生额|借方'
      FieldName = 'thisdebitBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainthiScreditBalance: TFloatField
      DisplayLabel = '本期发生额|贷方'
      FieldName = 'thiScreditBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainYeardebitBalance: TFloatField
      DisplayLabel = '本年累计发生额|借方'
      FieldName = 'YeardebitBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainYearcreditBalance: TFloatField
      DisplayLabel = '本年累计发生额|贷方'
      FieldName = 'YearcreditBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainenddebitBalance: TFloatField
      DisplayLabel = '期末余额|借方'
      FieldName = 'enddebitBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
    object AdoQry_MainendcreditBalance: TFloatField
      DisplayLabel = '期末余额|贷方'
      FieldName = 'endcreditBalance'
      Origin = '#tmpfff'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end