unit2.pas

是一个非常好的游戏

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,dbtables, StdCtrls, Buttons, OleCtrls, ShockwaveFlashObjects_TLB,
  ExtCtrls, jpeg,mmsystem, DB, SUIComboBox;

type
  Tlogoin = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    Panel1: TPanel;
    ShockwaveFlash1: TShockwaveFlash;
    Panel2: TPanel;
    ShockwaveFlash2: TShockwaveFlash;
    Bevel2: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Bevel3: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Timer1: TTimer;
    ComboBox1: TsuiComboBox;
    Table1: TTable;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
      {function checkuser(user,pwd:string):integer; }
  public
    { Public declarations }
  end;

var
  logoin: Tlogoin;
  //t:ttable;
  //user,pwd:string;
implementation
 uses main,unit4;
{$R *.dfm}
{function Tlogoin.checkuser(user,pwd:string):integer;
     var t:ttable;
     begin
     try
     t:=Ttable.Create(nil);
     t.DatabaseName:=getcurrentdir;
         //t.DatabaseName:='C:\Documents and Settings\a\My Documents\俄罗斯方块\';
     t.TableName:='user1.db';
     t.Open;
     t.SetKey;
     t.FieldByName('用户名').AsString:=user;
     if not(t.GotoKey)then
       begin
        messagedlg('用户名'+user+'错误!',mterror,[mbok],0);
        result:=-1;
        exit;
        end
        else
        if t.FieldByName('密码').AsString=pwd then
             result:=t.FieldByName('等级').Asinteger
             else
             begin
             messagedlg('密码错误!',mterror,[mbok],0);
             result:=-1;
             exit;
             end;
             t.Close;
             t.Free;
             except
             result:=-1;
               messagedlg('链接数据库出错!',mterror,[mbok],0);
              end;
              end; }

procedure Tlogoin.BitBtn2Click(Sender: TObject);
//var rsl:integer;
begin
if trim(combobox1.Text)=''then
   begin
    messagedlg('您忘记了输入您的用户名!',mtinformation,[mbyes],0);
       edit1.Clear;
       combobox1.SetFocus;
       exit;
       end else
       begin
     table1.Locate('用户名',combobox1.text,[]);
     if edit1.text=table1.fieldvalues['密码'] then
      begin
      frmmain.ShowModal;
      logoin.Close;
       end
       else begin
       messagedlg('有错误登陆失败!',mtinformation,[mbok],0);
       edit1.Clear;
       combobox1.SetFocus;
       end;
end;
end;

procedure Tlogoin.BitBtn1Click(Sender: TObject);
begin
 if  messagedlg('您要放弃登陆吗?',mtconfirmation,[mbyes]+[mbno],0)=idyes then
       close;
end;

procedure Tlogoin.FormShow(Sender: TObject);
var i:integer;
begin
table1.active:=true;
PlaySound('1.wav',0,Snd_ASync) ;
 combobox1.SetFocus;
 edit1.Clear;
 table1.first;
 for i:=0 to table1.recordcount-1 do
  begin
   combobox1.items.add(table1.FieldValues['用户名']);
   table1.Next;
   end;

end;



procedure Tlogoin.Timer1Timer(Sender: TObject);
begin
 PlaySound('1.wav',0,Snd_ASync) ;
end;

procedure Tlogoin.BitBtn3Click(Sender: TObject);
begin
   reg1.ShowModal;
end;

end.