u_scfanr.~pas

试卷管理系统

unit U_scfanr;

interface

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

type
  Tfrm_scfanr = class(TForm)
    Table1: TTable;
    Table1FANAME: TStringField;
    Table1TXXH: TSmallintField;
    Table1STXH: TSmallintField;
    Table1JF: TSmallintField;
    Table1txmc: TStringField;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    DataSource2: TDataSource;
    Table2: TTable;
    DataSource1: TDataSource;
    tbl_sttx: TTable;
    btn_close: TButton;
    DBText1: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_closeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_scfanr: Tfrm_scfanr;

implementation

{$R *.dfm}

procedure Tfrm_scfanr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Close;
  Table2.Close;
  tbl_sttx.Close;
end;

procedure Tfrm_scfanr.btn_closeClick(Sender: TObject);
begin
  close;
end;

end.