unit13.pas

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

unit Unit13;

interface

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

type
  TForm13 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses Unit12;

{$R *.dfm}

procedure TForm13.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm13.Button1Click(Sender: TObject);
begin
begin
if(edit1.Text='')or(edit2.Text='')or(edit3.Text='') then
begin
 application.MessageBox('请输入内容，内容不能为空','提示',0+64);
 exit;
end

else if (edit2.Text<>edit3.Text) then
begin
 application.MessageBox('两次输入的密码不一致','提示',0+64);

 edit2.Text:='';
 edit3.Text:='';
 exit;
end;
 with ADOquery1 do
 begin
 append;
 fieldvalues['name']:=edit1.Text;
 fieldvalues['password']:=edit2.Text;
 application.MessageBox('已经成功添加用户','提示',0+64);
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 //form13.Close;
 try
 post;
 except
 Application.MessageBox('重复，请重新输入！','警告',0+64);
      delete;
      edit1.SetFocus;
      edit1.SelectAll;
      exit;
 end;
end;

end;
  end;
procedure TForm13.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 Button1.SetFocus ;
end;

procedure TForm13.FormActivate(Sender: TObject);
begin
edit1.SetFocus ;
end;

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

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

end.