uusergl.~pas

在公司做的一个小的系统源代码

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('你确认该用户的密码设为空吗？', 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; //连接测试
   if trim(adoquery1.Fieldbyname('name').AsString) = trim(gstrname) then
  begin
    application.MessageBox('不能删除当前用户！', gsysname, MB_OK + MB_ICONINFORMATION);
    abort;
  end;
  if MessageBox(0, pchar('你确实要删除该用户注册记录吗？' + #13 + '姓名为：' + adoquery1.FieldByName('name').AsString + #13 ), gsysname, MB_yesno + MB_ICONINFORMATION) = mryes then
    if adoquery1.RecordCount = 1 then
      messagebox(getforegroundwindow, '不能删除当前用户！', 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('数据保存失败！！！', gsysname, MB_OK + MB_ICONINFORMATION);
  abort;
end;

procedure TFrmusergl.ADOQuery1DeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  application.MessageBox('数据删除失败！！！', gsysname, MB_OK + MB_ICONINFORMATION);
  abort;
end;

end.