untpurchase.~dfm

数据库实习个人作品

object frmPurchase: TfrmPurchase
  Left = 44
  Top = 65
  Width = 700
  Height = 491
  Caption = #37319#36141#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = PurchaseMenu
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 692
    Height = 29
    Caption = 'tbPurchase'
    TabOrder = 0
  end
  object grdPurchase: TDBGrid
    Left = 0
    Top = 29
    Width = 692
    Height = 416
    Align = alClient
    DataSource = souPurchase
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'GoodsCode'
        Title.Caption = #21830#21697#20195#30721
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoodsName'
        Title.Caption = #21830#21697#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Unit'
        Title.Caption = #21333#20301
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SafeStock'
        Title.Caption = #23433#20840#24211#23384
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Quantity'
        Title.Caption = #38656#37319#36141#37327
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ReportDate'
        Title.Caption = #25253#34920#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'State'
        Title.Caption = #22788#29702#24773#20917
        Visible = True
      end>
  end
  object PurchaseMenu: TMainMenu
    Left = 486
    object N1: TMenuItem
      Caption = #25991#20214
      object N2: TMenuItem
        Caption = #25171#21360#39044#35272
      end
      object N3: TMenuItem
        Caption = #25171#21360
      end
    end
  end
  object qryReport: TADOQuery
    Active = True
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT B.GoodsCode,A.GoodsName,A.Unit,A.SafeStock,B.Quantity,B.R' +
        'eportDate,B.State'
      'FROM Goods A,Purchase B'
      'WHERE A.GoodsCode=B.GoodsCode')
    Left = 456
    object qryReportGoodsCode: TStringField
      FieldName = 'GoodsCode'
      FixedChar = True
      Size = 10
    end
    object qryReportGoodsName: TStringField
      FieldName = 'GoodsName'
    end
    object qryReportUnit: TStringField
      FieldName = 'Unit'
      Size = 10
    end
    object qryReportSafeStock: TBCDField
      FieldName = 'SafeStock'
      Precision = 19
    end
    object qryReportQuantity: TBCDField
      FieldName = 'Quantity'
      Precision = 19
    end
    object qryReportReportDate: TDateTimeField
      FieldName = 'ReportDate'
    end
    object qryReportState: TSmallintField
      FieldName = 'State'
    end
  end
  object souPurchase: TDataSource
    DataSet = qryReport
    Left = 424
  end
end