CS程序综合设计设计小型的库存管理系统软件Word格式.doc
- 文档编号:1450635
- 上传时间:2023-04-30
- 格式:DOC
- 页数:16
- 大小:1.20MB
CS程序综合设计设计小型的库存管理系统软件Word格式.doc
《CS程序综合设计设计小型的库存管理系统软件Word格式.doc》由会员分享,可在线阅读,更多相关《CS程序综合设计设计小型的库存管理系统软件Word格式.doc(16页珍藏版)》请在冰点文库上搜索。
,sex='
+combobox1.text+'
sno='
+maskedit1.Text+'
birthdate='
+DateToStr(DateTimePicker1.Date)+'
id='
+maskedit3.text+'
native_place='
+edit3.text+'
address='
+edit4.text+'
phone='
+maskedit2.text+'
wheresno='
);
ADOQuery1.execSQL;
end;
adoquery1.sql.clear;
adoquery1.SQL.add('
select*from信管1002_23staff'
adoquery1.open;
maskedit1.Text:
='
;
edit2.Text:
maskedit3.text:
edit3.text:
edit4.text:
maskedit2.text:
3.人员档案查询程序,程序名以“班级+座号+(表示程序名的中英文信息)”来命名,可以在查询框中输入人员姓名中的任何一个单字,查询出含该字的所有人员。
查询代码:
withadoQuery1do
begin
close;
SQL.Clear;
SQL.Add('
select*from信管1002_23staff'
wheresnamelike'
%'
+edit1.text+'
open;
物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。
1.物料档案的增加、修改、删除程序,程序名以“班级+座号+(表示程序名的中英文信息)”来命名,具体内容参考人员档案管理程序。
物料表在数据库中以“班级+座号+(表示程序名的中英文信息)”来命名表,客户端输入时要求物料代码不为空,计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等,计量单位并可以输入其它单位名,库存数量默认为0。
增加代码:
withadoquery1do
Begin
close;
sql.clear;
if(maskedit1.Text<
10000000'
)then
messagedlg('
请输入正确八位物料代码'
else
if(maskedit1.Text='
请填写完整物料信息!
sql.Add('
insertinto信管1002_23materielvalues('
+'
'
+edit2.Text+'
+edit5.text+'
+memo1.text+'
)'
execsql;
showmessage('
添加成功!
maskedit1.Text:
edit2.Text:
edit3.text:
edit5.text:
0'
combobox1.text:
end;
2.物料查询程序可以在通过输入框的文字进行模糊查询(物料代码、名称、规格中是否含有输入框的文字),程序名用“班级+座号+(表示程序名的中英文信息)”来命名。
select*from信管1002_23materiel'
SQL.Add('
wheremno+mname+sStylelike'
open;
实验课题二、简单物料进仓/出仓信息管理
企业物料进出仓的信息管理,物料进出仓的信息主要包括进出仓单号、进出仓日期、操作人员代码、备注、物料代码、进仓数量、出仓数量等
1.企业仓库进出仓信息表以“班级+座号+(表示程序名的中英文信息)”来命名,可以用一个表,也可以用二个表(一对多关系),具体表设计的思路须在报告中描述。
2.进仓程序与出仓程序可以合并,也可以分开做,名称以“班级+座号+(表示程序名的中英文信息)”来命名。
其中操作人员必须用下拉框来选择;
单号要自己编规则自动生成,单号产生规则在报告中说明;
进出仓日期用日期控件;
物料代码必须下拉框做选择;
当物料出仓时必须判断出仓数量时候超过物料的库存数量,物料的库存数量在物料表中可以获得该物料的库存数量。
进行进仓或出仓操作时必须通过调用存储过程来实现,存储过程将操作结果返回调用者,显示成功或失败的信息。
3.进仓、出仓的存储过程可以合并或分开做,存储过程名称以“班级+座号+(表示程序名的中英文信息)”来命名,存储过程要判断物料是否存在,操作后物料库存数量是否不为负数;
如果不满足条件显示,失败提示;
如果满足条件,增加进出仓表记录一条,并根据进出仓物料的数量对物料表中库存数量进行修改,提交数据库操作,否则回滚。
4.进出仓单查询程序,以“班级+座号+(表示程序名的中英文信息)”来命名,可以用进出仓日期起止条件,物料代码、操作人员、备注(用子串查询)来完成。
实验课题三、统计程序设计与报表打印
按物料统计进出仓流量,计算分析流动量最小的物料。
按月份打印进出仓单表,打印进出仓单,按物料打印仓库账本。
1.物料统计程序,统计各物料在指定时间内的进出仓数量总数,用图形显示,程序名以“班级+座号+(表示程序名的中英文信息)”来命名。
进仓流量统计代码:
DBChart1.Show;
result.Hide;
series1.XLabelsSource:
series1.YValues.ValueSource:
adoquery1.SQL.Clear;
adoquery1.SQL.Add('
select*from信管1002_23wljc1'
adoquery1.Open;
adoquery1.Active:
=true;
mname'
jsum'
series1.Active:
adoquery2.SQL.Clear;
adoquery2.SQL.Add('
selecttop1*from信管1002_23wljc1,信管1002_Elevatwhere信管1002_Elevat.date>
+datetostr(datetimepicker1.date)+'
and信管1002_Elevat.date<
+datetostr(datetimepicker2.date)+'
orderbyjsumasc'
adoquery2.sql.Add('
adoquery2.Open;
ifadoquery2.RecordCount>
0then
small.Show;
small.Caption:
进仓流量最小物料的是:
+adoquery2.FieldValues['
];
end
else
small.Caption:
总流量统计代码:
savebtn.Hide;
select*from信管1002_23wljc3'
zll'
selecttop1*from信管1002_23wljc3orderbyzllasc'
最小流动量的物料是:
进出仓统计报表代码:
savebtn.Show;
DBChart1.Hide;
result.Show;
adoquery2.sql.Clear;
select*from信管1002_23wlllorderbyzllasc'
memo1.lines.Clear;
memo1.Lines.Add(fmt('
'
40)+'
物料进出仓流动统计报表'
#13+#10+#13+#10);
memo1.Lines.Add('
代码名称规格单位进仓量出仓量总流量'
--------------------------------------------------------------------------------------------------------'
ifadoquery2.RecordCount>
wl:
物料代码为:
+adoquery2.fieldbyname('
mno'
).AsString;
=wl+'
名称为:
+adoquery2.FieldValues['
=wl+'
规格为:
+adoquery2.FieldValues['
sStyle'
whilenotadoquery2.Eofdo
begin
str:
=fmt(adoquery2.FieldValues['
],10);
=str+'
'
+fmt(adoquery2.FieldValues['
],30);
=str+fmt(adoquery2.FieldValues['
],20);
sUnit'
ifVarisNull(adoquery2.FieldValues['
])then
str:
=str+fmt('
13)
else
=str+fmt(inttostr(adoquery2.FieldValues['
]),13);
csum'
memo1.Lines.Add(str);
adoquery2.Next;
end;
memo1.Lines.Add('
流动量最小的物料是:
+wl+#13+#10);
Memo1.Lines.Add(fmt('
85)+'
统计日期'
+datetostr(date));
2.打印进出仓单程序,给定月份,将该月进出仓单全部按单号顺序打印出来,程序名以“班级+座号+(表示程序名的中英文信息)”来命名。
3.打印仓库账本程序,给定年份和物料,打印物料代码、名称、规格、计量单位、各日期的进仓、出仓和库存量;
程序名以“班级+座号+(表示程序名的中英文信息)”来命名。
预览代码:
varyy:
integer;
yy:
=strtoint(year.Text);
if(year.Text='
请先选择年份!
mterror,[mbok],0)
else
begin
adoquery1.SQL.Clear;
//year(date)='
+inttostr(yy)+'
and
adoquery1.SQL.Add('
selectmno,mname,sStyle,sUnit,UnitsInStockfrom信管1002_23materielwheremname='
+mname.Text+'
adoquery1.Open;
adoquery1.Active:
QuickRep3.Preview;
实验课题四、用户登录与权限设计
用户在这里就指操作人员,已经在人员档案中进行管理,通过设计用户登录和用户权限的管理,实现用户按权限访问资源,管理员按要求授予用户权限,登录程序安全稳定,设计用户菜单及程序调用。
人员表中需要新增字段口令、用户权限。
系统中每个操作人员都可以作为用户,当一个用户权限修改时,不会影响其他用户;
可以对每个用户单独授予某个程序的执行权,也可以收回其执行权,而不影响其他用户的权限;
1.用户登录程序,名称用以“班级+座号+(表示程序名的中英文信息)”来命名,输入用户名和口令,判断正确后,按用户的权限,显示有权的菜单项,无权菜单项必须不可见或不可操作。
登陆代码:
varuser,userdo:
string;
main.staff.show;
main.materiel.show;
main.inout.Show;
main.flux.show;
main.print.show;
main.master.show;
if(userid.Text='
)or(pass.Text='
请先确认是否输入已经账号和者密码'
)
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('
select*from信管1002_23master'
whereuserid='
+userid.text+'
ADOQuery1.open;
user:
=ADOQuery1.FieldByName('
username'
userdo:
userdo'
ifADOQuery1.FieldByName('
password'
).AsString=pass.Textthen
ifpos('
员工管理'
userdo)=0then
main.staff.hide;
物料管理'
main.materiel.hide;
物料进出仓管理'
main.inout.Hide;
统计流量管理'
main.flux.hide;
账本管理'
main.print.hide;
用户管理'
main.master.hide;
main.show
2.用户授权程序,名称用以“班级+座号+(表示程序名的中英文信息)”来命名。
有授权权限的用户,可以指定某个用户获取某个程序执行权,或被禁止某个程序的执行权。
注册代码:
root:
fori:
=0toCheckListbox1.Count-1do
ifCheckListBox1.Checked[i]=truethen
root:
=root+CheckListBox1.Items.Strings[i]+'
|'
if(username.Text='
)or(userid.Text='
messagedlg('
请完整输入用户注册信息,密码可以为空!
elseifpassword1.Text<
>
password.Textthen
两次输入的登录密码不一样!
mterror,[mbok],0);
password.Clear;
password1.Clear;
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('
+userid.Text+'
Adoquery2.open;
ifAdoquery2.RecordCount>
messagedlg('
该账号已经存在!
else
exec信管1002_23insertuser'
+password.Text+'
+username.Text+'
+root+'
Adoquery2.ExecSQL;
Adoquery1.Clo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CS 程序综合 设计 小型 库存 管理 系统软件