dm.pas

路灯控制 可以实现路灯远程开关等

unit DM;

interface

uses
  SysUtils, Classes, DB, ADODB,forms,dialogs;

type
  TDataModule1 = class(TDataModule)
    ADOCON: TADOConnection;
    ADO_YH: TADOQuery;
    ADO_SB: TADOQuery;
    ADO_MNTD: TADOQuery;
    ADO_SZTD: TADOQuery;
    ADO_KZTD: TADOQuery;
    ADO_SJ1: TADOQuery;
    ADO_SJ2: TADOQuery;
    ADO_log: TADOQuery;
    ADO_BC1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
   function password(Str:string):string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
connstr:string;
Str,pass:string;
begin
 Str:='1224';
 pass:=password(str);
Connstr:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                           'Data Source='+ExtractFilePath(Application.ExeName)+'\date\db1.mdb;'+
                           'Persist Security Info=False;'+
                           'Jet OLEDB:Database Password="'+pass+'"';//   加入密码
 try
   if ADOCon.Connected then
      ADOCon.Connected:=False;
      ADOCon.ConnectionString:=connStr;
      ADOCon.Open;
  except
    Showmessage('数据库连接出错');
    exit;
  end;


end;

Function TDataModule1.password(Str:String):string;
var
 s:string;
 i,len,m,sum:integer;
begin
 sum:=1314;
 len:=length(str);
 for i:=1 to len do
 begin
 s:=copy(str,i,1);
 m:=strtoint(s);
 sum:=m xor sum;
 end;
 result:=inttohex(sum,8);
end;

end.