库存管理系统数据库系统概论课程设计 第12页
query5.Open;
query5.Edit;
dbgrid11.Update;
end;
2．报警界面：
报警界面
5.4.11 用户管理
1．程序代码：
procedure TForm2.Button10Click(Sender: TObject);
var str:string;
begin
query4.Close;
query4.SQL.Clear;
if radiobutton19.Checked then
str:='select * from 用户表 where 用户名称='+edit17.Text+'or 用户权限='+combobox1.Text
else
str:='select * from 用户表 where 用户名称='+edit17.Text+'and 用户权限='+combobox1.Text;
query4.SQL.Add(str);
query4.active;
query1.Open;
query4.Edit;
end;
2．程序界面
图 5-4-11 用户管理
5.4.12 员工管理
1．程序代码：
procedure TForm2.Button1Click(Sender: TObject);
var str:string;
begin
query1.Close;
query1.SQL.Clear;
if radiobutton1.Checked=true then
str:='select * from 员工表 where 员工号 = '+ edit1.Text +' or 员工名称 = '+ edit2.Text
else
str:='select * from 员工表 where 员工号 = '+ edit1.Text +' and 员工名称 = '+ edit2.Text;
query1.SQL.Add(str);
query1.Active:=true;
query1.Open;
query1.Edit;
end;
2．员工管理程序界面：
员工管理界面
5.4.13 生产商管理
1．生产商管理代码：
procedure TForm3.Button1Click(Sender: TObject);
var str:string;
begin
str:='select * from 生产商表 where 生产商表.生产商号 ='''+trim(edit1.Text)+'''';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(str);
query1.Active:=true;
query1.Open;
query1.First;
dbgrid1.Refresh;
end;
2．程序界面：
程序界面
5.4.14 销售商管理
1．程序代码：
procedure TForm4.Button1Click(Sender: TObject);
var str:string;
begin
str:='select 销售商表.销售商品,销售商表.产品编号,销售商表.地址,销售商表.电话,销售商表.备注,用户表.用户名称,用户表.密码 from 销售商表 inner join 用户表 on 销售商表.用户名称 = 用户表.用户名称 where 销售商表.销售商号='''+trim(edit1.Text)+'''';
query1.close;
query1.SQL.Clear;
query1.SQL.Add(str);
query1.Active:=true;
query1.open;
query1.Edit;
query1.First;end2．销售商管理界面：销售商管理界面
第优章 数据库运行与文护
文护设计:由仓库管理者进行文护
<< 上一页 [11] [12]
库存管理系统数据库系统概论课程设计 第12页下载如图片无法显示或论文不完整，请联系qq752018766
