form3.frm

VB+SQL SERVER 密码：2222

         Caption         =   "学生处"
      End
      Begin VB.Menu basic 
         Caption         =   "基础系"
      End
   End
   Begin VB.Menu change 
      Caption         =   "人事变动(&c)"
      Begin VB.Menu rencaiout 
         Caption         =   "人才调出"
      End
      Begin VB.Menu enter 
         Caption         =   "人才调入"
      End
   End
   Begin VB.Menu kaohe 
      Caption         =   "年度考核奖罚(&n)"
   End
   Begin VB.Menu px 
      Caption         =   "员工培训(&x)"
      Begin VB.Menu gangweipeixun 
         Caption         =   "岗位培训"
      End
      Begin VB.Menu waichuxuexi 
         Caption         =   "外出学习"
      End
   End
   Begin VB.Menu yule 
      Caption         =   "娱乐(&y)"
      Begin VB.Menu fangkuai 
         Caption         =   "俄罗斯方块"
      End
   End
   Begin VB.Menu js 
      Caption         =   "使用说明(&s)"
      Begin VB.Menu jieshao 
         Caption         =   "软件介绍"
      End
      Begin VB.Menu help 
         Caption         =   "帮助"
      End
      Begin VB.Menu password 
         Caption         =   "管理员密码"
      End
   End
   Begin VB.Menu quit 
      Caption         =   "退出系统(&q)"
      Begin VB.Menu qq 
         Caption         =   "退出其他选项"
      End
      Begin VB.Menu q 
         Caption         =   "退出本系统"
      End
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub TabStrip1_Click()

End Sub

Private Sub danganguanli_Click()
Form5.Show

End Sub

Private Sub brows_Click()
Form6.Show

End Sub

Private Sub enter_Click()
DataGrid1.Visible = False
Box1.Text = ""
Open "库文件\人才调入.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data1
Box1.Text = Box1.Text + Data1 + Chr(13) + Chr(10)
Loop
Close #1
End Sub

Private Sub fangkuai_Click()
Form1.Show

End Sub

Private Sub Form_Load()
StatusBar1.Panels(2).Text = "欢迎使用人事管理系统,本系统由丛菲和许士华制作!"

End Sub

Private Sub Form_Resize()
With Box1
.Top = Toolbar1.Height
.Left = 0
.Width = ScaleWidth
If Form3.ScaleHeight - Toolbar1.Height - StatusBar1.Height > 0 Then

.Height = Form3.ScaleHeight - Toolbar1.Height - StatusBar1.Height
End If

End With
With DataGrid1
.Top = Toolbar1.Height
.Left = 0
.Width = ScaleWidth
If ScaleHeight - Toolbar1.Height - StatusBar1.Height > 0 Then

.Height = ScaleHeight - Toolbar1.Height - StatusBar1.Height
End If

End With

End Sub

Private Sub kq_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)
i = MsgBox("真的要退出本系统吗？", 36, "提示")
If i = 6 Then
Unload Me
Else
Cancel = 1
End If

End Sub

Private Sub gangweipeixun_Click()
DataGrid1.Visible = False
Box1.Text = ""
Open "库文件\岗位培训.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data1
Box1.Text = Box1.Text + Data1 + Chr(13) + Chr(10)
Loop
Close #1

End Sub

Private Sub guanli_Click()
DataGrid1.Caption = "人事管理系统浏览"
DataGrid1.Visible = True

End Sub

Private Sub help_Click()
frmTip.Show


End Sub

Private Sub jieshao_Click()
Dim web As String
web = "use.htm"
ShellExecute 0&, vbNullString, web, vbNullString, vbNullString, 0

End Sub

Private Sub kaohe_Click()
'Box1.Text = ""
'Open "库文件\年度考核与奖罚.txt" For Input As #1
'Do While Not EOF(1)
'Line Input #1, Data1
'Box1.Text = Box1.Text + Data1 + Chr(13) + Chr(10)
''Loop
'Close #1

End Sub

Private Sub MSFlexGrid1_Click()

End Sub

Private Sub new_Click()
form4.Show
End Sub

Private Sub office_Click()
DataGrid1.Visible = False
Form9.Show

End Sub

Private Sub password_Click()
Form8.Show

End Sub

Private Sub q_Click()
'i = MsgBox("真的要退出本系统吗？", 36, "提示")
'If i = 6 Then
Unload Me


'End If
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub qq_Click()
siscf.Show
End Sub

Private Sub rencaiout_Click()
DataGrid1.Visible = False
Box1.Text = ""
Open "库文件\人才调出.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data1
Box1.Text = Box1.Text + Data1 + Chr(13) + Chr(10)
Loop
Close #1
End Sub

Private Sub salary_Click()
Form7.Show

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = "当前时间是:" + Time$

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

Case 1

Dialog1.Flags = 1
Dialog1.Filter = "*.txt|*.txt|*.*(所有文件)|*.*"
Dialog1.ShowOpen
Box1.LoadFile Dialog1.FileName

Case 2
Dialog1.Flags = 2
Dialog1.ShowSave
Box1.SaveFile Dialog1.FileName

Case 3

Dialog1.Flags = 1
Dialog1.PrinterDefault = True
Dialog1.Min = 1
Dialog1.Max = 5
Dialog1.Orientation = cdlPortrait
Dialog1.ShowPrinter
Printer.Print Form3.DataGrid1.Text




Case 4
On Error GoTo err
Dialog1.CancelError = True
Dialog1.Flags = 259
Dialog1.ShowFont
Box1.SetFocus
Box1.SelFontName = Dialog1.FontName
Box1.SelFontSize = Dialog1.FontSize
Box1.SelBold = Dialog1.FontBold
Box1.SelItalic = Dialog1.FontItalic
Box1.SelStrikeThru = Dialog1.FontStrikethru
Box1.SelUnderline = Dialog1.FontUnderline
Box1.SelColor = Dialog1.Color
err: Exit Sub
Case 5
Box1.Text = ""
DataGrid1.Visible = False
Case 6

Form8.Show
Case 7
Dim web As String
web = "use.htm"
ShellExecute 0&, vbNullString, web, vbNullString, vbNullString, 0

Case 8
frmTip.Show

End Select

End Sub

Private Sub waichuxuexi_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\feifan\siscf1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "岗位培训"
DataGrid1.DataSource = "Adodc1"
DataGrid1.Caption = "员工岗位培训"

'DataGrid1.Visible = False
'Box1.Text = ""
'Open "库文件\外出学习.txt" For Input As #1
'Do While Not EOF(1)
'Line Input #1, Data1
'Box1.Text = Box1.Text + Data1 + Chr(13) + Chr(10)
'Loop
'Close #1

End Sub