Разработка информационно-программного комплекса для использования на IBM-совместимых ПК в качестве автоматизированного рабочего места обработки информации
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
IBQuery1.Open;Flag1 then Form6.Close;;TForm6.Button2Click(Sender: TObject);.Close;;
end.
unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, frxClass;= class(TForm): TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm7;Unit1, Unit9;
{$R *.dfm}TForm7.Button1Click(Sender: TObject);t:TfrxMemoView;Form1.IBQuery1 do begin;.Clear;.Text := execute procedure PROC_DOG( + Edit1.Text +, + Edit2.Text + ,+ Edit3.Text +,+ Edit4.Text +,1);;.Commit;;.Text := select * from dogovor;;;
nilthen.memo.text:=Edit2.Text;:=TfrxMemoView(Form9.frxReport1.FindObject(Memo7));t nil then.memo.text := Form1.IBQuery2.FieldByName(BANK_S4ET).AsString;.Show;.frxReport1.ShowReport;
{==============}Form1.IBQuery2 do begin;.Clear;.Text := Insert into TOVARY_DOGOVOR(ID,NAIMENOVANIE,RAZMER,CENA,UPAKOVKA,GARANTSROK,ID_DOGOVOR,ID_OTDEL) +
select * from KORZINA;;.Commit;;.Clear;.Text := DELETE FROM KORZINA;;.Commit;;;.Button15.Enabled := false;.Button22.Enabled := false;.Button16.Enabled := false;.Label8.Caption := 0;.Visible := false;;TForm7.Button2Click(Sender: TObject);.Visible := false;;
end.
unit Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, frxClass, frxDBSet, frxPreview, StdCtrls, frxExportXLS;= class(TForm): TfrxReport;: TfrxPreview;: TfrxDBDataset;: TfrxXLSExport;: TButton;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm8;
{$R *.dfm}TForm8.Button1Click(Sender: TObject);.frxReport1.Export(Form8.frxXLSExport1);;
end.
unit Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, frxClass, frxPreview, frxExportRTF, frxDBSet;= class(TForm): TfrxDBDataset;: TfrxReport;: TfrxRTFExport;: TfrxPreview;: TButton;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm9;
{$R *.dfm}TForm9.Button1Click(Sender: TObject);.frxReport1.Export(Form9.frxRTFExport1);
end;
end.
10. Пользовательский интерфейс. Краткое руководство пользователя
Чтобы запустить ИПК необходимо дважды кликнуть левой кнопкой мыши по значку BD.exe. Перед вами откроется основное окно работы:
Рис.3. Основное окно работы
В этом окне будут совершаться все последующие действия с БД. На форме расположены вспомогательные кнопки для более быстрого доступа к информации, хранимой в базе. Каждая кнопка подписана, вся форма разделена на поля, подписи которых соответствуют их функциональному назначению в программе.
Для непосредственно работы с данными предусмотрено окно информации и соответствующие кнопки Добавить, Редактировать, Удалить. Кнопки не работают пока не будут выбраны данные, с которыми должно проводиться изменения:
Рис.4. Сообщение, выводимое при отсутствии выбора данных
После выбора данных, вся информация по ним будет выведено в окно информации:
Рис5. Окно информации и данные в нём
Данные, выводимые в окно информации можно упорядочивать по нескольким параметрам, зависящим от данных, которые выводятся в окно информации.
При нажатии на одну из кнопок Добавить, Редактировать и Удалить выводится соответствующее окно, в которое необходимо ввести желаемую информацию:
Рис 6. Добавление информации
В блоках За время, Поиск товара в наличии и Договоры за время перед вводом информации в текстовое поле необходимо сначала выбрать нужную радиокнопку - ключ, по которому ИПК будет совершать запрос в БД. Не выбрав радиокнопку - поиск будет невозможен. Вводить данные необходимо без кавычек, форматом, указанным рядом с радиокнопкой.
Рис.7. Пример неверного введения информации для поиска
Заключение договора происходит по следующей схеме: Пользователь просматривает товары поставщика, выбирает необходимый и нажимает кнопку Добавить в корзину:
Рис. 8. Добавление в корзину
Пользователь может удалять корзину, удалять товары из корзины. Рядом расположен счётчик, который считает стоимость товаров в корзине.
Нажав на кнопку Заключить договор, Пользователю открывается окно, куда он вводит всю необходимую информация, после чего нажимает Сохранить. Сразу же, ему представится отчёт о заключённом договоре, который можно сохранить на ПК:
Рис. 9. Отчёт по заключённому договору
Отчёт возможно экспортировать в Microsoft Office Word любой версии. Все данные по отчёту автоматически заносятся в БД.
В случае, если Пользователю необходимо оформить отчёт по уже заключённых договорам, ему необходимо в соответствующем блоке ввести ID интересующего его договора и нажать кнопку Отчёт:
Рис. 10. Отчёт по товарам в договоре
Отчёт возможно экспортировать в Microsoft Office EXCEL любой версии. Все данные по отчёту автоматически считываются из БД.
Заключение
Был создан ИПК, п