仓库管理系统毕业论文(4)

仓库编号 数字 长整型 不可 订单状况 文本 50 不可 其它金额 货币 可

备注 备注 可 河南理工大学本科毕业设计（论文） 20表4-6为借入单信息表

表4-6 借入单信息表 字段名称 数据类型 字段大小 可否为空 编号 数字 长整型 不可 货物编号 数字 长整型 不可 经办人编号 数字 长整型 不可 借入时间 日期/时间 不可 借入数量 数字 长整型 不可 供应商编号 数字 长整型 可 仓库编号 数字 长整型 不可 订单状况 文本 50 不可 其它金额 货币 可 备注 备注 可

表4-7为借出单信息表

表4-6 借出单信息表 字段名称 数据类型 字段大小 可否为空 编号 数字 长整型 不可 货物编号 数字 长整型 不可 经办人编号 数字 长整型 不可 借出时间 日期/时间 不可 借出数量 数字 长整型 不可 供应商编号 数字 长整型 可 仓库编号 数字 长整型 不可

订单状况 文本 50 不可 河南理工大学本科毕业设计（论文） 21其它金额 货币 可 备注 备注 可

表4-8为调拨单信息表

表4-8 调拨单信息表 字段名称 数据类型 字段大小 可否为空 编号 数字 长整型 不可 货物编号 数字 长整型 不可 经办人编号 数字 长整型 不可 调拨时间 日期/时间 不可 调拨数量 数字 长整型 不可 原仓库编号 数字 长整型 不可 目标仓库编号 数字 长整型 不可 其它金额 货币 可 备注 备注 可 End Sub

“查询统计”菜单下的“职员操作统计”子菜单的Click事件的程

序代码如下。点击“职员操作统计”会弹出职员操作统计窗口。 Private Sub M职员操作统计_Click() 职员操作统计.Show vbModal End Sub

“维护设置”菜单下“职员信息”子菜单的Click事件程序代码， 点击会进入“职员信息”窗口。 Private Sub M职员信息_Click()

职员信息.Show vbModal 河南理工大学本科毕业设计（论文） 22End Sub 5 55 5. .. .4 4 4

4 创建主窗体工具栏

创建主窗体工具栏创建主窗体工具栏 创建主窗体工具栏

同样，熟悉Windows下应用程序的用户对工具栏也一定有比较深

的印象。在本系统中，它是用工具栏控件产生的，工具栏控件在主窗体 上产生了很多按钮对象，按钮上显示了文字、图形。下面首先简要介绍 工具栏控件的常用属性和事件。 5 55 5. .. .4 44 4. .. .1 1 1

1 工具栏控件常用属性和事件

工具栏控件常用属性和事件工具栏控件常用属性和事件 工具栏控件常用属性和事件

1 工具栏控件的常用属性，

工具栏控件常用的属性有如下几个，同时也是本系统中用到的几个 属性，主要有Align、ImageList、Index、ToolTipText、ShowTips、 Wrappable、 Image等。

Align：读出或设置对象在窗体中的显示位置，它有5个值可供选 择，用来设置工具栏放置在窗体的上部、下部、左边或右边等。 ImageList：读出和设置与本控件相关联的ImageList控件。该属 性被设置后，可以向工具栏按钮中添加图形。

Index：控件名相同时，用来产生一个数组标识号。

ToolTipText：设置鼠标指针在工具栏某一按钮暂停时所显示的提 示文本。

ShowTips：设置是否显示工具栏按钮上的提示文本。

Wrappable：设置如果窗口尺寸发生变化，是否自动包括本控件按 钮。 河南理工大学本科毕业设计（论文）

23Image：用来设置按钮中显示的图形，以0，1，2等来标识，ImageList 控件中的图形将按顺序赋给不同的按钮。 2 工具栏控件常用事件

工具栏控件常用事件主要有ButtonClick和Click两个。对于 ButtonClick事件，当单击本控件之上的一个按钮时，该事件过程被执 行；对于Click，当单击本控件时进行检测。 5.4.2

5.4.2 5.4.2

5.4.2 设置工具栏属性

设置工具栏属性设置工具栏属性 设置工具栏属性

向窗体添加工具栏控件后，然后按下列步骤操作： （1）设置Align属性值为1，即工具拦放在窗体的顶部。

（2）用鼠标右键单击工具栏对象，从弹出的菜单中选择“属性” 菜单项。弹出如图5-4所示的“属性页”对话框。

图5-4 工具栏属性对话框

（3）单击如图5-4所示的“图象列表”列表框右边的下拉箭头，河南理工大学本科毕业设计（论文）

24从下拉的列表中选择ImageList。这样ImageList控件就和“工具栏” 控件发生了联系。 注意：“工具栏”控件按钮使用图形，所以要求必须已引入了

ImageList控件，否则，图5-4中的“图像列表”框将不能设置成

ImageList。另外选定了图形列表控件后，ButtonHeight和ButtonWidth 属性值，由图形的大小决定，用户不要改变其设置。 （4）单击图5-4中“按钮”选项卡，“属性页”对话框如图5-5所 示。单击，单击“插入”按钮后，“索引”文本框中出现数字1，其它 输入框也变为可用。这样就可以设置其上的属性。若“图像”输入框设 为1，即ImageList控件的第一个图形作为按钮1的图形。重复上述步 骤，添加其它按钮到工具栏上，并设置相应属性。

图5-4 工具栏属性对话框

通过以上步骤，创建的主窗体工具栏如图5-5所示。 河南理工大学本科毕业设计（论文） 25

图5-5主窗体工具栏

在主窗体中为工具栏所加的代码如下：

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.index Case 1:

M库存状况_Click Case 4:

M月盘点_Click Case 9:

M打印月盘点_Click Case 11:

M查看日志_Click Case 13:

mnuHelpAbout_Click End Select End Sub

Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Key Case \入库单\

M新增入库单_Click

Case \出库单\河南理工大学本科毕业设计（论文） 26 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

End Select End Sub 5 55 5. .. .5 5 5

5 设置主窗体状态栏

设置主窗体状态栏设置主窗体状态栏 设置主窗体状态栏

状态栏一般位于窗体的底部，用于向用户显示系统的一些状态，比河南理工大学本科毕业设计（论文）

27如系统信息、当前用户、时间、日期等。

状态栏的添加比较简单，这里不再详细说明。但本窗体的状态栏如 图5-6所示。

图5-6主窗体的状态栏

在主窗体中为状态栏添加的代码如下： Private Sub Timer1_Timer()

If Len(sbStatusBar.Panels(1).Text) < sbStatusBar.Panels(1).width / 80 Then

sbStatusBar.Panels(1).Text = \sbStatusBar.Panels(1).Text Else

sbStatusBar.Panels(1).Text = LTrim(sbStatusBar.Panels(1).Text) End If End Sub 6 6 6

6 系统模块设计

系统模块设计系统模块设计 系统模块设计 6.1 6.16.1 6.1

基本信息模块设计

基本信息模块设计基本信息模块设计 基本信息模块设计

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库仓库管理系统毕业论文(4)在线全文阅读。