datamodle.dfm

停车场用

object PDataModule: TPDataModule
  OldCreateOrder = False
  Left = 17
  Top = 258
  Height = 608
  Width = 808
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=ParkDB;Data Source=(local);Use Procedure for Prepare=' +
      '1;Auto Translate=True;Packet Size=4096;Workstation ID=WANGQIANG'
    ConnectionTimeout = 5
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 216
    Top = 8
  end
  object BusInDataSource: TDataSource
    DataSet = ADOQueryBusIn
    Left = 32
    Top = 16
  end
  object ADOQueryBusIn: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from BusIn')
    Left = 128
    Top = 8
  end
  object MBusSetDataSource: TDataSource
    DataSet = MBusSetADOTable
    Left = 40
    Top = 64
  end
  object MBusSetADOTable: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'BusType'
    Left = 128
    Top = 64
    object MBusSetADOTableID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object MBusSetADOTableTypeName: TStringField
      FieldName = 'TypeName'
      Size = 16
    end
  end
  object DataSource_BusColor: TDataSource
    DataSet = ADOTable__BusColor
    Left = 48
    Top = 120
  end
  object ADOTable__BusColor: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'BusColor'
    Left = 128
    Top = 120
  end
  object ADOTable__CardCode: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'TakeCardNo'
    Left = 128
    Top = 184
  end
  object DataSource_CardCode: TDataSource
    DataSet = ADOTable__CardCode
    Left = 48
    Top = 176
  end
  object DataSource_PassWord: TDataSource
    DataSet = ADOTable__PassWord
    Left = 48
    Top = 232
  end
  object ADOTable__PassWord: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = ADOTable__PassWordBeforePost
    TableName = 'PassWord'
    Left = 144
    Top = 232
    object ADOTable__PassWordID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable__PassWordWorkNo: TStringField
      FieldName = 'WorkNo'
      Size = 12
    end
    object ADOTable__PassWordName: TStringField
      FieldName = 'Name'
      Size = 16
    end
    object ADOTable__PassWordPassWord: TStringField
      FieldName = 'PassWord'
      EditMask = '********'
      FixedChar = True
      Size = 10
    end
    object ADOTable__PassWordOptScope: TStringField
      FieldName = 'OptScope'
    end
    object ADOTable__PassWordPLevel: TStringField
      FieldName = 'PLevel'
    end
  end
  object ADOQueryPW: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'tmpName'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = Null
      end
      item
        Name = 'tmpPassWord'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from PassWord where Name =:tmpName and PassWord =:tmpPa' +
        'ssWord'
      ' ')
    Left = 128
    Top = 296
  end
  object DataSourcePW: TDataSource
    DataSet = ADOQueryPW
    Left = 56
    Top = 288
  end
  object ADOQuery_PassWMid: TADOQuery
    Connection = ADOConnection
    Parameters = <
      item
        Name = 'tmpName'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = Null
      end
      item
        Name = 'tmpPassWord'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from PassWord where Name=:tmpName and PassWord=:tmpPass' +
        'Word')
    Left = 128
    Top = 344
  end
  object DataSource_PassWMid: TDataSource
    DataSet = ADOQuery_PassWMid
    Left = 56
    Top = 344
  end
  object ADOCommand: TADOCommand
    Connection = ADOConnection
    Parameters = <>
    Left = 288
    Top = 8
  end
  object ADOQuery_CardReg: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from Employee')
    Left = 304
    Top = 64
    object ADOQuery_CardRegID: TBCDField
      FieldName = 'ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADOQuery_CardRegUserName: TStringField
      FieldName = 'UserName'
      Size = 30
    end
    object ADOQuery_CardRegCardNo: TStringField
      FieldName = 'CardNo'
      Size = 16
    end
    object ADOQuery_CardRegUserType: TStringField
      FieldName = 'UserType'
      Size = 16
    end
    object ADOQuery_CardRegBusNo: TStringField
      FieldName = 'BusNo'
      Size = 16
    end
    object ADOQuery_CardRegBusMode: TStringField
      FieldName = 'BusMode'
    end
    object ADOQuery_CardRegBusColor: TStringField
      FieldName = 'BusColor'
      Size = 16
    end
    object ADOQuery_CardRegBeginDate: TDateTimeField
      FieldName = 'BeginDate'
    end
    object ADOQuery_CardRegEndDate: TDateTimeField
      FieldName = 'EndDate'
    end
    object ADOQuery_CardRegTel: TStringField
      FieldName = 'Tel'
    end
    object ADOQuery_CardRegAddr: TStringField
      FieldName = 'Addr'
      Size = 36
    end
    object ADOQuery_CardRegBusPhoto: TStringField
      FieldName = 'BusPhoto'
      Size = 50
    end
    object ADOQuery_CardRegReMark: TStringField
      FieldName = 'ReMark'
      Size = 100
    end
    object ADOQuery_CardRegBusType: TStringField
      FieldName = 'BusType'
      Size = 16
    end
    object ADOQuery_CardRegCardPayPrice: TBCDField
      FieldName = 'CardPayPrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_CardRegCardPparePrice: TBCDField
      FieldName = 'CardPparePrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_CardRegBusSeat: TStringField
      FieldName = 'BusSeat'
      Size = 16
    end
    object ADOQuery_CardRegOpertion: TStringField
      FieldName = 'Opertion'
      Size = 16
    end
    object ADOQuery_CardRegCardState: TStringField
      FieldName = 'CardState'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource_CardReg: TDataSource
    DataSet = ADOQuery_CardReg
    Left = 224
    Top = 64
  end
  object DataSource_UType: TDataSource
    DataSet = ADOTable__UType
    Left = 232
    Top = 120
  end
  object ADOTable__UType: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'UserType'
    Left = 312
    Top = 120
  end
  object DataSource_Company: TDataSource
    DataSet = ADOQuery_Company
    Left = 256
    Top = 176
  end
  object ADOQuery_Company: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Company')
    Left = 352
    Top = 176
  end
  object DataSource_PriceMode: TDataSource
    DataSet = ADOQuery__PriceMode
    Left = 264
    Top = 240
  end
  object ADOQuery__PriceMode: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from PriceMode')
    Left = 352
    Top = 240
  end
  object ADOQuery_Price: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Price')
    Left = 328
    Top = 296
  end
  object DataSource_Price: TDataSource
    DataSet = ADOQuery_Price
    Left = 240
    Top = 296
  end
  object ADOQuery__BusRecord: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from BusRecord')
    Left = 384
    Top = 344
  end
  object DataSource_BusRecord: TDataSource
    DataSet = ADOQuery__BusRecord
    Left = 248
    Top = 344
  end
  object DataSource_CardType: TDataSource
    DataSet = ADOTable__CardType
    Left = 56
    Top = 400
  end
  object ADOTable__CardType: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'CardType'
    Left = 136
    Top = 400
  end
  object ADOQuery_Employee: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Employee')
    Left = 344
    Top = 400
    object ADOQuery_EmployeeID: TBCDField
      FieldName = 'ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADOQuery_EmployeeUserName: TStringField
      FieldName = 'UserName'
      Size = 30
    end
    object ADOQuery_EmployeeCardNo: TStringField
      FieldName = 'CardNo'
      Size = 16
    end
    object ADOQuery_EmployeeCardNew: TStringField
      FieldName = 'CardNew'
      FixedChar = True
      Size = 10
    end
    object ADOQuery_EmployeeUserType: TStringField
      FieldName = 'UserType'
      Size = 16
    end
    object ADOQuery_EmployeeBusNo: TStringField
      FieldName = 'BusNo'
      Size = 16
    end
    object ADOQuery_EmployeeBusMode: TStringField
      FieldName = 'BusMode'
    end
    object ADOQuery_EmployeeBusColor: TStringField
      FieldName = 'BusColor'
      Size = 16
    end
    object ADOQuery_EmployeeBeginDate: TDateTimeField
      FieldName = 'BeginDate'
    end
    object ADOQuery_EmployeeEndDate: TDateTimeField
      FieldName = 'EndDate'
    end
    object ADOQuery_EmployeeCardChangeDate: TDateTimeField
      FieldName = 'CardChangeDate'
    end
    object ADOQuery_EmployeeCardNowDate: TDateTimeField
      FieldName = 'CardNowDate'
    end
    object ADOQuery_EmployeeCardTakeBackDate: TDateTimeField
      FieldName = 'CardTakeBackDate'
    end
    object ADOQuery_EmployeeResetDate: TDateTimeField
      FieldName = 'ResetDate'
    end
    object ADOQuery_EmployeeCardLostDate: TDateTimeField
      FieldName = 'CardLostDate'
    end
    object ADOQuery_EmployeeCardDelDate: TDateTimeField
      FieldName = 'CardDelDate'
    end
    object ADOQuery_EmployeeAddPriceDate: TDateTimeField
      FieldName = 'AddPriceDate'
    end
    object ADOQuery_EmployeeNewDate: TDateTimeField
      FieldName = 'NewDate'
    end
    object ADOQuery_EmployeeIdCard: TStringField
      FieldName = 'IdCard'
      Size = 18
    end
    object ADOQuery_EmployeeTel: TStringField
      FieldName = 'Tel'
    end
    object ADOQuery_EmployeeAddr: TStringField
      FieldName = 'Addr'
      Size = 36
    end
    object ADOQuery_EmployeeBusPhoto: TStringField
      FieldName = 'BusPhoto'
      Size = 50
    end
    object ADOQuery_EmployeeReMark: TStringField
      FieldName = 'ReMark'
      Size = 100
    end
    object ADOQuery_EmployeeBusType: TStringField
      FieldName = 'BusType'
      Size = 16
    end
    object ADOQuery_EmployeeCardPayPrice: TBCDField
      FieldName = 'CardPayPrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_EmployeeCardReturnPrice: TBCDField
      FieldName = 'CardReturnPrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_EmployeeAddPrice: TBCDField
      FieldName = 'AddPrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_EmployeePayPrice: TBCDField
      FieldName = 'PayPrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_EmployeeCardPparePrice: TBCDField
      FieldName = 'CardPparePrice'
      Precision = 18
      Size = 2
    end
    object ADOQuery_EmployeeBusSeat: TStringField
      FieldName = 'BusSeat'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionGono: TStringField
      FieldName = 'OpertionGono'
      Size = 16
    end
    object ADOQuery_EmployeeOPertionAdd: TStringField
      FieldName = 'OPertionAdd'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionBk: TStringField
      FieldName = 'OpertionBk'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionChange: TStringField
      FieldName = 'OpertionChange'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionDel: TStringField
      FieldName = 'OpertionDel'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionReSet: TStringField
      FieldName = 'OpertionReSet'
      Size = 16
    end
    object ADOQuery_EmployeeOpertionLost: TStringField
      FieldName = 'OpertionLost'
      Size = 16
    end
    object ADOQuery_EmployeeOpertion: TStringField
      FieldName = 'Opertion'
      Size = 16
    end
    object ADOQuery_EmployeeCardState: TStringField
      FieldName = 'CardState'
      FixedChar = True
      Size = 10
    end
    object ADOQuery_EmployeeCardType: TStringField
      FieldName = 'CardType'
      Size = 16
    end
    object ADOQuery_EmployeeCardGoonDate: TDateTimeField
      FieldName = 'CardGoonDate'
    end
  end
  object DataSource_Employee: TDataSource
    DataSet = ADOQuery_Employee
    Left = 248
    Top = 400
  end
end