uusergl.pas

我的毕业设计

unit Uusergl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons, ExtCtrls, jpeg,
  DBTables;

type
  TFrmusergl = class(TForm)
    Edtuser: TEdit;
    Edtpwd: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    bbtnsave: TBitBtn;
    bbtndel: TBitBtn;
    bbtnclose: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Query1: TQuery;
    Table1: TTable;
    procedure bbtnsaveClick(Sender: TObject);
    procedure bbtncloseClick(Sender: TObject);
    procedure bbtndelClick(Sender: TObject);

    procedure EdtuserKeyPress(Sender: TObject; var Key: Char);
    procedure EdtpwdKeyPress(Sender: TObject; var Key: Char);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmusergl: TFrmusergl;

implementation

{$R *.dfm}

procedure TFrmusergl.bbtnsaveClick(Sender: TObject);
var
i:integer;
begin
query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from userb where 用户名=' + #39 + trim(Edtuser.Text) + #39);
query1.Open;
table1.Active:=true;
if query1.Eof then
  begin
      if trim(edtuser.Text) = '' then
      begin
      application.MessageBox('用户名不能为空！','系统提示',mb_ok + mb_iconinformation);
      edtuser.SetFocus;
      end
      else
      if trim(edtpwd.Text) = '' then
        begin
             if application.MessageBox('你确认该用户的密码设为空吗？', '系统提示', MB_yesno + MB_ICONINFORMATION) = mryes then
             begin
             query1.close;
            query1.SQL.Clear;
            query1.SQL.Add('select * from userb');
            query1.Open;
             table1.Active:=true;
             i:=table1.RecordCount;
             table1.Insert;
              table1.FieldByName('用户号').Asstring:= inttostr(i+1);
              table1.FieldByName('用户名').AsString:= Edtuser.Text;
              table1.FieldByName('密码').AsString:= Edtpwd.Text;
              table1.Post;
              dbgrid1.Refresh;
              messagebox(getforegroundwindow, '注册成功！','系统提示', mb_ok + mb_iconinformation);
              edtuser.text := '';
              edtpwd.text := '';
               edtuser.SetFocus;
              end
           else
              edtpwd.SetFocus;
        end
       else
          begin
              query1.close;
              query1.SQL.Clear;
              query1.SQL.Add('select * from userb') ;
               query1.Open;
               table1.Active:=true;
              i:=table1.RecordCount;
              table1.Insert;
              table1.FieldByName('用户号').Asstring:= inttostr(i+1);
              table1.FieldByName('用户名').AsString:= trim(Edtuser.Text);
              table1.FieldByName('密码').AsString:= trim(Edtpwd.Text);
              table1.Post;
              dbgrid1.Refresh;
              messagebox(getforegroundwindow, '注册成功！', '系统提示', mb_ok + mb_iconinformation);
               query1.Close;
              edtuser.text := '';
              edtpwd.text := '';
               edtuser.SetFocus;
              end
  end
 else
  begin
   messagebox(getforegroundwindow, pchar(edtuser.Text + '用户名已被用！'), '系统提示', mb_ok + mb_iconinformation);

  edtuser.SetFocus;
  end
end ;

procedure TFrmusergl.bbtncloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmusergl.bbtndelClick(Sender: TObject);

begin
query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from userb where 用户名=' + #39 +trim(Edtuser.Text) + #39);
query1.Open;
  if MessageBox(0, pchar('你确实要删除该用户注册记录吗？' + #13+' 其用户名为：' + table1.FieldByName('用户名').AsString + #13 ), '系统提示', MB_yesno + MB_ICONINFORMATION) = mryes then
    if query1.RecordCount = 1 then
      messagebox(getforegroundwindow, '不能删除当前用户！','系统提示' , mb_ok + mb_iconerror)
    else
      table1.delete;
end;


procedure TFrmusergl.EdtuserKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtpwd.SetFocus;
end;

procedure TFrmusergl.EdtpwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
      bbtnsave.SetFocus;
end;
end.