bas_enter_passbomh.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Enter_PassBomH: TFrm_Bas_Enter_PassBomH
  Left = -2
  Top = 115
  Caption = 'Bom'#23457#26680
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = 'Bom'#23457#26680
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29238#39033#20195#30721
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ite_ItemCode'
          Footers = <>
          Title.Caption = #29238#39033#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29238#39033#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 27
        end
        Item
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2')
          PickList.Strings = (
            #21046#36896
            #37319#36141
            #22996#22806#21152#24037)
          Title.Caption = #21046#36141#30721
          Width = 42
        end
        Item
          EditButtons = <>
          FieldName = 'PrepareLT'
          Footers = <>
          Title.Caption = #20934#22791#25552#21069#26399
          Width = 75
        end
        Item
          EditButtons = <>
          FieldName = 'RunLT'
          Footers = <>
          Title.Caption = #36816#34892#25552#21069#26399
          Width = 73
        end
        Item
          EditButtons = <>
          FieldName = 'QcLT'
          Footers = <>
          Title.Caption = #36136#26816#25552#21069#26399
          Width = 76
        end
        Item
          EditButtons = <>
          FieldName = 'designNO'
          Footers = <>
          Title.Caption = #22270#21495
          Width = 40
        end
        Item
          EditButtons = <>
          FieldName = 'ItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            #26222#36890#29289#26009
            #24037#20316#20013#24515
            #24037#20855
            #21442#32771
            #32467#26500#34394#39033
            #21171#21153
            #25104#26412#20013#24515
            #26367#20195#34394#39033)
          Title.Caption = #29289#26009#23646#24615
          Width = 73
        end
        Item
          EditButtons = <>
          FieldName = 'BomOk'
          Footers = <>
          Title.Caption = #26159#21542#23457#26680
          Visible = False
          Width = 20
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    SQL.Strings = (
      ' Select BomA.ite_ItemCode,'
      '                Item.ItemName,'
      '                Uom.UomName,'
      '                Item.PmCode,'
      '                Item.PrepareLT,'
      '                Item.RunLT,'
      '                Item.QcLT,'
      '                designNO,'
      '                Item.ItemType,'
      '                Item.BomOk'
      '         From BomA'
      
        '         join Item on ite_ItemCode=Item.ItemCode and Item.BomOk=' +
        '0'
      '         join Uom on Item.UomCode=Uom.UomCode'
      '         group by ite_ItemCode,ItemName,UomName,'
      
        '                 PmCode,PrepareLT,RunLT,QcLT,designNO,ItemType,B' +
        'omOK'
      '         Order by ite_ItemCode')
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ite_ItemCode'
      Origin = 'BomA'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_HeadUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_HeadPmCode: TIntegerField
      FieldName = 'PmCode'
      Origin = 'Item'
    end
    object AdoQry_HeadPrepareLT: TIntegerField
      FieldName = 'PrepareLT'
      Origin = 'Item'
    end
    object AdoQry_HeadRunLT: TIntegerField
      FieldName = 'RunLT'
      Origin = 'Item'
    end
    object AdoQry_HeadQcLT: TIntegerField
      FieldName = 'QcLT'
      Origin = 'Item'
    end
    object AdoQry_HeaddesignNO: TStringField
      FieldName = 'designNO'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_HeadItemType: TIntegerField
      FieldName = 'ItemType'
      Origin = 'Item'
    end
    object AdoQry_HeadBomOk: TIntegerField
      FieldName = 'BomOk'
      Origin = 'Item'
    end
  end
end