库存管理系统数据库系统概论课程设计 第11页
本系统提供五种查询条件：按出库日期查询、按商品的名称查询、按出库的名称查询、按仓库名称查询和按仓库存量查询，用户可以按不同的要求查询自己想要的资料。
图 5-4-6 出库查询流程
1．程序代码：
procedure TForm2.Button2Click(Sender: TObject);
var str:string;
begin
query2.Close;
query2.SQL.Clear;
if radiobutton13.Checked then
begin
str:='select * from 售货表 where 出库单号= '+trim(edit2.Text)+' or 仓库编号= '+trim(edit3.Text)+' or 产品编号='+ trim(edit4.Text);
end
else
begin
str:='select * from 售货表 where 出库单号='+trim(edit2.Text)+'and 仓库编号= '+trim(edit3.Text)+ ' and 产品编号='+ trim(edit4.Text);
end;
query2.SQL.Add(str);
query2.active;
end;
2．出库查询界面：
出库查询界面
5.4.7 入出库单流程
出入库是由管理员进行管理，一般的用户是没有授权进入的。只有授权的用户才能进入操作界面，若没有授权的用户，系统会作出相关的提示。用户可以打开对应的表，对其中的数据进行增加、删减和修改。此时系统会对用户输入的数据进行复核，如果系统没有发现记录的数据重复，系统会自动将数据录入，并对该数据保存下来。若数据重复，系统会作出相关的提示。
图 5-4-7 入出库单流程
5.4.8 删除入出库表程
图 5-4-8 删除入出库表流
5.4.9 统计流程
图 5-4-9 统计流程
5.4.10 报警流程
图 5-4-10 报警流程
1．程序代码：
procedure TForm2.Button9Click(Sender: TObject);
var str:string;
begin
query5.Close;
query5.SQL.Clear;
if radiobutton17.Checked=true then
str:='select * from 仓库表 where 入库单号='''+edit24.Text+''' or 仓库编号 ='''+edit25.Text+''' or 产品编号= '''+edit26.Text+''''
else
str:='select * from 仓库表 where 入库单号='''+edit24.Text+''' and 仓库编号 ='''+edit25.Text+''' and 产品编号= '''+edit26.Text+'''';
query5.SQL.Add(str);
query5.active:=true;
query5.Open;
query5.Edit;
end;
procedure TForm2.Button13Click(Sender: TObject);
var str:string;
begin
if radiobutton17.Checked then
str:='select * from 仓库表 where 产品编号 = '''+edit38.Text +''' or 数量>'''+ edit18.Text+ '''or 数量< ''' +edit37.Text+''''
else
str:='select * from 仓库表 where 产品编号 = '''+edit38.Text+''' and 数量>'''+ edit18.Text+ '''and 数量< ''' +edit37.Text+'''';
query5.Close;
query5.SQL.Clear;
query5.SQL.Add(str);
<< 上一页 [11] [12] 下一页
库存管理系统数据库系统概论课程设计 第11页下载如图片无法显示或论文不完整，请联系qq752018766
