qc_qcproblem.dfm

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

inherited Frm_Qc_QcProblem: TFrm_Qc_QcProblem
  Left = 71
  Top = 65
  Caption = #36136#37327#38382#39064#20027#25991#20214
  ClientHeight = 553
  ClientWidth = 800
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #36136#37327#38382#39064#20027#25991#20214
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = #36136#26816#38382#39064#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 528
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 437
    inherited Image3: TImage
      Width = 800
      Height = 437
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 437
      Columns = <
        item
          EditButtons = <>
          FieldName = 'QcProblemCode'
          Footers = <>
          Title.Caption = #36136#26816#38382#39064#20195#30721
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'QcProblemDecription'
          Footers = <>
          Title.Caption = #36136#26816#38382#39064#25551#36848
          Width = 664
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 309
    Top = 179
  end
  inherited ActionList: TActionList
    Top = 160
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select * from QcProblem')
    Left = 208
    Top = 185
    object AdoQry_MainQcProblemCode: TStringField
      FieldName = 'QcProblemCode'
      Origin = 'QcProblem'
      Size = 12
    end
    object AdoQry_MainQcProblemDecription: TStringField
      FieldName = 'QcProblemDecription'
      Origin = 'QcProblem'
      Size = 80
    end
  end
  inherited DataSource: TDataSource
    Left = 392
    Top = 185
  end
end