unit Uusergl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons, ExtCtrls, jpeg;
type
  TFrmusergl = class(TForm)
    Edtuser: TEdit;
    Edtpwd: TEdit;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    bbtnsave: TBitBtn;
    bbtndel: TBitBtn;
    bbtnclose: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery2: TADOQuery;
    procedure bbtnsaveClick(Sender: TObject);
    procedure bbtncloseClick(Sender: TObject);
    procedure bbtndelClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure EdtuserKeyPress(Sender: TObject; var Key: Char);
    procedure EdtpwdKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure ADOQuery1DeleteError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);


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

var
  Frmusergl: TFrmusergl;

implementation

uses Udm, Ulgb, Ulogin;



{$R *.dfm}

procedure TFrmusergl.bbtnsaveClick(Sender: TObject);
begin
  adoqopen(adoquery2, 'select * from username where name=' + #39 + edtuser.Text + #39+'and jgbm='+#39+gjgbm+#39);
  if adoquery2.Eof then
  begin
    if trim(edtuser.Text) = '' then
    begin
      application.MessageBox('用戶名不能為空！', gsysname, MB_OK + MB_ICONINFORMATION);
      edtuser.SetFocus;
      adoqopen(adoquery1, 'select * from username where jgbm='+#39+gjgbm+#39+'order by id');
      abort;
    end
    else
      if trim(edtpwd.Text) = '' then
      begin
        if application.MessageBox('你確認(rèn)該用戶的密碼設(shè)為空嗎？', gsysname, MB_yesno + MB_ICONINFORMATION) = mryes then begin
          adoqopen(adoquery2, 'select * from username ');
          adoquery2.Append;
          adoquery2.FieldByName('name').AsString := edtuser.Text;
          adoquery2.FieldByName('password').AsString := edtpwd.Text;
          adoquery2.FieldByName('power').AsString :='2';
          adoquery2.Post;
          adoqopen(adoquery1, 'select * from username where jgbm='+#39+gjgbm+#39+'order by id,name');
          application.messagebox( '保存成功！', gsysname, mb_ok + mb_iconinformation);
          adoquery1.Last;
          dbgrid1.Refresh;
          edtuser.text := '';
          edtpwd.text := '';
          edtuser.SetFocus;
        end
        else
          edtpwd.SetFocus;
      end
      else
      begin
        adoqopen(adoquery2, 'select * from username ');
        adoquery2.Append;
        adoquery2.FieldByName('name').AsString := edtuser.Text;
        adoquery2.FieldByName('password').AsString := edtpwd.Text;
        adoquery2.FieldByName('power').AsString :='2';
        adoquery2.Post;
        adoqopen(adoquery1, 'select * from username where jgbm='+#39+gjgbm+#39+'order by id');
        adoquery1.Last;
        dbgrid1.Refresh;
        messagebox(getforegroundwindow, '保存成功！', gsysname, mb_ok + mb_iconinformation);
        edtuser.text := '';
        edtpwd.text := '';
        edtuser.SetFocus;
      end;
  end
  else
  application.messagebox( pchar(edtuser.Text + '用戶名已被用！'), gsysname, mb_ok + mb_iconinformation);
  adoqopen(adoquery1, 'select * from username where jgbm='+#39+gjgbm+#39 +'order by id');
  edtuser.SetFocus;
end;

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

procedure TFrmusergl.bbtndelClick(Sender: TObject);

begin
   adoqopen(adoquery2, 'select * from username where jgbm='+#39+gjgbm+#39 );
   adoquery2.Close; //連接測(cè)試
   if trim(adoquery1.Fieldbyname('name').AsString) = trim(gstrname) then
  begin
    application.MessageBox('不能刪除當(dāng)前用戶！', gsysname, MB_OK + MB_ICONINFORMATION);
    abort;
  end;
  if MessageBox(0, pchar('你確實(shí)要?jiǎng)h除該用戶注冊(cè)記錄嗎？' + #13 + '姓名為：' + adoquery1.FieldByName('name').AsString + #13 ), gsysname, MB_yesno + MB_ICONINFORMATION) = mryes then
    if adoquery1.RecordCount = 1 then
      messagebox(getforegroundwindow, '不能刪除當(dāng)前用戶！', gsysname, mb_ok + mb_iconerror)
    else
      adoquery1.delete;
end;

procedure TFrmusergl.SpeedButton1Click(Sender: TObject);
begin
  close;
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;



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

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

procedure TFrmusergl.FormCreate(Sender: TObject);
begin
  adoqopen(adoquery1, 'select * from username where jgbm='+#39+gjgbm+#39+'order by id,name');
end;

procedure TFrmusergl.ADOQuery1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  application.MessageBox('數(shù)據(jù)保存失敗！！！', gsysname, MB_OK + MB_ICONINFORMATION);
  abort;
end;

procedure TFrmusergl.ADOQuery1DeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  application.MessageBox('數(shù)據(jù)刪除失敗！！！', gsysname, MB_OK + MB_ICONINFORMATION);
  abort;
end;

end.