untpurchase.~dfm

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

object frmPurChase: TfrmPurChase
  Left = 197
  Top = 236
  Width = 696
  Height = 480
  Caption = #37319#36141#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object grdPurChase: TDBGrid
    Left = 40
    Top = 120
    Width = 625
    Height = 217
    DataSource = souPurChaseGrd
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btnOK: TBitBtn
    Left = 504
    Top = 392
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 1
    Kind = bkOK
  end
  object qryPurChaseGrd: TADOQuery
    Active = True
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select GoodsCode,Quantity'
      'from PurChase')
    Left = 240
    Top = 72
    object qryPurChaseGrdGoodsCode: TStringField
      DisplayLabel = #21830#21697#32534#21495
      FieldName = 'GoodsCode'
      FixedChar = True
      Size = 10
    end
    object qryPurChaseGrdQuantity: TBCDField
      DisplayLabel = #27714#36141#25968#37327
      FieldName = 'Quantity'
      Precision = 19
    end
  end
  object souPurChaseGrd: TDataSource
    DataSet = qryPurChaseGrd
    Left = 312
    Top = 72
  end
end