xiaoshou_caizepeng042_04.pas

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

unit xiaoshou_caizepeng042_04;

interface

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

type
  TForm6 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label7: TLabel;
    Edit7: TEdit;
    Button5: TButton;
    Label8: TLabel;
    Edit8: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
var bianliang:string;
begin
bianliang:='select * from sell_caizepeng042_04 where(100=100)';
if edit1.text<>'' then
bianliang:=bianliang+'and(商品编号='''+edit1.Text+''')';
if edit2.text<>'' then
bianliang:=bianliang+'and(货架号='''+edit2.Text+''')';
if edit3.text<>'' then
bianliang:=bianliang+'and(数量=convert(int,'''+edit3.Text+'''))';
if edit4.text<>'' then
bianliang:=bianliang+'and(销售时间=convert(datetime,('''+edit4.Text+'''))';
if edit5.text<>'' then
bianliang:=bianliang+'and(销售机号='''+edit5.Text+''')';
if edit6.text<>'' then
bianliang:=bianliang+'and(员工编号='''+edit6.Text+''')';
if edit10.text<>'' then
bianliang:=bianliang+'and(销售单号='''+edit10.Text+''')';
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add(bianliang);
adoquery1.Open;

if ADOQuery1.recordcount=0 then
messagebox(form6.Handle,'没有符合你所要找的销售单，请重新查找','查询警告',mb_ok+mb_iconwarning);
adoquery1.Active:=true;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Add('select * from sell_caizepeng042_04');
Adoquery1.ExecSQL;
Adoquery1.Active:=true;
Adoquery2.Close;
Adoquery2.SQL.clear;
Adoquery2.SQL.Add('select * from chao_caizepeng042_04');
Adoquery2.ExecSQL;
Adoquery2.Active:=true;
end;

procedure TForm6.Button3Click(Sender: TObject);
var xs:string;
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='') or (edit10.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 销售单号='+''''+edit10.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString='' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into sell_caizepeng042_04 values('''+edit10.Text+''','''+edit1.Text+''','''+edit2.text+''',convert(int,'''+edit3.text+'''),getdate(),'''+edit5.text+''','''+edit6.Text+''')');
adoquery1.execsql;

end
else
begin
showmessage('该销售单已经存在，请确定');
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from sell_caizepeng042_04');

Adoquery1.Open;

//Adoquery3.Close;
//Adoquery3.SQL.clear;
//adoquery3.sql.Add('select * from chao_caizepeng where 是否超低储额=是 or 是否超高储额=是');
//Adoquery3.ExecSQL;
//Adoquery3.Active:=true;
end;
end;

procedure TForm6.Button4Click(Sender: TObject);
begin
if ((edit1.text='') or (edit2.text='') or (edit10.text='')) then
messagebox(form6.Handle,'销售单号，货架号或商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
if edit3.text='' then
messagebox(form6.Handle,'请输入原来或修改的数量','警告',mb_ok+mb_iconwarning)
else
if ((edit4.text='') or (edit5.text='') or (edit6.text='')) 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 销售单号='+''''+edit10.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString<>'' then

begin

//if ((edit10.text<>'') and (edit11.text<>'')) then
// begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 商品编号 from kucun_caizepeng042_04 where 商品编号='''+edit1.text+''''+'and 货架号='+''''+edit2.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString='' then
messagebox(form6.Handle,'所输入的商品不在货架内，请重新输入','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 商品编号 from dinge_caizepeng042_04 where 商品编号='''+edit1.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString='' then
begin
messagebox(form6.Handle,'在商品存储定额中没有该商品的信息，请先在商品存储定额中输入有关信息','警告',mb_ok+mb_iconwarning);
exit;
end;

Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update sell_caizepeng042_04 set 销售时间='''+edit4.text+''' where 货架号='''+edit2.text+''''+'and 商品编号='+''''+edit1.text+'''');
Adoquery1.sql.Add('update sell_caizepeng042_04 set 数量=convert(int,'''+edit3.text+''') where 货架号='''+edit2.text+''''+'and 商品编号='+''''+edit1.text+'''');
Adoquery1.sql.Add('update sell_caizepeng042_04 set 售货机号='''+edit5.text+''' where 货架号='''+edit2.text+''''+'and 商品编号='+''''+edit1.text+'''');
Adoquery1.sql.Add('update sell_caizepeng042_04 set 员工编号='''+edit6.text+''' where 货架号='''+edit2.text+''''+'and 商品编号='+''''+edit1.text+'''');
adoquery1.execsql;

//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//adoquery2.SQL.text:='select 货架号 from kucun_caizepeng042_04 where 货架号='''+edit11.text+''''+'and 商品编号='+''''+edit8.Text+'''';
//adoquery2.open;
//if adoquery2.FieldByName('货架号').AsString='' then
 // begin
//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//Adoquery2.SQL.Add('insert into kucun_caizepeng042_04 values('''+edit11.Text+''','''+edit8.text+''',convert(int,'''+edit9.text+'''))');
//adoquery2.execsql;


 //end;
end;

// end
//  else
//  begin
//if (edit10.text='') and (edit11.text='') then
//begin
//if edit9.text<>'' then
//begin
//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//Adoquery2.sql.Add('update in_caizepeng042_04 set 进货数量=convert(int,'''+edit9.text+''') where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''');
//adoquery2.execsql;
//end

//else
//showmessage('////////');
//end
//else
//showmessage('货区号和货架号');
//end;
end
else
begin
showmessage('提示：该销售单不存在');
end;
 end;
//end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from sell_caizepeng042_04');
Adoquery1.Open;

Adoquery2.Close;
Adoquery2.SQL.clear;
adoquery2.sql.Add('select * from chao_caizepeng where 是否超低储额=是 or 是否超高储额=是');
Adoquery2.open;

end;

procedure TForm6.Button5Click(Sender: TObject);
begin
if ((edit7.text='') or (edit8.text='')) then
messagebox(form6.Handle,'该2项不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 商品编号 from sell_caizepeng042_04 where 商品编号='''+edit7.text+''' and 货架号='+''''+edit8.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('商品编号').AsString<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('delete from sell_caizepeng042_04 where 商品编号='''+edit7.text+''' and 货架号='+''''+edit8.text+'''');
Adoquery1.ExecSQL;
end
else
begin
messagebox(form6.Handle,'该销售单不存在','警告',mb_ok+mb_iconwarning);
end;
end;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from sell_caizepeng042_04');
adoquery1.open;

Adoquery2.Close;
Adoquery2.SQL.clear;
adoquery2.sql.Add('select * from chao_caizepeng where 是否超低储额=是 or 是否超高储额=是');
Adoquery2.open;

end;

end.