毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

仓库管理系统源代码数据库实训 第3页

更新时间:2009-7-23:  来源:毕业论文
仓库管理系统数据库实训
编码实现
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仓库管理信息系统

与该窗体相关的程序
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
www.751com.cn()
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设置登录主窗体界面
在工程的窗体栏中添加一个窗体,点住窗体文件夹点右键----添加——添加窗体,设置各控件后如下图。
 
图5.2添加操作

与登录窗体相关的程序
Dim datacount As Integer          '操作员个数

Private Sub cmdCancel_Click()         '取消
  If Login1 = 1 Then
    Unload Login
  Else
    End
  End If
  operater.Recordset.Close
End Sub

Private Sub cmdDate_Click()
  DTPicker1.Visible = True
End Sub

Private Sub CmdOK_Click()             '登录
  If txtPassword = Password And Trim(Password) <> "" Or datacount = 0 Then
    If Login1 = 1 Then
      Load Mainform
    Else
      Mainform.Show
    End If
    If Rights = 2 Then
      Mainform.M_Setup.Visible = False
    Else
      Mainform.M_Setup.Visible = True
    End If
    Me.Hide
    If Login1 = 1 Then Mainform.StatusBar1.Panels.Item(1).Text = "管理员:   " & Operater1
    If Rights = 1 Then
      Mainform.M_ChangePassword.Visible = True
    Else
      Mainform.M_ChangePassword.Visible = False
    End If
  Else
    MsgBox "输入的密码有误,请重新输入!!!!"
    txtPassword.SetFocus
  End If
  txtPassword = ""
End Sub

Private Sub Combo1_Click()            '选择操作员

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

仓库管理系统源代码数据库实训 第3页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。