xiangqing.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit xiangqing;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;

type
  TFrmxiangqing = class(TForm)
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    QueryDetail: TADOQuery;
    QueryDetailDataSource: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QueryDetailAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    zhanghao:string;
    { Public declarations }
  end;

var
  Frmxiangqing: TFrmxiangqing;

implementation
  uses dbmodule;
{$R *.dfm}

procedure TFrmxiangqing.FormShow(Sender: TObject);
begin
if QueryDetail.Active then
  QueryDetail.Close;
QueryDetail.SQL.Clear;
QueryDetail.SQL.Add('select chuanbiaohao,Caipinid,caipinname,caipincount,caipinunit,caipinprice,dianliexing,caipinprice*caipincount as heji from Q_customertemp');
QueryDetail.SQL.Add(' where zhanghao='+''''+zhanghao+'''');
QueryDetail.Open;
end;

procedure TFrmxiangqing.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFrmxiangqing.SpeedButton1Click(Sender: TObject);
var
F: TextFile;
str1:string;
caipin,caipinbuf,caicount,caiprice,caitotal:string;
caipinlength:integer;
begin
if application.MessageBox('你确定打印小票吗？','提示',mb_okcancel)=ID_Cancel then
  abort;
caipinlength:=17;
ASSIGNFILE(F, 'LPT1');
REWRITE(F);
str1:=dm.Qfangtai.FieldValues['zhanghao'];
Writeln(F, CHR(27) + CHR(33) + CHR(0));
writeln(F,'**欢迎光临**'+dm.companyname+'***');
Writeln(F,'流水号:' +str1+' 日期：'+FormatDateTime('yyyy-mm-dd',date()));
Writeln(F,'结帐员工：'+dm.opratename+'  时间:'+FormatDateTime('hh:mm:ss',time()));
Writeln(F, '-------------------------------');
Writeln(F, '菜品名称           数量  单价  金额 ');
if not QueryDetail.IsEmpty then
  QueryDetail.First;
while not QueryDetail.Eof do
  begin
    caipin:=QueryDetail.FieldValues['caipinname'];
    if length(caipin)>caipinlength then
      setlength(caipin,caipinlength)
    else
      caipin:=caipin+stringofchar(' ',caipinlength-length(caipin));
    caicount:=inttostr(QueryDetail.FieldValues['caipincount']);
    caiprice:=FormatFloat('0.00',QueryDetail.FieldValues['caipinprice']);
    caitotal:=FormatFloat('0.00',QueryDetail.FieldValues['heji']);
    Writeln(F,caipin+' '+caicount+' '+caiprice+' '+caitotal);
    QueryDetail.Next;
  end;
Writeln(F, '-------------------------------');
Writeln(F, '谢谢你的光临。');
Writeln(F, '联系电话：'+dm.companytele);
Writeln(F, CHR(10));
Writeln(F, CHR(10));
Writeln(F, CHR(10));
CLOSEFILE(F);
end;

procedure TFrmxiangqing.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if QueryDetail.Active then
    QueryDetail.Close;
end;

procedure TFrmxiangqing.QueryDetailAfterOpen(DataSet: TDataSet);
begin
   dm.UpdateFieldFormats(dataset);
end;

end.