VB+Access仓库管理系统 第6页
VB+Access仓库管理系统 第6页
第五章 编码实现
5.1系统物理实施
（1）硬件选择。系统中计算机能够运行Windows98以上操作系统即可。
（2）操作系统。Windows98以上操作系统。
（3）开发工具。面向对象程序设计语言Visual Basic 6.0。
（4）数据库管理系统。Microsoft Access数据库管理系统。
5.2创建仓库管理信息系统各界面并编写代码
5.2.1 显示软件版本信息界面
打开Visual Basic 6.0后，单击File---New Project菜单，在工程模板中选择“展示屏幕”将产生一个展示屏幕窗体。设置各控件后如下图。
图5.1仓库管理信息系统
若图片无法显示请联系站长QQ3249114
与该窗体相关的程序
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
lblCompanyProduct.ForeColor = RGB(238, 78, 48)
lblVersion.ForeColor = RGB(238, 78, 48)
End Sub
Private Sub Frame1_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub imgLogo_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub Label1_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lblPlatform_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lbladdress_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lblCompany_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lblCopyright_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lblProductName_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub lblVersion_Click()
Unload Me
Load Login
Login.Show
End Sub
Private Sub Timer1_Timer()
Unload Me
Load Login
Login.Show
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False
End Sub
5.2.2 设置登录主窗体界面
在工程的窗体栏中添加一个窗体，点住窗体文件夹点右键----添加——添加窗体，设置各控件后如下图。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>