chain_data.~pas

delphi的一个开发实例

unit Chain_Data;

interface

uses
  SysUtils, Classes, Provider, DB, ADODB,IniFileS;

type
  Tfrm_Chain_Data = class(TDataModule)
    ADO_Connection: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    //function CheckRecord(strSql: string):Boolean;  //检查是否有符合条件的记录
    //function GetFieldValue(strSql: string):Variant;  //返回sql语句的字段值（一个）
    //function IsModify(DeltaDS: TClientDataSet; strFieldName: string): boolean;
    //function GetCurValue(DeltaDS: TClientDataSet; strFieldName: string): Variant;
    //function GetValue(DeltaDS: TClientDataSet; strFieldName: string;
    //GetValueType: TGetValueType): string;
    //procedure SetJQJ(strHPID: string; SL, DJ: double; Kind: string);
    protected
    //class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    //procedure SetFilter(Filter: OleVariant); safecall;
  public
    { Public declarations }
  end;

var
  frm_Chain_Data: Tfrm_Chain_Data;

implementation

uses Server_Connect, func;

{$R *.dfm}

procedure Tfrm_Chain_Data.DataModuleCreate(Sender: TObject);
var
    f: TIniFile;
    server,user,password,DBName,connstr: string;
    Myform:Tfrm_Server_Connect;
    i,icount,itemp,tep:integer;
begin
    try
        connstr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
        f:=TiniFile.Create(ExtractFilePath(paramstr(0))+'Web_Connect.ini');
        user:=f.ReadString('NetSetting','UserName','');
        DBName:=f.ReadString('NetSetting','DataBase_Name','');
        //********服务器名称解密码************
        try
          server:=f.ReadString('NetSetting','Server','000000');
          icount:=length(server) div 3;
          for i:=1 to icount do
          begin
              itemp:=strtoint(copy(server,(i-1)*3+1,3));
          end;
        except
          server:='000000';
        end;
        server:=Encrypt(server,'luersoft');
        //********服务器名称解密码************
        //********密码解密码************
        try
          password:=f.ReadString('NetSetting','Password','000000');
          icount:=length(password) div 3;
          for i:=1 to icount do
          begin
              itemp:=strtoint(copy(password,(i-1)*3+1,3));
          end;
        except
          password:='000000';
        end;
        password:=Encrypt(Password,'wisesoft');
        //********密码解密码***********

        connstr:=connstr+user;
        connstr:=connstr+';password='+password;
        //connstr:=connstr+';Initial Catalog=GD_Glasses;Data Source='+server;
        connstr:=connstr+';Initial Catalog='+DBName+';Data Source='+server;

        ADO_Connection.Connected:=false;
        ADO_Connection.ConnectionString:=connstr;
        ADO_Connection.Connected:=true;
    except
        MyForm:=Tfrm_Server_Connect.create(self);
        MyForm.ShowModal;
        Myform.Free;
        system.Halt;
    end;
end;

end.