inv_monthsumqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MonthSumQry: TFrm_Inv_MonthSumQry
  Left = 268
  Top = 83
  ClientHeight = 553
  ClientWidth = 800
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29289#26009#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 523
    Width = 800
    Height = 30
    inherited Image4: TImage
      Width = 800
      Height = 30
    end
    object Label1: TLabel
      Left = 6
      Top = 8
      Width = 96
      Height = 12
      Caption = #24403#21069#34892#29289#26009#25551#36848#65306
    end
    object DBText1: TDBText
      Left = 102
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 333
      Top = 13
      Width = 12
      Height = 12
      Caption = #19978
    end
    object Label3: TLabel
      Left = 446
      Top = 13
      Width = 12
      Height = 12
      Caption = #20837
    end
    object Label4: TLabel
      Left = 559
      Top = 13
      Width = 12
      Height = 12
      Caption = #20986
    end
    object Label5: TLabel
      Left = 673
      Top = 13
      Width = 12
      Height = 12
      Caption = #23384
    end
    object Edit1: TEdit
      Left = 348
      Top = 8
      Width = 95
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 460
      Top = 8
      Width = 95
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 574
      Top = 8
      Width = 95
      Height = 20
      ReadOnly = True
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 688
      Top = 8
      Width = 95
      Height = 20
      ReadOnly = True
      TabOrder = 3
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 430
    inherited Image3: TImage
      Width = 800
      Height = 430
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 430
      UseMultiTitle = True
      OnDblClick = Act_LookExecute
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Visible = False
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Visible = False
          Width = 204
        end
        item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 200
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 14
        end
        item
          EditButtons = <>
          FieldName = 'InvLMQty'
          Footers = <>
          Title.Caption = #19978#26376#32467#23384'|'#25968#37327
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'InvLMPrice'
          Footers = <>
          Title.Caption = #19978#26376#32467#23384'|'#21333#20215
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'InvLMAmount'
          Footers = <>
          Title.Caption = #19978#26376#32467#23384'|'#37329#39069
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'InvInQty'
          Footers = <>
          Title.Caption = #26412#26376#25910#20837'|'#25968#37327
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'InvInPrice'
          Footers = <>
          Title.Caption = #26412#26376#25910#20837'|'#21333#20215
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'InvInAmount'
          Footers = <>
          Title.Caption = #26412#26376#25910#20837'|'#37329#39069
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'InvOutQty'
          Footers = <>
          Title.Caption = #26412#26376#21457#20986'|'#25968#37327
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'InvOutPrice'
          Footers = <>
          Title.Caption = #26412#26376#21457#20986'|'#21333#20215
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'InvOutAmount'
          Footers = <>
          Title.Caption = #26412#26376#21457#20986'|'#37329#39069
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'Invtzqty'
          Footers = <>
          Title.Caption = #26412#26376#35843#25972'|'#25968#37327
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = 'InvtzAmount'
          Footers = <>
          Title.Caption = #26412#26376#35843#25972'|'#37329#39069
          Width = 62
        end
        item
          EditButtons = <>
          FieldName = 'InvBlncQty'
          Footers = <>
          Title.Caption = #26412#26376#32467#23384'|'#25968#37327
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'InvBlncPrice'
          Footers = <>
          Title.Caption = #26412#26376#32467#23384'|'#21333#20215
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'InvBlncAmount'
          Footers = <>
          Title.Caption = #26412#26376#32467#23384'|'#37329#39069
          Width = 70
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Top = 219
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 208
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    CursorType = ctStatic
    SQL.Strings = (
      'Select InvMonthSum.ItemCode'
      '    ,Item.ItemName'
      '    ,InvMonthSum.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Uom.UomName'
      '    ,InvMonthSum.InvLMQty'
      '    ,InvMonthSum.InvLMPrice'
      '    ,InvMonthSum.InvLMAmount'
      '    ,InvMonthSum.InvInQty'
      '    ,InvMonthSum.InvInPrice'
      '    ,InvMonthSum.InvInAmount'
      '    ,InvMonthSum.InvOutQty'
      '    ,InvMonthSum.InvOutPrice'
      '    ,InvMonthSum.InvOutAmount'
      '    ,InvMonthSum.InvBlncQty'
      '    ,InvMonthSum.InvBlncPrice'
      '    ,InvMonthSum.InvBlncAmount'
      '       ,OpMonthSum.Invtzqty'
      '       ,OpMonthSum.InvtzAmount '
      
        '     From InvMonthSum Join Item On InvMonthSum.ItemCode=Item.Ite' +
        'mCode'
      '     Join Uom On Item.UomCode=Uom.UomCode'
      '  join OpMonthSum on OpMonthSum.ItemCode=InvMonthSum.ItemCode'
      ' ')
    Top = 225
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 209
  end
  inherited ExtPrintReport: TExtPrintReport
    TopBordermm = 10
    BottomBordermm = 10
    LeftBordermm = 8
    RightBordermm = 8
    ReportFont.Height = -14
    PaperOrientation = poLandscape
    PaperType = ptWide
    Headers = <
      item
        Name = 'Header1'
        Alignment = taLeftJustify
        FieldName = 'ItemCodeName'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header2'
        Alignment = taLeftJustify
        FieldName = 'UomName'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header3'
        Alignment = taLeftJustify
        FieldName = 'InvLMQty'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header4'
        Alignment = taLeftJustify
        FieldName = 'InvLMPrice'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header5'
        Alignment = taLeftJustify
        FieldName = 'InvLMAmount'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header6'
        Alignment = taLeftJustify
        FieldName = 'InvInQty'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header7'
        Alignment = taLeftJustify
        FieldName = 'InvInPrice'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header8'
        Alignment = taLeftJustify
        FieldName = 'InvInAmount'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header9'
        Alignment = taLeftJustify
        FieldName = 'InvOutQty'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header10'
        Alignment = taLeftJustify
        FieldName = 'InvOutPrice'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header11'
        Alignment = taLeftJustify
        FieldName = 'InvOutAmount'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header12'
        Alignment = taLeftJustify
        FieldName = 'InvBlncQty'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header13'
        Alignment = taLeftJustify
        FieldName = 'InvBlncPrice'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      item
        Name = 'Header14'
        Alignment = taLeftJustify
        FieldName = 'InvBlncAmount'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end>
    TotalField = 'flag'
  end
end