data.dfm

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

object DM: TDM
  OldCreateOrder = False
  Left = 49
  Top = 119
  Height = 424
  Width = 698
  object ADOCon: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 344
  end
  object ADOTAdminList: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 'AdminList'
    Left = 384
    Top = 72
    object ADOTAdminListadLoginName: TWideStringField
      DisplayLabel = #30331#24405#21517
      FieldName = 'adLoginName'
      Size = 10
    end
    object ADOTAdminListadPassword: TIntegerField
      DisplayLabel = #30331#24405#21475#20196
      FieldName = 'adPassword'
    end
    object ADOTAdminListadName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'adName'
      Size = 10
    end
    object ADOTAdminListadSex: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'adSex'
      Size = 2
    end
    object ADOTAdminListpopedom: TSmallintField
      DisplayLabel = #31649#29702#26435#38480
      FieldName = 'popedom'
    end
    object ADOTAdminListsysSetup: TBooleanField
      DisplayLabel = #31995#32479#35774#32622#26435#38480
      FieldName = 'sysSetup'
    end
    object ADOTAdminListfillTime: TBooleanField
      DisplayLabel = #20805#20540#26435#38480
      FieldName = 'fillTime'
    end
    object ADOTAdminListaward: TBooleanField
      DisplayLabel = #22870#21169#26435#38480
      FieldName = 'award'
    end
    object ADOTAdminListonline: TBooleanField
      DisplayLabel = #19978#19979#26426#31649#29702#26435#38480
      FieldName = 'online'
    end
    object ADOTAdminListmember: TBooleanField
      DisplayLabel = #21345#21495#31649#29702#26435#38480
      FieldName = 'member'
    end
  end
  object ADOTSysSetup: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 'SysSetup'
    Left = 192
    Top = 72
  end
  object DSMember: TDataSource
    DataSet = ADOQMember
    Left = 24
    Top = 16
  end
  object DSClass: TDataSource
    DataSet = ADOQClass
    Left = 296
    Top = 16
  end
  object DSAdminList: TDataSource
    DataSet = ADOTAdminList
    Left = 384
    Top = 16
  end
  object DSSysSetup: TDataSource
    DataSet = ADOTSysSetup
    Left = 192
    Top = 16
  end
  object DSOnlineNote: TDataSource
    DataSet = ADOQOnlineNote
    Left = 112
    Top = 16
  end
  object DSCurOnline: TDataSource
    DataSet = ADOQCurOnline
    Left = 480
    Top = 16
  end
  object ADOQGetNote: TADOQuery
    Connection = ADOCon
    Parameters = <
      item
        Name = '@startDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@endDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from OnlineNote '
      'where upDate between @startDate and @endDate')
    Left = 112
    Top = 128
  end
  object ADOQMember: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Filter = #26377#25928#26631#24535'=True'
    Parameters = <>
    SQL.Strings = (
      'select stuNo as '#21345#21495', stuName as '#22995#21517', stuSex as '#24615#21035', stuClass as '#29677#32423','
      
        '  stuLoginDate as '#27880#20876#26085#26399', stuUnLoginDate as '#25764#27880#26085#26399', stuValidity as '#26377 +
        #25928#26631#24535','
      '  stuPrepTime as '#39044#23384#26426#26102', stuAllUsedTime as '#20849#29992#26426#26102', stuMemo as '#22791#27880
      'from UserList'
      ''
      'order by stuNo')
    Left = 24
    Top = 72
  end
  object ADOQCurOnline: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select CurOnline.stuNo as '#21345#21495',[upDate] as '#19978#26426#26085#26399',CStr(upTime) as '#19978#26426 +
        #26102#38388','
      'stuName as '#22995#21035',stuSex as '#24615#21035',stuClass as '#29677#32423',stuPrepTime as '#39044#23384#26426#26102
      'from CurOnline,UserList'
      'where CurOnline.stuNo=UserList.stuNo')
    Left = 480
    Top = 72
  end
  object ADOCmdInsertOnlineNote: TADOCommand
    CommandText = 
      'INSERT INTO '#13#10'OnlineNote (stuNo, [upDate], upTime, downDate, dow' +
      'nTime, usedTime, orderlyMan)'#13#10'VALUES (@stuNo,@upDate,@upTime,@do' +
      'wnDate,@downTime,@usedTime,@orderlyMan)'
    Connection = ADOCon
    Parameters = <
      item
        Name = '@stuNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@upDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@upTime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@downDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@downTime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@usedTime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@orderlyMan'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 112
    Top = 184
  end
  object ADOCmdDelete: TADOCommand
    CommandText = 'DELETE FROM CurOnline WHERE stuNo=@stuNo'
    Connection = ADOCon
    Parameters = <
      item
        Name = '@stuNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 480
    Top = 189
  end
  object ADOCmdUpdate: TADOCommand
    CommandText = 
      'UPDATE UserList'#13#10'SET stuPrepTime= stuPrepTime-@usedTime, stuAllU' +
      'sedTime=stuAllUsedTime+@usedTime'#13#10'WHERE stuNo=@stuNo'
    Connection = ADOCon
    Parameters = <
      item
        Name = '@usedTime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@stuNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 24
    Top = 245
  end
  object ADOCmdAppend: TADOCommand
    CommandText = 
      'INSERT INTO CurOnline(stuNo,[upDate],upTime)'#13#10'VALUES(@stuNo,@upD' +
      'ate,@upTime)'
    Connection = ADOCon
    Parameters = <
      item
        Name = '@stuNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@upDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@upTime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 480
    Top = 240
  end
  object ADOQOnlineNote: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ID as '#32534#21495',stuNo as '#21345#21495',[upDate]+upTime as '#19978#26426#26102#38388',downDate+dow' +
        'nTime as '#19979#26426#26102#38388',usedTime as '#25152#29992#26426#26102',orderlyMan as '#20540#29677#20154#21592' from OnlineNot' +
        'e'
      ''
      'order by [upDate],upTime')
    Left = 112
    Top = 72
  end
  object ADOQFillValue: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ID as '#32534#21495',stuNo as '#21345#21495',fillDate as '#20805#20540#26085#26399',fillTime as '#20805#20540#26426#26102',fi' +
        'llMoney as '#20805#20540#37329#39069',orderlyMan as '#20540#29677#20154#21592' from FillNote'
      ''
      'order by ID')
    Left = 576
    Top = 72
  end
  object DSFillValue: TDataSource
    DataSet = ADOQFillValue
    Left = 576
    Top = 16
  end
  object ADOQAward: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select ID as '#32534#21495', stuNo as '#21345#21495', AType as '#31867#22411', ADate as '#22870#32602#26085#26399','
      '  ATime as '#22870#32602#26426#26102', AReason as '#22870#32602#21407#22240', AMemo as '#22791#27880
      'from Award INNER JOIN AwardItem'
      'on Award.awardNo = AwardItem.AwardNo')
    Left = 320
    Top = 328
  end
  object DSAward: TDataSource
    DataSet = ADOQAward
    Left = 392
    Top = 328
  end
  object ADOCmdAward: TADOCommand
    Connection = ADOCon
    Parameters = <>
    Left = 248
    Top = 328
  end
  object ADOCmdInsertAwardItem: TADOCommand
    CommandText = 
      'INSERT INTO AwardItem (AType, ADate, AReason, ATime, AMemo) VALU' +
      'ES (@AType,@ADate,@AReason,@Atime,@AMemo)'
    Connection = ADOCon
    Parameters = <
      item
        Name = '@AType'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@ADate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@AReason'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@Atime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@AMemo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 456
    Top = 328
  end
  object ADOQFindMember: TADOQuery
    Connection = ADOCon
    Parameters = <
      item
        Name = '@stuNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from UserList where stuNo=@stuNo')
    Left = 24
    Top = 128
  end
  object ADOQClass: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select clsName from ClassList order by clsName')
    Left = 296
    Top = 72
    object ADOQClassclsName: TWideStringField
      DisplayLabel = #29677#32423#21517
      FieldName = 'clsName'
    end
  end
end