data.pas

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

unit Data;

interface

uses
  
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB,Inifiles;
type
  Tfrm_Data = class(TDataModule)
    ADO_Connection: TADOConnection;
    DataSource_InForMation: TDataSource;
    DataSource_Car: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery_Photo: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource_Type: TDataSource;
    Data_Login: TDataSource;
    Query_Login: TADOQuery;
    Data_Car_Check: TDataSource;
    Data_User_Type: TDataSource;
    Data_User_Right: TDataSource;
    Data_Charge: TDataSource;
    DataS_Pro_Car: TDataSource;
    Data_Back_Role: TDataSource;
    Data_Pro_Back_Role: TDataSource;
    Data_Drive_Card: TDataSource;
    Data_Drive_Card_Check_View: TDataSource;
    DataDrive_Card_Check: TDataSource;
    StoredProc_Pro_Drive_Card_Check_View: TADOStoredProc;
    Data_Pro_Drive_Card_Check_View: TDataSource;
    Data_Pro_Drive_Card: TDataSource;
    ADOCommand_Back: TADOCommand;
    Data_Charge_Type: TDataSource;
    Data_Mond_Information: TDataSource;
    ADOQuery4: TADOQuery;
    Data_Pro_Charge_View: TDataSource;
    Data_Car_Bad: TDataSource;
    Data_Pro_Car_Bad_View: TDataSource;
    Data_Car_Change: TDataSource;
    DataSPro_Car_Change_View: TDataSource;
    StoredProc_Pro_Car_Bad_View: TADOStoredProc;
    StoredProc_Pro_Car_Change_View: TADOStoredProc;
    StoredProc_Pro_Charge_View: TADOStoredProc;
    Query_Car_Change: TADOQuery;
    ADOQuery_InForMation: TADOQuery;
    Query_Car_Check: TADOQuery;
    Query_User_Type: TADOQuery;
    Query_User_Right: TADOQuery;
    StoredProc_Pro_Back_Role: TADOStoredProc;
    Stored_Pro_Drive_Card: TADOStoredProc;
    Query_Mond_Information: TADOQuery;
    ADOCommand_HF: TADOCommand;
    ADOQuery_Car: TADOQuery;
    ADOQuery_Type: TADOQuery;
    StoredProc_Pro_Car: TADOStoredProc;
    Query_Drive_Card_Check: TADOQuery;
    Query_Charge_Type: TADOQuery;
    Query_Charge: TADOQuery;
    Query_Back_Role: TADOQuery;
    Query_Drive_Card: TADOQuery;
    Query_Drive_Card_Check_View: TADOQuery;
    Query_Car_Bad: TADOQuery;
    DataS_Car_Check_View: TDataSource;
    Query_Car_Check_View: TADOQuery;
    DataS_Charge_View: TDataSource;
    Query_Charge_View: TADOQuery;
    ADOQuery3: TADOQuery;
    DataS_Car_Change_View: TDataSource;
    Query_Car_Change_View: TADOQuery;
    DataS_Car_Bad_View: TDataSource;
    Query_Car_Bad_View: TADOQuery;
    DataS_Back_Role_View: TDataSource;
    Query_Back_Role_View: TADOQuery;
    DataS_Charge_Name: TDataSource;
    Query_Charge_Name: TADOQuery;
    Query_Stored: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  frm_Data: Tfrm_Data;

implementation

uses Connect;

{$R *.dfm}

procedure Tfrm_Data.DataModuleCreate(Sender: TObject);
var
    f: TIniFile;
    server,user,password,connstr: string;
    Myform:Tfrm_Connect;
    tep:integer;
begin
    screen.Cursor:=crHourGlass;
    try
        connstr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
        f:=TiniFile.Create(ExtractFilePath(paramstr(0))+'Connect.ini');
        server:=f.ReadString('NetSetting','Server','');
        user:=f.ReadString('NetSetting','UserName','');
        try
          password:=f.ReadString('NetSetting','Password','');
        except
          password:='';
        end;
        connstr:=connstr+user;
        connstr:=connstr+';password='+password;
        connstr:=connstr+';Initial Catalog=Gd_GPS;Data Source='+server;

        ADO_Connection.Connected:=false;
        ADO_Connection.ConnectionString:=connstr;
        ADO_Connection.Connected:=true;

    except
        screen.Cursor := crArrow;
        MyForm:=Tfrm_Connect.create(self);
        MyForm.ShowModal;
        Myform.Free;
        system.Halt;
    end;
end;

end.