p_del.pas

来自「Delphi语言版豆豆主站 http://www.ddvip.net ht」· PAS 代码 · 共 68 行

unit p_del;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, Grids, DBGrids, StdCtrls, XPMenu;

type
  Tf_del = class(Tf_mc)
    Label1: TLabel;
    Button3: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_del: Tf_del;

implementation

uses p_gl,p_dm;
{$R *.dfm}

procedure Tf_del.Button2Click(Sender: TObject);
var
 y:integer;
begin
  with dm do
  begin
    y:=application.MessageBox('确认删除该学期课表吗？将关闭打开的所有课表！','删除',mb_okcancel+mb_iconquestion);
    if y=idok then
    begin
       f_gl.C1.Click;
       t_kcbiao.Filter:='xqh='''+t_xueqi['xqh']+'''';
       t_kcbiao.Filtered:=true;
       while not t_kcbiao.Eof do
       begin
         t_kcbiao.First;
         t_kcbiao.Edit;
         t_kcbiao.Delete;
       end;
       t_xueqi.Edit;
       t_xueqi.Delete;
    end;
  end;
end;

procedure Tf_del.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Tf_del.FormCreate(Sender: TObject);
begin
  f_del.ShowModal;
end;

end.