supplier_caizepeng042_04.pas

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

unit supplier_caizepeng042_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ActnMan, ActnCtrls, ActnMenus, ComCtrls,
  TabNotBk, Tabs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TForm3 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    Label8: TLabel;
    Button5: TButton;
    Label9: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label30: TLabel;
    Edit29: TEdit;
    Label31: TLabel;
    Edit30: TEdit;
    GroupBox6: TGroupBox;
    DBGrid2: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    Label32: TLabel;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    ADOQuery3: TADOQuery;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Button11: TButton;
    Button12: TButton;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Edit35: TEdit;
    Edit36: TEdit;
    Edit37: TEdit;
    Edit38: TEdit;
    Label40: TLabel;
    Edit39: TEdit;
    Button13: TButton;
    Label41: TLabel;
    Edit40: TEdit;
    Button14: TButton;
    Button15: TButton;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    GroupBox10: TGroupBox;
    GroupBox11: TGroupBox;
    GroupBox12: TGroupBox;
    Edit41: TEdit;
    Edit42: TEdit;
    Edit43: TEdit;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Button16: TButton;
    Button17: TButton;
    DBGrid4: TDBGrid;
    Label45: TLabel;
    Edit44: TEdit;
    Label46: TLabel;
    Label47: TLabel;
    Edit45: TEdit;
    Edit46: TEdit;
    Label48: TLabel;
    Edit47: TEdit;
    Button18: TButton;
    Label49: TLabel;
    Edit48: TEdit;
    Button19: TButton;
    Button20: TButton;
    DataSource5: TDataSource;
    ADOQuery5: TADOQuery;
    GroupBox13: TGroupBox;
    GroupBox14: TGroupBox;
    GroupBox15: TGroupBox;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Edit49: TEdit;
    Edit50: TEdit;
    Edit51: TEdit;
    Edit52: TEdit;
    Button21: TButton;
    Button22: TButton;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Edit53: TEdit;
    Edit54: TEdit;
    Edit55: TEdit;
    Edit56: TEdit;
    Label58: TLabel;
    Edit57: TEdit;
    Button23: TButton;
    Label59: TLabel;
    Edit58: TEdit;
    Button24: TButton;
    Button25: TButton;
    DBGrid5: TDBGrid;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(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);
    procedure Button13Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}


procedure TForm3.Button4Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Add('select * from supplier_caizepeng042_04');
Adoquery1.ExecSQL;
Adoquery1.Active:=true;
end;

procedure TForm3.Button1Click(Sender: TObject);
var bianliang:string;
begin
bianliang:='select * from supplier_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+''')';
if edit4.text<>'' then
bianliang:=bianliang+'and(联系电话='''+edit4.Text+''')';
if edit5.text<>'' then
bianliang:=bianliang+'and(帐号='''+edit5.Text+''')';
if edit6.text<>'' then
bianliang:=bianliang+'and(城市='''+edit6.Text+''')';
if edit7.text<>'' then
bianliang:=bianliang+'and(联系地址='''+edit7.Text+''')';
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add(bianliang);
adoquery1.Open;

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

procedure TForm3.Button2Click(Sender: TObject);
var non,man,addr,tel,id,city:string;
begin
if edit10.text='' then
messagebox(form3.Handle,'供应商号不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 供应商号 from supplier_caizepeng042_04 where 供应商号='''+edit10.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('供应商号').AsString='' then
begin
non:=edit10.Text;
man:=edit12.Text;
tel:=edit13.text;
id:=edit14.text;
city:=edit15.text;
addr:=edit16.text;
with ADOQuery1 do
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into supplier_caizepeng042_04 values('''+non+''','''+edit11.text+''','''+man+''','''+tel+''','''+id+''','''+city+''','''+addr+''')');
adoquery1.execsql;
end;
end
else
begin
showmessage('该提供商已经存在，请确定');
end;

Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from supplier_caizepeng042_04');
Adoquery1.Open;
end;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
if edit8.text='' then
messagebox(form3.Handle,'要修改的供应商号不能为空','警告',mb_ok+mb_iconwarning)
else
if edit8.Text<>edit10.text then
messagebox(form3.Handle,'输入的供应商号不一致，不能修改','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 供应商号 from supplier_caizepeng042_04 where 供应商号='''+edit10.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('供应商号').AsString<>'' then

begin
if edit11.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 供应商名称='''+edit11.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;
if edit12.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 联系人='''+edit12.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;
if edit13.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 联系电话='''+edit13.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;
if edit14.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 帐号='''+edit14.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;
if edit15.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 城市='''+edit15.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;
if edit16.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  supplier_caizepeng042_04 set 联系地址='''+edit16.text+''' where 供应商号='''+edit8.text+'''');
adoquery1.execsql;
end;

end
else
begin
showmessage('提示：该提供商不存在');
end;
end;


Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from supplier_caizepeng042_04');
Adoquery1.Open;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin

if edit9.text='' then
messagebox(form3.Handle,'该项不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 供应商号 from supplier_caizepeng042_04 where 供应商号='''+edit9.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('供应商号').AsString<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('delete from supplier_caizepeng042_04 where 供应商号='''+edit9.text+'''');
Adoquery1.ExecSQL;
end
else
begin
messagebox(form3.Handle,'该供应商不存在','警告',mb_ok+mb_iconwarning);
end;
end;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from supplier_caizepeng042_04');
adoquery1.open;
end;
procedure TForm3.Button6Click(Sender: TObject);
var bianliang:string;
begin
bianliang:='select * from product_caizepeng042_04 where(100=100)';
if edit17.text<>'' then
bianliang:=bianliang+'and(商品编号='''+edit17.Text+''')';
if edit18.text<>'' then
bianliang:=bianliang+'and(商品名称='''+edit18.Text+''')';
if edit19.text<>'' then
bianliang:=bianliang+'and(计量单位='''+edit19.Text+''')';
if edit20.text<>'' then
begin
try
bianliang:=bianliang+'and(进货价格=convert(money,'''+edit20.Text+'''))';
except
showmessage('输入的不是数字');
end;
end;
if edit21.text<>'' then
bianliang:=bianliang+'and(规格型号='''+edit21.Text+''')';
if edit22.text<>'' then
begin
try
bianliang:=bianliang+'and(销售价格=convert(money,'''+edit22.Text+'''))';
except
showmessage('输入的不是数字');
end;
end;
adoquery2.close;
adoquery2.SQL.clear;
adoquery2.SQL.Add(bianliang);
adoquery2.Open;

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

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

procedure TForm3.Button8Click(Sender: TObject);
begin
if edit23.text='' then
messagebox(form3.Handle,'商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from product_caizepeng042_04 where 商品编号='''+edit23.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString='' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('insert into product_caizepeng042_04 values('''+edit23.Text+''','''+edit24.text+''','''+edit25.text+''',convert(money,'''+edit26.text+'''),'''+edit27.text+''',convert(money,'''+edit28.text+'''))');
adoquery2.execsql;
end
else
begin
showmessage('该商品已经存在，请确定');
end;

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


procedure TForm3.Button9Click(Sender: TObject);
begin
if edit29.text='' then
messagebox(form3.Handle,'要修改的商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
if edit29.Text<>edit23.text then
messagebox(form3.Handle,'要修改的商品编号不允许修改','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from product_caizepeng042_04 where 商品编号='''+edit29.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString<>'' then