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仓库管理信息系统
若图片无法显示请联系站长QQ752018766

 

与该窗体相关的程序

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]  ... 下一页  >> 

VB+Access仓库管理系统 第6页下载如图片无法显示或论文不完整，请联系qq752018766