data.dfm

一个工具管理系统。。用DELPHI+ACCESS写的

object FM_Data: TFM_Data
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 240
  Top = 173
  Height = 258
  Width = 384
  object ADOconn: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object ADO_Note: TADOQuery
    Connection = ADOconn
    CursorType = ctStatic
    BeforeInsert = ADO_NoteBeforeInsert
    AfterInsert = ADO_NoteAfterInsert
    BeforePost = ADO_NoteBeforePost
    AfterPost = ADO_NoteAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from nnote')
    Left = 88
    Top = 16
  end
  object DS_Note: TDataSource
    DataSet = ADO_Note
    Left = 32
    Top = 80
  end
  object ADO_Type: TADOQuery
    Connection = ADOconn
    Parameters = <>
    Left = 152
    Top = 16
  end
  object ADO_PubTable: TADOQuery
    Connection = ADOconn
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'coun'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'select count(*) as coun,'#21333#20301' from [fitting] group by '#21333#20301' order by c' +
        'oun ')
    Left = 32
    Top = 144
  end
  object ADO_FittingList: TADOQuery
    Connection = ADOconn
    CursorType = ctStatic
    AfterInsert = ADO_FittingListAfterInsert
    Parameters = <>
    SQL.Strings = (
      
        'select '#21333#21495','#26085#26399','#39046#29992#21333#20301',sum('#25968#37327'*'#21333#20215') as '#24635#37329#39069','#25910#27454#21333#20301','#21046#21333','#20445#31649#21592' from [nnote] gro' +
        'up by '#21333#21495','#26085#26399','#39046#29992#21333#20301','#25910#27454#21333#20301','#21046#21333','#20445#31649#21592)
    Left = 224
    Top = 16
  end
  object DS_FittingList: TDataSource
    DataSet = ADO_FittingList
    Left = 224
    Top = 72
  end
end