adduser.pas

住宿餐饮 - 订餐管理系统,DelPhi写的。适合酒店

unit addUser;

interface

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

type
  TfrmAddUser = class(TForm)
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAddUser: TfrmAddUser;

implementation

{$R *.dfm}

procedure TfrmAddUser.Button1Click(Sender: TObject);
var
   f:file;
   s1,s2,s3:string[60];
   nr:integer;
   size:longint;
begin
   //检测用户是否已经存在
   assignFile(f,'sys.ini');
   reSet(f,1);
   while not eof(f) do
   begin
      blockRead(f,s1,12,nr);
      blockRead(f,s2,12,nr);
      blockRead(f,s3,24,nr);
      if s1=edit1.Text then
      begin
         MessageDlg('这个用户已经存在',mtWarning,[mbOk],0);
         edit1.Text:='';
         edit3.Text:='';
         edit2.Text:='';
         exit;
      end;
   end;
   closeFile(f);
   //检测密码输入是否一致
   if edit2.Text<>edit3.Text then
   begin
      MessageDlg('密码不一致',mtWarning,[mbOk],0);
      edit3.Text:='';
      edit2.Text:='';
      exit;
   end;
   //检测是否为新用户选择权限
   if RadioGroup1.ItemIndex=-1 then
   begin
      MessageDlg('没有为新用户指定权限',mtWarning,[mbOk],0);
      edit3.Text:='';
      edit2.Text:='';
      exit;
   end;
   //将新用户名，密码，权限写入系统配置文件
   reSet(f,1);
   size:=fileSize(f);
   seek(f,size);//移到文件尾
   s1:=edit1.Text;
   s2:=edit2.Text;
   s3:=inttostr(RadioGroup1.ItemIndex+1);
   blockWrite(f,s1,12,nr);
   blockWrite(f,s2,12,nr);
   blockWrite(f,s3,24,nr);
   closeFile(f);
end;

end.