function TFormPswd.gethandlename(code:String):String;
var name:String;
begin
name:='';
Query2.Close;
Query2.SQL.Clear;
Query2.DisableControls;
Query2.SQL.Add('Select id,handlename,handlecode from handletbl');
Query2.Open;
if Query2.locate('handlecode',code,[]) then
begin
name:=query2.FieldByName('handlename').AsString;
end;
Query2.close;
Result:=name;
end;
procedure printmsg(thesyqo,Totalpeople,adultNum, childNum,Totalcar,bigcar,middlecar,minicar,totalmoney, prtdate:String);
begin
Printer.Canvas.Font.Charset := GB2312_CHARSET;
Printer.BeginDoc;
Printer.PageHeight;
Printer.PageWidth;
Printer.Canvas.Font.Size :=14;//字体设置
……//根据用户需要插入要打印的内容
Printer.Canvas.TextOut(x+2370,y,thesyqo);//打印内容
Printer.EndDoc;
end;
建站咨询热线
029-33273980