data.dfm

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

object frm_Data: Tfrm_Data
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 7
  Top = 27
  Height = 580
  Width = 800
  object ADO_Connection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GD_GPS;Data Source=zzh'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 9
  end
  object DataSource_InForMation: TDataSource
    Left = 56
    Top = 67
  end
  object DataSource_Car: TDataSource
    DataSet = ADOQuery_Car
    Left = 169
    Top = 73
  end
  object ADOQuery1: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 152
    Top = 16
  end
  object ADOQuery_Photo: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 220
    Top = 16
  end
  object ADOQuery2: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Type]')
    Left = 48
    Top = 122
  end
  object DataSource_Type: TDataSource
    DataSet = ADOQuery_Type
    Left = 320
    Top = 75
  end
  object Data_Login: TDataSource
    DataSet = Query_Login
    Left = 48
    Top = 183
  end
  object Query_Login: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Login]')
    Left = 49
    Top = 181
  end
  object Data_Car_Check: TDataSource
    DataSet = Query_Car_Check
    Left = 153
    Top = 185
  end
  object Data_User_Type: TDataSource
    DataSet = Query_User_Type
    Left = 298
    Top = 193
  end
  object Data_User_Right: TDataSource
    DataSet = Query_User_Right
    Left = 426
    Top = 199
  end
  object Data_Charge: TDataSource
    DataSet = Query_Charge
    Left = 305
    Top = 131
  end
  object DataS_Pro_Car: TDataSource
    DataSet = StoredProc_Pro_Car
    Left = 321
    Top = 18
  end
  object Data_Back_Role: TDataSource
    DataSet = Query_Back_Role
    Left = 609
    Top = 75
  end
  object Data_Pro_Back_Role: TDataSource
    DataSet = StoredProc_Pro_Back_Role
    Left = 82
    Top = 251
  end
  object Data_Drive_Card: TDataSource
    DataSet = Query_Drive_Card
    Left = 433
    Top = 123
  end
  object Data_Drive_Card_Check_View: TDataSource
    DataSet = Query_Drive_Card_Check_View
    Left = 569
    Top = 137
  end
  object DataDrive_Card_Check: TDataSource
    DataSet = Query_Drive_Card_Check
    Left = 450
    Top = 16
  end
  object StoredProc_Pro_Drive_Card_Check_View: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Drive_Card_Check_View;1'
    Parameters = <>
    Left = 576
    Top = 192
  end
  object Data_Pro_Drive_Card_Check_View: TDataSource
    DataSet = StoredProc_Pro_Drive_Card_Check_View
    Left = 576
    Top = 192
  end
  object Data_Pro_Drive_Card: TDataSource
    DataSet = Stored_Pro_Drive_Card
    Left = 218
    Top = 248
  end
  object ADOCommand_Back: TADOCommand
    Connection = ADO_Connection
    Parameters = <>
    Left = 608
    Top = 16
  end
  object Data_Charge_Type: TDataSource
    DataSet = Query_Charge_Type
    Left = 450
    Top = 70
  end
  object Data_Mond_Information: TDataSource
    DataSet = Query_Mond_Information
    Left = 82
    Top = 308
  end
  object ADOQuery4: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car]')
    Left = 160
    Top = 130
  end
  object Data_Pro_Charge_View: TDataSource
    DataSet = StoredProc_Pro_Charge_View
    Left = 608
    Top = 304
  end
  object Data_Car_Bad: TDataSource
    DataSet = Query_Car_Bad
    Left = 713
    Top = 89
  end
  object Data_Pro_Car_Bad_View: TDataSource
    DataSet = StoredProc_Pro_Car_Bad_View
    Left = 688
    Top = 253
  end
  object Data_Car_Change: TDataSource
    DataSet = Query_Car_Change
    Left = 354
    Top = 255
  end
  object DataSPro_Car_Change_View: TDataSource
    DataSet = StoredProc_Pro_Car_Change_View
    Left = 408
    Top = 312
  end
  object StoredProc_Pro_Car_Bad_View: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Car_Bad_View;1'
    Parameters = <>
    Left = 689
    Top = 254
  end
  object StoredProc_Pro_Car_Change_View: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Car_Change_View;1'
    Parameters = <>
    Left = 408
    Top = 312
  end
  object StoredProc_Pro_Charge_View: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Charge_View;1'
    Parameters = <>
    Left = 610
    Top = 304
  end
  object Query_Car_Change: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car_Change]')
    Left = 353
    Top = 254
  end
  object ADOQuery_InForMation: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [InForMation]')
    Left = 56
    Top = 66
  end
  object Query_Car_Check: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car_Check_View]')
    Left = 152
    Top = 187
  end
  object Query_User_Type: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [User_Type]')
    Left = 297
    Top = 192
  end
  object Query_User_Right: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [User_Right]')
    Left = 425
    Top = 200
  end
  object StoredProc_Pro_Back_Role: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Back_Role;1'
    Parameters = <>
    Left = 80
    Top = 252
  end
  object Stored_Pro_Drive_Card: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Drive_Card;1'
    Parameters = <>
    Left = 216
    Top = 248
  end
  object Query_Mond_Information: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Mond_Information]')
    Left = 81
    Top = 308
  end
  object ADOCommand_HF: TADOCommand
    Connection = ADO_Connection
    Parameters = <>
    Left = 712
    Top = 16
  end
  object ADOQuery_Car: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [car]')
    Left = 168
    Top = 72
  end
  object ADOQuery_Type: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Type]')
    Left = 320
    Top = 72
  end
  object StoredProc_Pro_Car: TADOStoredProc
    Connection = ADO_Connection
    CursorType = ctStatic
    ProcedureName = 'Pro_Car;1'
    Parameters = <>
    Left = 320
    Top = 16
  end
  object Query_Drive_Card_Check: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Drive_Card]')
    Left = 449
    Top = 14
  end
  object Query_Charge_Type: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Charge_Type]')
    Left = 449
    Top = 70
  end
  object Query_Charge: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Charge]')
    Left = 305
    Top = 136
  end
  object Query_Back_Role: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Back_Role]')
    Left = 609
    Top = 80
  end
  object Query_Drive_Card: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Drive_Card]')
    Left = 433
    Top = 120
  end
  object Query_Drive_Card_Check_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Drive_Card_Check_View]')
    Left = 569
    Top = 134
  end
  object Query_Car_Bad: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car_Bad]')
    Left = 713
    Top = 86
  end
  object DataS_Car_Check_View: TDataSource
    DataSet = Query_Car_Check_View
    Left = 529
    Top = 252
  end
  object Query_Car_Check_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 528
    Top = 252
  end
  object DataS_Charge_View: TDataSource
    DataSet = Query_Charge_View
    Left = 226
    Top = 316
  end
  object Query_Charge_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Charge_View]')
    Left = 225
    Top = 316
  end
  object ADOQuery3: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car]')
    Left = 232
    Top = 130
  end
  object DataS_Car_Change_View: TDataSource
    Left = 210
    Top = 365
  end
  object Query_Car_Change_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car_Change_View]')
    Left = 209
    Top = 364
  end
  object DataS_Car_Bad_View: TDataSource
    DataSet = Query_Car_Bad_View
    Left = 64
    Top = 376
  end
  object Query_Car_Bad_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Car_Bad_View]')
    Left = 64
    Top = 375
  end
  object DataS_Back_Role_View: TDataSource
    DataSet = Query_Back_Role_View
    Left = 424
    Top = 376
  end
  object Query_Back_Role_View: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from [Back_Role_View]')
    Left = 424
    Top = 376
  end
  object DataS_Charge_Name: TDataSource
    DataSet = Query_Charge_Name
    Left = 616
    Top = 360
  end
  object Query_Charge_Name: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    SQL.Strings = (
      'select * from [Charge_Name]')
    Left = 560
    Top = 400
  end
  object Query_Stored: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 200
    Top = 432
  end
end