Автоматизация компьютерного магазина бытовой техники

Представляет собой текстовый редактор, позволяющий вводить одну строку информации. Вы можете просто набрать нужную строку или скопировать ее через буфер обмена.

При вводе работают следующие комбинации клавиш:

Ctrl+Insert, Ctrl+С - скопировать выделенный фрагмент в буфер Shift+Insert, Ctrl+V - вставить фрагмент из буфера обмена

Shift+Del - вырезать объект.

Ввод информации в таблицу

Ввод данных в таблицы осуществляется с помощью Прописания Данных о сотрудниках (Editn.text), при нажатии кнопки (Buttonn - «Заполнить таблицу» ).

Кнопка

Кнопки предназначены для активизации каких-либо действий, например открытия или закрытия окна, расчет и т.д. Кнопки могут иметь различную прямоугольную форму:

Переключатель с зависимой фиксацией

Переключатель с зависимой фиксацией, также называют кнопкой выбора. Соответствующие элементы управления отображаются в виде круга с текстовой надписью. Кнопки выбора обычно располагаются по отдельным группам, визуально выделенным на форме. Выбор переключателя является взаимоисключающим, то есть при выборе одного переключателя другие становятся невыбранными.

2.2.3 Диалог пользователя с системой

В случае неправильных действий пользователя предусматриваются сообщения об ошибках с целью стабильного функционирования программы. В программе использовались следующие сообщения об ошибках:

1. Если пользователь продал последнюю единицу товара, то выходит соответствующее сообщение, после чего запись об этом товаре удаляется из таблицы:

2. Если пользователь неправильно ввёл пароль при входе в Базу «Сотрудники» или «Поставщики» на экран выводится следующее сообщение:

При удалении сотрудника из базы выводится сообщение:

2.3 Инструкция по работе с системой

2.3.1 Установка и запуск программы

Программа «Автоматизация компьютерного магазина бытовой техники» разработана для IBM PC/AT совместимых компьютеров с процессором i486 и выше и для успешного функционирования требует:

ь установленную операционную систему, совместимую с Microsoft Windows 95, 98, Me или Windows NT (Windows NT AS/WS версии 4.0, Windows 2000, Windows XP).

ь не менее 6 Мб свободного пространства на диске для установки программы без учета объема вводимых данных, плюс место на диске необходимое для ввода данных в таблицы и создания новых таблиц баз данных не менее 10 Кб на одну таблицу;

ь не менее 64 Мб оперативной памяти;

ь установленный BDE Administrator совместно с Database Desktop.

Для установки программы на Ваш компьютер запустите файл SETUP.EXE, находящийся на CD-диске. Запуск данного файла осуществляется двойным щелчком мыши на него. Далее следуйте указаниям программы.

2.3.2 Руководство пользователя по работе с программой

После запуска программы появляется главная форма, с которой и происходит вся основная работа.

На этой форме пользователь выбирает базу «Сотрудники» или «Поставщики», данные разделы Закрыты паролем, для сохранения конфиденциальности. Можно воспользоваться справкой, нажав на клавишу F1 - будут описаны все разделы и таблицы.

1. В Разделе «Сотрудники», таблица «Сотрудники» мы видим:

Ввод данных, Фильтрацию, График (О з/п в зависимости от должности).

Если сотрудник занимает должность Продавца, при нажатии на + мы заносим его информацию в «Продавцы»

В таблице «Продавцы» содержит информацию:

Код продавца, ФИО, Телефон.

Поиск по фамилии. При продаже какого-либо товара, необходимо выделить продавца и перейти на вкладу «Архив продаж».

В таблице «Архив продаж»:

Информация:

· О проданном товаре.

· Об остатке товара на складе.

· Лидеры продаж (изображены на графике)

2. В разделе «Поставщики, в таблице «Поставщики» и «СклаД» мы видим информацию:

· О поставщиках

· О цене товара

Информация о продаже, о поставке товара выводится на печать при нажатии кнопки «Вывести на печать».

Удобная «Справка», расположенная на главной форме поможет разобраться в программе.

Экспериментальный раздел

3. Листинг программы

unit Unit2;

var

if MessageDlg('Для входа в Базу "Сотрудники", необходимо ввести пароль!',mtInformation,[mbYes,mbNo],0)=mrYes

then

edit1.Visible:=true;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if MessageDlg('Выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=mrYes

then

form2.close;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

label1.Caption:=FormatDateTime('dd mmmm yyyyyy "г." ', Now());

end;

procedure TForm2.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Button4Click(Sender: TObject);

var a:string;

i,x:integer;

begin

ProgressBar1.Visible:=true;

x:=1000000;

for i := 1 to x do progressbar1.Position:=Round(100*i/x);

ProgressBar1.Visible:=true;

Edit1.Visible:=True;

a:='111';

if edit1.Text<>a then

begin

MessageDlg('Проверьте правильность пароля!',mtError,[mbOk],0);

end

else

begin

ProgressBar1.Visible:=False;

form2.Hide;

form1.show;

edit1.Clear;

Edit1.Visible:=False;

button4.Visible:=False;

end;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

button4.Visible:=true;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if MessageDlg('Для входа в Базу "Поставщики", необходимо ввести пароль!',mtInformation,[mbYes,mbNo],0)=mrYes

then

edit2.Visible:=true;

end;

procedure TForm2.Edit2Change(Sender: TObject);

begin

button5.Visible:=true;

end;

procedure TForm2.Button5Click(Sender: TObject);

var b:String;

i,x:integer;

begin

Edit2.Visible:=True;

b:='222';

ProgressBar1.Visible:=true;

x:=1000000;

for i := 1 to x do progressbar1.Position:=Round(100*i/x);

ProgressBar1.Visible:=true;

if edit2.Text<>b then

begin

MessageDlg('Проверьте правильность пароля!',mtError,[mbOk],0);

end

else

begin

form2.Hide;

ProgressBar1.Visible:=False;

form3.show;

edit2.Clear;

Edit2.Visible:=False;

button5.Visible:=False;

end;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,0);

end;

end.

unit Unit1;

var

Form1: TForm1;

Spos,s:integer;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if edit1.Text='' then

MessageDlg('Введите фамилию!',mtinformation, [mbok],0)

else

Table1.Filtered:=true;

table1.Filter:='Fam_sotr=''' + edit1.Text+'*''';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

if ComboBox1.Text='' then

MessageDlg('Выберите Должность!',mtinformation, [mbok],0)

else

Table1.Filtered:=true;

table1.Filter:='Dolznost=''' + ComboBox1.Text+'*''';

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1.RadioButton7Click(Sender: TObject);

begin

if Edit2.Text=''then

MessageDlg('Введите диапазон!',mtinformation, [mbok],0)

else

Table1.Filtered:=true;

Table1.Filter:='zp>'+Edit2.Text+'and zp<'+Edit3.Text;

end;

procedure TForm1.RadioButton8Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

Table1.Append;

Table1.FieldByName('Fam_sotr').AsString:=Edit4.Text;

Table1.FieldByName('Imya').AsString:=Edit5.Text;

Table1.FieldByName('Otchestvo').AsString:=Edit7.Text;

Table1.FieldByName('Dolznost').AsString:=ComboBox3.Text;

Table1.FieldByName('Zp').AsString:=Edit6.Text;

Table1.FieldByName('Adress').AsString:=Edit16.Text;

Table1.FieldByName('Telephone').AsString:=Edit17.Text;

Table1.FieldByName('Date_priema').AsString:= datetostr(DateTimePicker1.Date);

Table1.Post;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if MessageDlg('Удалить запись?',mtWarning,[mbYes,mbNo],0)=mrYes

then Table1.Delete;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form3.Table3.Filtered:=false;

form1.Hide;

form2.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,0);

end;

procedure TForm1.N9Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b,c, k,o,l:integer;

begin

a:=strtoint(edit10.text);

b:=strtoint(SpinEdit1.text);

c:=a-b;

form3.Table3.Edit;

form3.Table3.FieldByName('Kol_vo_tov').AsString:=inttostr(c);

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

form3.Table3.Post;

if edit10.text<'0' then

begin

MessageDlg('Невозможно"!',mtinformation, [mbok],0);

end

else

begin

if edit10.text='0' then

begin

MessageDlg('Больше нету"!',mtinformation, [mbok],0)

end

else

begin

Table2.Append;

table2.FieldByName('kod').AsInteger:=SpinEdit2.value;

Table2.FieldByName('Imya').AsString:=DBEdit2.Text;

Table2.FieldByName('Otchestvo').AsString:=DBEdit3.Text;

Table2.FieldByName('Fam_sotr').AsString:=DBEdit1.Text;

Table2.FieldByName('Naim_tov').AsString:=ComboBox2.Text;

Table2.FieldByName('Kol_vo'). AsString:=SpinEdit1.text;

Table2.FieldByName('Summa_stoim').AsString:=Edit9.Text;

Table2.FieldByName('Date_prod').AsString:= datetostr(DateTimePicker2.Date);

k:=Table2.FieldByName('Kol_vo').AsInteger;

o:=Table2.FieldByName('Summa_stoim').AsInteger;

Table2.FieldByName('Summa').AsInteger:=k*o;

Table2.Post;

PageControl2.TabIndex:=3;

Table3.Append;

Table3.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then

QuickRep2.Preview;

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

if edit10.text='0' then

begin

MessageDlg('Больше нету"!',mtinformation, [mbok],0)

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then Table2.Delete;

query1.Active:=True;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

a,b,c, k,o,l:integer;

begin

a:=strtoint(edit10.text);

b:=strtoint(SpinEdit1.text);

c:=a-b;

form3.Table3.Edit;

form3.Table3.FieldByName('Kol_vo_tov').AsString:=inttostr(c);

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

form3.Table3.Post;

if edit10.text<'0' then

begin

MessageDlg('Невозможно"!',mtinformation, [mbok],0);

end

else

begin

if edit10.text='0' then

begin

MessageDlg('Больше нету"!',mtinformation, [mbok],0)

end

else

begin

Table2.Edit;

table2.FieldByName('kod').AsInteger:=SpinEdit2.value;

Table2.FieldByName('Imya').AsString:=DBEdit2.Text;

Table2.FieldByName('Otchestvo').AsString:=DBEdit3.Text;

Table2.FieldByName('Fam_sotr').AsString:=DBEdit1.Text;

Table2.FieldByName('Naim_tov').AsString:=ComboBox2.Text;

Table2.FieldByName('Kol_vo'). AsString:=SpinEdit1.text;

Table2.FieldByName('Summa_stoim').AsString:=Edit9.Text;

Table2.FieldByName('Date_prod').AsString:= datetostr(DateTimePicker2.Date);

k:=Table2.FieldByName('Kol_vo').AsInteger;

o:=Table2.FieldByName('Summa_stoim').AsInteger;

Table2.FieldByName('Summa').AsInteger:=k*o;

Table2.Post;

PageControl2.TabIndex:=3;

Table3.Edit;

Table3.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then

QuickRep2.Preview;

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

if edit10.text='0' then

begin

MessageDlg('Больше нету"!',mtinformation, [mbok],0)

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrYes

then

if DBEdit21.Text='' then

MessageDlg('',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + DBEdit21.Text+'*''';

if DBEdit20.Text='' then

MessageDlg('',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Imya=''' + DBEdit20.Text+'*''';

begin

Table1.Edit;

Table1.FieldByName('Fam_sotr').AsString:=Edit4.Text;

Table1.FieldByName('Imya').AsString:=Edit5.Text;

Table1.FieldByName('Otchestvo').AsString:=Edit7.Text;

Table1.FieldByName('Dolznost').AsString:=ComboBox3.Text;

Table1.FieldByName('Zp').AsString:=Edit6.Text;

Table1.FieldByName('Adress').AsString:=Edit16.Text;

Table1.FieldByName('Telephone').AsString:=Edit17.Text;

Table1.FieldByName('Date_priema').AsString:= datetostr(DateTimePicker1.Date);

if MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrno then

Table4.Edit ;

Table4.FieldByName('Fam_prod').AsString:=DBEdit4.Text ;

Table4.FieldByName('Otchestvo').AsString:=DBEdit5.Text ;

Table4.FieldByName('Imya').AsString:=DBEdit6.Text ;

Table4.FieldByName('Dolznost').AsString:=DBComboBox1.Text ;

Table4.FieldByName('ZP').AsString:=DBEdit7.Text ;

Table4.FieldByName('Address').AsString:=DBEdit9.Text ;

Table4.FieldByName('Telephone').AsString:=DBEdit10.Text ;

Table4.FieldByName('Date_priema').AsString:=DBEdit8.Text ;

Table1.Post;

Table4.Post;

Table4.Filtered:=false;

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DataSource1.DataSet:=table1;

Table1.Active:= true;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if ComboBox4.Text='' then

MessageDlg('Выберите из списка наименование товара!',mtinformation, [mbok],0)

else

Table2.Filtered:=true;

table2.Filter:='Naim_tov=''' + ComboBox4.Text+'*''';

end;

procedure TForm1.RadioButton9Click(Sender: TObject);

begin

Table2.Filtered:=false;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

if MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then

QuickRep1.Preview;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

Table4.Append;

Table4.FieldByName('Fam_prod').AsString:=DBEdit4.Text;

Table4.FieldByName('Otchestvo').AsString:=DBEdit5.Text;

Table4.FieldByName('Imya').AsString:=DBEdit6.Text;

Table4.FieldByName('Dolznost').AsString:=DBComboBox1.Text;

Table4.FieldByName('ZP').AsString:=DBEdit7.Text;

Table4.FieldByName('Address').AsString:=DBEdit9.Text;

Table4.FieldByName('Telephone').AsString:=DBEdit10.Text;

Table4.FieldByName('Date_priema').AsString:=DBEdit8.Text;

Table4.Post;

MessageDlg('Данные занесены в таблицу "Продавцы"!',mtinformation, [mbok],0)

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

if MessageDlg('Удалить запись?',mtWarning,[mbYes,mbNo],0)=mrYes

then Table4.Delete;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

if edit20.Text='' then

MessageDlg('Введите фамилию!',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + edit20.Text+'*''';

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

if ComboBox5.Text='' then

MessageDlg('Выберите Должность!',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Dolznost=''' + ComboBox5.Text+'*''';

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Table4.Filtered:=false;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

PageControl2.TabIndex:=3;

Table3.Append;

Table3.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then

QuickRep2.Preview;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

if DBEdit19.Text='' then

MessageDlg('',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + DBEdit19.Text+'*''';

if DBEdit20.Text='' then

MessageDlg('',mtinformation, [mbok],0)

else

Table4.Filtered:=true;

table4.Filter:='Imya=''' + DBEdit20.Text+'*''';

if MessageDlg('Удалить продавца?',mtWarning,[mbYes,mbNo],0)=mrYes

then

table4.Delete;

Table4.Filtered:=false;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

SpinEdit2.value:=table2.FieldByName('kod').AsInteger;

ComboBox2.Text:=Table2.FieldByName('Naim_tov').AsString;

SpinEdit1.text:=Table2.FieldByName('Kol_vo').Asstring;

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';

edit10.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;

end;

procedure TForm1.RadioButton10Click(Sender: TObject);

begin

if edit8.Text='' then

MessageDlg('Введите фамилию!',mtinformation, [mbok],0)

else

Table2.Filtered:=true;

table2.Filter:='Fam_sotr=''' + edit8.Text+'*''';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label32.Caption:=FormatDateTime('dd mmmm yyyyyy "г." ', Now());

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

Edit4.Text:=Table1.FieldByName('Fam_sotr').AsString;

Edit5.Text:=Table1.FieldByName('Imya').AsString;

Edit7.Text:=Table1.FieldByName('Otchestvo').AsString;

ComboBox3.Text:=Table1.FieldByName('Dolznost').AsString;

Edit6.Text:=Table1.FieldByName('Zp').AsString;

Edit16.Text:=Table1.FieldByName('Adress').AsString;

Edit17.Text:=Table1.FieldByName('Telephone').AsString;

end;

end.

unit Unit3;

procedure TForm3.Button1Click(Sender: TObject);

begin

if MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

Table1.Append;

Table1.FieldByName('Nazvamie_org').AsString:=Edit2.Text;

Table1.FieldByName('Naim_tov').AsString:=ComboBox1.Text;

Table1.FieldByName('Fam_post').AsString:=Edit7.Text;

Table1.FieldByName('Imya').AsString:=Edit8.Text;

Table1.FieldByName('Otchestvo').AsString:=Edit9.Text;

Table1.FieldByName('Address').AsString:=Edit3.Text;

Table1.FieldByName('Telephone').AsString:=Edit4.Text;

Table1.Post;

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

if MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then Table1.Delete;

end;

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

if edit1.Text='' then

MessageDlg('Введите фамилию!',mtinformation, [mbok],0)

else

Table1.Filtered:=true;

table1.Filter:='Fam_post=''' + edit1.Text+'*''';

end;

procedure TForm3.RadioButton2Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm3.RadioButton3Click(Sender: TObject);

begin

if ComboBox2.Text='' then

MessageDlg('Введите наименование!',mtinformation, [mbok],0)

else

Table1.Filtered:=true;

table1.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';

end;

procedure TForm3.RadioButton4Click(Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

form3.close;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

if MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

Table3.Append;

Table3.FieldByName('Naim_tov').AsString:=DBComboBox1.Text;

Table3.FieldByName('Cena_za_sht').AsString:=Edit5.Text;

Table3.FieldByName('Skidka').AsString:=Edit6.Text;

Table3.FieldByName('Kol_vo_tov').AsString:=Spinedit1.Text;

Table3.FieldByName('Date_postavk').AsString:= datetostr(DateTimePicker1.Date);

a:=Table3.FieldByName('Cena_za_sht').asinteger;

b:=Table3.FieldByName('Skidka').AsInteger;

c:=Table3.FieldByName('Kol_vo_tov').AsInteger;

s:=a*b;

s:=s div 100;

s:=a-s;

Table3.FieldByName('CenaSoSkidkoy').asinteger:=s;

Table3.FieldByName('Kol').asinteger:=s*c;

if MessageDlg('Вывести на печать?',mtinformation,[mbYes,mbNo],0)=mrYes

then

QuickRep1.Preview;

end;

Table3.post;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

if MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYes

then Table3.Delete;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

if MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

Table3.Edit;

Table3.FieldByName('Naim_tov').AsString:=DBComboBox1.Text;

Table3.FieldByName('Cena_za_sht').AsString:=Edit5.Text;

Table3.FieldByName('Skidka').AsString:=Edit6.Text;

Table3.FieldByName('Kol_vo_tov').AsString:=Spinedit1.Text;

Table3.FieldByName('Date_postavk').AsString:= datetostr(DateTimePicker1.Date);

a:=Table3.FieldByName('Cena_za_sht').asinteger;

b:=Table3.FieldByName('Skidka').AsInteger;

c:=Table3.FieldByName('Kol_vo_tov').AsInteger;

s:=a*b;

s:=s div 100;

s:=a-s;

Table3.FieldByName('CenaSoSkidkoy').asinteger:=s;

Table3.FieldByName('Kol').asinteger:=s*c;

if MessageDlg('Вывести на печать?',mtinformation,[mbYes,mbNo],0)=mrYes

then

QuickRep1.Preview;

end;

Table3.post;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

if MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

Table1.edit;

Table1.FieldByName('Nazvamie_org').AsString:=Edit2.Text;

Table1.FieldByName('Naim_tov').AsString:=ComboBox1.Text;

Table1.FieldByName('Fam_post').AsString:=Edit7.Text;

Table1.FieldByName('Imya').AsString:=Edit8.Text;

Table1.FieldByName('Otchestvo').AsString:=Edit9.Text;

Table1.FieldByName('Address').AsString:=Edit3.Text;

Table1.FieldByName('Telephone').AsString:=Edit4.Text;

Table1.Post;

end;

end;

procedure TForm3.N16Click(Sender: TObject);

begin

form3.Hide;

form2.Show;

end;

procedure TForm3.RadioButton5Click(Sender: TObject);

begin

if ComboBox4.Text='' then

MessageDlg('Введите наименование!',mtinformation, [mbok],0)

else

Table3.Filtered:=true;

table3.Filter:='Naim_tov=''' + ComboBox4.Text+'*''';

end;

procedure TForm3.RadioButton6Click(Sender: TObject);

begin

Table3.Filtered:=false;

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

if DBComboBox1.Text='' then

MessageDlg('Введите наименование!',mtinformation, [mbok],0)

else

Table3.Filtered:=true;

table3.Filter:='Naim_tov=''' + DBComboBox1.Text+'*''';

QuickRep1.Preview;

Table3.Filtered:=False;

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

//Table2.Delete;

end;

procedure TForm3.Button9Click(Sender: TObject);

begin

DBComboBox1.Text:=Table3.FieldByName('Naim_tov').AsString;

Edit5.Text:=Table3.FieldByName('Cena_za_sht').AsString;

Edit6.Text:=Table3.FieldByName('Skidka').AsString;

Spinedit1.Text:=Table3.FieldByName('Kol_vo_tov').AsString;

end;

procedure TForm3.Button10Click(Sender: TObject);

begin

edit2.Text:=Table1.FieldByName('Nazvamie_org').AsString;

ComboBox1.Text:=Table1.FieldByName('Naim_tov').AsString;

Edit7.Text:=Table1.FieldByName('Fam_post').AsString;

edit8.Text:=Table1.FieldByName('Imya').AsString;

Edit9.Text:=Table1.FieldByName('Otchestvo').AsString;

Edit3.Text:=Table1.FieldByName('Address').AsString;

Edit4.Text:=Table1.FieldByName('Telephone').AsString;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,0);

end;

end.

unit Unit5

procedure TForm5.Button1Click(Sender: TObject);

1) В.В. Фаронов/Delphi-программирование на языке высокого уровня

2) А.Я. Архангельский - 100 компонентов Delphi

3) Шумаков - Базы данных в среде Delphi5

4) В. Гофман, А. Хомоненко - Dephu, Быстрый старт

5) www.cps.ru/wwwboard/delphi/forum (Конференция по Delphi)

6) Е. Марков - Программирование в Делфи7

Размещено на Allbest.ru