Описание программы
В программе присутствуют 4 модуля: Work - основное окно программы, QuaryName - окно первого запроса, Cover-экран загрузки программы и MyClass – модуль, где описан мой класс TDataBase. Модуль MyClass: Таблица 2 – Символьные имена класса TDataBase.
1) Constructor TDataBase.Create(a,f,g:String;b,c,e:Real;d:Integer) – конструктор для класса TDataBase; 2) procedure TDataBase.CreateRecord – метод, входящий в данный класс, для создания записи в таблице базы данных; 3) Procedure TDataBase.EditRecord - метод, входящий в данный класс, для редактирования записи в таблице базы данных. Модуль QuaryName: 1) procedure TForm2.Button1Click – процедура для формирования запроса и отображения его результатов с возможностью вывода последних в документ MS Excel; Таблица 2 – Символьные имена procedure TForm2.Button1Click
Модуль Cover: 1) procedure TForm3.Timer1Time – процедура срабатывающая после окончания счетчика (применяется для визуальных эффектов программы, то есть загрузки); Модуль Work: 1) procedure TForm1.ApplyClick – процедура подтверждения добавления записи в таблицу; 2) procedure TForm1.Apply_Click – процедура подтверждения редактирования записи в таблице; 3) procedure TForm1.Button1Click – процедура открытия формы для запроса «поиск по ключу»; 4) procedure TForm1.Button2Click – процедура вывода всей таблицы в окне программы; 5) procedure TForm1.Button3Click – процедура выполнения 2-го запроса по заданию; Таблица 3 – Символьные имена procedure TForm1.Button3Click
6) procedure TForm1.Button4Click – отмена добавления/редактирования записи. 7) procedure TForm1.Edit2KeyPress – процедура, разрешающая пользователю вводить только числа; 8) procedure TForm1.Edit4KeyPress – процедура, разрешающая вводить пользователю только целые числа; 9) procedure TForm1.EditRecordClick – переводит программу в режим редактирования текущей записи; 10) procedure TForm1.DeleteClick – удаляет запись; 11) procedure TForm1.FirstClick – переводит курсор таблицы на первую запись; 12) procedure TForm1.FormClose – принудительно удаляет программу из списка процессов запущенных программ Windows; 13) procedure TForm1.LastClick – переводит курсор таблицы на последнюю запись; 14) procedure TForm1.NewRecordClick – переводит программу в режим добавления новой записи в таблице; 15) procedure TForm1.NextClick – передвигает курсор таблицы на следующую запись; 16) procedure TForm1.PreviousClick – передвигает курсор таблицы на предыдущую запись;
|