bas_enter_shipmode.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Enter_ShipMode: TFrm_Bas_Enter_ShipMode
  Left = 40
  Top = 97
  Caption = #21457#36135#26041#24335
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #21457#36135#26041#24335
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = #21457#36135#26041#24335#20195#30721
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ShipModeCode'
          Footers = <>
          Title.Caption = #21457#36135#26041#24335#20195#30721
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'ShipModeName'
          Footers = <>
          Title.Caption = #21457#36135#26041#24335#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 SPmID,ShipModeCode,ShipModeName,ReMArk From ShipMode')
    Left = 480
    Top = 177
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'ShipMode'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_MainReMArk: TStringField
      FieldName = 'ReMArk'
      Origin = 'ShipMode'
      Size = 30
    end
    object AdoQry_MainSPmID: TAutoIncField
      FieldName = 'SPmID'
      Origin = 'ShipMode'
      ReadOnly = True
    end
  end
end