unit9.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit9;

interface

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

type
  TNewUser = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    Button2: TButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewUser: TNewUser;

implementation
uses unit3,unit11;

{$R *.dfm}

procedure TNewUser.Button1Click(Sender: TObject);
begin
try
if (edit1.Text = '') then
 showmessage('请输入用户名，谢谢！')
 else
if edit2.Text <> edit3.Text then
 showmessage('”确认密码“不匹配！')
 else
 begin
    if application.MessageBox('您确认要增加此用户吗？','提示',MB_YESNO) = ID_YES  then
      begin
   with DModule1.Qry_user do
         begin
          Close;
          SQL.Clear;
          SQL.add('select * from users where userID=(:us)');    //查询用户名
          parameters.ParamByName('us').Value:=edit1.Text;
          open;
          if recordcount < 1 then
           begin
          close;
          SQL.Clear;
          SQL.add('insert into users (userID,password,cdate,memo)');
          sql.add('values((:V1),(:v2),(:v3),(:v4))');
          parameters.ParamByName('v1').Value:=edit1.Text;
          parameters.ParamByName('v2').Value:=edit2.Text;
          parameters.ParamByName('v3').Value:=date;
          parameters.ParamByName('v4').Value:=memo1.Lines.Text;
          execsql;
          showmessage('添加完成！');
          edit1.Clear;
          edit2.Clear;
          edit3.Clear;
          memo1.Clear;
          newuser.Close;
          end
          else
          showmessage('此用户已经存在！');
         end;
      end;
 end;
except
  showmessage('对不起，建立失败，请重新建立！！');
end;
end;

procedure TNewUser.FormCreate(Sender: TObject);
begin
 label4.Caption:='用'+#13+'户'+#13+'信'+#13+'息';
end;

procedure TNewUser.Button2Click(Sender: TObject);
begin
form11.ShowModal;
end;

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

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

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

procedure TNewUser.BitBtn1Click(Sender: TObject);
begin
newuser.close;
end;

end.