开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
UnitSell.pas
资源名称：东之源.rar　[点击查看]
上传用户：zexin0769
上传日期：2010-01-19
资源大小：443k
文件大小：8k
源码类别：

百货/超市行业

开发平台：

Delphi

UnitSell.pas：源码内容
  1. unit UnitSell;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  7.   Dialogs, ExtCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
  9. type
  10.   TFrameSell = class(TFrame)
  11.     Image1: TImage;
  12.     Image2: TImage;
  13.     DBGrid1: TDBGrid;
  14.     ADOQuery1: TADOQuery;
  15.     DataSource1: TDataSource;
  16.     Panel1: TPanel;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Image3: TImage;
  20.     DBEdit1: TDBEdit;
  21.     DBEdit2: TDBEdit;
  22.     GroupBox1: TGroupBox;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     Label5: TLabel;
  26.     Edit1: TEdit;
  27.     Image4: TImage;
  28.     Image5: TImage;
  29.     Image6: TImage;
  30.     DBEdit3: TDBEdit;
  31.     DBEdit4: TDBEdit;
  32.     Image7: TImage;
  33.     Label7: TLabel;
  34.     procedure Image2Click(Sender: TObject);
  35.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  36.     procedure Image3Click(Sender: TObject);
  37.     procedure Image5Click(Sender: TObject);
  38.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  39.     procedure Image6Click(Sender: TObject);
  40.     procedure DBGrid1CellClick(Column: TColumn);
  41.     procedure Image7Click(Sender: TObject);
  42.     procedure Image4Click(Sender: TObject);
  43.     function IsAllNum(s:string):bool;
  44.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  45.     procedure Label7Click(Sender: TObject);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  52. implementation
  54. uses UnitLogin;
  56. var
  57.   ADOQuery2: TADOQuery;
  58.   MoneyTotal: Real;
  60. {$R *.dfm}
  62. procedure TFrameSell.Image2Click(Sender: TObject);
  63. begin
  64.   DBEdit1.Color := clWhite;
  65.   DBEdit2.Color := clWhite;
  66.   DBEdit1.Enabled := True;
  67.   DBEdit2.Enabled := True;
  68.   ADOQuery1.Active := True;
  69.   ADOQuery1.Append;
  70.   DBEdit1.SetFocus;
  71.   image2.Enabled := False;
  72.   image3.Visible := True;
  73.   image5.Visible := True;
  74.   image6.Visible := True;
  75. end;
  77. procedure TFrameSell.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  78. begin
  79.   if Key=#13 then DBEdit2.SetFocus;
  80. end;
  82. procedure TFrameSell.Image3Click(Sender: TObject);
  83. var
  84.   i: Integer;
  85. begin
  86.   {提交数据}
  87.   if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') then
  88.   begin
  89.     ADOQuery2:= TADOQuery.Create(self);
  90.     ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  91.     ADOQuery2.SQL.Clear;
  92.     ADOQuery2.SQL.Add('select * from t_prod where prod_id=' + DBEdit1.Text);
  93.     ADOQuery2.Open;
  94.     if ADOQuery2.Eof then
  95.     begin
  96.       messagebox(handle,'数据库中没有该商品编号！','重新输入',mb_iconwarning+mb_ok);
  97.       DBEdit1.SelectAll;
  98.       DBEdit1.SetFocus;
  99.       exit;
  100.     end;
  101.     if ADOQuery2.FieldByName('prod_stock').AsInteger < strtoint(DBEdit2.Text) then
  102.     begin
  103.       messagebox(handle,pchar('应该商品当前库存为 '+ADOQuery2.FieldByName('prod_stock').AsString+' ，不足所输销售数量！'),'重新输入',mb_iconwarning+mb_ok);
  104.       DBEdit2.SelectAll;
  105.       DBEdit2.SetFocus;
  106.       exit;
  107.     end;
  108.     DBEdit3.Text := ADOQuery2.FieldByName('prod_name').AsString;
  109.     DBEdit4.Text := ADOQuery2.FieldByName('prod_price').AsString;
  110.     ADOQuery2.Free;
  111.     ADOQuery1.Post;
  112.     MoneyTotal := 0;
  113.     for i:=1 to ADOQuery1.RecordCount do
  114.     begin
  115.       MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger;
  116.       ADOQuery1.Prior;
  117.     end;
  118.     Label4.Caption := FloatToStr(MoneyTotal);
  119.     ADOQuery1.Append;
  120.     DBEdit1.SetFocus;
  121.     Edit1.Color := clWhite;
  122.     Edit1.Enabled := True;
  123.     Image4.Enabled := True;
  124.     Label7.Enabled := True;
  126.   end
  127.   else
  128.     messagebox(handle,'您的输入不正确（空值）！','检查输入',mb_iconwarning+mb_ok)
  129. end;
  131. procedure TFrameSell.Image7Click(Sender: TObject);
  132. var
  133.   i: integer;
  134. begin
  135.   ADOQuery1.Edit;
  136.   ADOQuery1.Post;
  137.   Image7.Visible := False;
  138.   MoneyTotal := 0;
  139.   for i:=1 to ADOQuery1.RecordCount do
  140.   begin
  141.     MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger;
  142.     ADOQuery1.Prior;
  143.   end;
  144.   Label4.Caption := FloatToStr(MoneyTotal);
  145.   ADOQuery1.Append;
  146. end;
  148. procedure TFrameSell.Image5Click(Sender: TObject);
  149. var
  150.   i: integer;
  151. begin
  152.   ADOQuery1.Cancel;
  153.   for i:=1 to ADOQuery1.RecordCount do
  154.     ADOQuery1.delete;
  155.   DBEdit1.Color := $00FFF0DC;
  156.   DBEdit2.Color := $00FFF0DC;
  157.   DBEdit1.Enabled := False;
  158.   DBEdit2.Enabled := False;
  159.   ADOQuery1.Active := False;
  160.   image2.Enabled := True;
  161.   image3.Visible := False;
  162.   image5.Visible := False;
  163.   image6.Visible := False;
  164.   Image7.Visible := False;
  165.   Edit1.Text := '';
  166.   Label4.Caption := '0';
  167.   Edit1.Color := $00FFF0DC;
  168.   Image4.Enabled := False;
  169.   Label7.Enabled := False;
  170.   Edit1.Enabled := False;
  171. end;
  173. procedure TFrameSell.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  174. begin
  175.   if Key=#13 then Image3Click(self);
  176. end;
  178. procedure TFrameSell.Image6Click(Sender: TObject);
  179. var
  180.   i: integer;
  181. begin
  182.   ADOQuery1.Cancel;
  183.   if ADOQuery1.RecordCount>0 then ADOQuery1.Delete;
  184.   if ADOQuery1.RecordCount<=0 then
  185.   begin
  186.     Edit1.Text := '';
  187.     Label4.Caption := '0';
  188.     Edit1.Color := $00FFF0DC;
  189.     Image4.Enabled := False;
  190.     Label7.Enabled := False;
  191.     Edit1.Enabled := False;
  192.   end;
  193.   MoneyTotal := 0;
  194.   for i:=1 to ADOQuery1.RecordCount do
  195.   begin
  196.     MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger;
  197.     ADOQuery1.Prior;
  198.   end;
  199.   Label4.Caption := FloatToStr(MoneyTotal);
  200.   ADOQuery1.Append;
  201.   Image7.Visible := False;
  202. end;
  204. procedure TFrameSell.DBGrid1CellClick(Column: TColumn);
  205. begin
  206.   Image7.Visible := True;
  207. end;
  209. procedure TFrameSell.Image4Click(Sender: TObject);
  210. var
  211.   i: integer;
  212. begin
  213.   if (Edit1.Text<>'') and IsAllNum(Edit1.Text) then
  214.   begin
  215.     if (StrToFloat(Edit1.Text)<MoneyTotal) then
  216.     begin
  217.       messagebox(handle,pchar('应该收金额为 '+FloatToStr(MoneyTotal)+' 元，收款不足！'),'检查输入',mb_iconwarning+mb_ok);
  218.       exit;
  219.     end;
  221.     ADOQuery1.Cancel;
  222.     {!!!!!! = 库存量相应减少代码 = !!!!!}
  223.     for i:=1 to ADOQuery1.RecordCount do
  224.     begin
  225.       ADOQuery2:= TADOQuery.Create(self);
  226.       ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  227.       ADOQuery2.SQL.Clear;
  228.       ADOQuery2.SQL.Add('update t_prod set prod_stock=prod_stock-'+ADOQuery1.FieldByName('sell_number').AsString+',prod_sale=prod_sale+'+ADOQuery1.FieldByName('sell_number').AsString+'  where prod_id='+ADOQuery1.FieldByName('sell_prod_id').AsString);
  229.       ADOQuery2.ExecSQL;
  230.     end;
  232.     ADOQuery1.SQL.Clear;
  233.     ADOQuery1.SQL.Add('update t_sell set sell_pay = 1');
  234.     ADOQuery1.ExecSQL;
  235.     ADOQuery1.SQL.Clear;
  236.     ADOQuery1.SQL.Add('select * from t_sell where not sell_pay');
  237.     Messagebox(handle,pchar('找零 '+FloatToStr(StrToFloat(Edit1.Text)-MoneyTotal)+' 元，谢谢惠顾！'),'销售完成',mb_iconwarning+mb_ok);
  238.     DBEdit1.Color := $00FFF0DC;
  239.     DBEdit2.Color := $00FFF0DC;
  240.     DBEdit1.Enabled := False;
  241.     DBEdit2.Enabled := False;
  242.     ADOQuery1.Active := False;
  243.     image2.Enabled := True;
  244.     image3.Visible := False;
  245.     image5.Visible := False;
  246.     image6.Visible := False;
  247.     Image7.Visible := False;
  248.     Edit1.Text := '';
  249.     Label4.Caption := '0';
  250.     Edit1.Color := $00FFF0DC;
  251.     Image4.Enabled := False;
  252.     Label7.Enabled := False;
  253.     Edit1.Enabled := False;
  254.   end
  255.   else
  256.   begin
  257.     messagebox(handle,'您的输入不正确（空值或非数值）！','检查输入',mb_iconwarning+mb_ok);
  258.     Edit1.SetFocus;
  259.   end;
  260. end;
  262. function TFrameSell.IsAllNum(s:string):bool;
  263. var
  264.   i:integer;
  265. begin
  266.   for i := 1 To Length(s) do
  267.     if (s[i] < '0') or (s[i] > '9') then
  268.     begin
  269.       IsAllNum := False;
  270.       Exit;
  271.     end;
  272.   IsAllNum := True;
  273. end;
  276. procedure TFrameSell.Edit1KeyPress(Sender: TObject; var Key: Char);
  277. begin
  278.   if Key=#13 then Image4Click(self);
  279. end;
  281. procedure TFrameSell.Label7Click(Sender: TObject);
  282. begin
  283.   Image4Click(self);
  284. end;
  286. end.