gl_qry_endsubjectbalance.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Qry_EndSubjectBalance: TFrm_Gl_Qry_EndSubjectBalance
  Left = 44
  Top = 130
  Caption = '期末余额查询'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '期末余额查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '科目代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 124
          KeyList.Strings = ()
        end
        Item
          FieldName = 'fFirstBalance'
          PickList.Strings = ()
          Title.Caption = '期初余额|原币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstBalance'
          PickList.Strings = ()
          Title.Caption = '期初余额|本位币'
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Balancedirection'
          PickList.Strings = (
            '1 借方'
            '2 贷方')
          Title.Caption = '余额方向'
          KeyList.Strings = (
            '1'
            '2')
        end
        Item
          FieldName = 'FirstfdebitBalance'
          PickList.Strings = ()
          Title.Caption = '累计借方|原币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstdebitBalance'
          PickList.Strings = ()
          Title.Caption = '累计借方|本位币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstfcreditBalance'
          PickList.Strings = ()
          Title.Caption = '累计贷方|原币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstcreditBalance'
          PickList.Strings = ()
          Title.Caption = '累计贷方|本位币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endFBalance'
          PickList.Strings = ()
          Title.Caption = '期末余额|原币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endBalance'
          PickList.Strings = ()
          Title.Caption = '期末余额|本位币'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endBalancedirection'
          PickList.Strings = (
            '1 借方'
            '2 贷方')
          Title.Caption = '期末余额方向'
          Width = 77
          KeyList.Strings = (
            '1'
            '2')
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 184
    inherited Act_New: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    inherited Act_Look: TAction
      Caption = '试算平衡'
      Enabled = True
      Hint = '试算平衡'
      Visible = True
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Sykl1;Data Source=192.168.' +
      '0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Siz' +
      'e=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select t1.kmid,'
      '       t1.kmCode,'
      '       t1.kmName,'
      '--       t1.Fcurrecycalculate,'
      '       t1.Fcurrecy,'
      '       t2.FCurrencyRate,'
      '       t1.Amountcalculate,'
      '       t1.kmproperty,'
      '       t1.kmproperty as Balancedirection,'
      '       t1.kmproperty as endBalancedirection,'
      '       t1.endkm,'
      '       isnull(t2.debitBalance,0) as FirstdebitBalance,'
      '       isnull(t2.creditBalance,0)as FirstcreditBalance,'
      '       isnull(t2.fdebitBalance,0) as FirstfdebitBalance,'
      '       isnull(t2.fcreditBalance,0) as FirstfcreditBalance,'
      '        FirstBalance,'
      '       endBalance,'
      '       '
      '       FirstfBalance as fFirstBalance,'
      '       endFBalance,'
      
        '       case when t1.Amountcalculate=1 then isnull(t2.FirstAmount' +
        'Balance,0)'
      '       else 0'
      '       end as FirstAmountBalance'
      'from Gl_AccountSubject t1'
      'left join  Gl_AccountSubjectBalance t2  on t1.kmid=t2.kmid')
    Left = 368
    Top = 273
    object AdoQry_MainkmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Origin = '#FirstBalance1'
      Size = 15
    end
    object AdoQry_MainkmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Origin = '#FirstBalance1'
      Size = 40
    end
    object AdoQry_MainFirstdebitBalance: TFloatField
      DisplayLabel = '累计借方'
      FieldName = 'FirstdebitBalance'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainFirstcreditBalance: TFloatField
      DisplayLabel = '累计贷方'
      FieldName = 'FirstcreditBalance'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainFirstBalance: TFloatField
      DisplayLabel = '期初余额'
      FieldName = 'FirstBalance'
      Origin = '#FirstBalance1'
    end
    object AdoQry_Mainkmid: TAutoIncField
      FieldName = 'kmid'
      Origin = '#FirstBalance1'
    end
    object AdoQry_Mainkmproperty: TIntegerField
      FieldName = 'kmproperty'
      Origin = '#FirstBalance1'
    end
    object AdoQry_Mainendkm: TIntegerField
      FieldName = 'endkm'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainBalancedirection: TIntegerField
      FieldName = 'Balancedirection'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainendBalancedirection: TIntegerField
      FieldName = 'endBalancedirection'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainendBalance: TFloatField
      FieldName = 'endBalance'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainFirstfdebitBalance: TFloatField
      FieldName = 'FirstfdebitBalance'
      Origin = '#FirstBalance1'
      ReadOnly = True
    end
    object AdoQry_MainFirstfcreditBalance: TFloatField
      FieldName = 'FirstfcreditBalance'
      Origin = '#FirstBalance1'
      ReadOnly = True
    end
    object AdoQry_MainfFirstBalance: TFloatField
      FieldName = 'fFirstBalance'
      Origin = '#FirstBalance1'
    end
    object AdoQry_MainendFBalance: TFloatField
      FieldName = 'endFBalance'
      Origin = '#FirstBalance1'
    end
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 145
  end
end