untoutstock.~dfm

数据库实习个人作品

object frmOutStock: TfrmOutStock
  Left = 297
  Top = 209
  Width = 592
  Height = 394
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #35746#21333#38144#21806
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object gupOrders: TGroupBox
    Left = 8
    Top = 16
    Width = 569
    Height = 153
    Caption = #24453#20986#36135#35746#21333
    TabOrder = 0
    object grdOrders: TDBGrid
      Left = 8
      Top = 16
      Width = 553
      Height = 129
      DataSource = souOrderGrd
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object gupOrderItem: TGroupBox
    Left = 8
    Top = 184
    Width = 569
    Height = 137
    Caption = #35746#21333#26126#32454
    TabOrder = 1
    object grdOrderItem: TDBGrid
      Left = 8
      Top = 16
      Width = 553
      Height = 112
      DataSource = souOrderItemGrd
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'GoodsCode'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsName'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unit'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Price'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantity'
          Width = 109
          Visible = True
        end>
    end
  end
  object btnOK: TBitBtn
    Left = 496
    Top = 328
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 2
    Kind = bkOK
  end
  object btnShowPurchase: TButton
    Left = 16
    Top = 328
    Width = 75
    Height = 25
    Caption = #26174#31034#37319#36141#21333
    TabOrder = 3
    OnClick = btnShowPurchaseClick
  end
  object qryOrdersGrd: TADOQuery
    Active = True
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT A.OrderID,A.CustID,B.CustName,B.Zip,B.Address,A.State,'#39#39' ' +
        'Msg'
      ''
      'FROM Orders A,Customer B'
      ''
      'WHERE A.State=0 AND A.Amount<=B.AmountBal')
    Left = 232
    Top = 8
    object qryOrdersGrdOrderID: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 11
      FieldName = 'OrderID'
      FixedChar = True
      Size = 11
    end
    object qryOrdersGrdCustID: TStringField
      DisplayLabel = #39038#23458#32534#21495
      DisplayWidth = 11
      FieldName = 'CustID'
      FixedChar = True
      Size = 11
    end
    object qryOrdersGrdCustName: TStringField
      DisplayLabel = #39038#23458#22995#21517
      DisplayWidth = 8
      FieldName = 'CustName'
      Size = 8
    end
    object qryOrdersGrdZip: TStringField
      DisplayLabel = #37038#32534
      DisplayWidth = 6
      FieldName = 'Zip'
      FixedChar = True
      Size = 6
    end
    object qryOrdersGrdAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 40
      FieldName = 'Address'
      Size = 50
    end
    object qryOrdersGrdState: TSmallintField
      DisplayLabel = #22788#29702#24773#20917
      DisplayWidth = 10
      FieldName = 'State'
    end
  end
  object qryOrderItemGrd: TADOQuery
    Active = True
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.GoodsCode,A.GoodsName,A.Unit,A.Price,B.Quantity'
      ''
      'FROM Goods A,OrderItem B')
    Left = 424
    Top = 8
    object qryOrderItemGrdGoodsCode: TStringField
      DisplayLabel = #21830#21697#20195#30721
      DisplayWidth = 10
      FieldName = 'GoodsCode'
      FixedChar = True
      Size = 10
    end
    object qryOrderItemGrdGoodsName: TStringField
      DisplayLabel = #21830#21697#21517#31216
      DisplayWidth = 20
      FieldName = 'GoodsName'
    end
    object qryOrderItemGrdUnit: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 10
      FieldName = 'Unit'
      Size = 10
    end
    object qryOrderItemGrdPrice: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 13
      FieldName = 'Price'
      Precision = 19
    end
    object qryOrderItemGrdQuantity: TBCDField
      DisplayLabel = #25968#37327
      DisplayWidth = 18
      FieldName = 'Quantity'
      Precision = 19
    end
  end
  object uspTmp: TADOStoredProc
    Connection = datGoodsOrder.conGoodsOrder
    Parameters = <>
    Left = 328
    Top = 8
  end
  object souOrderGrd: TDataSource
    DataSet = qryOrdersGrd
    OnDataChange = souOrdersGrdDataChange
    Left = 280
    Top = 8
  end
  object souOrderItemGrd: TDataSource
    DataSet = qryOrderItemGrd
    Left = 376
    Top = 8
  end
end