Veri tabanı kontrollerini yaptım sorunsuz şekilde hata verse de girdileri girmiş.
MASA 1 İÇİN,
Kod: Tümünü seç
var
num:Integer;
begin
form4.masaid.Text:='1';
with ADOQuery1 do
begin
sql.clear;
sql.add('select * from masalar where masaıd=1 and durum=0');
open;
if ADOQuery1.Eof then
begin
form4.ShowModal;
form4.yenilemeClick(Sender);
end
else
begin
num:=Application.MessageBox('Masa ve Adisyon Açılsın mı ?','Adisyon Oluturma',
MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2+ MB_SYSTEMMODAL);
if num = 6 then
begin
Image1.Picture.LoadFromFile('C:\Users\Murat\Desktop\Yeni Klasör (2)\Resimler\kmasa.png');
with ADOQuery2 do
begin
Close;
SQL.Text:='insert into adisyon (masaıd, tarih, durum, servistürıd,personelıd) values (:a,:b,:c,:d,:e)';
Parameters.ParamByName('a').Value:=form4.masaid.text;
Parameters.ParamByName('b').Value:=FormatDateTime('d.m.y h:m:s', now);
Parameters.ParamByName('c').Value:='true';
Parameters.ParamByName('d').Value:='1';
Parameters.ParamByName('e').Value:=form1.DBkullanıcı.Text;
ExecSQL;
sql.clear;
sql.Text:='select * from adisyon';
Open;
end;
with ADOQuery1 do
begin
close;
sql.Text:='update masalar set durum=:a where masaıd=:c';
Parameters.ParamByName('a').Value:='true';
Parameters.ParamByName('c').Value:=form4.masaid.text;
ExecSQL;
sql.Clear;
sql.Text:='select* from masalar';
open;
end;
form4.ShowModal;
form4.yenilemeClick(Sender);
end;
end;
end;
end;
MASA 2 İÇİN
Kod: Tümünü seç
var
num:Integer;
begin
form4.masaid.Text:='2';
with ADOQuery1 do
begin
sql.clear;
sql.add('select * from masalar where masaıd=2 and durum=0');
open;
if ADOQuery1.Eof then
begin
form4.ShowModal;
form4.yenilemeClick(Sender);
end
else
begin
num:=Application.MessageBox('Masa ve Adisyon Açılsın mı ?','Adisyon Oluturma',
MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2+ MB_SYSTEMMODAL);
if num = 6 then
begin
Image2.Picture.LoadFromFile('C:\Users\Murat\Desktop\Yeni Klasör (2)\Resimler\kmasa.png');
with ADOQuery2 do
begin
Close;
SQL.Text:='insert into adisyon (masaıd, tarih, durum, servistürıd,personelıd) values (:a,:b,:c,:d,:e)';
Parameters.ParamByName('a').Value:=form4.masaid.text;
Parameters.ParamByName('b').Value:=FormatDateTime('d.m.y h:m:s', now);
Parameters.ParamByName('c').Value:='true';
Parameters.ParamByName('d').Value:='1';
Parameters.ParamByName('e').Value:=form1.DBkullanıcı.Text;
ExecSQL;
sql.clear;
sql.Text:='select * from adisyon';
Open;
end;
with ADOQuery1 do
begin
close;
sql.Text:='update masalar set durum=:a where masaıd=:c';
Parameters.ParamByName('a').Value:='true';
Parameters.ParamByName('c').Value:=form4.masaid.text;
ExecSQL;
sql.Clear;
sql.Text:='select* from masalar';
open;
end;
form4.ShowModal;
form4.yenilemeClick(Sender);
end;
end;
end;
end;