www.pudn.com > xinshengruxue.rar > usergl.pas

unit usergl; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls; 
 
type 
  Tusergl_Form = class(TForm) 
    Query1: TQuery; 
    DataSource1: TDataSource; 
    PopupMenu1: TPopupMenu; 
    N11: TMenuItem; 
    N12: TMenuItem; 
    N13: TMenuItem; 
    DBGrid1: TDBGrid; 
    procedure FormCreate(Sender: TObject); 
    procedure DBGrid1DblClick(Sender:TObject); 
    procedure N11Click(Sender: TObject); 
    procedure N12Click(Sender: TObject); 
    procedure N13Click(Sender: TObject); 
    procedure FormClose(Sender: TObject;var Action:TCloseAction); 
    procedure FormShow(Sender:TObject); 
    procedure refresh(); 
 
    procedure PopupMenu1Popup(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    modi:boolean; 
    xx:string; 
  end; 
 
var 
  usergl_Form: Tusergl_Form; 
 
implementation 
 
uses modiuser,main; 
 
{$R *.dfm} 
///////////////////////////////////////////////// 
procedure Tusergl_Form.FormCreate(Sender: TObject); 
 
begin 
  Query1.SessionName:=Main_Form.Database1.SessionName; 
  Query1.DatabaseName:=Main_Form.Database1.DatabaseName; 
  modi:=false; 
 
end; 
 
///////////////////////////////////////////////////// 
procedure Tusergl_Form.DBGrid1DblClick(Sender:TObject); 
 var str:string; 
begin 
     str:=DBgrid1.Fields[0].AsString; 
     if str<>Main_form.dlname then 
       N12.Click 
     else 
       ShowMessage('对自己无此权限'); 
end; 
 
////////////////////////////////////////////// 
procedure Tusergl_Form.FormShow(Sender:TObject); 
begin 
   refresh; 
  
 
   if Query1.RecordCount>0 then 
   begin 
     N12.Enabled:=true; 
     N13.Enabled:=true; 
   end 
   else 
     begin 
      N12.Enabled:=false; 
      N13.Enabled:=false; 
     end; 
end; 
    
procedure Tusergl_Form.N11Click(Sender: TObject); 
begin 
   Main_Form.Open_Form_number:=Main_Form.Open_Form_number+1; 
    Main_Form.N15.Enabled:=false; 
   modi:=false; 
   xx:='添加用户'; 
   Application.CreateForm(Tmodiuser_Form,modiuser_Form); 
  modiuser_Form.Show; 
 
end; 
 
procedure Tusergl_Form.N12Click(Sender: TObject); 
begin 
      Main_Form.Open_Form_number:=Main_Form.Open_Form_number+1; 
      Main_Form.N15.Enabled:=false; 
      modi:=true; 
      xx:='修改用户'; 
      Application.CreateForm(Tmodiuser_Form,modiuser_Form); 
      modiuser_Form.Show; 
 
end; 
 
procedure Tusergl_Form.N13Click(Sender: TObject); 
  var id:string; 
begin 
try 
    id:=Query1.FieldByName('用户名').AsString; 
    if MessageDlg('确认要删除选中的的记录吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then 
    begin 
      with TQuery.Create(nil)do 
       begin 
        try 
          close; 
          SessionName:=Main_Form.Database1.SessionName; 
          DatabaseName:=Main_Form.Database1.DatabaseName; 
          SQL.Clear; 
          SQl.Add('delete from [users] where 用户名='''+id+''''); 
          ExecSQL; 
 
          SQl.Clear; 
          SQL.Add('delete from [qxb] where 用户名='''+id+''''); 
          ExecSQL; 
        finally 
         Free; 
         end; 
        end; 
     end; 
     except 
     end; 
     refresh; 
 
 
end; 
 
 
 
 
procedure Tusergl_Form.FormClose(Sender: TObject;var Action:TCloseAction); 
begin 
    Main_Form.Open_Form_number:=Main_Form.Open_Form_number-1; 
    if  Main_Form.Open_Form_number=0 then 
    Main_Form.N15.Enabled:=true; 
    Main_Form.N12.Enabled:=true; 
    Action:=caFree; 
End; 
procedure Tusergl_Form.refresh(); 
var sqlstr:string; 
begin 
   sqlstr:='select *from [users] order by 用户名'; 
   Query1.close; 
   Query1.SQL.Clear; 
   Query1.SQL.Add(sqlstr); 
   Query1.open; 
    
end; 
 
 
procedure Tusergl_Form.PopupMenu1Popup(Sender: TObject); 
var str:string; 
 
begin 
 
     str:=DBgrid1.Fields[0].AsString; 
     if str=Main_form.dlname then 
     begin 
      N12.Enabled:=false; 
      N13.Enabled:=false; 
     end 
     else 
     begin 
       N12.Enabled:=true; 
       N13.Enabled:=true; 
     end; 
end; 
 
end.