sfc_mnrequest_b1.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MnRequest_B1: TFrm_Sfc_MnRequest_B1
  Left = 2
  Top = 11
  Caption = #36710#38388#29983#20135#39046#26009#21046#21333
  ClientHeight = 553
  ClientWidth = 800
  Position = poMainformCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label15: TLabel [0]
    Left = 558
    Top = 46
    Width = 72
    Height = 12
    Caption = #32422#23450#20132#36135#37327#65306
  end
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 336
      inherited TlBtn_InsertLine: TToolButton
        Hint = #33719#21462#26368#20339#39046#29992#25968#37327
      end
      inherited ToolButton3: TToolButton
        Width = 6
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Left = 237
        Hint = #25171#21360#39044#35272'('#19981#35745#25171#21360#27425#25968')'
      end
      inherited TlBtn_Print: TToolButton
        Left = 260
      end
      inherited TlBtn_Excel: TToolButton
        Left = 283
      end
      inherited ToolButton10: TToolButton
        Left = 306
      end
      inherited ToolButton4: TToolButton
        Left = 313
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #36710#38388#29983#20135#39046#26009#21046#21333
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 111
    inherited Image1: TImage
      Width = 800
      Height = 111
    end
    object Label1: TLabel
      Left = 44
      Top = 6
      Width = 36
      Height = 12
      Caption = #20179#24211#65306
    end
    object Label2: TLabel
      Left = 280
      Top = 6
      Width = 36
      Height = 12
      Caption = #36135#20301#65306
    end
    object Label3: TLabel
      Left = 20
      Top = 27
      Width = 60
      Height = 12
      Caption = #39046#26009#37096#38376#65306
    end
    object Label4: TLabel
      Left = 660
      Top = 6
      Width = 48
      Height = 12
      Caption = #21333#25454#21495#65306
    end
    object Label5: TLabel
      Left = 281
      Top = 27
      Width = 36
      Height = 12
      Caption = #29677#21035#65306
    end
    object Label6: TLabel
      Left = 672
      Top = 27
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
    end
    object Label9: TLabel
      Left = 8
      Top = 46
      Width = 72
      Height = 12
      Caption = #29983#20135#35746#21333#21495#65306
    end
    object Label10: TLabel
      Left = 157
      Top = 46
      Width = 60
      Height = 12
      Caption = #35746#21333#34892#21495#65306
    end
    object Label11: TLabel
      Left = 242
      Top = 46
      Width = 36
      Height = 12
      Caption = #29289#26009#65306
    end
    object Label12: TLabel
      Left = 44
      Top = 65
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
    end
    object lbl_Dept: TLabel
      Left = 83
      Top = 27
      Width = 6
      Height = 12
    end
    object lbl_Mono: TLabel
      Left = 83
      Top = 46
      Width = 6
      Height = 12
    end
    object lbl_MoLineno: TLabel
      Left = 219
      Top = 46
      Width = 6
      Height = 12
    end
    object lbl_Item: TLabel
      Left = 281
      Top = 46
      Width = 256
      Height = 12
      AutoSize = False
    end
    object Label7: TLabel
      Left = 496
      Top = 6
      Width = 48
      Height = 12
      Caption = #20179#31649#21592#65306
    end
    object Label14: TLabel
      Left = 545
      Top = 46
      Width = 72
      Height = 12
      Caption = #32422#23450#20132#36135#37327#65306
    end
    object lbl_qty: TLabel
      Left = 619
      Top = 46
      Width = 6
      Height = 12
    end
    object Label16: TLabel
      Left = 660
      Top = 46
      Width = 48
      Height = 12
      Caption = #26410#32467#37327#65306
    end
    object lbl_Noqty: TLabel
      Left = 710
      Top = 46
      Width = 6
      Height = 12
    end
    object Label17: TLabel
      Left = 508
      Top = 26
      Width = 36
      Height = 12
      Caption = #26009#24223#65306
    end
    object cmbbx_WhCode: TComboBox
      Left = 83
      Top = 0
      Width = 164
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbbx_WhCodeChange
      OnExit = cmbbx_WhCodeExit
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 317
      Top = 0
      Width = 153
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhPositionCodeChange
      OnExit = cmbbx_WhPositionCodeExit
    end
    object medt_Date: TMaskEdit
      Left = 710
      Top = 23
      Width = 81
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnChange = medt_DateChange
      OnExit = DateCheck
    end
    object Extedt_Billno: TExtEdit
      Left = 710
      Top = 0
      Width = 81
      Height = 20
      TabStop = False
      Enabled = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = False
      TabOrder = 9
      OnChange = Extedt_BillnoChange
    end
    object Extedt_memo: TExtEdit
      Left = 80
      Top = 61
      Width = 364
      Height = 20
      TabOrder = 6
    end
    object CheckBox1: TCheckBox
      Left = 455
      Top = 63
      Width = 151
      Height = 17
      Caption = #21482#26174#31034#24211#23384#19981#20026'0'#30340#25968#25454
      TabOrder = 7
      OnClick = CheckBox1Click
    end
    object cmbbx_WhEmployee: TComboBox
      Left = 544
      Top = 0
      Width = 89
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnExit = cmbbx_WhEmployeeExit
    end
    object CheckBox2: TCheckBox
      Left = 608
      Top = 62
      Width = 107
      Height = 17
      Caption = #25353#29992#26009#37096#38376#36807#28388
      TabOrder = 8
      OnClick = CheckBox2Click
    end
    object cmbbx_Shift: TComboBox
      Left = 317
      Top = 23
      Width = 153
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
    end
    object CheckBox3: TCheckBox
      Left = 720
      Top = 62
      Width = 71
      Height = 17
      Caption = #20840#37096#25171#21360
      Checked = True
      State = cbChecked
      TabOrder = 10
      OnClick = CheckBox3Click
      OnExit = CheckBox3Exit
    end
    object cmbx_WipWaster: TComboBox
      Left = 544
      Top = 23
      Width = 89
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      OnChange = cmbx_WipWasterChange
      Items.Strings = (
        ''
        #26009#24223)
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 553
    Width = 800
    Height = 0
    inherited Image4: TImage
      Width = 800
    end
    object Panel2: TPanel
      Left = 0
      Top = -17
      Width = 800
      Height = 17
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object DBText1: TDBText
        Left = 80
        Top = 6
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource1
      end
      object Label8: TLabel
        Left = 15
        Top = 6
        Width = 60
        Height = 12
        Caption = #29289#26009#25551#36848#65306
      end
    end
  end
  inherited Pnl_Body: TPanel
    Top = 168
    Width = 800
    Height = 385
    inherited Image3: TImage
      Width = 800
      Height = 350
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 350
      ReadOnly = False
      OnColExit = DBGridEhColExit
      OnDblClick = nil
      OnExit = DBGridEhExit
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'tmpItemCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21333#20301
          Width = 27
        end
        Item
          EditButtons = <>
          FieldName = 'wh_EmployeeCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #20179#31649#21592
          Width = 47
        end
        Item
          EditButtons = <>
          FieldName = 'moCtrlqty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #38480#39069#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'MoRealqty'
          Footers = <>
          ReadOnly = True
          Title.Caption = #32047#35745#23454#39046
          Width = 61
        end
        Item
          EditButtons = <>
          FieldName = 'onhandInv'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21487#29992#24211#23384
          Width = 57
        end
        Item
          EditButtons = <>
          FieldName = 'moRequestqty'
          Footers = <>
          Title.Caption = #35831#39046#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 100
        end
        Item
          EditButtons = <>
          FieldName = 'onCheckInv'
          Footers = <>
          Title.Caption = #24453#26816#24211#23384
        end
        Item
          EditButtons = <>
          FieldName = 'BilllineremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 154
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 350
      Width = 800
      Height = 35
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label13: TLabel
        Left = 15
        Top = 13
        Width = 60
        Height = 12
        Caption = #29289#26009#25551#36848#65306
      end
      object DBText2: TDBText
        Left = 79
        Top = 14
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 269
    Top = 259
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 184
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
    inherited Act_auto: TAction
      Caption = #33719#21462#26368#20339#39046#29992#25968#37327
      Hint = #33719#21462#26368#20339#39046#29992#25968#37327
      OnExecute = Act_autoExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192' +
      '.168.0.151'
    AfterInsert = AdoQry_BodyAfterInsert
    BeforeEdit = AdoQry_BodyBeforeEdit
    BeforePost = AdoQry_BodyBeforePost
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select m.mono,'
      '             m.MoLineno,'
      '             m.ItemCode,'
      '             m.ItemCode as tmpItemCode,'
      '             i.ItemName,'
      '             u.UomName,'
      '             m.moCtrlqty,'
      '             m.MoRealqty,'
      '             m.BilllineremArk,'
      '             m.moRequestqty,'
      '             0.00 as onhandInv '
      '         from mnItemList m'
      '          left join Item i '
      '               on  m.ItemCode=i.ItemCode '
      '          left join Uom u '
      '               on i.UomCode=u.UomCode '
      '          where m.mono='#39'm01060029'#39
      '            and m.MoLineno=1'
      '            and m.moCtrlqty>m.MoRealqty '
      '          Order by m.ItemCode ')
    Left = 376
    Top = 289
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
  end
  object Extpr: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = #23435#20307
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = #23435#20307
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = #23435#20307
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 240
    Top = 238
  end
  object AdoQry_SwAp: TAdoQuery
    LockType = ltBatchOptimistic
    AfterInsert = AdoQry_SwApAfterInsert
    BeforeEdit = AdoQry_SwApBeforeEdit
    BeforePost = AdoQry_SwApBeforePost
    AfterPost = AdoQry_SwApAfterPost
    EnableBCD = False
    Parameters = <>
    Left = 440
    Top = 496
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_SwAp
    OnDataChange = DataSource1DataChange
    Left = 328
    Top = 472
  end
end