usergl.pas

本程序是用delphi开发的新生报名管理系统 该程序的数据库是采用SQL server建的

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.