пожалуйста, вот пример исходника(все левые процедуры шоб не загромождать исходник изъял, главное ето формклоуз):
| Код |
unit Bilet;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ComCtrls, Menus;
type
TfrmBilet = class(TForm)
Label2: TLabel;
Label3: TLabel;
btnAdd: TButton;
qrTasks: TQuery;
dsDR3: TDataSource;
edtKolvoVoprosov: TEdit;
btnExit: TButton;
cbTheme: TComboBox;
udKolvoVoprosov: TUpDown;
MainMenu1: TMainMenu;
mmSerie: TMenuItem;
mmBilet: TMenuItem;
mmBiletNew: TMenuItem;
mmSerieNew: TMenuItem;
mmSeriePrint: TMenuItem;
mmBiletPrint: TMenuItem;
memoTask: TMemo;
mmSerieStatistic: TMenuItem;
mmBiletSave: TMenuItem;
dsDR4: TDataSource;
qrAnswer: TQuery;
procedure FormCreate(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure mmBiletNewClick(Sender: TObject);
procedure mmBiletPrintClick(Sender: TObject);
procedure mmBiletSaveClick(Sender: TObject);
procedure mmSerieNewClick(Sender: TObject);
procedure mmSeriePrintClick(Sender: TObject);
procedure mmSerieStatisticClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmBilet: TfrmBilet;
implementation
Uses QForms,ComObj,Start,BiletDiscipline, Statistic;
...
procedure TfrmBilet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if qrTasks.active then qrTasks.close;
memoTask.Clear;
edtKolvoVoprosov.Text:='';
cbTheme.clear;
biletCount:=0;
SetLength(BiletSerie,BiletCount);
SetLength(currentBilet,0);
SerieStat.BiletNumber:=0;
setlength(SerieStat.Disciplines[0].Themes,0);
setlength(SerieStat.Disciplines,0);
frmBiletDiscipline.Enabled:=true;
end;
end.
|
|
