usergl.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit USERGL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,
  ComCtrls, Menus, FMTBcd, Borland.Vcl.SqlExpr, System.ComponentModel,
  Borland.Vcl.Db, Borland.Vcl.DBTables;

type
  Tusergl_Form = class(TForm)
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N13Click(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  main, MODIUSER;

{$R *.dfm}

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

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

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);
begin
  N12.Click;
end;

procedure Tusergl_Form.FormShow(Sender: TObject);
var
    sqlstr:string;
begin
    sqlstr:='select * from [user] order by yhm';
    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.