学生信息管理系统的论文+毕业设计用VB(6)

Private Sub Form_Load() On Error GoTo Err ''连数据库代码

If CN.State Then CN.Close

CN.ConnectionString = \\CN.Open miCount = 0

Ok = False

txtUserName.Text = GetSetting(App.Title, \Label2.MouseIcon = cmdOK.MouseIcon Exit Sub Err:

MsgBox Err.Description, , \数据库连接错误\End End Sub

Private Sub Label1_Click() Form5.Show 1 End Sub

Private Sub Label2_Click() End End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If

End Sub

Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus End If End Sub

主界面图及代码：

Private Sub DatabaseHf_Click() frmHF.Show 1 End Sub

Private Sub Exit_Click() End End Sub

Private Sub FindStudent_Click() Form2.Show 1 End Sub

Private Sub Findxg_Click() Form8.Show 1 End Sub

Private Sub Form_Load() PrivsSeting ''加载权限设置

End Sub

Private Sub Form_Resize()

On Error GoTo Err '''改变控件位置代码 Picture1.Top = 0 Picture1.Left = 0

Picture1.Height = Me.ScaleHeight - StatusBar1.Height Picture1.Width = Me.ScaleWidth

StatusBar1.Panels(1).Text = \操作员:\Label9.Left = (Picture1.ScaleWidth - Label9.Width) / 2 Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2 Label1.Top = Label9.Top + 50 Label1.Left = Label9.Left + 50 ''加载背景代码

Image1.Picture = LoadPicture(App.Path & \ Picture1.Refresh

Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height Err: End Sub

Private Sub Form_Unload(Cancel As Integer) End End Sub

Private Sub HelpFiles_Click() '''帮助文件

On Error GoTo Err

Mainfrm.StatusBar1.Panels(2).Text = \帮助文件\ Dim strPath As String

strPath = App.Path + \系统说明.doc\

ShellExecute hWnd, \mFso.GetParentFolderName(strPath), 5 Exit Sub Err:

MsgBox Err.Description End Sub

Private Sub Infocj_Click() strTableName = \成绩信息\Form6.Show 1 End Sub

Private Sub InfoCqjl_Click() strTableName = \考勤信息\Form7.Show 1 End Sub

Private Sub InfoJf_Click() strTableName = \奖罚信息\Form7.Show 1 End Sub

Private Sub InfoKc_Click() strTableName = \课程信息\Form1.Show 1 End Sub

Private Sub InfoKwhd_Click() strTableName = \课外活动信息\Form7.Show 1 End Sub

Private Sub infoStudent_Click() strTableName = \学生基本信息\Form1.Show 1 End Sub

Private Sub InofBs_Click() strTableName = \比赛信息\Form7.Show 1 End Sub

Private Sub Sjbf_Click() frmDatabase.Show 1 End Sub

Private Sub SysAbout_Click() ''关于 frmAbout.Show 1