xjfm.pas

不管我的程序编得怎么样

unit xjfm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  Txjform = class(TForm)
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel2: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Image4: TImage;
    Label1: TLabel;
    Label2: TLabel;
    xj_money: TEdit;
    Label3: TLabel;
    xj_youhui: TEdit;
    Label4: TLabel;
    xj_ok: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure xj_moneyKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure xj_moneyChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xjform: Txjform;

implementation
uses infofm,dmfm,loginfm;
{$R *.dfm}

procedure Txjform.Button2Click(Sender: TObject);
begin
close;
end;

procedure Txjform.xj_moneyKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8]) then Key := #0;
end;

procedure Txjform.FormShow(Sender: TObject);
var
asql:string;
hj:integer;
begin
hj:=0;
with dm.aq_xm_yes do
 begin
  close;
  sql.Clear;
  asql:='select * from 消费项目 where userid='+userid;
  sql.Add(asql);
  active:=true;
  first;
  while not eof do
  begin
  hj:=hj+FieldValues['单价'];
  next;
  end;
  active:=false;
  xj_money.Text:=inttostr(hj);
  xj_ok.Text:=inttostr(hj-strtoint(xj_youhui.Text));
 end;
end;

procedure Txjform.xj_moneyChange(Sender: TObject);
begin
  xj_ok.Text:=inttostr(strtoint(xj_money.Text)-strtoint(xj_youhui.Text));
end;

procedure Txjform.Button1Click(Sender: TObject);
var
asql:string;
keynum,hyname:string;
hits:integer;
begin
with dm.aq_online do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 在线 where id='+userid);
  try
  open;
  keynum:=FieldValues['卡号'];
  hyname:=fieldValues['姓名'];
  except
  end;
 end;
with dm.aq_jl do
 begin
  close;
  sql.Clear;
  asql:='insert into 消费记录 (应收,优惠,实收,会员名称,操作员,操作时间) values (:ys,:yh,:ss,:userid,:admin,:uptime)';
  sql.Add(asql);
  Parameters.ParamByName('ys').Value:=xj_money.Text;
  Parameters.ParamByName('yh').Value:=xj_youhui.Text;
  Parameters.ParamByName('ss').Value:=xj_ok.Text;
  Parameters.ParamByName('userid').Value:=hyname;
  Parameters.ParamByName('admin').Value:=G_username;
  Parameters.ParamByName('uptime').Value:=datetimetostr(now);
  try
  execsql;
  application.MessageBox('结帐成功!','明宇提示',48);
  xjform.Close;
  infoform.PageControl1.ActivePageIndex:=0;
  except
  end;
 end;





with dm.aq_user do
 begin
  close;
  sql.Clear;
  sql.Add('select * from 会员 where 卡号='''+keynum+'''');
  try
  open;
  hits:=FieldValues['访问次数'];
  except
  end;
 end;

with dm.aq_xm_yes do
 begin
  close;
  sql.Clear;
  sql.Add('delete from 消费项目 where userid='+userid);
  try
   execsql;
  except
  end;
 end;

with dm.aq_online do
 begin
  close;
  sql.Clear;
  sql.Add('delete from 在线 where id='+userid);
  try
   execsql;
  except
  end;

with dm.aq_user do
 begin
  close;
  sql.clear;
  sql.Add('select * from 会员 where 卡号=:keynums');
  Parameters.ParamByName('keynums').Value:=keynum;
  active:=true;
  begin
   edit;
   fieldbyname('访问次数').AsInteger:=hits+1;
   FieldByName('末次').AsString:=datetostr(date);
   try
   post;
   except
   end;
  end;
 end;
end;
 
end;

end.