百货/超市行业

开发平台：
Delphi

saleunit.pas：源码内容
							unit saleunit;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, StdCtrls, Menus;
type
  TSale_Form = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1p_id: TSmallintField;
    ADOQuery1p_name: TWideStringField;
    ADOQuery1p_price: TBCDField;
    ADOQuery1p_unit: TWideStringField;
    ADOQuery1p_type: TSmallintField;
    ADOQuery1p_store: TSmallintField;
    ADOQuery1p_time: TDateTimeField;
    ADOQuery1p_sale: TSmallintField;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ADOQuery2: TADOQuery;
    Button2: TButton;
    RichEdit1: TRichEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ADOTable1: TADOTable;
    N2: TMenuItem;
    N3: TMenuItem;
    Button3: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Button4: TButton;
    Edit4: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button5: TButton;
    Button6: TButton;
    N4: TMenuItem;
    Timer1: TTimer;
    N5: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
    count:double;
  public
    { Public declarations }
  end;
var
  Sale_Form: TSale_Form;
implementation
uses datamodule, UseLogin, help;
{$R *.dfm}
procedure TSale_Form.Button1Click(Sender: TObject); //提交商品的操作
var
sqls:string;
Parami:tparameter;
count1:double;
left:integer;
begin
count1:=0;
if (edit1.text='') and (edit2.text='') then
showmessage('请输入条形码或者是商品名称噢^_^')
else
 begin
   with adoquery1 do    //从库存中查找提交的商品是否存在
        begin
           close;
           sql.clear;
           sqls:='select * from produce_t where 1=1';
           if edit2.Text<>'' then
              sqls:=sqls+'and p_name='''+edit2.Text+'''';
           if edit1.Text<>'' then
              begin
                sqls:=sqls+'and p_id=:id';
                Parameters.Clear;
                Parami:=Parameters.ADDParameter; //创建参数1
                Parami.Name:='id';
                Parami.Value:=strtoint(edit1.text);
               end;
            sql.add(sqls);
            Prepared;
            open;
            if recordcount=0 then
            showmessage('对不起，该商品不存在')
            else          //如果商品存在就将他写入sell_t表中保存
            begin
             if not adoquery2.active then
             adoquery2.open;
             adoquery2.insert;
             adoquery2.fields.fields[0]:=fields.fields[1];   //条形码
             adoquery2.fields.fields[1]:=fields.fields[2];   //商品名
             adoquery2.fields.fields[2]:=fields.fields[3];   //商品价格
             adoquery2.fields.fields[3]:=fields.fields[4];   //商品计量单位
               with datamodule1.adocommand1 do               //修改produce_t中sale_p的值
                 begin
                 commandtext:='update produce_t set p_sale=p_sale+1 where p_id=:i';
                 parameters.ParamValues['i']:=adoquery2.fields[0].AsInteger;
                 execute;
                 end;
             left:=fields.fields[6].asinteger-fields.fields[8].asinteger;
             adoquery2.fields.fields[4].asinteger:=left; //得到此时的库存量
             if left<=0 then
               begin
                 showmessage('确货中');
                 adoquery2.Cancel;
               end
               else
               begin
                adoquery2.post;
                count1:=fields.Fields[3].AsFloat;  //求当前商品应付金额
                end;
            end;
        end;
        count:=count+count1;    //求出总的应付金额
        richedit1.text:='购物金额共计：'+floattostr(count)+'元整。'; //显示应付金额数
  end;
end;
procedure TSale_Form.Button2Click(Sender: TObject);
begin
if count=0 then        //当没有商品卖出时结算操作为错误操作
   showmessage('错误操作')
else
begin
  edit3.Text:=floattostr(count);      //应付金额
  panel2.Visible:=true;
end;
end;
procedure TSale_Form.Button3Click(Sender: TObject);
begin
if count>0 then  //必需先结算方可离开
showmessage('！！还没结算，请结算后再离开吧！！')
else
begin
adoquery1.close;
adoquery2.close;
adotable1.close;
close;
end;
end;
procedure TSale_Form.Button4Click(Sender: TObject);
var
money:double;
ret:integer;
begin
if edit4.text='' then
 showmessage('请输入你的付款金额')
else
begin
 money:=strtofloat(edit4.Text)-count;
 if money<0 then
     showmessage('金额不足')
 else
   begin
     ret:=messagebox(0,pchar('找零：'+floattostr(money)),'交易确定',1);
     if ret=2 then
       begin
         with adoquery2 do
          begin
           first;
           while not eof do
             begin
               with datamodule1.adocommand1 do               //修改produce_t中sale_p的值
                 begin
                  commandtext:='update produce_t set p_sale=p_sale-1 where p_id=:i';
                  parameters.ParamValues['i']:=adoquery2.fields[0].AsInteger;
                  execute;
                 end;
                next;
            end;
          end;
         richedit1.text:='上次'+richedit1.text+'  交易被取消！！！';
        end
        else
         begin
          with adoquery2 do//查找商品库中库存量
           begin
           first;
            begin
            while not eof do
             begin
               with adotable1 do   //如果可以交易就将sell_t中的数据保存到sell_back_t中
                   begin
                   insert;
                   fields.fields[1]:=adoquery2.fields[0];
                   fields.fields[2]:=adoquery2.fields[1];
                   fields.fields[3]:=adoquery2.fields[2];
                   fields.fields[4].asinteger:=1;
                   fields.fields[5].asdatetime:=now;
                   fields.fields[6].asboolean:=true;
                   post;
                   end;
               next;
             end;
            richedit1.text:='上次'+richedit1.text+'实收：'+edit4.text+'元整'+'  找零：'+floattostr(money)+'元整，交易成功^_^'+'交易时间:'+datetimetostr(now);
            edit1.clear;
            edit2.clear;
            edit3.clear;
            edit4.clear;
            end;   //一次成功交易完成
          end;
         end;
       with datamodule1.adocommand1 do    //删除sell_t中的数据
        begin
        commandtext:='delete from sell_t';
        execute;
        adoquery2.close;
        panel2.visible:=false;
        count:=0;
        end;
   end;
 end;
end;
procedure TSale_Form.FormActivate(Sender: TObject);
begin
  if not adoquery1.active then
  adoquery1.open;
   if not adoquery2.active then
  adoquery2.open;
    if not adotable1.active then
  adotable1.open;
end;
procedure TSale_Form.Button5Click(Sender: TObject); //取消本次交易
var
money:double;
begin
if edit4.text='' then
edit4.text:='0';
 money:=strtofloat(edit4.Text)-count;
 with adoquery2 do
  begin
   first;
   while not eof do
    begin
     with datamodule1.adocommand1 do               //恢复produce_t中sale_p的值
      begin
       commandtext:='update produce_t set p_sale=p_sale-1 where p_id=:i';
       parameters.ParamValues['i']:=adoquery2.fields[0].AsInteger;
       execute;
      end;
     next;
    end;
   end;                                     //清除sell_t中的数据
   with datamodule1.adocommand1 do
    begin
     commandtext:='delete from sell_t';
      execute;
      adoquery2.close;
      panel2.visible:=false;
      count:=0;
      if money<0 then
        richedit1.text:='上次'+richedit1.text+'  交易因金额不足被取消！！！'
      else
          richedit1.text:='上次'+richedit1.text+'  交易被迫取消！！！' ;
      end;
end;
procedure TSale_Form.Button6Click(Sender: TObject);
begin
  with adoquery2 do
  begin
   first;
   while not eof do
    begin
     with datamodule1.adocommand1 do               //恢复produce_t中sale_p的值
      begin
       commandtext:='update produce_t set p_sale=p_sale-1 where p_id=:i';
       parameters.ParamValues['i']:=adoquery2.fields[0].AsInteger;
       execute;
      end;
     next;
    end;
   end;                                     //清除sell_t中的数据
   with datamodule1.adocommand1 do
    begin
     commandtext:='delete from sell_t';
      execute;
      adoquery2.close;
      panel2.visible:=false;
      count:=0;
     richedit1.text:='上次'+richedit1.text+'  所有记录被强制删除' ;
      end;
end;
procedure TSale_Form.Timer1Timer(Sender: TObject);
begin
statusbar1.panels[6].text:='系统时间:'+DateTimeToStr(now);
statusbar1.panels[0].text:='收银员: '+Login_Form.UseName;
end;
procedure TSale_Form.N5Click(Sender: TObject);
begin
help_form.show;
end;
end.

						