pm_oppobalance_b.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_OpPoBalance_B: TFrm_Pm_OpPoBalance_B
  Left = 46
  Top = 39
  Caption = ''
  ClientHeight = 538
  ClientWidth = 789
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 789
  end
  inherited Pnl_Title: TPanel
    Width = 789
    Height = 46
    inherited Image2: TImage
      Width = 789
      Height = 46
    end
    object SpeedButton1: TSpeedButton
      Left = 600
      Top = 8
      Width = 129
      Height = 28
      Caption = #37319#36141#20837#24211#21333#25454#26680#20215
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
  end
  inherited Pnl_Head: TPanel
    Top = 76
    Width = 789
    Height = 24
    inherited Image1: TImage
      Width = 789
      Height = 24
    end
    object Label1: TLabel
      Left = 8
      Top = 7
      Width = 72
      Height = 12
      Caption = #37319#36141#35746#21333#21495#65306
    end
    object Lbl_PoNo: TLabel
      Left = 88
      Top = 7
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 232
      Top = 7
      Width = 48
      Height = 12
      Caption = #20379#24212#21830#65306
    end
    object Lbl_VendorCodeName: TLabel
      Left = 288
      Top = 7
      Width = 6
      Height = 12
      Caption = '`'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 530
    Width = 789
    Height = 8
    inherited Image4: TImage
      Width = 789
      Height = 8
    end
  end
  inherited Pnl_Body: TPanel
    Top = 100
    Width = 789
    Height = 430
    inherited Image3: TImage
      Top = 218
      Width = 789
      Height = 212
    end
    inherited DBGridEh: TDBGridEh
      Width = 789
      Height = 185
      Align = alTop
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'PoLineNo'
          Footers = <>
          Title.Caption = #35746#21333#34892#21495
          Width = 57
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 52
        end
        Item
          EditButtons = <>
          FieldName = 'PoLineDate'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#26399
          Width = 102
        end
        Item
          EditButtons = <>
          FieldName = 'POQty'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#37327
          Width = 73
        end
        Item
          EditButtons = <>
          FieldName = 'PoNoFinishQty'
          Footers = <>
          Title.Caption = #26410#32467#37327
          Width = 74
        end>
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 218
      Width = 789
      Height = 212
      Align = alClient
      DataSource = DataSource1
      FooterColor = clWindow
      FooterFont.ChArset = GB2312_CHArSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = Act_ModifyExecute
      OnGetCellParams = DBGridEh1GetCellParams
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23376#39033#29289#26009#20195#30721
          Width = 76
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23376#39033#29289#26009#25551#36848
          Width = 252
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #35745#37327#21333#20301
          Width = 52
        end
        Item
          EditButtons = <>
          FieldName = 'BomQty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23450#39069
          Width = 58
        end
        Item
          EditButtons = <>
          FieldName = 'BomScrAp_Percent'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25439#32791'%'
          Width = 40
        end
        Item
          EditButtons = <>
          FieldName = 'RealOpQty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23454#38469#23450#39069
          Width = 68
        end
        Item
          EditButtons = <>
          FieldName = 'RealOPScrAp_Percent'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23454#38469#25439#32791'%'
          Width = 57
        end
        Item
          EditButtons = <>
          FieldName = 'POCtrlQty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #38480#39069#25968#37327
          Width = 58
        end
        Item
          EditButtons = <>
          FieldName = 'PORealQty'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32047#35745#39046#26009#25968#37327
          Width = 72
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 185
      Width = 789
      Height = 33
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object Label5: TLabel
        Left = 24
        Top = 13
        Width = 144
        Height = 12
        Caption = #35746#21333#26448#26009#39046#29992#21450#32791#29992#24773#20917#65306
      end
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      OnExecute = Act_ModifyExecute
    end
    inherited Act_InsertLine: TAction
      OnExecute = Act_InsertLineExecute
    end
    inherited Act_DeleteLine: TAction
      OnExecute = Act_DeleteLineExecute
    end
    inherited Act_CancelCheck: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Check: TAction
      Caption = #32467#31639
      Hint = #32467#31639
      OnExecute = Act_CheckExecute
    end
    inherited Act_Print: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Preview: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    AfterScroll = AdoQry_BodyAfterScroll
    SQL.Strings = (
      ''
      
        'select PL.PoLineNo,PL.ItemCode,Item.ItemName,Uom.UomName,PL.PoLi' +
        'neDate,PL.POQty,PL.PoNoFinishQty'
      '  from PoLine PL,Item,Uom'
      
        'Where PL.ItemCode=Item.ItemCode and Uom.UomCode=Item.ItemCode an' +
        'd PL.PoNo='#39'015'#39
      '')
    object AdoQry_BodyPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyPoLineDate: TDateTimeField
      FieldName = 'PoLineDate'
    end
    object AdoQry_BodyPOQty: TFloatField
      FieldName = 'POQty'
    end
    object AdoQry_BodyPoNoFinishQty: TFloatField
      FieldName = 'PoNoFinishQty'
    end
  end
  object AdoQry_Material: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151'
    CurSorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'Select OpItemList.ItemCode'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,OpItemList.POCtrlQty'
      '    ,OpItemList.PORealQty'
      '    ,OpItemList.POOutQty'
      ''
      '    ,OPItemList.BomQty'
      '    ,OPItemList.BomScrAp_Percent'
      '    ,PORealOpQty.RealOpQty'
      '    ,PORealOpQty.RealOPScrAp_Percent'
      '     From OpItemList'
      '     Left Join PORealOpQty On OpItemList.PoNo=PORealOpQty.PoNo'
      '     And OpItemList.POLineNo=PORealOpQty.POLineNo'
      '     Join Item On OpItemList.ItemCode=Item.ItemCode'
      '     Join Uom On Item.UomCode=Uom.UomCode'
      ' ')
    Left = 336
    Top = 406
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Material
    Left = 392
    Top = 414
  end
  object AdoQuery: TAdoQuery
    EnableBCD = False
    Parameters = <>
    Left = 416
    Top = 377
  end
end