Меню
Главная
Авторизация/Регистрация
 
Главная arrow Информатика arrow Автоматизация работы складских помещений

Организация пользовательского интерфейса

На главной форме (рис.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 - сетка данных, для организации вывода результатов запросов;

 
Если Вы заметили ошибку в тексте выделите слово и нажмите Shift + Enter
< Предыдущая   СОДЕРЖАНИЕ   Следующая >
 

СКАЧАТЬ ОРИГИНАЛ
Автоматизация работы складских помещений