sfc_mnrequest_b.dfm

一个MRPII系统源代码版本

        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 28
        end
        Item
          EditButtons = <>
          FieldName = 'wh_EmployeeCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20179#31649#21592
          Width = 43
        end
        Item
          EditButtons = <>
          FieldName = 'Bomqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23450#39069
          Width = 50
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25439#32791
          Width = 50
        end
        Item
          EditButtons = <>
          FieldName = 'MoRealqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32047#35745#23454#39046
          Width = 58
        end
        Item
          EditButtons = <>
          FieldName = 'onhandInv'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21487#29992#24211#23384
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'moRequestqty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35831#39046#25968#37327
          Width = 70
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25209#27425#21495
          Width = 100
        end
        Item
          EditButtons = <>
          FieldName = 'BilllineremArk'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 300
        end>
    end
    object Panel2: TPanel
      Left = 0
      Top = 96
      Width = 790
      Height = 17
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      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 = 143
    Width = 790
    Height = 287
    inherited Image3: TImage
      Width = 790
      Height = 252
    end
    inherited DBGridEh: TDBGridEh
      Width = 790
      Height = 252
      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 = 'BomremArk'
          Footers = <>
          ReadOnly = True
          Title.Caption = 'Bom'#22791#27880
          Width = 154
        end
        Item
          EditButtons = <>
          FieldName = 'BillLineRemArk'
          Footers = <>
          Title.Caption = #34892#22791#27880
          Width = 145
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 252
      Width = 790
      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 = ''
    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 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 = 168
    Top = 233
  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