usergl_3.pas

学生信息管理系统可以帮助你有效的管理好学生信息,有助于人们日常生活中的应用

unit USERGL_3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, DBTables, Grids, DBGrids,
  ComCtrls, Menus;

type
  Tusergl_Form = class(TForm)
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N13Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xx:string;
  end;

var
  usergl_Form: Tusergl_Form;

implementation

uses  main3_1, MODIUSER_3;

{$R *.dfm}

procedure Tusergl_Form.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

procedure Tusergl_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N12.Enabled:=true;
end;

procedure Tusergl_Form.N13Click(Sender: TObject);
var
    yhm,id:string;
begin
    try
    yhm:=Query1.fieldbyname('yhm').AsString;
    if MessageDlg('确认要删除选中的记录码?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        id:=Query1.fieldbyname('id').AsString;
        with tquery.Create(nil) do
        begin
            try
            Close;
            DatabaseName:=mainform.Database1.DatabaseName;
            SessionName:=mainform.Database1.SessionName;
            SQL.Clear;
            SQL.Add('delete from t_yhb where id='''+id+'''');
            ExecSQL;
            SQL.Clear;
            SQL.Add('delete from t_qxb where 用户名='''+yhm+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
    end;
    except
    end;
end;

procedure Tusergl_Form.ListView1DblClick(Sender: TObject);
begin
    N12.Click;
end;

procedure Tusergl_Form.FormCreate(Sender: TObject);
begin
  Query1.SessionName:=mainform.Database1.SessionName;
  Query1.DatabaseName:=mainform.Database1.DatabaseName;
  modi:=false;
end;

procedure Tusergl_Form.DBGrid1DblClick(Sender: TObject);
begin
  N12.Click;
end;

procedure Tusergl_Form.FormShow(Sender: TObject);
var
    sqlstr:string;
begin
    sqlstr:='select * from t_user  order by 用户名';
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    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
    modi:=false;
    xx:='添加用户';
    Application.CreateForm(Tmodiuser_Form, modiuser_Form);
    modiuser_form.ShowModal;
end;

procedure Tusergl_Form.N12Click(Sender: TObject);
begin
    modi:=true;
    xx:='修改用户';
    Application.CreateForm(Tmodiuser_Form, modiuser_Form);
    modiuser_form.ShowModal;
end;

end.