bas_opbalance.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_OpBalance: TFrm_Bas_OpBalance
  Left = 66
  Top = 100
  Caption = #22996#22806#26448#26009#26399#21021#20313#39069
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #22996#22806#26448#26009#26399#21021#20313#39069
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Left = 78
      Top = 3
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 617
      Top = 25
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
    object Label4: TLabel
      Left = 16
      Top = 3
      Width = 60
      Height = 12
      Caption = #26597#35810#26465#20214#65306
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 410
    Height = 33
    inherited Image4: TImage
      Height = 33
    end
    object Label3: TLabel
      Left = 308
      Top = 16
      Width = 60
      Height = 12
      Caption = #29289#26009#25551#36848#65306
    end
    object DBText1: TDBText
      Left = 373
      Top = 16
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 16
      Top = 15
      Width = 72
      Height = 12
      Caption = #24403#21069#20379#24212#21830#65306
    end
    object DBText2: TDBText
      Left = 88
      Top = 15
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 313
    inherited Image3: TImage
      Height = 313
    end
    inherited DBGridEh: TDBGridEh
      Height = 313
      FrozenCols = 4
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'InvMonth'
          Footers = <>
          Title.Caption = #26376#20221
          Width = 48
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Caption = #20379#24212#21830#20195#30721
          Width = 72
        end
        Item
          EditButtons = <>
          FieldName = 'VendorName'
          Footers = <>
          Title.Caption = #20379#24212#21830#25551#36848
          Width = 82
        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 = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 60
        end
        Item
          EditButtons = <>
          FieldName = 'InvQty'
          Footers = <>
          Title.Caption = #32467#23384#25968#37327
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'InvPrice'
          Footers = <>
          Title.Caption = #32467#23384#21333#20215
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'InvAmount'
          Footers = <>
          Title.Caption = #32467#23384#37329#39069
          Width = 80
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 72
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    CurSorType = ctStatic
    OnCalcFields = AdoQry_MainCalcFields
    SQL.Strings = (
      
        'select OpBalance.InvMonth,OpBalance.VendorCode,Vendor.VendorName' +
        ','
      '            OpBalance.ItemCode,Item.ItemName,'
      '            Uom.UomName,'
      '            OpBalance.InvQty,'
      '            OpBalance.InvAmount'
      '     from OpBalance '
      
        '            left join Vendor on OpBalance.VendorCode=Vendor.vend' +
        'orCode'
      '      left join Item on OpBalance.ItemCode=Item.ItemCode '
      '      left join Uom on Item.UomCode=Uom.UomCode ')
    Left = 184
    Top = 121
    object AdoQry_MainInvMonth: TStringField
      FieldName = 'InvMonth'
      FixedChAr = True
      Size = 100
    end
    object AdoQry_MainItemCode: TStringField
      DisplayWidth = 300
      FieldName = 'ItemCode'
      Size = 300
    end
    object AdoQry_MainItemName: TStringField
      DisplayWidth = 150
      FieldName = 'VendorCode'
      Size = 150
    end
    object AdoQry_MainInvQty: TFloatField
      FieldName = 'InvQty'
    end
    object AdoQry_MainInvAmount: TBCDField
      FieldName = 'InvAmount'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainInvPrice: TFloatField
      FieldKind = fkCalculated
      FieldName = 'InvPrice'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey, pfHidden]
      ReadOnly = True
      Required = True
      DisplayFormat = '##0.##'
      EditFormat = '##0.##'
      Calculated = True
    end
    object AdoQry_MaInvendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MainItemName2: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 480
    Top = 193
  end
end