库存管理系统数据库系统概论课程设计 第10页
图 5-4-4 销售商登录流程
1．程序代码：
procedure Tmain.SpeedButton1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.sql.Add('select * from 用户表 where 用户名称 =');
query1.SQL.Add(''''+userno.Text+''''+' and 密码 = '+''''+password.Text+'''');
query1.Open;
query1.First;
if (query1.RecordCount=1) then
begin
if query1.FieldByName('用户类型').AsString='管理员' then
begin
form2.Show;
end;
if query1.FieldByName('用户类型').AsString='生产商' then
begin
form3.Show;
end;
if query1.FieldByName('用户类型').AsString='销售商' then
begin
form4.Show;
end;
main.hide;
end
else
showmessage('用户不存在')
end;
2．销售商登录界面
销售商登录界面
5.4.5 入库查询流程
产品的入库记录是仓库管理的一个重要的环节，所以本系统为入库的产品也记录了，并可以根据不同的查询的条件来操作。首先，用户进入到查询的操作界面，并正确地输入查询条件。
本系统提供五种查询条件：按入库日期查询、按商品的名称查询、按入库的名称查询、按仓库名称查询和按仓库存量查询，用户可以按不同的要求查询自己想要的资料。
图 5-4-5 入库查询流程
1．程序代码：
procedure TForm2.Button11Click(Sender: TObject);
var str:string;
begin
query3.Close;
query3.SQL.Clear;
if radiobutton21.Checked then
str:='select * from 入库表 where 入库单号='+edit6.Text+'or 仓库编号='+edit5.4.Text+'and 产品编号='+edit8.Text
else
str:='select * from 入库表 where 入库单号='+edit6.Text+'or 仓库编号='+edit7.Text+'and 产品编号='+edit8.Text;
query3.SQL.Add(str);
query3.active;
end;
2．入库查询界面：
入库查询界面
5.4.6 出库查询流程
产品的出库记录也是仓库管理的一个重要的环节，所以本系统为出库的产品也记录了，并可以根据不同的查询的条件来操作。首先，用户进入到查询的操作界面，并正确地输入查询条件。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
库存管理系统数据库系统概论课程设计 第10页下载如图片无法显示或论文不完整，请联系qq752018766
