盒子论坛 v2.1

比如我服务器是

IP：192.168.0.2

数据库名为：sq_chujoy

数据库用户名为：sq_chujoy

数据库密码为:123456

数据库表名为：cdb_members

论坛用户名为：admin

论坛密码为：12456

下面代码应该怎么改啊~??用于登陆论坛成功后用弹出对话框用的~

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBXpress, DB, SqlExpr, FMTBcd, Grids, IdHashMessageDigest,
  IdGlobal, IdHash;

type
  TForm1 = class(TForm)
    Button1: TButton;
    SQLQuery1: TSQLQuery;
    SQLConnection1: TSQLConnection;
    Label1: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Connection: TSQLConnection;

implementation

uses md5;

//uses mysql;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  {SQLConnection1 := TSQLConnection.Create(nil);
  SQLConnection1.DriverName := 'dbxmysql';
  SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50';
  SQLConnection1.LibraryName := 'dbxopenmysql50.dll';
  SQLConnection1.VendorLib := 'libmysql.dll';
  SQLConnection1.LoginPrompt := false;}
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  user, pwd: string;
  MyMD5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
  //i,j:integer;
begin
  user := Edit1.Text;
  pwd := Edit2.Text;
  {md5密码}
  MyMD5 := TIdHashMessageDigest5.Create;
  Digest := MyMD5.HashValue(pwd);
  pwd := MyMD5.AsHex(Digest);
  {md5密码}
  SQLConnection1.Params.Append('Database=');
  SQLConnection1.Params.Append('User_Name=');
  SQLConnection1.Params.Append('Password=');
  SQLConnection1.Params.Append('HostName=');
  SQLConnection1.Open;
  if SQLConnection1.Connected = true then
    Label1.Caption := 'success'
  else
    Label1.Caption := 'fail';
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.add('SET NAMES GBK');
  SQLQuery1.ExecSQL;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * from xyxusers where username=:username and userpwd=:pwd');
  SQLQuery1.Params.ParamByName('username').Value := user;
  SQLQuery1.Params.ParamByName('pwd').Value := pwd;
  SQLQuery1.Active := true;
  if not SQLQuery1.IsEmpty then
  begin
    ShowMessage('登陆成功');
  end
  else
    ShowMessage('登陆失败');
  // i := 0;
   {SQLQuery1.First;
   while not SQLQuery1.eof do
   begin

     for j := 0 to SQLQuery1.FieldCount - 1 do
       StringGrid1.cells[j + 1, i + 1] := SQLQuery1.Fields[j].AsString;
     Memo1.Lines.Add(SQLQuery1.FieldValues['card']);
     SQLQuery1.next;
     inc(i);
   end;}
  SQLQuery1.Active := false;
  SQLConnection1.Close;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if SQLConnection1.Connected = true then
    SQLConnection1.Close;
  SQLConnection1.Free;
end;

end.
----------------------------------------------
我只爱你7777777

作者：

qinzusong (qzs)	★☆☆☆☆	-
	盒子活跃会员

2009/12/4 17:21:23

1楼：

    myini:=tinifile.Create(getcurrentdir+'\Config.ini');

    servername:=myini.ReadString('Masserver','SERVER','');
    sever:=servername;          //本地数据库服务器名称/ip
    datebase:='mas';          //本地数据库名称
    ouse_id:=myini.ReadString('Masserver','User','');          //本地数据库登陆用户
    ouse_id:=trim(VarToStr(CnDes.DESDecryptStrFromHex(Trim(ouse_id),sConst.sMaskWord)));
    psw:=myini.ReadString('Masserver','PSW','');          //提取密码串
    psw:=trim(VarToStr(CnDes.DESDecryptStrFromHex(Trim(psw),sConst.sMaskWord)));


    Connect.Close;

    Connect.Params.Text:=
      'DriverName=MySQL'+#13+
      'DriverUnit=DBXDynalink'+#13+
      'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl'+#13+
      'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b'+#13+
      'MetaDataPackageLoader=TDBXMySqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl'+#13+
      'MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b'+#13+
      'BlobSize=-1'+#13+
      'Database='+datebase+#13+
      'ErrorResourceFile='+#13+
      'HostName='+sever+#13+
      'LocaleCode=0000'+#13+
      'Password='+psw+#13+
      'User_Name='+ouse_id+#13+
      'Compressed=False'+#13+
      'Encrypted=False';
      Connect.Open
----------------------------------------------
-

作者：

qinzusong (qzs)	★☆☆☆☆	-
	盒子活跃会员

2009/12/4 17:22:02

2楼：

Connect 为 TSQLConnection;
----------------------------------------------
-

信息

登陆以后才能回复