unit4.pas

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    button1: TButton;
    button2: TButton;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    procedure button1Click(Sender: TObject);
    procedure button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.button1Click(Sender: TObject);
var
   f:file;
   s1,s2,s3:string[60];
   nr,s4: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;
   s4:=RadioGroup1.ItemIndex;
   case s4 of
   0:s3:='管理员';
   1:s3:='操作员';
   2:s3:='访问者';
   end;
   blockWrite(f,s1,12,nr);
   blockWrite(f,s2,12,nr);
   blockWrite(f,s3,24,nr);
   closeFile(f);
   form4.edit1.text:=' ';
   form4.edit2.text:=' ';
   form4.edit3.text:=' ';
   close;
end;



procedure TForm4.button2Click(Sender: TObject);
begin
close;
end;

end.