udm.~dfm

delphi数据库的程序代码

object DM: TDM
  OldCreateOrder = False
  Left = 369
  Top = 230
  Height = 213
  Width = 285
  object ConnBookstore: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=bookstore;Data Source=192.168.0.55;Use Procedure for ' +
      'Prepare=1;Auto Translate=True;Packet Size=4096'
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 8
  end
  object TblCategory: TADOTable
    Active = True
    Connection = ConnBookstore
    CursorType = ctStatic
    TableName = 'Category'
    Left = 224
    Top = 8
    object TblCategoryID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object TblCategoryName: TStringField
      DisplayLabel = #22270#20070#31867#21035#21517#31216
      FieldName = 'Name'
      FixedChar = True
      Size = 50
    end
  end
  object TblProvider: TADOTable
    Active = True
    Connection = ConnBookstore
    CursorType = ctStatic
    TableName = 'Provider'
    Left = 104
    Top = 8
    object TblProviderID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object TblProviderName: TStringField
      DisplayLabel = #20986#29256#31038#21517#31216
      FieldName = 'Name'
      FixedChar = True
      Size = 50
    end
  end
  object TblBook: TADOTable
    Active = True
    Connection = ConnBookstore
    CursorType = ctStatic
    TableName = 'book'
    Left = 104
    Top = 64
    object TblBookISBN: TStringField
      FieldName = 'ISBN'
      FixedChar = True
      Size = 13
    end
    object TblBookName: TStringField
      DisplayLabel = #20070#21517
      DisplayWidth = 25
      FieldName = 'Name'
      FixedChar = True
      Size = 100
    end
    object TblBookProviderID: TIntegerField
      FieldName = 'ProviderID'
      Visible = False
    end
    object TblBookPrice: TBCDField
      DisplayLabel = #20215#26684
      DisplayWidth = 5
      FieldName = 'Price'
      Precision = 19
    end
    object TblBookAmountLeft: TIntegerField
      DisplayLabel = #22270#20070#25968#37327
      DisplayWidth = 3
      FieldName = 'AmountLeft'
    end
    object TblBookCategoryID: TIntegerField
      FieldName = 'CategoryID'
      Visible = False
    end
    object TblBookProviderName: TStringField
      DisplayLabel = #20986#29256#31038#21517#31216
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'ProviderName'
      LookupDataSet = TblProvider
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ProviderID'
      Size = 50
      Lookup = True
    end
    object TblBookCategoryName: TStringField
      DisplayLabel = #25152#23646#31867#21035
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = TblCategory
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'CategoryID'
      Size = 50
      Lookup = True
    end
  end
  object TblSalesList: TADOTable
    Active = True
    Connection = ConnBookstore
    CursorType = ctStatic
    TableName = 'SalesList'
    Left = 32
    Top = 128
  end
  object QueryStat: TADOQuery
    Connection = ConnBookstore
    CursorType = ctStatic
    MaxRecords = 10
    Parameters = <>
    SQL.Strings = (
      'Select ISBN,SUM(Amount) as Amount '
      'From SalesList'
      'Group by ISBN Order By SUM(Amount) desc')
    Left = 160
    Top = 128
    object QueryStatISBN: TStringField
      FieldName = 'ISBN'
      FixedChar = True
      Size = 13
    end
    object QueryStatBookName: TStringField
      DisplayLabel = #20070#21517
      DisplayWidth = 25
      FieldKind = fkLookup
      FieldName = 'BookName'
      LookupDataSet = TblBook
      LookupKeyFields = 'ISBN'
      LookupResultField = 'Name'
      KeyFields = 'ISBN'
      Size = 100
      Lookup = True
    end
    object QueryStatAmount: TIntegerField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'Amount'
      ReadOnly = True
    end
  end
  object DsProvider: TDataSource
    DataSet = TblProvider
    Left = 160
    Top = 8
  end
  object DsCategory: TDataSource
    DataSet = TblCategory
    Left = 32
    Top = 64
  end
  object DsBook: TDataSource
    DataSet = TblBook
    Left = 160
    Top = 64
  end
  object DsSalesList: TDataSource
    DataSet = TblSalesList
    Left = 104
    Top = 128
  end
  object DsStat: TDataSource
    DataSet = QueryStat
    Left = 224
    Top = 128
  end
end