gl_enter_moreaccountbook.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_MoreAccountBook: TFrm_Gl_Enter_MoreAccountBook
  Left = 88
  Top = 124
  Caption = '多栏式帐簿设置'
  ClientHeight = 426
  ClientWidth = 774
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 774
  end
  inherited Pnl_Title: TPanel
    Width = 774
    Caption = '多栏式帐簿设置'
  end
  inherited Pnl_Head: TPanel
    Width = 774
    Height = 45
    object Label1: TLabel
      Left = 25
      Top = 16
      Width = 96
      Height = 12
      Caption = '多栏式帐簿代码：'
    end
    object Label5: TLabel
      Left = 188
      Top = 16
      Width = 96
      Height = 12
      Caption = '多栏式帐簿名称：'
    end
    object Label2: TLabel
      Left = 420
      Top = 16
      Width = 60
      Height = 12
      Caption = '科目标识：'
    end
    object Edt_AccountBookName: TEdit
      Left = 281
      Top = 12
      Width = 115
      Height = 20
      MaxLength = 14
      TabOrder = 1
    end
    object Edt_AccountBookCode: TEdit
      Left = 122
      Top = 12
      Width = 51
      Height = 20
      MaxLength = 2
      TabOrder = 0
    end
    object edt_kmCode: TLinkEdit
      Left = 480
      Top = 12
      Width = 73
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 2
      OnButtonClick = edt_kmCodeButtonClick
      OnExit = edt_kmCodeExit
      OnKeyDown = edt_kmCodeKeyDown
    end
    object edt_kmName: TEdit
      Left = 553
      Top = 12
      Width = 115
      Height = 20
      Enabled = False
      MaxLength = 14
      TabOrder = 3
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 400
    Width = 774
  end
  inherited Pnl_Body: TPanel
    Top = 102
    Width = 774
    Height = 298
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 298
      Columns = <
        Item
          FieldName = 'Balancedirection'
          PickList.Strings = (
            '1 借方'
            '2 贷方')
          Width = 55
          KeyList.Strings = (
            '1'
            '2')
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 174
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 493
    Top = 163
  end
  inherited AdoQry_Body: 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 AccountBookCode,'
      '       Balancedirection,'
      '       Gl_MoreAccountBookLine.kmCode,'
      '       Gl_AccountSubject.kmName'
      'from Gl_MoreAccountBookLine'
      
        'left join Gl_AccountSubject on Gl_MoreAccountBookLine.kmCode=Gl_' +
        'AccountSubject.kmCode')
    object AdoQry_BodyAccountBookCode: TStringField
      FieldName = 'AccountBookCode'
      Size = 2
    end
    object AdoQry_BodyBalancedirection: TIntegerField
      DisplayLabel = '借贷'
      FieldName = 'Balancedirection'
    end
    object AdoQry_BodykmCode: TStringField
      DisplayLabel = '科目代码'
      FieldName = 'kmCode'
      Size = 15
    end
    object AdoQry_BodykmName: TStringField
      DisplayLabel = '科目名称'
      FieldName = 'kmName'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    Left = 568
    Top = 225
  end
end