?? mealform.~pas
字號:
Tcap2:=DataM.SPLanguage.ReadString('captions','00043','');
Tcap3:=DataM.SPLanguage.ReadString('captions','00044','');
Tcap4:=DataM.SPLanguage.ReadString('captions','00022','');
ktouch:='keyop';
dbg1.Height:=410;
dbg1.Width:=378;
dbg1.Top:=122;
end;
procedure Tmeal.but8Click(Sender: TObject);
begin
self.Close;
self.Release;
end;
procedure Tmeal.but7Click(Sender: TObject);
begin
if ktouch='keyop' then
begin
but7.Caption:=DataM.SPLanguage.ReadString('captions','00039','');
ktouch:='touch';
dbg1.Height:=410;
dbg1.Width:=378;
dbg1.Left:=gbox2.Left+gbox2.Width+2;
dbg1.Top:=122;
label3.Top:=90;
label3.Left:=dbg1.Left+2;
label3.Width:=60;
label3.Caption:=DataM.SPLanguage.ReadString('captions','00041','');
edit3.Top:=label3.Top-4;
edit3.Left:=label3.Left+60;
edit3.Width:=260;
dbg1.Visible:=True;
label3.Visible:=dbg1.Visible;
edit3.Visible:=dbg1.Visible;
panel1.Free;
panel1:=TPanel.Create(nil);
panel2.Free;
panel2:=TPanel.Create(nil);
SQLStr:='select mealid,mealname,mealprice,unit,mealtcflag from snmeal';
mealvisual(Sender);
exit;
end else
if ktouch='touch' then
begin
but7.Caption:=DataM.SPLanguage.ReadString('captions','00040','');
ktouch:='keyop';
dbg1.Visible:=False;
label3.Visible:=dbg1.Visible;
edit3.Visible:=dbg1.Visible;
visualxlmeal(Sender);
end;
end;
procedure Tmeal.but6Click(Sender: TObject);
begin
fpk:=Tfpk.Create(nil);
fpk.Fpktableid:=Ftableno;
// fpk.Fpkmealid:=Trim(DBGrid.Fields[7].Value);
fpk.ShowModal;
end;
procedure Tmeal.but1Click(Sender: TObject);
begin
try
if Trim(DBGrid.Fields[6].Value)='TY' then
begin
DBFielv1:=DBGrid.Fields[5].Value;
DBFielv2:=DBGrid.Fields[7].Value;
with Datam.tempmealado do
begin
Close;
SQL.Clear;
SQL.Add('delete sntempmeal where tablename='''+Ftableno+''' And txid='''+DBFielv2+''' And tctime='''+DBFielv1+'''');
ExecSQL;
end;
end else Datam.tempmealado.Delete;
Gridchange(Sender);
except
Abort;
end;
end;
procedure Tmeal.but3Click(Sender: TObject);
begin
fmealnu:=Tfmealnu.Create(nil);
try
fmealnu.Ftcflag:=Trim(DBGrid.Fields[6].Value);
fmealnu.Ftcmealid:=DBGrid.Fields[7].Value;
fmealnu.Ftctime:=DBGrid.Fields[5].Value;
fmealnu.Fsnuflag:='NU';
fmealnu.ShowModal;
Gridchange(Sender);
except
Abort;
end;
end;
procedure Tmeal.but2Click(Sender: TObject);
begin
if DBGrid.Fields[3].Value=1 then
begin
DataM.inmealdata.Edit;
DBGrid.Fields[1].Value:=0;
DBGrid.Fields[6].Value:='S';
DataM.tempmealado.Post;
end else
begin
fmealnu:=Tfmealnu.Create(nil);
fmealnu.Fsnuflag:='Smeal';
fmealnu.ShowModal;
end;
Gridchange(Sender);
end;
procedure Tmeal.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Try
if Trim(DBGrid.Fields[6].Value)='S' then
begin
DBGrid.Canvas.Font.Color:=ClBlue;
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
except
Abort;
end;
end;
procedure Tmeal.Edit3Change(Sender: TObject);
begin
SQLStr:='select mealid,mealname,mealprice,unit,mealtcflag from snmeal where mealid like ''%'+Trim(edit3.Text)+'%'' or mealname like ''%'+Trim(edit3.Text)+'%''';
mealvisual(Sender);
end;
procedure Tmeal.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then dbg1.SetFocus;
end;
procedure Tmeal.dbg1KeyPress(Sender: TObject; var Key: Char);
var tcintime:String;
tcprice,tcnocount:string;
begin
if key=#13 then
begin
mealtime:=TimeToStr(time);
if Trim(dbg1.Fields[4].Value)='M' then
begin
with datam.tempmealado do
begin
Close;
SQL.Clear;
SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''+Trim(dbg1.Fields[3].Value)+''',1,'''','''+mealtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''','''',''Upk'')');
ExecSQL;
end;
end else if Trim(dbg1.Fields[4].Value)='TC' then
begin
tcmealcodeid:=Trim(dbg1.Fields[0].Value);
mealtime:=TimeToStr(time);
with datam.tempmealado do
begin
Close;
SQL.Clear;
SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''+Trim(dbg1.Fields[3].Value)+''',1,'''','''+mealtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''TY'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
ExecSQL;
end;
with datam.mealado do
begin
Close;
SQL.Clear;
SQL.Add('select mealid,mealname,mealnu,mealprice,unit,mealgd from snsutiemeal where mealids='''+tcmealcodeid+''' And mealgd=''Y''');
Open;
sleep(200);
tcintime:=TimeToStr(time);
tcprice:=Trim(FieldValues['mealprice']);
tcnocount:=Trim(FieldValues['mealnu']);
with datam.tempmealado do
begin
Close;
SQL.Clear;
SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+tcprice+''','''+Trim(dbg1.Fields[4].Value)+''','''+tcnocount+''','''','''+tcintime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
ExecSQL;
end;
SQLStr:='select mealid,mealname,mealnu,unit,mealgd from snsutiemeal where mealids='''+tcmealcodeid+''' And mealgd=''N''';
mealvisual(Sender);
dbg1.Columns[2].Title.caption:=DataM.SPLanguage.ReadString('Captions','00023','');
dbg1.Columns[3].Title.caption:=Tcap4;
dbg1.Columns[1].Width:=200;
end;
end;
end;
Gridchange(Sender);
end;
procedure Tmeal.dbg1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Try
if Trim(DBG1.Fields[4].Value)='TC' then
begin
DBG1.Canvas.Font.Color:=ClRed;
DBG1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
except
Abort;
end;
end;
procedure Tmeal.dbg1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var tcintime:string;
begin
if key=Vk_Insert then
begin
if Trim(dbg1.Fields[4].Value)='N' then
begin
tcintime:=TimeToStr(time);
with datam.tempmealado do
begin
Close;
SQL.Clear;
SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''',0,'''+Trim(dbg1.Fields[3].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''','''+tcintime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
ExecSQL;
end;
end;
end;
Gridchange(Sender);
end;
procedure Tmeal.FormResize(Sender: TObject);
begin
if meal.Width<>screen.Width then meal.Width:=screen.Width;
if meal.Height<>screen.Height then meal.Height:=screen.Height;
end;
procedure Tmeal.but4Click(Sender: TObject);
Var mealidcode:string;
kwcount:Integer;
begin
mealidcode:=Trim(DBGrid.Fields[7].Value);
with datam.freeado do
begin
Close;
SQL.Clear;
SQL.Add('select kwid,kwidname from snmealkw where mealid='''+mealidcode+'''');
Open;
Recount:=RecordCount;
if Recount<=0 then Exit else
begin
kwpanel.Free;
kwpanel:=Tpanel.Create(nil);
kwpanel.Parent:=meal;
kwpanel.Top:=0;
kwpanel.Height:=gbox1.Top;
kwpanel.Width:=meal.Width;
First;
for kwcount:=1 to Recount do
begin
kwbut[kwcount]:=TButton.Create(nil);
kwbut[kwcount].Parent:=kwpanel;
kwbut[kwcount].Width:=66;
kwbut[kwcount].Height:=50;
kwbut[kwcount].Left:=kwbut[kwcount].Width*(kwcount-1);
kwbut[kwcount].Caption:=Trim(FieldValues['kwidname']);
kwbut[kwcount].OnClick:=kwbutclick;
kwbutid[kwcount]:=TLabel.Create(nil);
kwbutid[kwcount].Caption:=Trim(FieldValues['kwid']);
Next;
end;
end;
Kwmemovis(Sender);
end;
but10.Visible:=Not but10.Visible;
but4.Visible:=Not but4.Visible;
end;
procedure Tmeal.but9Click(Sender: TObject);
begin
kwpanel.Free;
kwpanel:=Tpanel.Create(nil);
formshow(Sender);
but10.Visible:=Not but10.Visible;
but4.Visible:=Not but4.Visible;
end;
procedure Tmeal.but10Click(Sender: TObject);
begin
cform:=Tcform.Create(nil);
cform.Ftableid:=Ftableno;
cform.Fmealid:=Trim(DBGrid.Fields[7].Value);
cform.ShowModal;
end;
procedure Tmeal.DBGridDblClick(Sender: TObject);
begin
edit5.Text:=Trim(dbgrid.Fields[0].Value)+':';
edit4.Text:=Trim(DBGrid.Fields[4].Value);
end;
procedure Tmeal.but5Click(Sender: TObject);
Var sysado:TADOQuery;
syscode,billnoid:string;
billyear,billmonth,billday:string;
billnorec:string;
begin
if StrToFloat(edit2.Text)>0 then
begin
if FChbillflag<>'Changbill' then
begin
sysado:=TADOQuery.Create(nil);
sysado.Connection:=datam.SQLconADO;
With sysado do
begin
Close;
SQL.Clear;
SQL.Add('select paymore from snsystemsetup');
Open;
syscode:=Trim(FieldValues['paymore']);
end;
with datam.freeado do
begin
Close;
SQL.Clear;
SQL.Add('select * from sncreatebillno where tableid='''+Ftableno+'''');
Open;
billyear:=copy(DateToStr(date),1,4);
billmonth:=copy(DateToStr(date),6,2);
billday:=copy(DateToStr(date),9,2);
billnoid:=Ftableno+billyear+billmonth+billday+FieldValues['billno'];
billnorec:=FieldValues['billno']+1;
Close;
SQL.Clear;
SQL.Add('Update sncreatebillno set billno='''+billnorec+''' where tableid='''+Ftableno+'''');
ExecSQL;
end;
end else
begin
billnoid:=Fbeforebillid;
end;
fpay:=Tfpay.Create(nil);
fpay.Vtfstr:=syscode;
fpay.Femuch:=edit2.Text;
fpay.Edit1.Text:=edit2.Text;
fpay.Edit3.Text:=billnoid;
fpay.Ftablename:=Ftableno;
fpay.Fmancount:=Fmancount;
fpay.Fbillflag:=FChbillflag;
fpay.Fchangbeforebillid:=Fbeforebillid;
fpay.FPrintbillid:=FAChbillid;
fpay.ShowModal;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -