deleteteacherunit.pas

来自「一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 」· PAS 代码 · 共 89 行

unit deleteteacherUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Grids, DBGrids;

type
  TdeleteteacherForm = class(TForm)
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBImage1: TDBImage;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deleteteacherForm: TdeleteteacherForm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure TdeleteteacherForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
with datamodule1.tableteacher do
begin
close;
DisableControls;
if trim(edit1.Text)<>'' then
  begin
  open;
  Locate('tname',trim(edit1.Text),[]);
  end;
enableControls;

end;
end;
end;





procedure TdeleteteacherForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
datamodule1.tableteacher.Close;
end;



procedure TdeleteteacherForm.FormCreate(Sender: TObject);
begin
datamodule1.DSteacher.DataSet:=datamodule1.tableteacher;
datamodule1.tableteacher.Open;
end;

end.