ufrm_regist.pas

DELPHI写的全套软件工程流程安排下的人事管理系统。数据库为自带数据库。急需下载J3D源码。希望帮帮忙。谢谢~

unit Ufrm_regist;

interface

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

type
  Tfrm_regist = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Label11: TLabel;
    Label12: TLabel;
    groupBox1: TGroupBox;
    Table1: TTable;
    DataSource1: TDataSource;
    Label13: TLabel;
    Label14: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_regist: Tfrm_regist;

implementation

{$R *.dfm}

procedure Tfrm_regist.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_regist.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
end;

procedure Tfrm_regist.Button1Click(Sender: TObject);
var
check :string;
gender1,gender2 :bool;
temp:integer;
t1,t2:bool;
begin
  if not Table1.Active then
  begin
    ShowMessage('数据集未打开，请先设置数据集信息。');
    Exit;
  end;
  if edit1.text='' then
  begin
  ShowMessage('请填写用户名。');
  exit;
  end;
  if Table1.FindKey([edit1.Text]) then
    begin
    ShowMessage('该用户已存在。');
    edit1.Clear;
    exit;
    end;
  if length(edit2.Text)>9 then
    begin
    ShowMessage('密码不得长于9位。');
    edit2.Clear;
    exit;
    end;
  if edit2.Text='' then
    begin
    ShowMessage('密码不能为空。');
    edit2.Clear;
    exit;
    end;
  if edit3.Text<>edit2.Text then
    begin
    ShowMessage('确认密码应该与新密码一致。');
    edit3.Clear;
    exit;
    end;
   if length(edit4.Text)>10 then
    begin
    ShowMessage('名字不得长于5个字。');
    edit4.Clear;
    exit;
    end;
   if length(edit5.Text)>30 then
    begin
    ShowMessage('身份证号不得长于30个字符。');
    edit5.Clear;
    exit;
    end;
    gender1:= (edit6.Text='男');
    gender2 := (edit6.Text='女');
    if not(gender1 or gender2)  then
    begin
    showmessage('性别要填"男"或"女"');
    edit6.clear;
   exit;
   end;
try
temp := StrToint(edit7.Text);
except
on E: EConvertError do
  begin
  ShowMessage('年龄必须是一个数字。');
  edit7.clear;
  exit;
  end ;
end ;

t1:= temp<71;
t2:=temp>19 ;
if not( t1 and t2 )then
  begin
  ShowMessage('一个正常管理员的年龄必须在20-70岁之间。');
  edit7.clear;
  exit;
  end;

  if length(edit8.Text)>10 then
    begin
    ShowMessage('电话号码不得长于10个字符。');
    edit8.Clear;
    exit;
    end;

   if length(edit9.Text)>30 then
    begin
    ShowMessage('e-mail不得长于30个字符。');
    edit9.Clear;
    exit;
    end;
   check:='I am the manager.';
   if (edit10.Text<>check) then
    begin
    ShowMessage('请核对好注册码，否则不能注册。');
    edit10.Clear;
    exit;
    end;

  Table1.InsertRecord([edit1.Text, edit2.text, edit4.Text,
  edit5.Text, edit6.Text, edit7.Text,edit8.Text,edit9.Text]);
  Table1.Refresh;
  ShowMessage('恭喜你，注册成功。');
end;

procedure Tfrm_regist.FormCreate(Sender: TObject);
begin
  table1.Open ;
end;

end.