盒子论坛 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

信息

登陆以后才能回复