unit_dm.dfm

本系统里面包含数据库（SQL SERVER2000）

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 192
  Top = 107
  Height = 363
  Width = 487
  object ADOC: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 16
  end
  object files: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'mks'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'mbh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end>
    SQL.Strings = (
      'select * from files '
      'where office like :mks and number like :mbh'
      'order by office,number')
    Left = 64
    Top = 16
    object filessno: TAutoIncField
      FieldName = 'sno'
      ReadOnly = True
    end
    object filesnumber: TStringField
      FieldName = 'number'
      FixedChar = True
      Size = 8
    end
    object filesname: TStringField
      FieldName = 'name'
      FixedChar = True
      Size = 10
    end
    object filessex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 2
    end
    object filesoffice: TStringField
      FieldName = 'office'
      FixedChar = True
    end
    object filesIDcard: TStringField
      FieldName = 'IDcard'
      FixedChar = True
    end
    object filesdegree: TStringField
      FieldName = 'degree'
      FixedChar = True
      Size = 8
    end
    object filesschool: TStringField
      FieldName = 'school'
      FixedChar = True
    end
    object filesspecialty: TStringField
      FieldName = 'specialty'
      FixedChar = True
    end
    object fileszylevel: TStringField
      FieldName = 'zylevel'
      FixedChar = True
      Size = 8
    end
    object fileszysort: TStringField
      FieldName = 'zysort'
      FixedChar = True
      Size = 8
    end
    object filesbound: TStringField
      FieldName = 'bound'
      FixedChar = True
    end
    object filestitle: TStringField
      FieldName = 'title'
      FixedChar = True
    end
    object fileszyzs: TStringField
      FieldName = 'zyzs'
      FixedChar = True
    end
    object fileszc: TStringField
      FieldName = 'zc'
      FixedChar = True
      Size = 10
    end
    object filesduty: TStringField
      FieldName = 'duty'
      FixedChar = True
      Size = 10
    end
    object filessideline: TStringField
      FieldName = 'sideline'
      FixedChar = True
    end
    object fileszkzc: TStringField
      FieldName = 'zkzc'
      Size = 50
    end
    object filesmztime: TDateTimeField
      FieldName = 'mztime'
    end
    object filesremark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object filesphoto: TStringField
      FieldName = 'photo'
      FixedChar = True
    end
    object filesidh: TStringField
      FieldName = 'idh'
      FixedChar = True
      Size = 14
    end
    object filesitem1: TStringField
      FieldName = 'item1'
      FixedChar = True
    end
    object filesitem2: TStringField
      FieldName = 'item2'
      FixedChar = True
    end
    object filesitem3: TStringField
      FieldName = 'item3'
      FixedChar = True
    end
    object filesitem4: TStringField
      FieldName = 'item4'
      FixedChar = True
    end
  end
  object dsfiles: TDataSource
    DataSet = files
    Left = 112
    Top = 16
  end
  object Query1: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 160
    Top = 16
  end
  object DataWh: TADOQuery
    Connection = ADOC
    Parameters = <
      item
        Name = 'mflag'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = Null
      end>
    SQL.Strings = (
      'select * from DataWh where flag=:mflag')
    Left = 208
    Top = 16
    object DataWhsno: TAutoIncField
      FieldName = 'sno'
      ReadOnly = True
    end
    object DataWhbh: TStringField
      DisplayWidth = 8
      FieldName = 'bh'
      FixedChar = True
      Size = 8
    end
    object DataWhname: TStringField
      FieldName = 'name'
      FixedChar = True
    end
    object DataWhflag: TStringField
      FieldName = 'flag'
      FixedChar = True
      Size = 5
    end
  end
  object dsDataWh: TDataSource
    DataSet = DataWh
    Left = 264
    Top = 16
  end
  object items: TADOQuery
    Connection = ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from items order by bh')
    Left = 320
    Top = 16
    object itemssno: TAutoIncField
      FieldName = 'sno'
      ReadOnly = True
    end
    object itemsezd: TStringField
      FieldName = 'ezd'
      FixedChar = True
      Size = 10
    end
    object itemsczd: TStringField
      FieldName = 'czd'
      FixedChar = True
      Size = 10
    end
    object itemstype: TStringField
      FieldName = 'type'
      FixedChar = True
      Size = 8
    end
    object itemsflag: TBooleanField
      FieldName = 'flag'
    end
    object itemsbh: TIntegerField
      FieldName = 'bh'
    end
  end
  object dsitems: TDataSource
    DataSet = items
    Left = 368
    Top = 16
  end
  object FileTmp: TADOQuery
    Connection = ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from FileTmp order by item4,item1')
    Left = 16
    Top = 72
    object FileTmpsno: TAutoIncField
      FieldName = 'sno'
      ReadOnly = True
    end
    object FileTmpnumber: TStringField
      FieldName = 'number'
      FixedChar = True
      Size = 8
    end
    object FileTmpname: TStringField
      FieldName = 'name'
      FixedChar = True
      Size = 10
    end
    object FileTmpsex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 2
    end
    object FileTmpoffice: TStringField
      FieldName = 'office'
      FixedChar = True
    end
    object FileTmpIDcard: TStringField
      FieldName = 'IDcard'
      FixedChar = True
    end
    object FileTmpdegree: TStringField
      FieldName = 'degree'
      FixedChar = True
      Size = 8
    end
    object FileTmpschool: TStringField
      FieldName = 'school'
      FixedChar = True
    end
    object FileTmpspecialty: TStringField
      FieldName = 'specialty'
      FixedChar = True
    end
    object FileTmpzylevel: TStringField
      FieldName = 'zylevel'
      FixedChar = True
      Size = 8
    end
    object FileTmpzysort: TStringField
      FieldName = 'zysort'
      FixedChar = True
      Size = 8
    end
    object FileTmpbound: TStringField
      FieldName = 'bound'
      FixedChar = True
    end
    object FileTmptitle: TStringField
      FieldName = 'title'
      FixedChar = True
    end
    object FileTmpzyzs: TStringField
      FieldName = 'zyzs'
      FixedChar = True
    end
    object FileTmpzc: TStringField
      FieldName = 'zc'
      FixedChar = True
      Size = 10
    end
    object FileTmpduty: TStringField
      FieldName = 'duty'
      FixedChar = True
      Size = 10
    end
    object FileTmpsideline: TStringField
      FieldName = 'sideline'
      FixedChar = True
    end
    object FileTmpzkzc: TStringField
      FieldName = 'zkzc'
      Size = 50
    end
    object FileTmpmztime: TDateTimeField
      FieldName = 'mztime'
    end
    object FileTmpremark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object FileTmpphoto: TStringField
      FieldName = 'photo'
      FixedChar = True
    end
    object FileTmpidh: TStringField
      FieldName = 'idh'
      FixedChar = True
      Size = 14
    end
    object FileTmpitem1: TStringField
      FieldName = 'item1'
      FixedChar = True
    end
    object FileTmpitem2: TStringField
      FieldName = 'item2'
      FixedChar = True
    end
    object FileTmpitem3: TStringField
      FieldName = 'item3'
      FixedChar = True
    end
    object FileTmpitem4: TStringField
      FieldName = 'item4'
      FixedChar = True
    end
  end
  object dsFileTmp: TDataSource
    DataSet = FileTmp
    Left = 64
    Top = 72
  end
  object FileQuery: TADOStoredProc
    Connection = ADOC
    ProcedureName = 'FileQuery;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@mbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@mxm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@msex'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@mks'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@mxl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@mjb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@mlb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@mzc'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@mzw'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@stim'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@etim'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end>
    Left = 112
    Top = 72
  end
  object Notes: TADOQuery
    Connection = ADOC
    Parameters = <
      item
        Name = 'mflag'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4
        Value = Null
      end
      item
        Name = 'midh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 14
        Value = Null
      end>
    SQL.Strings = (
      'select * from notes where flag like :mflag and idh=:midh')
    Left = 160
    Top = 72
    object Notessno: TAutoIncField
      FieldName = 'sno'
      ReadOnly = True
    end
    object Notesbh: TStringField
      FieldName = 'bh'
      FixedChar = True
      Size = 10
    end
    object Notesdat: TDateTimeField
      FieldName = 'dat'
    end
    object Notesnote: TMemoField
      FieldName = 'note'
      BlobType = ftMemo
    end
    object Notesidh: TStringField
      FieldName = 'idh'
      FixedChar = True
      Size = 14
    end
    object Notesflag: TStringField
      FieldName = 'flag'
      FixedChar = True
      Size = 4
    end
  end
  object dsNotes: TDataSource
    DataSet = Notes
    Left = 208
    Top = 72
  end
  object users: TADOQuery
    Connection = ADOC
    Parameters = <
      item
        Name = 'mbh'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end>
    SQL.Strings = (
      'select * from users where bh like :mbh order by bm,bh')
    Left = 264
    Top = 72
    object usersbh: TStringField
      FieldName = 'bh'
      FixedChar = True
      Size = 8
    end
    object usersxm: TStringField
      FieldName = 'xm'
      FixedChar = True
      Size = 12
    end
    object userssex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 2
    end
    object usersbm: TStringField
      FieldName = 'bm'
      FixedChar = True
      Size = 10
    end
    object userspsw: TStringField
      FieldName = 'psw'
    end
    object usersqx: TMemoField
      FieldName = 'qx'
      BlobType = ftMemo
    end
    object usersjb: TIntegerField
      FieldName = 'jb'
    end
  end
  object dsusers: TDataSource
    DataSet = users
    Left = 320
    Top = 72
  end
end