Организация пользовательского интерфейса
На главной форме (рис.3.1.) представлены кнопки, открывающие требуемые пользователю окна. Например, при нажатии на кнопку «Работа с товаром» срабатывает процедура:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
Рис.3.1. Главное окно программы
Рис.3.2. Окно «Регистрация товара»
Здесь пользователю предоставляется вводить/удалять новый товар. Также организован поиск по названию товара и цене и удаление товара по дате изготовления.
Поиск выглядит так (при нажатии на кнопку «Поиск») :
procedure TForm2.Button3Click(Sender: TObject);
begin
if edit2.text<>'' then begin
case Radiogroup1.ItemIndex of
- 0:Table1.Locate('Name_tovara',edit2.text,[LoCaseInsensitive,Lopartialkey]);
- 1:Table1.Locate('cena',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);
end;
end;
SQL-запрос организован следующим образом:
Для перехода на форму работы с поставщиками на главной форме нажмите на кнопку «Перейти в таблицу ПОСТАВЩИКИ» (рис 3.4.). В предоставленной Вам форме можно заполнить только реквизиты фирмы.
Рис.3.4. Окно регистрации ПОСТАВЩИКОВ.
В таблице поставщики поиск организован также, как и в остальных таблицах.
Рис.3.5. Таблица Накладная.
Здесь стоит выбрать какой номер накладной искать и нажать на кнопку «Поиск».
Процедура поиска выполнена с помощью компонента Radiogroup и выглядит так:
procedure TForm5.Button3Click(Sender: TObject);
begin
if edit2.text<>'' then begin
case Radiogroup1.ItemIndex of
- 0:Table1.Locate('N_nakl',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);
- 1:Table1.Locate('kol-vo_tovara',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);
end;
end;
После продажи товара необходимо выписать чек . Как он выглядит показано на рис.3.6 .
Рис.3.6. Чек.
Здесь осуществляется поиск по номеру чека и Дате продажи, а также
Удаление старого чека.
Пример накладной
В данный список нельзя внести данные интерактивно. Можно только удалить уже проданные товары. Пример программы выглядит так:
SELECT Nakl."Kol-vo_tovara", Tovar.Cena, Tovar.Kod_tovara, Post.Kod_post,Nakl."Kol-vo_tovara" * Cena as stoimost
FROM "TOVAR.DB" Tovar
INNER JOIN "CHEK.DB" Chek
ON (Tovar.Kod_tovara = Chek.Kod_tovara)
INNER JOIN "Nakl.DB" Nakl
ON (Tovar.Kod_tovara = Nakl.Kod_tovara)
INNER JOIN "KLIENT.DB" Klient
ON (Klient.Kod_klienta = Chek.Kod_klienta)
INNER JOIN "POST.DB" Post
ON (Post.Kod_post = Nakl.Kod_post)
Для выхода из приложения используйте кнопку «ВЫХОД».
Компоненты, используемые при создании приложения
Для создания форм использовались следующие компоненты Borland Delphi 5.5:
DataSource - источник данных, связывал таблицу с сеткой.
Table - набор данных, основанный на таблице БД;
DBNavigator - навигационный интерфейс, для перемещения по полям;
Query - набор данных, основанных на SQL-запросе, требуется для организации вывода по указанным критериям;
Edit - текстовое окно, которое служило для поиска элементов таблицы;
RadioGroup - группировка радиоэлементов для организация поиска;
Button - кнопки управления формой;
DBGrid - сетка данных, для организации вывода результатов запросов;
