⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 guanli_caizepeng042_04.pas

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

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button5: TButton;
    DBGrid1: TDBGrid;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label9: TLabel;
    Edit9: TEdit;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    DBGrid3: TDBGrid;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    RadioGroup1: TRadioGroup;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  



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


var
  Form5: TForm5;

implementation

uses in_master_caizepeng042_04;

{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
begin
adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Add('select * from kucun_caizepeng042_04');
Adoquery1.ExecSQL;
Adoquery1.Active:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);

var bianliang:string;
begin
bianliang:='select * from kucun_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(数量='''+edit3.Text+''')';

adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add(bianliang);
adoquery1.Open;

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

procedure TForm5.Button3Click(Sender: TObject);
begin
if (edit4.text='')  or (edit5.text='') then
messagebox(form5.Handle,'货架号，商品编号都不能为空','警告',mb_ok+mb_iconwarning)
else
if ((edit4.Text<>edit1.text) and (edit5.text<>edit2.Text)) then
messagebox(form5.Handle,'要修改的库存信息不一致，不能进行修改，重新输入','警告',mb_ok+mb_iconwarning)
else
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

begin
if edit3.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  kucun_caizepeng042_04 set 数量=convert(int,'''+edit3.text+''') where 货架号='''+edit1.text+''''+'and 商品编号='+''''+edit2.text+'''');
adoquery1.execsql;
end;


end
else
begin
showmessage('提示：该库存不存在');
end;
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from kucun_caizepeng042_04');
Adoquery1.Open;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') then
messagebox(form5.Handle,'货架号或商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
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
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into kucun_caizepeng042_04 values('''+edit1.Text+''','''+edit2.text+''',convert(int,'''+edit3.text+''')');
adoquery1.execsql;
end
else
begin
showmessage('该商品已经存在库存，无需新建，请确定');
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from kucun_caizepeng042_04');
Adoquery1.Open;
end;
end;

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

procedure TForm5.Button6Click(Sender: TObject);
var bianliang:string;
begin
bianliang:='select * from dinge_caizepeng042_04 where(100=100)';
if edit6.text<>'' then
bianliang:=bianliang+'and(商品编号='''+edit6.Text+''')';
if edit7.text<>'' then
bianliang:=bianliang+'and(最高储备额=convert(int,'''+edit7.Text+'''))';
if edit8.text<>'' then
bianliang:=bianliang+'and(最低储备额=convert(int,'''+edit8.Text+'''))';

adoquery2.close;
adoquery2.SQL.clear;
adoquery2.SQL.Add(bianliang);
adoquery2.Open;

if ADOQuery2.recordcount=0 then
messagebox(form5.Handle,'没有符合你所要找的商品的存储额信息，请重新查找','查询警告',mb_ok+mb_iconwarning);
//adoquery2.Active:=true;
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
adoquery2.Close;
Adoquery2.SQL.clear;
Adoquery2.SQL.Add('select * from dinge_caizepeng042_04');
Adoquery2.ExecSQL;
Adoquery2.Active:=true;
end;


procedure TForm5.Button8Click(Sender: TObject);
begin
if edit6.text='' then
messagebox(form5.Handle,'要修改的商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from dinge_caizepeng042_04 where 商品编号='''+edit6.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString<>'' then

begin
if edit7.text<>'' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.sql.Add('update dinge_caizepeng042_04 set 最高储备额=convert(int,'''+edit7.text+''') where 商品编号='''+edit6.text+'''');
adoquery2.execsql;
end;
if edit8.text<>'' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.sql.Add('update dinge_caizepeng042_04 set 最低储备额=convert(int,'''+edit8.text+''') where 最高储备额='''+edit6.text+'''');
adoquery2.execsql;
end;

end
else
begin
showmessage('没有该商品的存储定额的信息');
end;
end;


Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('select * from dinge_caizepeng042_04');
Adoquery2.Open;
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
if edit6.text='' then
messagebox(form5.Handle,'货区号不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from dinge_caizepeng042_04 where 商品编号='''+edit6.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString='' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('insert into dinge_caizepeng042_04 values('''+edit6.Text+''','''+edit7.text+''','''+edit8.text+''')');
adoquery2.execsql;
end
else
begin
messagebox(form5.Handle,'该商品的存储定额信息已经存在','警告',mb_ok+mb_iconwarning)
end;

Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('select * from dinge_caizepeng042_04');
Adoquery2.Open;
end;
end;

procedure TForm5.Button10Click(Sender: TObject);
begin
if edit9.text='' then
messagebox(form5.Handle,'该项不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from dinge_caizepeng042_04 where 商品编号='''+edit9.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString<>'' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('delete from dinge_caizepeng042_04 where 商品编号='''+edit9.text+'''');
Adoquery2.ExecSQL;
end
else
begin
messagebox(form5.Handle,'没有该商品的存储定额信息','警告',mb_ok+mb_iconwarning);
end;
end;
adoquery2.Close;
adoquery2.SQL.clear;
adoquery2.SQL.Add('select * from dinge_caizepeng042_04');
adoquery2.open;
end;

procedure TForm5.Button11Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
begin
adoquery3.close;
adoquery3.SQL.clear;
adoquery3.SQL.Add('select c.商品编号,c.库存总量,c.是否超高储额,c.是否超低储额,d.最高储备额,d.最低储备额 from dinge_caizepeng042_04 d,chao_caizepeng042_04 c where d.商品编号=c.商品编号 and c.是否超高储额=''是''');
adoquery3.Open;
end;
if RadioGroup1.ItemIndex=1 then
begin
adoquery3.close;
adoquery3.SQL.clear;
adoquery3.SQL.Add('select c.商品编号,c.库存总量,c.是否超高储额,c.是否超低储额,d.最高储备额,d.最低储备额 from dinge_caizepeng042_04 d,chao_caizepeng042_04 c where d.商品编号=c.商品编号 and c.是否超低储额=''是''');
adoquery3.Open;
end;
if RadioGroup1.ItemIndex=2 then
begin
adoquery3.close;
adoquery3.SQL.clear;
adoquery3.SQL.Add('select c.商品编号,c.库存总量,c.是否超高储额,c.是否超低储额,d.最高储备额,d.最低储备额 from dinge_caizepeng042_04 d,chao_caizepeng042_04 c where d.商品编号=c.商品编号 and c.是否超低储额=''否'' and c.是否超高储额=''否''');
adoquery3.Open;
end;
end;

procedure TForm5.Button12Click(Sender: TObject);
begin
adoquery3.close;
adoquery3.SQL.clear;
adoquery3.SQL.Add('select c.商品编号,c.库存总量,c.是否超高储额,c.是否超低储额,d.最高储备额,d.最低储备额 from dinge_caizepeng042_04 d,chao_caizepeng042_04 c where d.商品编号=c.商品编号');
adoquery3.Open;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -