库存管理系统数据库系统概论课程设计 第9页
用户登录界面
5.4.2 用户注册流程
图5-4-2用户注册流程
用户注册一样需要一定的流程：首先要输入用户的资料，登录密码，权限，用户类型；输入之后系统会判断注册用输入信息的合法性，如果信息不合法（不符合系统原有资料或要求）系统会发出错误信息提示 ；若信息合法，系统自动进入下一步流程：打开用户权限表，增加或修改用户密码，保存更新用户表，最后关闭用户表退出。
1．程序代码：
procedure TForm5.Button1Click(Sender: TObject);
begin
if combobox1.Text='管理员' then
showmessage('用户类型输入有误');
table1.Insert;
table1.FieldByName('用户权限').AsString:='0';
try
table1.FieldByName('用户名称').AsString:=edit1.Text
except
showmessage('用户名出错')
end;
table1.FieldByName('密码').AsString:=edit2.Text;
table1.FieldByName('用户类型').AsString:=combobox1.Text;
try
Table1.Post;
except
showmessage('用户名重复或表读写错误')
end;
main.Show;
form5.Hide;
end;
2．注册界面：
用户注册界面
5.4.3 生产商登录流程
图 5-4-3 生产商登录流程
为了在产品需求量和产品供应方面方便，生产商需要对仓库的掌握最新信息，所以生产商需要登录仓库系统了解仓库资料，获取产品库存量，入库情况等信息，最后作出判断提供产品。
本系统提供四项操作：查询产品库存量，产品入库资料，查询产品资料，修改个人信息。
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.4 销售商登录流程
销售商要使用该系统的时候,可以以销售商的身份登录系统,首先要注册一个销售商的用户，如果已经注册了一个用户，就在进入界面输入用户名以及密码就可以进入操作界面。在用户界面里，本系统提供四项操作选项：修改个人信息、查询存库量、查询产品的出入库记录和查询产品资料。 用户操作完毕之后，就可以注销并且退出。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
库存管理系统数据库系统概论课程设计 第9页下载如图片无法显示或论文不完整，请联系qq752018766
