bas_enter_shiptype.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Enter_ShipType: TFrm_Bas_Enter_ShipType
  Left = 40
  Top = 97
  Caption = #38144#21806#31867#22411
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #38144#21806#31867#22411
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = #38144#21806#31867#22411#20195#30721
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'SaleTypeCode'
          Footers = <>
          Title.Caption = #38144#21806#31867#22411#20195#30721
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'SaleTypeName'
          Footers = <>
          Title.Caption = #38144#21806#31867#22411#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 SaleTypeId,SaleTypeCode,SaleTypeName,RemArk From SaleType' +
        ' ')
    Left = 480
    Top = 177
    object AdoQry_MainSaleTypeId: TAutoIncField
      FieldName = 'SaleTypeId'
      Origin = 'SaleType'
      ReadOnly = True
    end
    object AdoQry_MainSaleTypeCode: TStringField
      FieldName = 'SaleTypeCode'
      Origin = 'SaleType'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'SaleType'
      Size = 30
    end
  end
end