BitBtn1.Visible:=True;//Появлениекнопки
BitBtn2.Visible:=True;//Появлениекнопки
BitBtn3.Visible:=True;//Появлениекнопки
BitBtn4.Visible:=True;//Появлениекнопки
BitBtn6.Visible:=True;//Появлениекнопки
BitBtn7.Visible:=True;//Появлениекнопки
Label1.Visible:=True;//Появлениетекста
Label2.Visible:=True;//Появлениетекста
Label3.Visible:=True;//Появлениетекста
Label4.Visible:=True;//Появлениетекста
Label5.Visible:=True;//Появлениетекста
Label6.Visible:=True;//Появлениетекста
Label7.Visible:=True;//Появлениетекста
Label8.Visible:=True;//Появлениетекста
DBEdit1.Visible:=True;//Появление текстового поля
DBEdit2.Visible:=True;//Появление текстового поля
DBEdit3.Visible:=True;//Появление текстового поля
DBEdit4.Visible:=True;//Появление текстового поля
DBEdit5.Visible:=True;//Появление текстового поля
DBEdit6.Visible:=True;//Появление текстового поля
DBEdit7.Visible:=True;//Появление текстового поля
DBEdit8.Visible:=True;//Появление текстового поля
ShowMessage('Товар продан!');
Edit24.Text:='0';//Занесение информации в текстовое поле
Panel6.Visible:=False;//Скрытие компонента
BitBtn7.Visible:=False;//Скрытие кнопки
BitBtn9.Visible:=false;//Скрытие кнопки
dm.ADOQGaranti.Parameters[0].Value:=dm.Prodazi.FieldValues['Гарантийный талон'];//Задание значения параметра
dm.ADOQGaranti.Close;//Закрытие таблицы ADOQGaranti
dm.ADOQGaranti.Open;//Открытие таблицы ADOQGaranti
dm.ADOQGaranti.Active:=False;//Обновление информации в таблице ADOQGaranti
dm.ADOQGaranti.Active:=True;//Обновление информации в таблице ADOQGaranti
begin
garanti1.QRLabel3.Caption:=inttostr(aaa);
garanti1.QuickRep1.Refresh;//Обновлениекомпонента
garanti1.QuickRep1.Preview;//Выводнапросмотр
end;
begin
for z:=1 to dm.ADOZacaz.RecordCount do
begin
dm.ADOZacaz.Delete;//Удалениезаписивтаблице ADOZacaz
dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz
end;
end;
GroupBox7.Enabled:=True;
Button2.Enabled:=True;//Запрещение нажатия на кнопку
Button1.Enabled:=True;//Запрещение нажатия на кнопку
Button3.Enabled:=True;//Запрещение нажатия на кнопку
Button4.Enabled:=True;//Запрещение нажатия на кнопку
Button5.Enabled:=True;//Запрещение нажатия на кнопку
Button6.Enabled:=True;//Запрещение нажатия на кнопку
dm.ADOQTovar.Close;//Закрытие таблицы ADOQTovar
dm.ADOQTovar.Open;//Открытие таблицы ADOQTovar
Button10.Click;//Нажатие кнопки
dm.ADOQZaprosProdazi.Close;//Закрытие таблицы ADOQZaprosProdazi
dm.ADOQZaprosProdazi.Open;//Открытие таблицы ADOQZaprosProdazi
Button13.Click;//Нажатие кнопки
GroupBox9.Visible:=True;//Появление компонента
Edit1.Text:='';//Вывод текста
Edit2.Text:='';//Вывод текста
Edit3.Text:='';//Вывод текста
Edit4.Text:=' - - - - - - - - - - - -';//Выводтекста
Edit5.Text:='';//Выводтекста
end;
11. procedureTProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации
procedure TProdat11.BitBtn9Click(Sender: TObject);
var i:integer;
begin
Prodat11.GroupBox7.Enabled:=True;
Prodat11.Button2.Enabled:=True;
Prodat11.Button3.Enabled:=True;
Prodat11.Button4.Enabled:=True;
Prodat11.Button5.Enabled:=True;
Prodat11.Button6.Enabled:=True;
Prodat11.Panel6.Visible:=False;//Скрытие компонента
dm.ADOQZViv.SQL.Clear;//Очистка запроса в таблице ADOQZViv
CheckBox2.Checked:=False;//Изменение значения компонента
for i:=1 to dm.ADOZacaz.RecordCount do
begin
dm.ADOZacaz.Delete;//Удаление записи из таблицы ADOZacaz
dm.ADOZacaz.Next;//Переход на следующую строку в таблице ADOZacaz
end;
Prodat11.BitBtn53.Click;//Нажатие кнопки
BitBtn7.Visible:=False;//Скрытие кнопки
BitBtn9.Visible:=False;//Скрытие кнопки
GroupBox6.Visible:=False;//Скрытие компонента
Prodat11.DBGrid12.Enabled:=False;
Prodat11.DBGrid13.Enabled:=False;
Prodat11.SpeedButton1.Visible:=False;//Скрытие компонента
Prodat11.SpeedButton2.Visible:=False;//Скрытие компонента
Prodat11.SpeedButton3.Visible:=False;//Скрытие компонента
Prodat11.SpeedButton4.Visible:=False;//Скрытие компонента
Prodat11.GroupBox8.Visible:=False;//Скрытие компонента
Prodat11.GroupBox7.Enabled:=True;
Prodat11.Button2.Enabled:=True;
Prodat11.Button3.Enabled:=True;
Prodat11.Button4.Enabled:=True;
Prodat11.Button5.Enabled:=True;
Prodat11.Button6.Enabled:=True;
end;
12. procedureTProdat11.BitBtn12Click – добавление информации о сотрудниках в базу данных
procedure TProdat11.BitBtn12Click(Sender: TObject);
begin
Button21.Visible:=false;
GroupBox9.Visible:=False;//Скрытие компонента
CheckBox2.Checked:=True;//Изменение значения компонента
GroupBox7.Visible:=False;//Скрытие компонента
BitBtn11.Visible:=False;//Скрытие кнопки
DBComboBox2.Enabled:=True;
BitBtn13.Visible:=False;//Скрытие кнопки
BitBtn14.Visible:=False;//Скрытие кнопки
BitBtn15.Visible:=False;//Скрытие кнопки
BitBtn12.Visible:=False;//Скрытие кнопки
BitBtn18.Visible:=False;//Скрытие кнопки
BitBtn16.Visible:=False;//Скрытие кнопки
BitBtn17.Visible:=False;//Скрытие кнопки
BitBtn19.Visible:=False;//Скрытие кнопки
BitBtn21.Visible:=True;//Появление кнопки
BitBtn20.Visible:=True;//Появление кнопки
DBEdit9.ReadOnly:=False;//Разрешение изменения записи
DBComboBox1.ReadOnly:=False;//Разрешение изменения записи
DBEdit11.ReadOnly:=False;//Разрешение изменения записи
DBEdit12.ReadOnly:=False;//Разрешение изменения записи
DBEdit13.ReadOnly:=False;//Разрешение изменения записи
DBEdit14.ReadOnly:=False;//Разрешение изменения записи
DBEdit15.ReadOnly:=False;//Разрешение изменения записи
DBEdit9.SetFocus;//Курсор находится в данном текстовом поле
DBNavigator2.BtnClick(nbInsert);//Добавление строки в базу данных
Button15.Click;//Нажатие кнопки
BitBtn20.Enabled:=False;
BitBtn19.Enabled:=False;
end;
13. procedureTProdat11.BitBtn14Click – Изменение информации о сотрудниках
procedure TProdat11.BitBtn14Click(Sender: TObject);
begin
Button21.Visible:=False;
GroupBox9.Visible:=False;//Скрытие компонента
CheckBox2.Checked:=True;//Изменение значения компонента
GroupBox7.Visible:=False;//Скрытие компонента
BitBtn11.Visible:=False;//Скрытие кнопки
DBGrid2.Enabled:=False;
DBComboBox2.Enabled:=True;
BitBtn12.Visible:=False;//Скрытие кнопки
BitBtn13.Visible:=False;//Скрытие кнопки
BitBtn14.Visible:=False;//Скрытие кнопки
BitBtn15.Visible:=False;//Скрытие кнопки
BitBtn16.Visible:=False;//Скрытие кнопки
BitBtn17.Visible:=False;//Скрытие кнопки
BitBtn18.Visible:=False;//Скрытие кнопки
BitBtn20.Visible:=False;//Скрытие кнопки
BitBtn21.Visible:=True;//Появление кнопки
BitBtn19.Visible:=True;//Появление кнопки
DBEdit9.ReadOnly:=False;//Разрешение изменения записи
DBComboBox1.ReadOnly:=False;//Разрешение изменения записи
DBEdit11.ReadOnly:=False;//Разрешение изменения записи
DBEdit12.ReadOnly:=False;//Разрешение изменения записи
DBEdit13.ReadOnly:=False;//Разрешение изменения записи
DBEdit14.ReadOnly:=False;//Разрешение изменения записи
DBEdit15.ReadOnly:=False;//Разрешение изменения записи
DBEdit9.SetFocus;//Курсор находится в данном текстовом поле
DBNavigator2.BtnClick(nbEdit);//Изменение информации
BitBtn20.Enabled:=False;
BitBtn19.Enabled:=False;
end;
14. procedureTProdat11.BitBtn21Click – отмена добавления записи в таблицу "товар"
procedure TProdat11.BitBtn21Click(Sender: TObject);
begin
Button21.Visible:=True;
DBComboBox2.Enabled:=False;
GroupBox9.Visible:=True;//Появлениекомпонента
GroupBox7.Visible:=True;//Появлениекомпонента
BitBtn12.Visible:=True;//Появлениекнопки
BitBtn13.Visible:=True;//Появлениекнопки
BitBtn14.Visible:=True;//Появлениекнопки
BitBtn15.Visible:=True;//Появлениекнопки
BitBtn16.Visible:=True;//Появлениекнопки
BitBtn17.Visible:=True;//Появлениекнопки
BitBtn18.Visible:=True;//Появлениекнопки
BitBtn19.Visible:=False;//Скрытиекнопки
BitBtn20.Visible:=False;//Скрытиекнопки
BitBtn21.Visible:=False;//Скрытиекнопки
DBNavigator2.BtnClick(nbCancel);//Отмена действия в базе данных
DBEdit9.ReadOnly:=True;//Запрещение изменения записи
DBComboBox1.ReadOnly:=True;//Запрещение изменения записи
DBEdit11.ReadOnly:=True;//Запрещение изменения записи
DBEdit12.ReadOnly:=True;//Запрещение изменения записи
DBEdit13.ReadOnly:=True;//Запрещение изменения записи
DBEdit14.ReadOnly:=True;//Запрещение изменения записи
DBEdit15.ReadOnly:=true;//Запрещение изменения записи
DBGrid2.Enabled:=True;
Prodat11.Refresh;//Обновлениеформы Tovar
CheckBox2.Checked:=False;//Изменение значения компонента
end;
15. procedureTProdat11.BitBtn42Click – Удаление информации о осуществленной продаже
procedure TProdat11.BitBtn42Click(Sender: TObject);
var z:integer;
begin
dm.Prodazi.First;//Переходкпервойзаписивтаблице Prodazi
Edit17.Text:=DBEdit29.Text;//Занесение информации в текстовое поле
begin
for z:=1 to dm.Prodazi.RecordCount do
begin
if Edit17.Text=dm.Prodazi.FieldByName('№ продажи').AsString then
begin
DBNavigator8.BtnClick(nbDelete);//Удалениезаписи
ShowMessage('Запись сейчас будет удалена');//Вывод сообщения
Button14.Click;//Нажатие кнопки
Button13.Click;//Нажатие кнопки
end
else
dm.Prodazi.Next;//Переход к следующей записи в таблице Prodazi
end;
end;
Button13.Click;//Нажатиекнопки
end;
16. procedureTProdat11.BitBtn48Click – Удаление записи из таблици "Заказ"
procedure TProdat11.BitBtn48Click(Sender: TObject);
begin
begin
if dm.ADOZacaz.FieldByName('№ товара').AsString<>'' then
begin
dm.ADOZacaz.Delete;//Удалениезаписиизтаблицы ADOZacaz
Prodat11.BitBtn53.Click;//Нажатиекнопки
end;
begin
if dm.ADOZacaz.FieldByName('№ товара').AsString='' then
begin
BitBtn9.Click;//Нажатиекнопки
Prodat11.Panel6.Visible:=False;//Скрытиепанели
Prodat11.GroupBox8.Visible:=False;//Скрытиекомпонента
end;
end;
end;
Prodat11.Button16.Click;//Нажатиекнопки
end;
17. procedureTProdat11.BitBtn53Click – Расчет стоимости всего выбранного товара
procedure TProdat11.BitBtn53Click(Sender: TObject);
var q,w:integer;
begin
w:=0;//Обнулениепеременной
dm.ADOZacaz.First;//Переход к первой записии в таблице ADOZacaz
for q:=1 to dm.ADOZacaz.RecordCount do
begin
w:=w+StrToInt(dm.ADOZacaz.FieldByName('Итого').AsString);//Присвоениезначенияпеременной
dm.ADOZacaz.Next;//Переход к следующей записии в таблице ADOZacaz
end;
Prodat11.Label20.Caption:=IntToStr(w)+' рублей';//Присвоение значения надписи
end;
18. procedureTProdat11.BitBtn49Click – Отмена применения скидки
procedure TProdat11.BitBtn49Click(Sender: TObject);
var m1,m2,m3,a,d,po:integer;
begin
begin
if Prodat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесение значение в текстовое поле
end;
end;
begin
d:=StrToInt(Edit24.Text);//Заданиезначенияпеременной
if d>100 then
begin
Edit24.Text:='100';//Занесение значение в текстовое поле
end;
end;
dm.ADOZacaz.Edit;//Разрешение редактирования записи в таблице ADOZacaz
DM.ADOZacaz.FieldByName('Льготы').AsString:=Edit24.Text;//Занесение информации в таблицу ADOZacaz
m1:=0;//Обнуление переменной
m1:=StrToInt(dm.ADOZacaz.FieldByName('Стоимость').AsString);//Задание значения переменной
m2:=1;//Задание значения переменной
m3:=0;//Обнуление переменной
m3:=StrToInt(dm.ADOZacaz.FieldByName('Льготы').AsString);//Задание значения переменной
begin
if m3=0 then
begin
po:=m1*m2;//Задание значения переменной
end
else
begin
a:=m1*m2;//Задание значения переменной
po:=a-(a*m3 div 100);//Задание значения переменной
end;
end;
dm.ADOZacaz.FieldByName('Итого').AsString:=IntToStr(po);
dm.ADOZacaz.Post;//Применениеинформации
Prodat11.BitBtn53.Click;//Нажатиекнопки
Prodat11.Button16.Click;//Нажатиекнопки
end;
19. procedure TProdat11.Button9Click – Поискпобазеданных
procedure TProdat11.Button9Click(Sender: TObject);
begin
begin
if Edit35.Text='' then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit36.Text;//Занесениеинформациивтекстовоеполе
end;
end;
begin
if Edit36.Text='' then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit35.Text+edit40.Text+edit43.Text;//Занесениеинформациивтекстовоеполе
end;
end;
begin
if (Edit35.Text='') and (Edit36.Text='') then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit43.Text;//Занесениеинформациивтекстовоеполе