Recordset.Fields("用户权限")=131071
fMainForm.m_checkado.Recordset.update
fMainForm.m_checkado.Refresh
'更改当前登陆用户信息
UserName="admin":UserPas="":Purview=131071
DimiAsInteger
Fori=0To16
权限类别(i)=1
Next
MsgBox"系统初始化成功!"
EndSub
"单据中心"菜单下的"新增报损单"子菜单的Click事件的程序代码如下。点击"新增报损单"会弹出新增报损单窗口。
PrivateSubM新增报损单_Click()
新增报损单.ShowvbModal
EndSub
"单据中心"菜单下的"新增出库单单"子菜单的Click事件的程序代码如下。点击"新增出库单"会弹出新增报损单窗口。
PrivateSubM新增出库单_Click()
新增出库单.ShowvbModal
EndSub
"单据中心"菜单下的"新增调拨单"子菜单的Click事件的程序代码如下。点击"新增调拨单"会弹出新增调拨单窗口。
PrivateSubM新增调拔单_Click()
新增调拔单.ShowvbModal
EndSub
"单据中心"菜单下的"新增借出单"子菜单的Click事件的程序代码如下。点击"新增借出单"会弹出新增借出单窗口。
PrivateSubM新增借出单_Click()
新增借出单.ShowvbModal
EndSub
"单据中心"菜单下的"新增借入单"子菜单的Click事件的程序代码如下。点击"新增借入单"会弹出新增借入单窗口。
PrivateSubM新增借入单_Click()
新增借入单.ShowvbModal
EndSub
"单据中心"菜单下的"新增入库单"子菜单的Click事件的程序代码如下。点击"新增入库单"会弹出新增入库单窗口。
PrivateSubM新增入库单_Click()
新增入库单.ShowvbModal
EndSub
"单据中心"菜单下的"进行月盘点"子菜单的Click事件的程序代码如下。点击"进行月盘点"会弹出月盘点窗口。
PrivateSubM月盘点_Click()
月盘点.ShowvbModal
EndSub
"查询统计"菜单下的"职员操作统计"子菜单的Click事件的程序代码如下。点击"职员操作统计"会弹出职员操作统计窗口。
PrivateSubM职员操作统计_Click()
职员操作统计.ShowvbModal
EndSub
"维护设置"菜单下"职员信息"子菜单的Click事件程序代码,点击会进入"职员信息"窗口。
PrivateSubM职员信息_Click()
职员信息.ShowvbModal
EndSub
5.4创建主窗体工具栏
同样,熟悉Windows下应用程序的用户对工具栏也一定有比较深的印象。在本系统中,它是用工具栏控件产生的,工具栏控件在主窗体上产生了很多按钮对象,按钮上显示了文字、图形。下面首先简要介绍工具栏控件的常用属性和事件。
5.4.1工具栏控件常用属性和事件
1工具栏控件的常用属性,
工具栏控件常用的属性有如下几个,同时也是本系统中用到的几个属性,主要有Align、ImageList、Index、ToolTipText、ShowTips、Wrappable、
Image等。
Align:读出或设置对象在窗体中的显示位置,它有5个值可供选择,用来设置工具栏放置在窗体的上部、下部、左边或右边等。
ImageList:读出和设置与本控件相关联的ImageList控件。该属性被设置后,可以向工具栏按钮中添加图形。
Index:控件名相同时,用来产生一个数组标识号。
ToolTipText:设置鼠标指针在工具栏某一按钮暂停时所显示的提示文本。
ShowTips:设置是否显示工具栏按钮上的提示文本。
Wrappable:设置如果窗口尺寸发生变化,是否自动包括本控件按钮。
Image:用来设置按钮中显示的图形,以0,1,2等来标识,ImageList控件中的图形将按顺序赋给不同的按钮。
2工具栏控件常用事件
工具栏控件常用事件主要有Butt和Click两个。对于Butt事件,当单击本控件之上的一个按钮时,该事件过程被执行;对于Click,当单击本控件时进行检测。
5.4.2设置工具栏属性
向窗体添加工具栏控件后,然后按下列步骤操作:
(1)设置Align属性值为1,即工具拦放在窗体的顶部。
(2)用鼠标右键单击工具栏对象,从弹出的菜单中选择"属性"菜单项。弹出如图5-4所示的"属性页"对话框。
图5-4工具栏属性对话框
(3)单击如图5-4所示的"图象列表"列表框右边的下拉箭头,从下拉的列表中选择ImageList。这样ImageList控件就和"工具栏"控件发生了联系。
注意:"工具栏"控件按钮使用图形,所以要求必须已引入了ImageList控件,否则,图5-4中的"图像列表"框将不能设置成ImageList。另外选定了图形列表控件后,ButtonHeight和ButtonWidth属性值,由图形的大小决定,用户不要改变其设置。
(4)单击图5-4中"按钮"选项卡,"属性页"对话框如图5-5所示。单击,单击"插入"按钮后,"索引"文本框中出现数字1,其它输入框也变为可用。这样就可以设置其上的属性。若"图像"输入框设为1,即ImageList控件的第一个图形作为按钮1的图形。重复上述步骤,添加其它按钮到工具栏上,并设置相应属性。
图5-4工具栏属性对话框
通过以上步骤,创建的主窗体工具栏如图5-5所示。
图5-5主窗体工具栏
在主窗体中为工具栏所加的代码如下:
PrivateSubtbToolBar_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.index
Case1:
M库存状况_Click
Case4:
M月盘点_Click
Case9:
M打印月盘点_Click
Case11:
M查看日志_Click
Case13:
mnuHelpAbout_Click
EndSelect
EndSub
PrivateSubtbToolBar_ButtonMenuClick(ByValButtonMenuAsMSComctlLib.ButtonMenu)
SelectCaseButtonMenu.Key
Case"入库单"
M新增入库单_Click
Case"出库单"
M新增出库单_Click
Case"借入单"
M新增借入单_Click
Case"借出单"
M新增借出单_Click
Case"调拔单"
M新增调拔单_Click
Case"报损单"
M新增报损单_Click
Case"单据"
M单据查询_Click
Case"库存"
M库存查询_Click
Case"货物出入"
M货物出入统计_Click
Case"职员操作"
M职员操作统计_Click
Case"月盘点"
M打印月盘点_Click
EndSelect
EndSub
5.5设置主窗体状态栏
状态栏一般位于窗体的底部,用于向用户显示系统的一些状态,比如系统信息、当前用户、时间、日期等。
状态栏的添加比较简单,这里不再详细说明。但本窗体的状态栏如图5-6所示。
图5-6主窗体的状态栏
在主窗体中为状态栏添加的代码如下:
PrivateSubTimer1_Timer()
IfLen(sbStatusBar.Panels(1).Text)
上一篇:VB人才管理系统(论文和程序)
下一篇:房地产企业财务管理实务操作