bas_invbalance.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_InvBalance: TFrm_Bas_InvBalance
  Left = 11
  Top = 164
  Caption = '仓库期初余额'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '仓库期初余额'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Left = 20
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 617
      Top = 29
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 396
    Height = 33
    inherited Image4: TImage
      Height = 33
    end
    object Label3: TLabel
      Left = 11
      Top = 16
      Width = 60
      Height = 12
      Caption = '物料描述：'
    end
    object DBText1: TDBText
      Left = 76
      Top = 16
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 299
    inherited Image3: TImage
      Height = 299
    end
    inherited DBGridEh: TDBGridEh
      Height = 299
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'InvMonth'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月份'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库描述'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位代码'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位描述'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存数量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存单价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '结存金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'wh_EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓管员'
          Width = 52
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 195
  end
  inherited ActionList: TActionList
    Top = 152
  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.10' +
      '0;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    CurSorType = ctStatic
    OnCalcFields = AdoQry_MainCalcFields
    SQL.Strings = (
      '    select InvBalance.InvMonth,'
      '            InvBalance.whCode,'
      '            Warehouse.whName,'
      '            InvBalance.WhPositionCode,'
      '            WhPosition.WhPositionName,'
      '            InvBalance.ItemCode,'
      '            Item.ItemName,'
      
        '            InvBalance.ItemCode+'#39' '#39'+Item.ItemName as ItemCodenam' +
        'e, '
      '            InvBalance.InvQty,'
      '            InvBalance.InvAmount,'
      '            Uom.UomName,'
      '            Item.wh_EmployeeCode '
      '     from InvBalance '
      '      left join Item on InvBalance.ItemCode=Item.ItemCode '
      '      left join Uom on Item.UomCode=Uom.UomCode '
      
        '      left join Warehouse on  InvBalance.whCode=Warehouse.whCode' +
        ' '
      
        '      left join WhPosition on  InvBalance.whCode=WhPosition.whco' +
        'de '
      
        '                          and  InvBalance.WhPositionCode=whposit' +
        'ion.WhPositionCode ')
    Left = 64
    Top = 153
    object AdoQry_MainInvMonth: TStringField
      FieldName = 'InvMonth'
      Origin = 'InvBalance'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_MainwhCode: TStringField
      FieldName = 'whCode'
      Origin = 'InvBalance'
      Size = 4
    end
    object AdoQry_MainWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'InvBalance'
      Size = 4
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'InvBalance'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainInvQty: TFloatField
      FieldName = 'InvQty'
      Origin = 'InvBalance'
    end
    object AdoQry_MainInvAmount: TBCDField
      FieldName = 'InvAmount'
      Origin = 'InvBalance'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainPrice: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Price'
      Origin = 'InvBalance'
      Calculated = True
    end
    object AdoQry_MainwhName: TStringField
      FieldName = 'whName'
      Size = 40
    end
    object AdoQry_MainWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Size = 40
    end
    object AdoQry_Mainwh_EmployeeCode: TStringField
      FieldName = 'wh_EmployeeCode'
      Origin = 'Item'
      Size = 30
    end
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 480
    Top = 193
  end
end