datamodule1.dfm

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

object DM: TDM
  OldCreateOrder = False
  Left = 453
  Top = 172
  Height = 508
  Width = 734
  object Database1: TDatabase
    AliasName = 'SSData'
    DatabaseName = 'SSData'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME=zhaowei'
      'ODBC DSN=SSData'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=888')
    SessionName = 'Default'
    Left = 16
    Top = 8
  end
  object TBWorker_L: TTable
    DatabaseName = 'SSTemp'
    TableName = 'worker.DB'
    Left = 16
    Top = 202
  end
  object CSShu: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Host = '192.168.0.1'
    Port = 100
    Left = 96
    Top = 8
  end
  object qryKaoqin: TQuery
    DatabaseName = 'SSData'
    RequestLive = True
    SQL.Strings = (
      'Select * from Kaoqin')
    Left = 16
    Top = 332
  end
  object DSKaoqin: TDataSource
    DataSet = qryKaoqin
    Left = 16
    Top = 267
  end
  object DSWorker: TDataSource
    DataSet = qryWorker
    Left = 16
    Top = 72
  end
  object TBSysParams_L: TTable
    DatabaseName = 'SSTemp'
    TableName = 'system.DB'
    Left = 92
    Top = 202
  end
  object TBJiangFa: TTable
    DatabaseName = 'SSData'
    TableName = 'dbo.JiangFa'
    Left = 168
    Top = 137
  end
  object TBIP: TTable
    DatabaseName = 'SSData'
    TableName = 'dbo.IPAddress'
    Left = 244
    Top = 136
  end
  object qryShoushi: TQuery
    DatabaseName = 'SSData'
    RequestLive = True
    SQL.Strings = (
      'select * from shoushilv')
    Left = 92
    Top = 332
  end
  object DSShoushi: TDataSource
    DataSet = qryShoushi
    Left = 92
    Top = 267
  end
  object DSSYsparams: TDataSource
    Left = 92
    Top = 72
  end
  object qryApply: TQuery
    DatabaseName = 'SSData'
    SQL.Strings = (
      'select * from applyNotebook')
    Left = 168
    Top = 332
  end
  object TBBBS: TTable
    DatabaseName = 'SSData'
    TableName = 'dbo.BBS'
    Left = 320
    Top = 137
  end
  object TBDepart_L: TTable
    DatabaseName = 'SSTemp'
    TableName = 'Department.db'
    Left = 168
    Top = 202
  end
  object qryWorker: TQuery
    DatabaseName = 'SSData'
    RequestLive = True
    SQL.Strings = (
      'Select * from Worker')
    Left = 244
    Top = 332
  end
  object qryPrize: TQuery
    DatabaseName = 'SSData'
    SQL.Strings = (
      'Select * from prize')
    Left = 320
    Top = 332
  end
  object qryInvoice: TQuery
    DatabaseName = 'SSData'
    SQL.Strings = (
      'Select * from invoice')
    Left = 400
    Top = 331
  end
  object DSInvoice: TDataSource
    DataSet = qryInvoice
    Left = 400
    Top = 272
  end
  object DSPrize: TDataSource
    DataSet = qryPrize
    Left = 320
    Top = 272
  end
  object qryJiangFa: TQuery
    DatabaseName = 'SSData'
    SQL.Strings = (
      'select * from Jiangfa')
    Left = 480
    Top = 328
  end
  object DSJiangFa: TDataSource
    DataSet = qryJiangFa
    Left = 480
    Top = 272
  end
  object qryTicheng: TQuery
    DatabaseName = 'SSData'
    SQL.Strings = (
      'select * from ticheng')
    Left = 560
    Top = 328
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=888;Persist Security Info=True;User' +
      ' ID=zhaowei;Initial Catalog=SuShi;Data Source=JSCS23;Use Procedu' +
      're for Prepare=1;Auto Translate=True;Packet Size=4096;Workstatio' +
      'n ID=JSCS23;Use Encryption for Data=False;Tag with column collat' +
      'ion when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 176
    Top = 8
  end
  object TBWorker: TADOTable
    Connection = ADOConnection1
    TableName = 'Worker'
    Left = 16
    Top = 144
  end
  object ADOTable1: TADOTable
    Left = 88
    Top = 144
  end
end