untoutstock.~dfm

这是一个不错的数据库管理程序

object frmOutStock: TfrmOutStock
  Left = 165
  Top = 120
  Width = 696
  Height = 550
  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 gupOrderItem: TGroupBox
    Left = 16
    Top = 312
    Width = 665
    Height = 137
    Caption = #35746#21333#26126#32454
    TabOrder = 0
    object grdOrderItem: TDBGrid
      Left = 80
      Top = 24
      Width = 497
      Height = 96
      DataSource = souOrderItemGrd
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object gupOrders: TGroupBox
    Left = 16
    Top = 64
    Width = 665
    Height = 233
    Caption = #24453#20986#36135#35746#21333
    TabOrder = 1
    object grdOrders: TDBGrid
      Left = 32
      Top = 32
      Width = 585
      Height = 185
      DataSource = souOrderGrd
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object btnOK: TBitBtn
    Left = 384
    Top = 480
    Width = 75
    Height = 25
    Caption = #30830#35748
    TabOrder = 2
    Kind = bkOK
  end
  object Button1: TButton
    Left = 64
    Top = 472
    Width = 129
    Height = 25
    Caption = #26174#31034#37319#36141#21333
    TabOrder = 3
    OnClick = PurChaseClick
  end
  object qryOrdersGrd: TADOQuery
    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 = 176
    Top = 24
    object qryOrdersGrdOrderID: TStringField
      DisplayLabel = #35746#21333#32534#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 = #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 = 13
      FieldName = 'Address'
      Size = 50
    end
    object qryOrdersGrdState: TSmallintField
      DisplayLabel = #24050#21457#36135
      DisplayWidth = 10
      FieldName = 'State'
    end
  end
  object qryOrderItemGrd: TADOQuery
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.GoodsCode,A.GoodsName,A.Unit,B.Quantity'
      ''
      'FROM Goods A,OrderItem B')
    Left = 208
    Top = 24
    object qryOrderItemGrdGoodsCode: TStringField
      DisplayLabel = #21830#21697#32534#21495
      FieldName = 'GoodsCode'
      FixedChar = True
      Size = 10
    end
    object qryOrderItemGrdGoodsName: TStringField
      DisplayLabel = #21830#21697#21517#31216
      FieldName = 'GoodsName'
    end
    object qryOrderItemGrdUnit: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'Unit'
      Size = 10
    end
    object qryOrderItemGrdQuantity: TBCDField
      DisplayLabel = #25968#37327
      FieldName = 'Quantity'
      Precision = 19
    end
  end
  object uspTmp: TADOStoredProc
    Connection = datGoodsOrder.conGoodsOrder
    Parameters = <>
    Left = 240
    Top = 24
  end
  object souOrderGrd: TDataSource
    DataSet = qryOrdersGrd
    OnDataChange = souOrderGrdDataChange
    Left = 272
    Top = 24
  end
  object souOrderItemGrd: TDataSource
    DataSet = qryOrderItemGrd
    Left = 304
    Top = 24
  end
end