bas_qry_bom.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Qry_Bom: TFrm_Bas_Qry_Bom
  Left = 23
  Top = 108
  Caption = 'Bom'#29238#23376#39033#26126#32454#24635#34920
  ClientHeight = 433
  ClientWidth = 795
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 795
  end
  inherited Pnl_Title: TPanel
    Width = 795
    BevelOuter = bvRaised
    Caption = 'Bom'#29238#23376#39033#26126#32454#24635#34920
    inherited Image2: TImage
      Left = 1
      Top = 1
      Width = 793
      Height = 25
    end
  end
  inherited Pnl_Head: TPanel
    Width = 795
    Height = 48
    BevelOuter = bvRaised
    inherited Image1: TImage
      Left = 1
      Top = 1
      Width = 793
      Height = 46
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 24
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 24
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Left = 84
      Visible = False
    end
    object Label1: TLabel
      Left = 24
      Top = 6
      Width = 60
      Height = 12
      Caption = #29238#39033#26631#35782#65306
    end
    object Label2: TLabel
      Left = 86
      Top = 5
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 24
      Top = 30
      Width = 60
      Height = 12
      Caption = #23376#39033#26631#35782#65306
    end
    object Label6: TLabel
      Left = 88
      Top = 29
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 407
    Width = 795
    inherited Image4: TImage
      Width = 795
    end
  end
  inherited Pnl_Body: TPanel
    Top = 105
    Width = 795
    Height = 302
    inherited Image3: TImage
      Width = 795
      Height = 302
    end
    inherited DBGridEh: TDBGridEh
      Width = 795
      Height = 302
      ReadOnly = False
      OnDblClick = DBGridEhDblClick
      OnKeyUp = DBGridEhKeyUp
      OnMouseUp = DBGridEhMouseUp
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ite_ItemCodeName'
          Footers = <>
          Title.Caption = #29238#39033#26631#35782
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'pUomCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29238#39033#21333#20301
          Width = 55
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'PPmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #21046#36896
            #37319#36141
            #22996#22806#21152#24037
            #26082#21046#36896#21448#22996#22806)
          ReadOnly = True
          Title.Caption = #29238#39033#21046#36141#30721
          Width = 67
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'PItemType'
          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)
          ReadOnly = True
          Title.Caption = #29238#39033#29289#26009#31867#21035
          Width = 81
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          Title.Caption = #23376#39033#26631#35782
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'CUomCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23376#39033#21333#20301
          Width = 54
        end
        Item
          EditButtons = <>
          FieldName = 'BomQty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23450#39069
          Width = 43
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent'
          Footers = <>
          ReadOnly = True
          Title.Caption = #25439#32791#29575'(%)'
          Width = 59
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'BomStatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #27491#24120
            #26410#29983#25928
            #26242#23450
            #26242#20572#20351#29992)
          ReadOnly = True
          Title.Caption = #23376#39033#29366#24577
          Width = 53
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'cPmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            #21046#36896
            #37319#36141
            #22996#22806#21152#24037
            #26082#21046#36896#21448#22996#22806)
          ReadOnly = True
          Title.Caption = #23376#39033#21046#36141#30721
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'CItemType'
          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)
          ReadOnly = True
          Title.Caption = #23376#39033#29289#26009#31867#21035
          Width = 76
        end
        Item
          Alignment = taLeftJustify
          EditButtons = <>
          FieldName = 'BomItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '')
          PickList.Strings = (
            #26222#36890#29289#26009
            #24037#20316#20013#24515
            #24037#20855
            #32467#26500#34394#39033
            #21103#20135#21697
            #25104#26412#20013#24515
            #26367#20195#34394#39033)
          ReadOnly = True
          Title.Caption = #23376#39033#23646#24615
          Width = 58
        end
        Item
          EditButtons = <>
          FieldName = 'depCodeName'
          Footers = <>
          Title.Caption = #29992#26009#37096#38376#26631#35782
          Width = 89
        end
        Item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          ReadOnly = True
          Title.Caption = #23376#39033#22791#27880
          Width = 56
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 485
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 328
    Top = 65528
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select * from (select Bom.Ite_ItemCode'
      '    ,Item.ItemName'
      '    ,Bom.Ite_ItemCode+'#39' '#39'+Item.ItemName as ite_ItemCodeName'
      '    ,Uom.UomName as pUomCode'
      '    ,Item.PmCode as PPmCode'
      '    ,Item.ItemType as PItemType'
      '    ,Bom.ItemCode'
      '    ,Bom.ItemCode+'#39' '#39'+a.ItemName as ItemCodeName'
      '    ,U.UomName  as CUomCode'
      '    ,a.PmCode as cPmCode'
      '    ,a.ItemType as CItemType'
      '    ,Bom.BomItemType'
      '    ,Bom.BomQty as BomQty'
      '    ,Bom.BomScrAp_Percent as BomScrAp_Percent'
      '    ,Bom.BomStatus as BomStatus'
      '    ,Bom.DeptCode+'#39' '#39'+Dept.DeptName as depCodeName'
      '    ,Bom.RemArk as RemArk'
      '     from  Bom left join Item on Bom.ite_ItemCode=Item.ItemCode'
      '     left join Uom on Item.UomCode=Uom.UomCode'
      '     left join Item a on Bom.ItemCode=a.ItemCode'
      '     left join Uom  u on a.UomCode=u.UomCode'
      '     left join  Dept on Bom.DeptCode=Dept.DeptCode) a')
    Left = 400
    Top = 1
  end
  inherited DataSource: TDataSource
    DataSet = AdODataSet1
    OnDataChange = DataSourceDataChange
    Left = 456
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 296
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 544
    Top = 65529
  end
  object AdODataSet1: TAdODataSet
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Puyuan_010207;Data Sourc' +
      'e=192.168.0.151'
    AfterOpen = AdODataSet1AfterOpen
    CommandText = 
      'select Bom.Ite_ItemCode,'#13#10#9#9'Item.ItemName,'#13#10#9#9'Bom.Ite_ItemCode+'#39 +
      ' '#39'+Item.ItemName as ite_ItemCodeName,'#13#10#9#9'Uom.UomName as pUomCode' +
      ','#13#10#9#9'Item.PmCode as PPmCode,'#13#10#9#9'Item.ItemType as PItemType,'#13#10#9#9'b' +
      'om.ItemCode,'#13#10#9#9'Bom.ItemCode+'#39' '#39'+a.ItemName as ItemCodeName,'#13#10#9#9 +
      'U.UomName  as CUomCode,'#13#10#9#9'a.PmCode as cPmCode,'#13#10#9#9'a.ItemType as' +
      ' CItemType,'#13#10#9#9'Bom.BomItemType,'#13#10#9#9'Bom.BomQty as BomQty,'#13#10#9#9'Bom.' +
      'BomScrAp_Percent as BomScrAp_Percent,'#13#10#9#9'Bom.BomStatus as BomSta' +
      'tus,'#13#10#9#9'Bom.DeptCode+'#39' '#39'+Dept.DeptName as depCodeName,'#13#10#9#9'Bom.Re' +
      'mArk as RemArk '#13#10#9#9'from  Bom '#13#10#9#9'left join Item on Bom.ite_Itemc' +
      'ode=Item.ItemCode '#13#10#9#9'left join Uom on Item.UomCode=Uom.UomCode ' +
      #13#10#9#9'left join Item a on Bom.ItemCode=a.ItemCode '#13#10#9#9'left join uo' +
      'm  u on a.UomCode=u.UomCode '#13#10#9#9'left join  Dept on Bom.DeptCode=' +
      'Dept.DeptCode'#13#10#9#9'where Bom.ite_ItemCode is not null Order by ite' +
      '_ItemCode'#13#10
    CommandTimeout = 0
    EnableBCD = False
    Parameters = <>
    Left = 578
    Top = 2
    object AdODataSet1Ite_ItemCode: TStringField
      FieldName = 'Ite_ItemCode'
      Origin = 'Bom'
      Size = 16
    end
    object AdODataSet1ItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdODataSet1ite_ItemCodeName: TStringField
      FieldName = 'ite_ItemCodeName'
      ReadOnly = True
      Size = 97
    end
    object AdODataSet1pUomCode: TStringField
      FieldName = 'pUomCode'
      Size = 10
    end
    object AdODataSet1PPmCode: TIntegerField
      FieldName = 'PPmCode'
    end
    object AdODataSet1PItemType: TIntegerField
      FieldName = 'PItemType'
    end
    object AdODataSet1ItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'Bom'
      Size = 16
    end
    object AdODataSet1ItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 97
    end
    object AdODataSet1CUomCode: TStringField
      FieldName = 'CUomCode'
      Size = 10
    end
    object AdODataSet1cPmCode: TIntegerField
      FieldName = 'cPmCode'
    end
    object AdODataSet1CItemType: TIntegerField
      FieldName = 'CItemType'
    end
    object AdODataSet1BomItemType: TIntegerField
      FieldName = 'BomItemType'
      Origin = 'Bom'
    end
    object AdODataSet1BomStatus: TIntegerField
      FieldName = 'BomStatus'
      Origin = 'Bom'
    end
    object AdODataSet1depCodeName: TStringField
      FieldName = 'depCodeName'
      ReadOnly = True
      Size = 49
    end
    object AdODataSet1RemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Bom'
      Size = 60
    end
    object AdODataSet1BomQty: TFloatField
      FieldName = 'BomQty'
      Origin = 'Bom'
    end
    object AdODataSet1BomScrAp_Percent: TFloatField
      FieldName = 'BomScrAp_Percent'
      Origin = 'Bom'
    end
  end
end