自己编写的delphi程序 可以与以有的数据库连接 使用SQL语言查询和修改数据库

////////////////////// 数据库初始数据创建列表 /////////////////////////////
--创建表
--客户表
create table Customer
(
CusID Number(2) constraint Cus_pk primary key,
Name Varchar2(20),
Key Varchar2(20),
Tel Number(8)
);
--供应商表
create table Supply
(
SupID Number(2) constraint Sup_pk primary key,
Name Varchar2(20),
Tel Number(8)
);
--商品类表
create table GK
(
GKID Number(2) constraint GK_pk primary key,
Name Varchar2(20)
);
--商品表
create table Goods
(
GoodsID Number(2) constraint Gds_pk primary key,
Name Varchar2(20),
ProductDate date,
Price Number(6),
Storage Number(4),
GKID Number(2) constraint GKID_ref references GK(GKID)
);
--入库表
create table Import
(
ImportID Number(2) constraint Im_pk primary key,
SupID Number(2) constraint supID_ref references Supply(SupID),
GoodsID Number(2) constraint Gds_ref references Goods(GoodsID),
ImNum Number(4),
ImDate date,
ImPrice Number(5)
);
--出库表
create table Export
(
ExportID Number(2) constraint Ex_pk primary key,
Cusname Varchar2(20), 
Goodsname Varchar2(20), 
ExNum Number(4),
ExPrice Number(5),
ExDate Varchar2(30)
);

--经理表
create table Manager
(
mngID Number(2) constraint mng_pk primary key,
Name Varchar2(20),
Key Varchar2(20),
Tel Number(8)
);

--创建初始数据
--插入经理表
insert into Manager values
(01,'Simon','simon1985',51532314);

--插入客户表
insert into Customer values
(01,'家乐福超市','jialefuchaoshi',67320922);
insert into Customer values
(02,'超市发超市','chaoshifachaoshi',66023478);
insert into Customer values
(03,'当代商城','dangdaishangcheng',55620231);
insert into Customer values
(04,'西单商场','xidanshangchang',82749012);
insert into Customer values
(05,'王府井百货','wangfujingbaihuo',81236781);
insert into Customer values
(06,'双安商城','shuanganshangcheng',62781023);
insert into Customer values
(07,'太平洋电子商城','taipingyang',89210312);
insert into Customer values
(08,'宜家家居','yijiajiaju',45261823);
insert into Customer values
(09,'苏宁电器','suningdianqi',66215401);
insert into Customer values
(10,'海龙电子商城','hailong',62519381);
insert into Customer values
(11,'国美电器','guomeidianqi',43891203);
--供应商数据
insert into Supply values
(01,'海尔集团',80827391);
insert into Supply values
(02,'微软公司',23847901);
insert into Supply values
(03,'Intel公司',82639172);
insert into Supply values
(04,'北京粮油公司',61162384);
insert into Supply values
(05,'蒙牛乳业',82716351);
insert into Supply values
(06,'松下集团',37163912);
insert into Supply values
(07,'上好佳集团',76456692);
insert into Supply values
(08,'娃哈哈集团',28780017);
insert into Supply values
(09,'三星集团',54728162);
insert into Supply values
(10,'上地建材城',62987653);
insert into Supply values
(11,'清华大学出版社',53725182);
insert into Supply values
(12,'中国音像出版公司',87367625);
--商品类数据
insert into GK values (01,'家用电器');
insert into GK values (02,'计算机软硬件');
insert into GK values (03,'食品');
insert into GK values (04,'家具');
insert into GK values (05,'出版物');
--商品数据
insert into Goods values
(01,'彩电','15-11月-2006',3999,30,01);
insert into Goods values
(02,'空调','10-5月-2007',2500,50,01);
insert into Goods values
(03,'mp3播放器','25-10月-2007',499,200,01);
insert into Goods values
(04,'洗衣机','2-2月-2007',2100,60,01);
insert into Goods values
(05,'CPU','30-6月-2007',860,100,02);
insert into Goods values
(06,'显示器','22-5月-2007',2600,80,02);
insert into Goods values
(07,'杀毒软件','16-8月-2007',80,300,02);
insert into Goods values
(08,'魔兽争霸3','28-6月-2002',49,500,02);
insert into Goods values
(09,'牛奶','30-11月-2007',2.5,500,03);
insert into Goods values
(10,'醋','11-2月-2007',8,400,03);
insert into Goods values
(11,'薯条','8-11月-2007',2.0,800,03);
insert into Goods values
(12,'奶糖','18-6月-2007',1.0,2500,03);
insert into Goods values
(13,'书桌','28-12月-2006',150,50,04);
insert into Goods values
(14,'床','16-10月-2006',1500,20,04);
insert into Goods values
(15,'VCD','20-10月-2007',10,2000,05);
insert into Goods values
(16,'书籍','20-8月-2005',30,5000,05);
-------------------------------------------------------------------------------------
--基本功能的sql语句实现
--输入客户编号查询客户信息
select * from Customer where CusID=(输入ID);
--输入客户编号查询客户订单信息
select * from Export where Export.CusID=(输入ID)
--添加新客户
insert into Customer values ((输入ID),(输入Name),(输入Key),(输入Tel))
--商品信息查询
--根据商品编号
select * from Goods where GoodsID=(输入ID);
--根据商品名称
select * from Goods where Name=(输入Name);
--根据生产日期
select * from Goods where ProductDate=(输入Date);
--根据供应商
select * from Goods where Goods.GoodsID=(select GoodsID from Import where Import.SupID=(输入ID));
--查询供应商名:后面的逻辑根上面是一样的，以输入ID为例:
select * from Supply where Supply.SupID==(select * from Import where Import.GoodsID=(输入ID));
--商品入库功能
insert into Import values((输入ImportID),(输入SupID),(输入GoodID),(输入ImNum),(输入ImDate),(输入ImPrice));
Update Goods
Set Storage=Storage+(输入ImNum);
where GoodsID=(输入GoodsID);
--如无此商品
--Insert into Goods values(count(*)+1,(输入商品名),(输入生产日期),(输入Price),(输入ImNum),(输入商品类别));
--商品出库功能
insert into Export values((输入ExportID),(输入CusID),(输入GoodID),(输入ExNum),(输入ExDate),(输入ExPrice));
Update Goods
Set Storage=Storage-(输入ExNum);
where GoodsID=(输入GoodsID);
--客户增