money_caizepeng042_04.pas

这个是我的数据库的课程设计:超市商品数据管理系统的设计,,采用面向C/S模式的通用开发工具Delphi设计其前台的操作

unit money_caizepeng042_04;

interface

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

type
  TForm7 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label6: TLabel;
    Edit5: TEdit;
    Button5: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label7: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses xiaoshou_caizepeng042_04, Unit1_caizepeng042_04;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin


Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 商品编号 from kucun_caizepeng042_04 where 商品编号='''+edit1.text+''''+'and 货架号='+''''+edit2.text+'''';
adoquery1.Open;
if ((edit1.text='') or (edit2.text='')) then
messagebox(form6.Handle,'货架号或商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
if adoquery1.FieldByName('商品编号').AsString='' then
messagebox(form6.Handle,'所输入的商品不在库存内，请重新输入','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 商品编号 from sell_caizepeng042_04 where 商品编号='''+edit1.text+''''+'and 货架号='+''''+edit2.text+''''+'and 销售单号='+''''+edit6.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString='' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into sell_caizepeng042_04 values('''+edit6.text+''','''+edit1.Text+''','''+edit2.text+''',convert(int,'''+edit3.text+'''),getdate(),'''+edit4.text+''','''+form1.edit1.Text+''')');
adoquery1.execsql;

Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.text:='select sum(s.数量*p.销售价格) as total from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and s.销售单号='''+edit6.text+'''';
adoquery1.Open;
edit7.text:=adoquery1.FieldByName('total').AsString;
end
else
begin
showmessage('该销售单已经存在，请确定');
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
//Adoquery1.SQL.Add('select * from sell_caizepeng042_04');
adoquery1.SQL.add('select s.商品编号,p.商品名称,s.货架号,s.售货机号,p.规格型号,s.数量,p.销售价格 from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and s.销售单号='''+edit6.text+'''');
Adoquery1.Open;

//Adoquery3.Close;
//Adoquery3.SQL.clear;
//adoquery3.sql.Add('select * from chao_caizepeng where 是否超低储额=是 or 是否超高储额=是');
//Adoquery3.ExecSQL;
//Adoquery3.Active:=true;
end;
end;
procedure TForm7.Button3Click(Sender: TObject);
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.add('select sum(s.数量*p.销售价格) as 购买的商品总额 from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and s.销售单号='''+edit6.text+'''');
adoquery1.Open;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.add('select (convert(float,'''+edit5.text+''')-sum(s.数量*p.销售价格)) as total from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and s.销售单号='''+edit6.text+'''');
adoquery1.Open;

Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.text:='select (convert(float,'''+edit5.text+''')-sum(s.数量*p.销售价格)) as 应找零额为 from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and s.销售单号='''+edit6.text+'''';
adoquery1.Open;
edit7.text:=adoquery1.FieldByName('应找零额为').AsString;
end;

procedure TForm7.Button5Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
edit5.clear;
edit6.clear;
edit7.clear;
adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.add('select s.商品编号,p.商品名称,s.货架号,s.售货机号,p.规格型号,s.数量,p.销售价格 from product_caizepeng042_04 p,sell_caizepeng042_04 s where p.商品编号=s.商品编号 and 100<>100');
adoquery1.Open;
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.add('delete sell_caizepeng042_04 where 销售时间 in(select max(销售时间) from sell_caizepeng042_04)');
adoquery1.execsql;

end;

end.