bas_enter_area.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Enter_Area: TFrm_Bas_Enter_Area
  Left = 40
  Top = 97
  Caption = #21306#22495#36164#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #21306#22495#36164#26009
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #21306#22495#20195#30721
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'AreaCode'
          Footers = <>
          Title.Caption = #21306#22495#20195#30721
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'AreaName'
          Footers = <>
          Title.Caption = #21306#22495#25551#36848
          Width = 455
        end
        Item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 224
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 291
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    SQL.Strings = (
      'Select AreaId,AreaCode,AreaName,RemArk from Area')
    Left = 480
    Top = 177
    object AdoQry_MainAreaId: TAutoIncField
      FieldName = 'AreaId'
      Origin = 'Area'
      ReadOnly = True
    end
    object AdoQry_MainAreaCode: TStringField
      FieldName = 'AreaCode'
      Origin = 'Area'
      Size = 6
    end
    object AdoQry_MainAreaName: TStringField
      FieldName = 'AreaName'
      Origin = 'Area'
      Size = 30
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Area'
      Size = 30
    end
  end
end