新建 文本文档.txt

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

procedure Tform3.TreeView1Change(Sender: TObject;
Node: TTreeNode);
var
   f:file;
   s,s1,s2,s3:string[30];
   i:integer;
   nr:integer;
begin
   i:=treeView1.Selected.AbsoluteIndex;
   s:=treeView1.Items.Item[i].Text;    //获得所选用户名
   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 s=s1 then                    //在文件中找到匹配的用户名
      begin
         if s3='管理员' then               //所选用户名是管理权限
         begin
            Memo1.Visible:=true;
            Memo2.Visible:=false;
            Memo3.Visible:=false;
         end
         else if s3='操作员' then         //所选用户名是操作权限
         begin
            Memo1.Visible:=false;
            Memo2.Visible:=true;
            Memo3.Visible:=false;
         end
         else if s3='访问者' then        //所选用户名是访问者权限
         begin
            Memo1.Visible:=false;
            Memo2.Visible:=false;
            Memo3.Visible:=true;
         end;
         closeFile(f);
         exit;
      end
      else                         //选择的是根节点
         begin
            Memo1.Visible:=false;
            Memo2.Visible:=false;
            Memo3.Visible:=false;
         end;
   end;
   closeFile(f);
end;












procedure Tform5.changePwd(userName:string);
var
   f:file;
   s1,ss2,s2,s3:string[30];
   nr:integer;
begin
   ss2:=newPwd.Text;
   if checkOldPwd(Name) and checkNewPwd then//可以修改
   begin
      //打开配置文件定位到当前用户，修改密码
      assignFile(f,'sys.ini');
      reSet(f,1);
      while not eof(f) do
      begin
         blockRead(f,s1,12,nr);
         if s1=Name then
         begin
            blockWrite(f,ss2,12,nr);
            closeFile(f);
            exit;
         end;
         blockRead(f,s2,12,nr);
         blockRead(f,s3,24,nr);
      end;
      closeFile(f);
   end;
end;
{判断两次输入的新密码是否一致，一致返回true，不一致返回false}
function Tform5.checkNewPwd: boolean;
begin
   if newPwd.Text=confirmPwd.Text then     //两次输入的新密码一致
      result:=true
   else result:=false;
end;
{判断旧密码存在与否，存在返回true，不存在返回false}
function Tform5.checkOldPwd(userName:string): boolean;
var
   f:file;
   nr:integer;
   s1,s2,s3:string[30];
begin
   assignFile(f,'sys.ini');                //file变量与配置文件关联
   reSet(f,1);                             //打开文件
   repeat                                  //读取每一条记录
      blockRead(f,s1,12,nr);
      blockRead(f,s2,12,nr);
      blockRead(f,s3,24,nr);
      if (nr>10) and (s2=oldPwd.Text) and (s1=Name) then
      begin                                //发现当前用户的密码和输入的旧密码一致
         closeFile(f);
         result:=true;
         exit;
      end;
   until (nr=0);
   closeFile(f);
   result:=false;
   exit;
end;

procedure Tform5.FormCreate(Sender: TObject);
begin

end;
end.