6. Руководство пользователя
6.1 Условия применения
Поддерживаемые операционные системы:
-Windows 7 SP1 (x86 и x64);
-Windows Server 2012 R2 (x64);
-Windows Server 2012 (x64);
-Windows Server 2008 R2 SP1 (x64);
-Windows ХР.
Объём памяти на жёстком или локальном диске: 205 Мб.
Объём оперативной памяти: 29336 КБ.
Разрешение экрана: 1280х800.
Качество цветопередачи: 32бита и выше.
6.2 Элементы управления
Таблица 2.
|
Передвижение игрового объекта в право |
|
Передвижение игрового объекта влево |
|
Поворот объекта против часовой стрелки |
|
Поворот объекта по часовой стрелке |
«Пробел» |
Останавливает ход игры |
«Меню» |
Осуществляет доступ ко всем функциям программы |
Заключение
Таким образом, исходя из всего выше сказанного, можно сделать вывод о том что, данная игровая программа, проста в использовании и удобна в эксплуатации.
Данная программа выполнена в соответствии со всеми установленными выше требованиями.
Таким образом:
-Для разработки данной программы использовалась среда программирования Microsoft Visual C++ 2013.
- Игра написана при помощи метода WinAPI.
- Программа может использоваться в OC Windows XP и Windows 7.
- Так же программа будет нормально функционировать и в Windows Vista однако справку в этой системе вызвать нельзя, т.к. help – компилятор в ней не работает.
Для нормальной работы программы требуются следующие системные ресурсы:
- 5 МБ памяти на жёстком или локальном диске;
- 29336 КБ оперативной памяти;
- разрешение экрана 1280х800;
- качество цветопередачи 32бита и выше.
- Все основные функции данной программы доступны через меню включающее в себя пять компонентов:
«New» - Новая игра;
«History» - Таблица рекордов и история игры по совместительству;
«About» - Справка;
«Version» - О программе;
«Exit» - Выход из приложения.
- Программа имеет удобный, яркий интерфейс.
- Программа оснащена подробной справочной системой созданной при помощи специального help-компилятора, предназначенного для разработки приложений.
- Данной программе присущи простейшие функции управления – стрелки на клавиатуре.
- В ходе тестирования ошибок в работе программы не выявлено.
А так же, данная программа не имеет возрастных ограничений и может эксплуатироваться любым пользователем.
Данная программа готова к использованию, и любой пользователь, в не зависимости от возраста и опыта может ею воспользоваться.
ПРИЛОЖЕНИЕ А
Структурная схема
ПРИЛОЖЕНИЕ Б
Схема работы программы
ПРИЛОЖЕНИЕ В
Диаграмма классов
ПРИЛОЖЕНИЕ Г
Диаграмма последовательности
ПРИЛОЖЕНИЕ Д
Модель данных
ПРИЛОЖЕНИЕ Е
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, XPStyleActnCtrls, ActnMan, ImgList, ActnCtrls,
ToolWin, ActnMenus, ActnColorMaps, ExtCtrls, DBCtrls, Grids, DBGrids, DB,
ComCtrls, jpeg, ADODB, StdCtrls;
type
TForm1 = class(TForm)
ActionMainMenuBar1: TActionMainMenuBar;
ImageList1: TImageList;
ActionManager1: TActionManager;
Action1: TAction;
Action2: TAction;
Action3: TAction;
Action4: TAction;
Action5: TAction;
Action8: TAction;
Action9: TAction;
ActionToolBar1: TActionToolBar;
TwilightColorMap2: TTwilightColorMap;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Image1: TImage;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
TabSheet3: TTabSheet;
Image3: TImage;
DBGrid3: TDBGrid;
DBNavigator2: TDBNavigator;
TabSheet4: TTabSheet;
Image4: TImage;
DBGrid4: TDBGrid;
DBNavigator3: TDBNavigator;
TabSheet5: TTabSheet;
Image5: TImage;
DBGrid5: TDBGrid;
DBNavigator5: TDBNavigator;
Action11: TAction;
Action12: TAction;
Action13: TAction;
Action14: TAction;
Action7: TAction;
Action10: TAction;
Action15: TAction;
Action16: TAction;
Action17: TAction;
Button1: TButton;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
ComboBox1: TComboBox;
Button2: TButton;
Edit3: TEdit;
Button4: TButton;
ComboBox3: TComboBox;
GroupBox3: TGroupBox;
Edit4: TEdit;
Button5: TButton;
GroupBox4: TGroupBox;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
ComboBox4: TComboBox;
GroupBox5: TGroupBox;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Button6: TButton;
Edit5: TEdit;
ComboBox5: TComboBox;
RadioButton9: TRadioButton;
Panel1: TPanel;
Label1: TLabel;
Timer1: TTimer;
TabSheet2: TTabSheet;
Image2: TImage;
DBGrid2: TDBGrid;
DBNavigator4: TDBNavigator;
Edit2: TEdit;
ComboBox2: TComboBox;
Button3: TButton;
GroupBox2: TGroupBox;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
FindEdit: TEdit;
Action6: TAction;
procedure Action8Execute(Sender: TObject);
procedure Action9Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
procedure Action5Execute(Sender: TObject);
procedure Action6Execute(Sender: TObject);
procedure Action7Execute(Sender: TObject);
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Action11Execute(Sender: TObject);
procedure Action12Execute(Sender: TObject);
procedure Action13Execute(Sender: TObject);
procedure Action14Execute(Sender: TObject);
procedure Action10Execute(Sender: TObject);
procedure Action15Execute(Sender: TObject);
procedure Action16Execute(Sender: TObject);
procedure Action17Execute(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure FindEditChange(Sender: TObject);
procedure Action4Execute(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TForm1.Action8Execute(Sender: TObject);
begin
Winhelp(Form1.Handle,'Копия Helpi.hlp',HELP_CONTEXT,1); / / Вызов справки
end;
procedure TForm1.Action9Execute(Sender: TObject);
begin
Form3.Show; // Открытие новой формы
end;
procedure TForm1.Action3Execute(Sender: TObject);
begin
DataModule2.BookTable1.Cancel; // отмена ввода в поле
DataModule2.BookTable2.Cancel;
DataModule2.BookTable3.Cancel;
DataModule2.BookTable4.Cancel;
DataModule2.BookTable5.Cancel;
end;
procedure TForm1.Action5Execute(Sender: TObject);
begin
DataModule2.BookTable1.Insert; //Добавить строку в таблицу
DBGrid1.SetFocus;
Form6.Show;
end;
procedure TForm1.Action6Execute(Sender: TObject);
begin
Form5.QuickRep1.PreviewModal;
end;
procedure TForm1.Action7Execute(Sender: TObject);
begin
DataModule2.BookTable1.Delete; //Удалить строку
end;
procedure TForm1.Action1Execute(Sender: TObject);
begin
Form4.QuickRep1.PreviewModal;
end;
procedure TForm1.Action2Execute(Sender: TObject);
begin
if DataModule2.BookTable1.Modified then
DataModule2.BookTable1.Post; //Сохранить введённые данные
if DataModule2.BookTable2.Modified then
DataModule2.BookTable2.Post;
if DataModule2.BookTable3.Modified then
DataModule2.BookTable3.Post;
if DataModule2.BookTable4.Modified then
DataModule2.BookTable4.Post;
if DataModule2.BookTable5.Modified then
DataModule2.BookTable5.Post;
Form1.close;
end;
procedure TForm1.Action11Execute(Sender: TObject);
begin
DataModule2.BookTable2.Insert;
DBGrid1.SetFocus;
Form7.Show;
end;
procedure TForm1.Action12Execute(Sender: TObject);
begin
DataModule2.BookTable3.Insert;
DBGrid1.SetFocus;
end;
procedure TForm1.Action13Execute(Sender: TObject);
begin
DataModule2.BookTable4.Insert;
DBGrid1.SetFocus;
end;
procedure TForm1.Action14Execute(Sender: TObject);
begin
DataModule2.BookTable5.Insert;
DBGrid1.SetFocus;
end;
procedure TForm1.Action10Execute(Sender: TObject);
begin
DataModule2.BookTable2.Delete;
end;
procedure TForm1.Action15Execute(Sender: TObject);
begin
DataModule2.BookTable3.Delete;
end;
procedure TForm1.Action16Execute(Sender: TObject);
begin
DataModule2.BookTable4.Delete;
end;
procedure TForm1.Action17Execute(Sender: TObject);
begin
DataModule2.BookTable5.Delete;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DataModule2.BookTable1.Modified then
DataModule2.BookTable1.Post;
if DataModule2.BookTable2.Modified then
DataModule2.BookTable2.Post;
if DataModule2.BookTable3.Modified then
DataModule2.BookTable3.Post;
if DataModule2.BookTable4.Modified then
DataModule2.BookTable4.Post;
if DataModule2.BookTable5.Modified then
DataModule2.BookTable5.Post;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
DataModule2 . BookTable1 . IndexFieldNames := ' Фамилия ' ; // Сортировка
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
DataModule2 . BookTable1 . IndexFieldNames := ' Дата ' ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Поиск
DataModule2.BookTable1.Locate(combobox1.Text,edit1.Text,[locaseinsensitive]);
DataModule2.BookTable1.Locate(combobox1.Text,edit1.Text,[lopartialkey]);
DataModule2.BookTable1.Locate(combobox1.Text,edit1.Text,[locaseinsensitive,lopartialkey]);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
DataModule2.BookTable2.Locate(combobox2.Text,edit2.Text,[locaseinsensitive]);
DataModule2.BookTable2.Locate(combobox2.Text,edit2.Text,[lopartialkey]);
DataModule2.BookTable2.Locate(combobox2.Text,edit2.Text,[locaseinsensitive,lopartialkey]);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
DataModule2.BookTable3.Locate(combobox3.Text,edit3.Text,[locaseinsensitive]);
DataModule2.BookTable3.Locate(combobox3.Text,edit3.Text,[lopartialkey]);
DataModule2.BookTable3.Locate(combobox3.Text,edit3.Text,[locaseinsensitive,lopartialkey]);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
DataModule2.BookTable4.Locate(combobox4.Text,edit4.Text,[locaseinsensitive]);
DataModule2.BookTable4.Locate(combobox4.Text,edit4.Text,[lopartialkey]);
DataModule2.BookTable4.Locate(combobox4.Text,edit4.Text,[locaseinsensitive,lopartialkey]);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
DataModule2.BookTable5.Locate(combobox5.Text,edit5.Text,[locaseinsensitive]);
DataModule2.BookTable5.Locate(combobox5.Text,edit5.Text,[lopartialkey]);
DataModule2.BookTable5.Locate(combobox5.Text,edit5.Text,[locaseinsensitive,lopartialkey]);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.caption:=timetostr(time) // отображение системного времени
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
DataModule2 . BookTable4. IndexFieldNames := ' Стоимость '
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
DataModule2. BookTable4 . IndexFieldNames := ' Перечень '
end;
procedure TForm1.RadioButton9Click(Sender: TObject);
begin
DataModule2 . BookTable3 . IndexFieldNames := ' Фамилия '
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
DataModule2 . BookTable2. IndexFieldNames := ' Фамилия '
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
DataModule2 . BookTable2 . IndexFieldNames := ' Дата '
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
DataModule2 . BookTable5 . IndexFieldNames := ' Фамилия ' ;
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
DataModule2 . BookTable5 . IndexFieldNames := ' Специальность ' ;
end;
procedure TForm1.FindEditChange(Sender: TObject);
begin
//Фильтрация данных
if Length (FindEdit.Text)>0 then
DataModule2.BookTable1.Filtered:=true
else
DataModule2.BookTable1.Filtered:=false;
DataModule2.BookTable1.Filter:='Фамилия >'''+FindEdit.Text+'''';
if Length (FindEdit.Text)>0 then
DataModule2.BookTable2.Filtered:=true
else
DataModule2.BookTable2.Filtered:=false;
DataModule2.BookTable2.Filter:='Фамилия >'''+FindEdit.Text+'''';
if Length (FindEdit.Text)>0 then
DataModule2.BookTable3.Filtered:=true
else
DataModule2.BookTable3.Filtered:=false;
DataModule2.BookTable3.Filter:='Фамилия >'''+FindEdit.Text+'''';
if Length (FindEdit.Text)>0 then
DataModule2.BookTable5.Filtered:=true
else
DataModule2.BookTable5.Filtered:=false;
DataModule2.BookTable5.Filter:='Фамилия >'''+FindEdit.Text+'''';
end;
procedure TForm1.Action4Execute(Sender: TObject);
begin
//
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
DataModule2.BookTable2.Insert;
DBGrid1.SetFocus;
Form7.Show;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
BookTable1: TADOTable;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
BookTable2: TADOTable;
DataSource2: TDataSource;
BookTable3: TADOTable;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
BookTable4: TADOTable;
BookTable5: TADOTable;
BookTable1DSDesigner2: TIntegerField;
BookTable1DSDesigner3: TWideStringField;
BookTable1DSDesigner4: TWideStringField;
BookTable1DSDesigner5: TBooleanField;
BookTable1DSDesigner6: TIntegerField;
BookTable1DSDesigner7: TWideStringField;
BookTable1DSDesigner8: TBCDField;
BookTable1DSDesigner9: TBCDField;
BookTable1DSDesigner10: TDateTimeField;
BookTable1DSDesigner: TWideStringField;
BookTable2DSDesigner: TIntegerField;
BookTable2DSDesigner2: TWideStringField;
BookTable2DSDesigner3: TWideStringField;
BookTable2DSDesigner4: TWideStringField;
BookTable2DSDesigner5: TDateTimeField;
BookTable2DSDesigner6: TWideStringField;
BookTable2DSDesigner7: TDateTimeField;
BookTable2DSDesigner8: TWideStringField;
BookTable3DSDesigner: TIntegerField;
BookTable3DSDesigner2: TWideStringField;
BookTable3DSDesigner3: TWideStringField;
BookTable3DSDesigner4: TWideStringField;
BookTable3DSDesigner5: TIntegerField;
BookTable3DSDesigner6: TIntegerField;
BookTable3DSDesigner7: TBooleanField;
BookTable5DSDesigner: TIntegerField;
BookTable5DSDesigner2: TWideStringField;
BookTable5DSDesigner3: TWideStringField;
BookTable5DSDesigner4: TWideStringField;
BookTable5DSDesigner5: TWideStringField;
BookTable5DSDesigner6: TWideStringField;
BookTable5DSDesigner7: TWideStringField;
procedure BookTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure BookTable2FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure BookTable3FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure BookTable5FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
uses Unit1, Unit3, Unit5;
{$R *.dfm}
procedure TDataModule2.BookTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
//Для фильтрации данных
Accept:=false;
if copy (BookTable1DSDesigner.AsString,1,Length (Form1.FindEdit.Text))= Form1.FindEdit.Text then
Accept:=true;
end;
procedure TDataModule2.BookTable2FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=false;
if copy (BookTable2DSDesigner2.AsString,1,Length (Form1.FindEdit.Text))= Form1.FindEdit.Text then
Accept:=true;
end;
procedure TDataModule2.BookTable3FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=false;
if copy (BookTable3DSDesigner2.AsString,1,Length (Form1.FindEdit.Text))= Form1.FindEdit.Text then
Accept:=true;
end;
procedure TDataModule2.BookTable5FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=false;
if copy (BookTable5DSDesigner2.AsString,1,Length (Form1.FindEdit.Text))= Form1.FindEdit.Text then
Accept:=true;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
begin
Close;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Close; // закрыть форму
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TForm4 = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit2;
{$R *.dfm}
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TForm5 = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit2;
{$R *.dfm}
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, DBCtrls, Mask;
type
TForm6 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBCheckBox1: TDBCheckBox;
Button1: TButton;
Button2: TButton;
Label10: TLabel;
Image1: TImage;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
DataModule2.BookTable1.Cancel; // отмена
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
if DataModule2.BookTable1.Modified then
DataModule2.BookTable1.Post;
Form6.Close ; // сохранение и выход
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
Form6.Close;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls;
type
TForm7 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label9: TLabel;
Label10: TLabel;
Image1: TImage;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TForm7.Button3Click(Sender: TObject);
begin
Form7.Close;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
DataModule2.BookTable2.Cancel;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
if DataModule2.BookTable2.Modified then
DataModule2.BookTable2.Post;
Form7.Close;
end;
end.