adduser.pas

该程序不能实现全程售票

unit AddUser;

interface

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

type
  TAddUserFrm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUserFrm: TAddUserFrm;

implementation
    uses Login,Main;
{$R *.dfm}

procedure TAddUserFrm.Button1Click(Sender: TObject);
begin
     with LoginFrm.ADOQuery1 do
     begin
         close;
         sql.clear;
         sql.add('select * from 管理员 where admiid='+''''+LoginFrm.edit1.text+'''');
         open;
         first;
         if recordcount=0 then
           begin
            showmessage('对不起,您没有权限进入此单元，详情请看帮助栏') ;
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            AddUserFrm.Show;
            end
           else
            begin
    if edit1.text='' then
       showmessage('请输入用户名！')
    else
       if edit2.text='' then
          showmessage('请确认用户名')
    else
       if edit3.text='' then
          showmessage('请输入密码！')
       else
           if edit4.text='' then
              showmessage('请输入正确的确认密码！')
     else
     if edit1.Text<>edit2.Text then
     showmessage('员工号前后两次不一致')
     else
     if edit3.Text<>edit4.Text then
     showmessage('密码前后两次不一致')
     else
      begin
         begin
         close;
         sql.clear;
         sql.add('select * from 售票员 where sailorid='+''''+edit1.text+'''');
         open;
         first;
         if recordcount<>0 then
           begin
            showmessage('对不起，此用户已经存在！请重新选择用户名！');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
           end
         else
            begin
            sql.add('insert into 售票员 (sailorid,sailorpassword) values('+''''+edit1.text+''''+','+''''+edit3.text+''''+')');
            execsql;
            showmessage('新用户添加成功！');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            end;
         end;
     end;
     end;
     end;
end;

procedure TAddUserFrm.Button2Click(Sender: TObject);
begin
 edit1.text:='';
 edit2.text:='';
  edit3.text:='';
   edit4.text:='';
   MainFrm.Show;
end;

end.