gl_enter_docket.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 114 行

inherited Frm_Gl_Enter_Docket: TFrm_Gl_Enter_Docket
  Left = 14
  Top = 131
  Caption = '常用摘要'
  ClientWidth = 737
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 737
  end
  inherited Pnl_Title: TPanel
    Width = 737
    Caption = '常用摘要'
  end
  inherited Pnl_Head: TPanel
    Width = 737
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '摘要代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 737
  end
  inherited Pnl_Body: TPanel
    Width = 737
    inherited DBGridEh: TDBGridEh
      Width = 737
      Columns = <
        Item
          FieldName = 'DocketCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '摘要代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DocketName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '摘要名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '科目代码'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '科目名称'
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 264
  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'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select Gl_Docket.*,Gl_AccountSubject.KmName'
      ' From Gl_Docket'
      '         Join Gl_AccountSubject'
      '         On Gl_Docket.KmCode=Gl_AccountSubject.KmCode')
    Left = 288
    Top = 257
    object AdoQry_MainDocketId: TAutoIncField
      FieldName = 'DocketId'
      Origin = 'Gl_Docket'
      ReadOnly = True
    end
    object AdoQry_MainDocketCode: TStringField
      FieldName = 'DocketCode'
      Origin = 'Gl_Docket'
      Size = 10
    end
    object AdoQry_MainDocketName: TStringField
      FieldName = 'DocketName'
      Origin = 'Gl_Docket'
      Size = 60
    end
    object AdoQry_MainKmCode: TStringField
      FieldName = 'KmCode'
      Origin = 'Gl_Docket'
      Size = 15
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    Left = 480
    Top = 121
  end
end