xitongweihu.~pas

有不足之处请指出

          exit;
     end;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=Edit1.Text;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;');
  Query1.ExecSQL ;
  Query1.Open;
  if Query1.RecordCount=0 then
     begin
       Query1.Close;
       Query1.SQL.Clear ;
       Query1.Params.Clear ;
       Query1.SQL.Add('select * from yonghu;');
       Query1.ExecSQL ;
       Query1.Open ;
       Query1.Last ;
       bhao:=inttostr(strtoint(Query1bianhao.Value)+1) ;
       Query1.Close;

       Query1.Close;
       Query1.SQL.Clear ;
       Query1.Params.Clear ;
       Query1.Params.CreateParam(ftstring,'xm2',ptinput).AsString :=Edit1.Text ;
       Query1.Params.CreateParam(ftstring,'mima',ptinput).AsString :=Edit2.Text ;
       Query1.Params.CreateParam(ftstring,'qx',ptinput).AsString :=ComboBox5.Text ;
       Query1.Params.CreateParam(ftstring,'bh',ptinput).AsString :=bhao;
       Query1.SQL.Add('insert into yonghu (bianhao,xingming,quanxian,mima) values (:bh,:xm2,:qx,:mima);');
       Query1.ExecSQL ;
       showmessage('成功添加用户!');
       Query1.Close;
       Edit1.Clear;
       Edit2.Clear ;
       Edit3.Clear ;
       ComboBox5.Text :=''
     end
  else
     begin
        messageDlg('对不起，此用户名已经存在！',mtError,[mbok],0);
       Edit1.SetFocus ;
       Edit1.Focused;

     end;
end;

procedure TxitongweihuForm.ComboBox1Select(Sender: TObject);
begin
  Edit7.Text :=ComboBox1.Text ;
  Edit6.SetFocus ;
end;

procedure TxitongweihuForm.Button3Click(Sender: TObject);
var i:integer;
begin
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=ComboBox1.Text ;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;') ;
  Query1.ExecSQL ;
  Query1.Open ;
  if Query1.RecordCount=0 then
    begin
      messagedlg('用户 "'+ComboBox1.Text +'" 不存在，修改不能进行!',mtError,[mbOk],0);
      ComboBox1.Text :='';
      Edit6.Clear ;
      Edit7.Clear ;
      exit;
    end;
 if Edit6.Text ='' then
    begin
       messageDlg('没有输入密码，操作无法继续进行!',mtError,[mbOk],0);
       Edit6.SetFocus ;
       exit;
    end;
 if Edit7.Text ='' then
   begin
     messageDlg('修改后的用户名不能为空!',mtWarning,[mbok],0);
     Edit7.SetFocus ;
     exit;
   end;
 if Query1mima.Value<>Edit6.Text then
    begin
      messageDlg('密码错误，无权修改！',mtWarning,[mbOk],0);
      Edit6.SetFocus ;
      Edit6.Focused ;
      exit;
    end
 else
    begin
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.Params.Clear ;
      Query1.Params.CreateParam(ftstring,'xm2',ptinput).AsString :=Edit7.Text ;
      Query1.SQL.Add('select * from yonghu where xingming=:xm2;');
      Query1.ExecSQL ;
      Query1.Open ;
      if Query1.RecordCount <>0 then
        begin
           messageDlg('用户姓名： "'+ComboBox1.Text +'" 无法修改为: "'+Edit7.Text+'" 因为已经存在 "'+Edit7.Text +' "这个用户了"',mtWarning,[mbok],0);
           Edit7.SetFocus ;
           Edit7.Focused ;
           exit;
        end
      else
        begin
          Query1.Close;
          Query1.SQL.Clear ;
          Query1.Params.Clear ;
          Query1.Params.CreateParam(ftstring,'xm3',ptinput).AsString :=ComboBox1.Text ;
          Query1.Params.CreateParam(ftstring,'xm4',ptinput).AsString :=Edit7.Text ;
          Query1.sql.Add('update yonghu set xingming=:xm4 where xingming=:xm3;');
          Query1.ExecSQL ;
          showmessage('用户： "'+ComboBox1.Text +'" 成功修改为： "'+Edit7.Text+'" !' );
          Edit6.Clear ;
          Edit7.Clear ;


          Query1.Close;
          Query1.SQL.Clear ;
          Query1.Params.Clear ;
          Query1.SQL.Add('select * from yonghu;');
          Query1.ExecSQL ;
          Query1.Open ;
          i:=0;
          Query1.First ;
          ComboBox1.Clear ;
          while not Query1.Eof do
            begin
              ComboBox1.Items.Insert(i,Query1xingming.Value);
              i:=i+1;
              Query1.Next;
            end;
          Query1.Close;
        end;
    end;
end;

procedure TxitongweihuForm.Button5Click(Sender: TObject);
var i:integer;
begin
  if ComboBox2.Text='' then
     begin
       showmessage('请选择你要删除的用户名!');
       exit;
     end;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=ComboBox2.Text ;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;');
  Query1.ExecSQL ;
  Query1.Open;
  if Query1.RecordCount=0 then
    begin
      showmessage('用户："'+ComboBox2.Text +'" 不存在，无法进行删除');
      ComboBox2.SetFocus ;
      ComboBox2.Focused ;
      exit;
    end
  else
    if Query1quanxian.Value='管理员' then
      begin
        messageDlg('不可以删除管理员！！',mtWarning,[mbOk],0);
        ComboBox2.SetFocus ;
        ComboBox2.Focused ;
        exit;
      end
    else
      begin
        Query1.Close;
        Query1.SQL.Clear;
        Query1.Params.Clear;
        Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=ComboBox2.Text ;
        Query1.SQL.Add('delete from yonghu where xingming=:xm;');
        Query1.ExecSQL ;
        showmessage('成功删除用户 "'+ComboBox2.Text +'" !');
        Query1.Close;
        Query1.SQL.Clear ;
        Query1.Params.Clear ;
        Query1.Params.CreateParam(ftstring,'qx',ptinput).AsString :='管理员';
        Query1.SQL.Add('select * from yonghu where quanxian<>:qx;');
        Query1.ExecSQL ;
        Query1.Open ;
        i:=0;
        Query1.First ;
        ComboBox2.Clear ;
        while not Query1.Eof do
          begin
            ComboBox2.Items.Insert(i,Query1xingming.Value);
            i:=i+1;
            Query1.Next;
          end;
         Query1.Close;
   end;

end;

procedure TxitongweihuForm.ComboBox3Select(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=ComboBox3.Text ;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;');
  Query1.ExecSQL ;
  Query1.Open;
  if Query1.RecordCount<>0 then
  Edit5.Text:=Query1quanxian.Value ;
  Combobox4.SetFocus ;
end;

procedure TxitongweihuForm.Button7Click(Sender: TObject);
begin
  if  ComboBox3.Text ='' then
     begin
       showmessage('请选择用户姓名！');
       exit;
     end;
  if  ComboBox4.Text ='' then
     begin
       showmessage('请填写"修改权限"!');
       exit;
     end;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=ComboBox3.Text ;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;');
  Query1.ExecSQL;
  Query1.Open ;
  if Query1.RecordCount=0 then
    begin
      showmessage('该用户不存在，授权无意义！');
      exit;
      ComboBox3.Text:='';
      Edit5.Clear ;
      ComboBox4.Text :=''
    end
  else
    if Query1quanxian.Value='管理员' then
      begin
        MessageDlg('你无权修改 "管理员" 的权限，即使你是管理员！！',mtWarning,[mbOk],0);
        Edit5.Clear ;
        ComboBox4.Text :='';
        Combobox3.SetFocus ;
        Combobox3.Focused ;
        exit;
      end;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'qx',ptinput).AsString :=ComboBox4.Text ;
  Query1.Params.CreateParam(ftstring,'xm2',ptinput).AsString :=Combobox3.Text ;
  Query1.SQL.Add('update yonghu set quanxian=:qx where xingming=:xm2;');
  Query1.ExecSQL ;

  Query1.Close;
  showmessage('用户名为："'+ComboBox3.Text +'" 的用户权限成功修改为："'+ComboBox4.Text);
  Combobox3.Text:='';
  ComboBox4.Text :='';
  Edit5.Clear;
 end;

procedure TxitongweihuForm.ComboBox4Select(Sender: TObject);
begin
  if ComboBox4.Text='管理员' then
    begin
     if  messageDlg('一般情况下，只允许有一个管理员，确认要修改用户的权限为管理员吗？'+#10+#13+'这以为着此用户将拥有与你一样的权利，而且从此你不能再更改其权限！',mtConfirmation,[mbYes,mbNO],0)=mrNo then
         exit;
    end;     


end;

procedure TxitongweihuForm.TabSheet3Show(Sender: TObject);
var i:integer;
begin
Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.SQL.Add('select * from yonghu;');
  Query1.ExecSQL ;
  Query1.Open ;
  i:=0;
  Query1.First ;
  ComboBox1.Clear ;
  while not Query1.Eof do
    begin
      ComboBox1.Items.Insert(i,Query1xingming.Value);
      i:=i+1;
      Query1.Next;
    end;
  Query1.Close;

end;

procedure TxitongweihuForm.TabSheet4Show(Sender: TObject);
begin 
 label23.Caption :='当前用户为: '+dqyh;  
end;

procedure TxitongweihuForm.Button9Click(Sender: TObject);
begin
  if Edit8.Text=''then
    begin
      MessageDlg('请输入您的密码!',mtWarning,[mbOk],0);
      exit;
    end;
  if Edit9.Text ='' then
    begin
      MessageDlg('请输入新密码!',mtWarning,[mbOk],0);
      exit;
    end;
  if Edit10.Text='' then
    begin
      MessageDlg('请输入确认密码!',mtWarning,[mbOk],0);
      exit;
    end;
  if Edit9.Text <> Edit10.Text then
    begin
      messageDlg('新密码与确认密码不一致,请核对!',mtWarning,[mbOk],0);
      exit;
    end;
  if length(Edit9.Text)<>length(Edit10.Text) then
     begin
      messageDlg('新密码与确认密码不一致,请核对!',mtWarning,[mbOk],0);
      exit;
     end;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=dqyh;
  Query1.SQL.Add('select * from yonghu where xingming=:xm;');
  Query1.ExecSQL ;
  Query1.Open;
  if Query1mima.Value<>Edit8.Text then
    begin
      messageDlg('原密码错误！',mtWarning,[mbOk],0);
      Edit8.Clear ;
      exit;
    end
  else
    begin
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.Params.Clear ;
      Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=dqyh;
      Query1.Params.CreateParam(ftstring,'xmima',ptinput).AsString:=Edit9.Text ;
      Query1.SQL.Add('update yonghu set mima=:xmima where xingming=:xm;');
      Query1.ExecSQL ;
      MessageDlg('密码成功修改为：'+Edit9.Text+' 请您记好.',mtCustom ,[mbOk],0) ;
      Edit8.Clear ;
      Edit9.Clear ;
      Edit10.Clear ;
   end;
end;

procedure TxitongweihuForm.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   Button9.Click ;
end;

procedure TxitongweihuForm.FormShow(Sender: TObject);
begin
  if qx='普通用户' then
     begin
       TabSheet1.Enabled :=False;
       TabSheet2.Enabled :=False;
     end;
end;

end.