dm.dfm

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

object fdm: Tfdm
  OldCreateOrder = False
  Left = 452
  Top = 161
  Height = 424
  Width = 494
  object AdoBase: TADOTable
    Connection = ConDaLei
    CursorType = ctStatic
    Filter = 'Inspect_date='#39'2002-09-04'#39
    Filtered = True
    TableName = 'V_BaseData_Report'
    Left = 72
    Top = 8
  end
  object ConDaLei: TADOConnection
    ConnectOptions = coAsyncConnect
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    BeforeConnect = ConDaLeiBeforeConnect
    Left = 8
    Top = 8
  end
  object AdoItem: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from V_CarInfo')
    Left = 16
    Top = 64
  end
  object AdoCarinfo: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <
      item
        Name = '@fid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 3336
      end>
    SQL.Strings = (
      'select basedata.fid,'
      '       carinfo.license,'
      '       carinfo.car_new,'
      '       carinfo.if_before,'
      '       carinfo.if_full_load,'
      '       carfactorytype.FRONT_LAMP,'
      '       carfactorytype.Power_standard,'
      '       oiltype.oiltype_mc,'
      '       underpan_kind.axis_num,'
      '       underpan_kind.drv_axis,'
      '       underpan_kind.handbrk_axis'
      'FROM basedata'
      'LEFT OUTER JOIN carinfo on carinfo.vid=basedata.vid    '
      
        'LEFT OUTER JOIN CARFACTORYTYPE ON  carinfo.CAR_FATY_ID = CARFACT' +
        'ORYTYPE.CAR_FATY_ID'
      
        'LEFT OUTER JOIN oiltype ON oiltype.oiltype_id = CARFACTORYTYPE.o' +
        'iltype_id'
      
        'LEFT OUTER JOIN drivetype ON CARFACTORYTYPE.drvtype_id = drivety' +
        'pe.drvtype_id'
      
        'LEFT OUTER JOIN underpan_kind ON underpan_kind.underpan_id = CAR' +
        'FACTORYTYPE.underpan_id'
      'where basedata.fid=:@fid')
    Left = 56
    Top = 64
  end
  object Adocar: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    Left = 184
    Top = 64
  end
  object BaseData: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'select * from basedata')
    Left = 136
    Top = 16
  end
  object Carunit: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'select * from unit')
    Left = 96
    Top = 160
  end
  object UseSQL: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    Left = 152
    Top = 160
  end
  object Datype: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filescategory')
    Left = 97
    Top = 210
  end
  object DatforTree: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'select * from filescategory')
    Left = 99
    Top = 260
  end
  object DagMana: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from FilesCabinet')
    Left = 99
    Top = 310
  end
  object Canuser: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'select * from UsersInfo')
    Left = 211
    Top = 160
  end
  object UserList: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'select * from logouser')
    Left = 254
    Top = 160
  end
  object DaEdit: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_FilesContent')
    Left = 153
    Top = 210
  end
  object DaGuiId: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct '#26723#26696#26588#21495' from view_FilesContent')
    Left = 154
    Top = 260
  end
  object Getfilecatory: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select Cgname from FilesCategory')
    Left = 154
    Top = 309
  end
  object ExecSql: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 266
    Top = 68
  end
  object AllDan: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_FilesContent')
    Left = 293
    Top = 162
  end
  object AllBorrow: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_FBorrow')
    Left = 335
    Top = 162
  end
  object ForSelect: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 308
    Top = 68
  end
  object AllReturn: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_FReturn')
    Left = 379
    Top = 162
  end
  object FileContent: TADOQuery
    Connection = ConDaLei
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_FilesContent')
    Left = 199
    Top = 218
  end
  object DsFileContent: TDataSource
    DataSet = FileContent
    Left = 264
    Top = 216
  end
  object FilesB: TADOTable
    Connection = ConDaLei
    CursorType = ctStatic
    IndexFieldNames = #26723#26696#32534#21495
    MasterFields = #26723#26696#32534#21495
    MasterSource = DsFileContent
    TableName = 'view_FBorrow'
    Left = 312
    Top = 216
  end
  object FilesR: TADOTable
    Connection = ConDaLei
    CursorType = ctStatic
    IndexFieldNames = #26723#26696#32534#21495
    MasterFields = #26723#26696#32534#21495
    MasterSource = DsFileContent
    TableName = 'view_FReturn'
    Left = 352
    Top = 216
  end
  object UserInfo: TADOQuery
    Connection = ConDaLei
    Parameters = <>
    SQL.Strings = (
      'Select * from UsersInfo')
    Left = 272
    Top = 288
  end
end