Автоматизированная система анализа государственных контрактов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?з базы данных и представленными в виде таблицы;
-TButton - широко используются для управления программами;
-TPopupMenu - используются для создания вспомогательных (локальных) меню, появляющихся после нажатия правой кнопки мыши. В отличие от главного меню, вспомогательное меню может быть создано для любого оконного компонента;
-TLabel - предназначен для размещения на форме различного рода текстовых надписей;
Главной задачей программирования интерфейса базы данных является предоставление пользователям удобных инструментов для реализации своих производственных задач. Программно реализованы следующие основные моменты:
.Подключение к базе данных:
procedure TForm1. Button1Click (Sender: TObject);.IBConnection1. DatabaseName:=FileNameEdit1. FileName;(неверный путь);;;.IBConnection1. Connected:=true;( Выберите файл базы данных (BASE.FDB));;;.SQLTransaction1. Active:=true;.SQLQuery1. Active:=true;.SQLQuery2. Active:=true;.SQLQuery3. Active:=true;.SQLQuery4. Active:=true;.SQLQuery5. Active:=true;.SQLQuery6. Active:=true;.SQLQuery7. Active:=true;.SQLQuery8. Active:=true;.SQLQuery9. Active:=true;.SQLQuery10. Active:=true;. Datasource1. Enabled:=true;. Datasource2. Enabled:=true;. Datasource3. Enabled:=true;. Datasource4. Enabled:=true;. Datasource5. Enabled:=true;. Datasource6. Enabled:=true;. Datasource7. Enabled:=true;. Datasource7. Enabled:=true;. Datasource8. Enabled:=true;. Datasource9. Enabled:=true;. Datasource10. Enabled:=true;. Caption:=состояние: подключено;. Visible:=true;. Visible:=true;. Visible:=true;(Ошибка подключения к базе);;;;TForm1. Button2Click (Sender: TObject);. Datasource1. Enabled:=false;. Datasource2. Enabled:=false;. Datasource3. Enabled:=false;. Datasource4. Enabled:=false;. Datasource5. Enabled:=false;. Datasource6. Enabled:=false;. Datasource7. Enabled:=false;. Datasource8. Enabled:=false;. Datasource9. Enabled:=false;. Datasource10. Enabled:=false;.SQLQuery1. Active:=false;.SQLQuery2. Active:=false;.SQLQuery3. Active:=false;.SQLQuery4. Active:=false;.SQLQuery5. Active:=false;.SQLQuery6. Active:=false;.SQLQuery7. Active:=false;.SQLQuery8. Active:=false;.SQLQuery9. Active:=false;.SQLQuery10. Active:=false;.SQLTransaction1. Active:=false;.IBConnection1. Connected:=false;. Visible:=false;. Visible:=false;. Visible:=false;1. Caption:=состояние: отключено;
end;
.Вызов необходимых форм через пункты меню главной формы, появляющегося после подключения к базе данных:
procedure TForm1. MenuItem2Click (Sender: TObject);.IBConnection1. Connected:=true;.SQLQuery2. Active:=true;. Datasource2. Enabled:=true;. CreateForm (TForm2, Form2);. Show;( Подключитесь к базе);;;;
.Сортировка данных при клике на шапку таблицы:
procedure TForm2.DBGrid1TitleClick (Column: TColumn);Column. Field. Tag = 0 then.SQLQuery2. Active:=false;.SQLQuery2.SQL. Clear;.SQLQuery2.SQL. Add (select * from podrazdeleniya ORDER BY + Column. FieldName);.SQLQuery2. Active:=true;. Datasource2. Enabled:=true;. Title. Font. Color:=clBlue;. Field. Tag:= not Column. Field. Tag;
end;;
.Сохранение введенной информации в базе данных:
procedure TForm2. Button1Click (Sender: TObject);.SQLQuery2. ApplyUpdates;.sqlquery2. Active:=false;.SQLtransaction1. Commit;.sqltransaction1. StartTransaction;.sqlquery2. Active:=true;(Сохранено);;
.Запрос на форме Показать приложения: select * FROM prilozh WHERE prilozh.N_dog=+ m, где m - номер государственного контракта, соответствующего выбранной строке в таблице Государственные контракты:
procedure TForm9. Button5Click (Sender: TObject);.SQLQuery9. Active:=false;.SQLQuery9.SQL. Clear;.SQLQuery9.SQL. Add (select * from gos_contr ORDER BY id);.SQLQuery9. Active:=true;. Datasource9. Enabled:=true;
end;
.Запрос Журнал счет-фактур: SELECT n_dog, podr, sum(stoim) FROM sch_f GROUP BY N_DOG, podr.
7.Запрос Исполнение государственных контрактов. Для его реализации необходимы:
procedure TForm12. Button1Click (Sender: TObject);str: string;. DataSource. DataSet. Close;.SQLQuery12.SQL. Clear;. SqlQuery12.SQL. Add (select * from isp_gk where PODR1=+chr(39)+DBLookupComboBox1. Text+chr(39)+ AND DATA Between +chr(39)+DateEdit1. Text+chr(39)+ AND +chr(39)+DateEdit2. Text+chr(39)+ Order By DATA;);. DataSource. DataSet. Open;.SQL. Clear;.SQL. Add (select sum(SUMM) AS summa From GOS_CONTR, ZHURNAL11 where N=N_DOG and PODR1=+chr(39)+DBLookupComboBox1. Text+chr(39)+ AND DATA Between +chr(39)+DateEdit1. Text+chr(39)+ AND +chr(39)+DateEdit2. Text+chr(39));. Active:=true;. Text:= DataSource1. DataSet. Fields[0].AsString;. DataSet. Close;.SQL. Clear;.SQL. Add (select sum (st) AS summa From GOS_CONTR, ZHURNAL11 where N=N_dog and PODR1=+chr(39)+DBLookupComboBox1. Text+chr(39)+ AND DATA Between +chr(39)+DateEdit1. Text+chr(39)+ AND +chr(39)+DateEdit2. Text+chr(39));. Active:=true;. Text:= DataSource2. DataSet. Fields[0].AsString;
DataSource2. DataSet. Close;;
Другие моменты разработки носят стандартный характер и не обладают какими либо специфическими особенностями.
Соблюдение канонических основ проектирования и программная реализация некоторых сложных моментов, носящих нетривиальный характер, позволила получить готовый к использованию продукт
6. Описание пользовательского интерфейса
Главная форма программного продукта Подключение изображена на рисунке 6.1 и представляет собой форму для выбора файла базы данных. После выбора базы и подключения к ней становится доступным меню для выбора справочников, таблиц и запросов (рис. 6.2). При нажатии на кнопку Справочники появляется список справочников. При выборе любой кнопки меню появляется соответствующая ей форма.
Рис. 6.1. Главная форма Подключение
Рис. 6.2. Главная форма после подключения к базе данных
На рисунке 6.3 представлена форма Подразделения.
Компоненты присутствующие на форме (Сверху вниз):
Навигатор. С его помощью осуществляется перемещение по строкам, добавление новой строки, удаление строки, редактирование, сохранение данных.
Поле редактирования и ввода данных.
Таблица Подразделения.
Кнопки сохранения и закрытия формы.
Аналогичным образом выглядят формы Наименование изделия (рис. 6.4), Предмет (рис. 6.5).
Рис. 6.3. Форма Подразделения
Рис. 6.4. Форма Наименование изделия
Рис. 6.5 Форма Предмет
Форма Исполнитель, которая изображена на рисунке 6.6 так же является справочником. Добавление новой строки, удаление строки, перемещение по строкам осуществляется с помощью навигатора. Ввод и редактирование данных осуществляется через соответствующие поля. Сохранение данных в таблице базы осуществляется кнопкой Сохранить или с помощью навигатора.
Рис