Выполнение индивидуального задания

Вести список книг в библиотеке (номер, наименование, автор, число экземпляров, число выданных экземпляров), при выдаче и приеме книг корректировать соответствующие значения.

Форма программы

Код программы:

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

XPManifest1: TXPManifest;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

ToolBar1: TToolBar;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ImageList1: TImageList;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit6: TDBEdit;

Label6: TLabel;

Label7: TLabel;

DBEdit8: TDBEdit;

DBEdit13: TDBEdit;

Label13: TLabel;

GroupBox1: TGroupBox;

DBEdit7: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

TabSheet3: TTabSheet;

Label9: TLabel;

Label10: TLabel;

DBEdit10: TDBEdit;

DBEdit9: TDBEdit;

Label11: TLabel;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

Label14: TLabel;

DBGrid2: TDBGrid;

Label12: TLabel;

Label15: TLabel;

OpenPictureDialog1: TOpenPictureDialog;

DBEdit5: TDBEdit;

DBMemo1: TDBMemo;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

DBEdit2: TDBEdit;

Label8: TLabel;

Query2: TQuery;

Table2: TTable;

Label19: TLabel;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

procedure N8Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure ToolButton8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

save, fileSave: boolean;

fileName: String;

stDay: array[1..7] of string[11] = ('воскресенье', 'понедельник', 'вторник',

'среда', 'четверг', 'пятница', 'суббота');

stMonth: array[1..12] of string[8] = ('января', 'февраля', 'марта',

'апреля', 'мая', 'июня', 'июля',

'августа', 'сентября', 'октября',

'ноября', 'декабря');

implementation

{$R *.dfm}

procedure TForm1.N8Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.About1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Label5.Caption: ='Yo`nalish: ';

Label7.Caption: ='Kurs: ';

Label8.Caption: ='Nomer: ';

Label1.Caption: ='Ismi: ';

Label2.Caption: ='Familya: ';

Label3.Caption: ='Otchestva: ';

Label4.Caption: ='Tugilgan yili: ';

Label13.Caption: ='Adres: ';

Label16.Caption: ='Telefon: ';

Label9.Caption: ='Kitob nomi: ';

Label10.Caption: ='Kitob mualifi: ';

Label12.Caption: ='Kitob kodi: ';

Label11.Caption: ='Masul xodim: ';

Label14.Caption: ='Talabaning kitob olgan vaqti: ';

Label15.caption: ='Talabaning to`pshirgan vaqti: ';

TabSheet1.Caption: ='Asosiy malumotlar';

TabSheet3.Caption: ='Kitoblar';

GroupBox1.Caption: ='Qo`shimcha malumot';

N1.Caption: ='Fayl';

n6.Caption: ='Chiqish';

n8.Caption: ='Qidirish';

Form2.RadioButton6.Caption: ='Yo`nalish';

Form2.RadioButton4.Caption: ='kurs';

Form2.RadioButton8.Caption: ='Guruh';

Form2.RadioButton1.Caption: ='Ism';

Form2.RadioButton2.Caption: ='Familya';

Form2.RadioButton5.Caption: ='Adres';

Form2.RadioButton7.Caption: ='Kitob';

n7.Caption: ='Tuzatish';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Label5.Caption: ='Направления: ';

Label7.Caption: ='Курс: ';

Label8.Caption: ='Номер: ';

Label1.Caption: ='Имя: ';

Label2.Caption: ='Фамилия: ';

Label3.Caption: ='Отчество: ';

Label4.Caption: ='Дата рождения: ';

Label13.Caption: ='Адрес: ';

Label13.Caption: ='Телефон: ';

Label9.Caption: ='Имя книги: ';

Label10.Caption: ='Автор книги: ';

Label12.Caption: ='Код книги: ';

Label11.Caption: ='Ответсини литсо: ';

Label14.Caption: ='Время получение книги студента: ';

Label15.caption: ='Дата возврата книга студента: ';

GroupBox1.Caption: ='Дополнительная информация';

N1.Caption: ='Файл';

n6.Caption: ='Выход';

n8.Caption: ='Поиск';

TabSheet1.Caption: ='Оснавная информация';

TabSheet3.Caption: =' Книги ';

N7.Caption: ='Правка';

Form2.RadioButton6.Caption: ='Направления ';

Form2.RadioButton4.Caption: ='Курс ';

Form2.RadioButton8.Caption: ='Группы';

Form2.RadioButton1.Caption: ='Имя';

Form2.RadioButton2.Caption: ='Фамилия';

Form2.RadioButton5.Caption: ='Адрес';

Form2.RadioButton7.Caption: ='Книга';

end;

procedure TForm1.FormActivate(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day: Word;

begin

with Session do

begin

ConfigMode: = cmSession;

try

AddStandardAlias('kollej',

ExtractFilePath(ParamStr(0))+'DATA\',

'PARADOX');

Table2.Active: =True;

finally

ConfigMode: = cmAll;

end;

end;

end;

procedure TForm1.ToolButton8Click(Sender: TObject);

begin

DataSource1.DataSet: =Table2;

end;

end.

Вывод: я приобрёл практические навыки разработки оконного программного интерфейса, закрепить навыки отладки и документирования программного обеспечения.