pm_enter_simplesureno.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_SimpleSureNo: TFrm_Pm_Enter_SimpleSureNo
  Left = 27
  Top = 77
  Caption = '样品确认单号'
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 136
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 140
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemsampleno'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtdate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'enddate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    CurSorType = ctStatic
    Top = 47
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 152
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDAT' +
      'ASERVER;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    SQL.Strings = (
      
        'select a.Itemsampleid,a.Itemsampleno,a.Itemsampleno,a.ItemCode,b' +
        '.ItemName,a.VendorCode,c.VendorName,a.stArtdate,a.enddate'
      
        'from Itemsampleno a left join Item b on a.ItemCode=b.ItemCode le' +
        'ft join Vendor c on a.VendorCode=c.VendorCode')
    Left = 208
    Top = 217
    object AdoQry_MainItemsampleid: TFloatField
      FieldName = 'Itemsampleid'
      ReadOnly = True
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainItemsampleno: TStringField
      DisplayLabel = '样品确定单号'
      FieldName = 'Itemsampleno'
      Size = 30
    end
    object AdoQry_MainstArtdate: TDateTimeField
      DisplayLabel = '有效起始日期'
      FieldName = 'stArtdate'
    end
    object AdoQry_Mainenddate: TDateTimeField
      DisplayLabel = '有效终止日期'
      FieldName = 'enddate'
    end
  end
  inherited DataSource: TDataSource
    Left = 328
    Top = 121
  end
end