adduserunit1.~pas

这是一个Delphi很好很全面知识的实例

unit AddUserUnit1;

interface

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

type
  TAddUserForm = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUserForm: TAddUserForm;

implementation

uses MDUnit1, DelAddUnit1, DelOutUnit1, LLYHUnit1, mainUnit1, SPUnit1,
  SRBBUnit1, SRCXUnit1, SRLLUnit1, TJSRUnit1, TJZCUnit1, untDL, XGYHUnit1,
  ZCBBUnit1, ZCCXUnit1, ZCLLUnit1;

{$R *.dfm}

procedure TAddUserForm.BitBtn2Click(Sender: TObject);//退出
begin
if messagedlg('您真的要离开吗？',mtinformation,[mbyes,mbno],0)=mryes then
   application.Terminate
  else
   Abort;
end;

procedure TAddUserForm.BitBtn1Click(Sender: TObject);
begin
if (edit1.text='') then
  messagedlg('您还没有添写用户!',mtinformation,[mbok],0)
  else if(edit2.text='') then
  messagedlg('您还没有添写密码!',mtinformation,[mbok],0)
  else if (edit3.text='') then
  messagedlg('您还没有添写权限!',mtinformation,[mbok],0)
  else if (strtoint(edit3.Text)<0) or (strtoint(edit3.Text)>5) then
  messagedlg('您的权限不合法,权限范围(0-5)!',mtinformation,[mbok],0)
  else
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('insert into 密码表');
  adoquery1.SQL.Add('(用户名,密码,权限)');
  adoquery1.SQL.Add('values(:yhm,:mm,:qx)');
  adoquery1.Parameters.ParamByName('yhm').Value:=edit1.Text;
  adoquery1.Parameters.ParamByName('mm').Value:=edit2.Text;
  adoquery1.Parameters.ParamByName('qx').Value:=edit3.Text;
  try
   begin
    adoquery1.ExecSQL;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit1.SetFocus;
    messagedlg('添加成功!!!',mtinformation,[mbok],0);
   end
  except
    messagedlg('您的用户没有添加成功!!!'+chr(13)+'可能原因：用户名重复或其他数据不符合要求。',mtinformation,[mbok],0);
    exit;
  end;
  adotable1.Close; //实现表的刷新
  adotable1.Open;
  end;
end;

procedure TAddUserForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  mainform.N17.Enabled:=true;
  free;
end;

procedure TAddUserForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit2.SetFocus;
end;

procedure TAddUserForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit3.SetFocus;
end;

procedure TAddUserForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
  bitbtn1.SetFocus;
  bitbtn1click(sender);
  end;
end;

end.