bas_qry_bomchange.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Qry_BomChange: TFrm_Bas_Qry_BomChange
  Left = 153
  Top = 86
  Caption = 'Bom'#26356#25913#36890#30693#21333
  ClientHeight = 553
  ClientWidth = 800
  OnActivate = nil
  OnDestroy = nil
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      inherited TlBtn_Look: TToolButton
        Action = Act_auto
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Height = 36
    Caption = 'Bom'#26356#25913#36890#30693#21333
    inherited Image2: TImage
      Width = 800
      Height = 36
    end
  end
  inherited Pnl_Head: TPanel
    Top = 66
    Width = 800
    Height = 1
    Visible = False
    inherited Image1: TImage
      Width = 800
      Height = 1
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 528
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Top = 67
    Width = 800
    Height = 302
    Align = alTop
    inherited Image3: TImage
      Width = 800
      Height = 297
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 297
      DataSource = DataSource1
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ite_ItemName'
          Footers = <>
          Title.Caption = #29238#39033#26631#35782
          Width = 173
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #23376#39033#26631#35782
          Width = 182
        end
        Item
          EditButtons = <>
          FieldName = 'BomItemType0'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            '0 '#26222#36890#29289#26009
            '1 '#24037#20316#20013#24515
            '2 '#24037#20855
            '3 '#32467#26500#34394#39033
            '4 '#21103#20135#21697
            '5 '#25104#26412#20013#24515
            '6 '#26367#20195#34394#39033
            '7 '#21442#32771)
          Title.Caption = #26356#25913#21069'|'#23376#39033#23646#24615
          Width = 71
        end
        Item
          EditButtons = <>
          FieldName = 'Bomqty0'
          Footers = <>
          Title.Caption = #26356#25913#21069'|Bom'#23450#39069
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent0'
          Footers = <>
          Title.Caption = #26356#25913#21069'|'#25439#32791#29575'%'
          Width = 49
        end
        Item
          EditButtons = <>
          FieldName = 'BomItemType1'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            '0 '#26222#36890#29289#26009
            '1 '#24037#20316#20013#24515
            '2 '#24037#20855
            '3 '#32467#26500#34394#39033
            '4 '#21103#20135#21697
            '5 '#25104#26412#20013#24515
            '6 '#26367#20195#34394#39033
            '7 '#21442#32771)
          Title.Caption = #26356#25913#21518'|'#23376#39033#23646#24615
          Width = 76
        end
        Item
          EditButtons = <>
          FieldName = 'Bomqty1'
          Footers = <>
          Title.Caption = #26356#25913#21518'|Bom'#23450#39069
          Width = 51
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent1'
          Footers = <>
          Title.Caption = #26356#25913#21518'|'#25439#32791#29575'%'
          Width = 51
        end
        Item
          EditButtons = <>
          FieldName = 'BomChangetime'
          Footers = <>
          Width = 78
        end
        Item
          EditButtons = <>
          FieldName = 'ite_ItemCode'
          Footers = <>
          Title.Caption = #29238#39033#20195#30721
          Visible = False
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #23376#39033#20195#30721
          Visible = False
        end>
    end
    object Panel2: TPanel
      Left = 0
      Top = 297
      Width = 800
      Height = 5
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
    end
  end
  object Panel1: TPanel [5]
    Left = 0
    Top = 369
    Width = 800
    Height = 159
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 5
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 800
      Height = 159
      Align = alClient
      DataSource = DataSource2
      FooterColor = clWindow
      FooterFont.ChArset = GB2312_CHArSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnTitleClick = DBGridEh1TitleClick
      Columns = <
        Item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'checkflag'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          PickList.Strings = (
            '1'
            '0')
          Title.Caption = #26631#35760
          Width = 33
        end
        Item
          EditButtons = <>
          FieldName = 'mono'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #35746#21333#21495
          Width = 88
        end
        Item
          EditButtons = <>
          FieldName = 'MoLineno'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #35746#21333#34892#21495
          Width = 55
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#26631#35782
          Width = 236
        end
        Item
          EditButtons = <>
          FieldName = 'moqty'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #32422#23450#20132#36135#37327
          Width = 114
        end
        Item
          EditButtons = <>
          FieldName = 'MoNoFinishqty'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #26410#32467#37327
          Width = 96
        end
        Item
          EditButtons = <>
          FieldName = 'islinGliao'
          Footers = <>
          Title.Caption = #26159#21542#39046#26009
          Width = 54
        end
        Item
          EditButtons = <>
          FieldName = 'confirmtime'
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #35746#21333#19979#36798#26102#38388
          Width = 95
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 277
    Top = 371
  end
  inherited ActionList: TActionList
    Top = 144
    inherited Act_auto: TAction
      Caption = #37325#26032#20135#29983#39046#26009#21333
      Hint = #37325#26032#20135#29983#39046#26009#21333
      OnExecute = Act_autoExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    Top = 153
  end
  inherited DataSource: TDataSource
    Top = 153
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 193
  end
  object AdoQry_BomChange: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1'
    Parameters = <>
    SQL.Strings = (
      
        'select real_ItemCode,ite_ItemCode,ite_ItemCode+'#39' '#39'+Item.ItemName' +
        ' as ite_ItemName'
      
        '                    ,BomChange.ItemCode,BomChange.ItemCode+'#39' '#39'+i' +
        '.ItemName as ItemName,BomItemType0,Bomqty0 '
      
        '                    ,BomScrAp_Percent0, BomItemType1,Bomqty1,Bom' +
        'ScrAp_Percent1,BomChangetime'
      '                     from BomChange '
      
        '                     left join  Item on BomChange.ite_ItemCode=i' +
        'tem.ItemCode'
      
        '                     left join Item i on BomChange.ItemCode=i.it' +
        'emCode '
      '                    join (select m.ItemCode,m.confirmtime '
      '                              from MoLine m,BomChange b'
      '                       where m.confirmtime<b.BomChangetime'
      
        '                       and m.ItemCode=b.real_ItemCode and MoLine' +
        'status=6 '
      '                     union select p.ItemCode,p.confirmtime '
      '                              from poline p,BomChange b'
      '                       where p.confirmtime<b.BomChangetime '
      
        '                       and p.ItemCode=b.real_ItemCode and p.poli' +
        'nestatus=6 ) a '
      
        '                       on BomChange.real_ItemCode=a.ItemCode and' +
        ' BomChange.BomChangetime>a.confirmtime '
      ''
      '')
    Left = 368
    Top = 257
    object AdoQry_BomChangeBomItemType0: TIntegerField
      FieldName = 'BomItemType0'
      Origin = '#BomChange'
    end
    object AdoQry_BomChangeBomqty0: TBCDField
      FieldName = 'Bomqty0'
      Origin = '#BomChange'
      Precision = 20
      Size = 8
    end
    object AdoQry_BomChangeBomScrAp_Percent0: TBCDField
      FieldName = 'BomScrAp_Percent0'
      Origin = '#BomChange'
      Precision = 20
      Size = 8
    end
    object AdoQry_BomChangeBomItemType1: TIntegerField
      FieldName = 'BomItemType1'
      Origin = '#BomChange'
    end
    object AdoQry_BomChangeBomqty1: TBCDField
      FieldName = 'Bomqty1'
      Origin = '#BomChange'
      Precision = 20
      Size = 8
    end
    object AdoQry_BomChangereal_ItemCode: TStringField
      FieldName = 'real_ItemCode'
      Origin = '#BomChange'
      Size = 16
    end
    object AdoQry_BomChangeBomScrAp_Percent1: TBCDField
      FieldName = 'BomScrAp_Percent1'
      Origin = '#BomChange'
      Precision = 20
      Size = 8
    end
    object AdoQry_BomChangeite_ItemName: TStringField
      FieldName = 'ite_ItemName'
      Origin = '#BomChange'
      ReadOnly = True
      Size = 120
    end
    object AdoQry_BomChangeBomChangetime: TDateTimeField
      DisplayLabel = 'Bom'#20462#25913#26102#38388
      FieldName = 'BomChangetime'
      Origin = '#BomChange'
    end
    object AdoQry_BomChangeItemName: TStringField
      FieldName = 'ItemName'
      Origin = '#BomChange'
      ReadOnly = True
      Size = 120
    end
    object AdoQry_BomChangeite_ItemCode: TStringField
      FieldName = 'ite_ItemCode'
      Origin = '#BomChange'
      Size = 16
    end
    object AdoQry_BomChangeItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = '#BomChange'
      Size = 16
    end
  end
  object AdoQry_Mo: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=Mrpii;Data Source=192.168.0.88'
    Parameters = <>
    SQL.Strings = (
      'select 0 as checkflag,mono,MoLineno,ItemCode,MoLinestatus,moqty,'
      'MoNoFinishqty,confirmtime,'#39' '#39'  as islinGliao from MoLine')
    Left = 256
    Top = 425
    object AdoQry_Momono: TStringField
      FieldName = 'mono'
      Size = 16
    end
    object AdoQry_MoMoLineno: TIntegerField
      FieldName = 'MoLineno'
    end
    object AdoQry_MoItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 120
    end
    object AdoQry_MoMoLinestatus: TIntegerField
      FieldName = 'MoLinestatus'
    end
    object AdoQry_Momoqty: TBCDField
      FieldName = 'moqty'
      Precision = 20
      Size = 8
    end
    object AdoQry_MoMoNoFinishqty: TBCDField
      FieldName = 'MoNoFinishqty'
      Precision = 20
      Size = 8
    end
    object AdoQry_Moconfirmtime: TDateTimeField
      FieldName = 'confirmtime'
    end
    object AdoQry_MoislinGliao: TStringField
      FieldName = 'islinGliao'
      ReadOnly = True
      Size = 1
    end
    object AdoQry_Mocheckflag: TIntegerField
      FieldName = 'checkflag'
    end
    object AdoQry_MoOrderType: TIntegerField
      FieldName = 'OrderType'
    end
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_BomChange
    OnDataChange = DataSource1DataChange
    Left = 256
    Top = 289
  end
  object DataSource2: TDataSource
    DataSet = AdoQry_Mo
    Left = 432
    Top = 353
  end
end