main.frm

进销存管理系统,我是个新手,请大家多多帮助哈1

      Begin VB.Menu m_userview 
         Caption         =   "会员信息查看"
      End
   End
   Begin VB.Menu m_kaoqin 
      Caption         =   "考勤(&K)"
      Begin VB.Menu m_ygkaoqin 
         Caption         =   "员工考勤"
      End
      Begin VB.Menu m_kaoqinjilu 
         Caption         =   "考勤统计"
      End
      Begin VB.Menu m_kqprint 
         Caption         =   "打印考勤报表"
      End
   End
   Begin VB.Menu m_gztongji 
      Caption         =   "工资统计(&T)"
      Begin VB.Menu m_yggz 
         Caption         =   "员工工资汇总"
      End
      Begin VB.Menu m_ygtcck 
         Caption         =   "员工提成查看"
      End
      Begin VB.Menu m_gzprint 
         Caption         =   "打印工资报表"
      End
   End
   Begin VB.Menu m_wupin 
      Caption         =   "管理操作(&M)"
      Begin VB.Menu m_ruku 
         Caption         =   "录入工资"
      End
   End
   Begin VB.Menu m_dataMan 
      Caption         =   "数据管理(&D)"
      Begin VB.Menu m_dataBak 
         Caption         =   "数据备份"
      End
      Begin VB.Menu m_datare 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu m_datastar 
         Caption         =   "初始化数据库"
      End
   End
   Begin VB.Menu m_helpus 
      Caption         =   "辅助功能(&F)"
      Begin VB.Menu m_bir 
         Caption         =   "生日提醒"
      End
      Begin VB.Menu m_pm 
         Caption         =   "密码管家"
      End
      Begin VB.Menu m_time 
         Caption         =   "浏览器修复"
      End
      Begin VB.Menu m_fy 
         Caption         =   "翻译"
      End
      Begin VB.Menu m_tqyb 
         Caption         =   "天气预报"
      End
   End
   Begin VB.Menu m_help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu m_op 
         Caption         =   "操作说明"
      End
      Begin VB.Menu m_tel 
         Caption         =   "联系方式"
      End
      Begin VB.Menu m_about 
         Caption         =   "关于我们"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()

srts.Show vbModal, Me
Me.WindowState = 2
st
End Sub


Private Sub m_About_Click()
Form3.Show
End Sub

Private Sub m_adduser_Click()
hygl.Show
End Sub

Private Sub m_bir_Click()
srts.Show
End Sub

Private Sub m_dataBak_Click()
       Open App.Path & "\data\copy.bat" For Output As #1
        Print #1, "copy kq.mdb" & Format(time, "hhmmss") & ".mdb"
        Close #1
        Shell App.Path & "\data\copy.bat", vbHide

End Sub

Private Sub m_exit_Click()
Unload Me
End

End Sub

Private Sub m_fy_Click()
Shell App.Path & "\翻译\GBchange.exe.eex"
End Sub

Private Sub m_gzprint_Click()
MsgBox "计算机无打印机暂时无法使用此功能", vbExclamation
End Sub

Private Sub m_kaoqinjilu_Click()
kaoqintj.Show
End Sub

Private Sub m_kqprint_Click()
MsgBox "计算机没有打印机,暂时无法打印", vbInformation
End Sub

Private Sub m_pm_Click()
Shell App.Path & "\密码管家\passmanage.exe"
End Sub

Private Sub m_ruku_Click()
Form2.Show
End Sub

Private Sub m_setPws_Click()
Form5.Show
End Sub

Private Sub m_setticheng_Click()
ygtj.Show
End Sub

Private Sub m_settime_Click()
setTime.Show
End Sub

Private Sub m_setyg_Click()
ygtj.Show
End Sub

Private Sub m_skinset_Click()
skin.Show
End Sub

Private Sub m_sy_Click()
sy.Show
End Sub

Private Sub m_tel_Click()
MsgBox "联系电话:[phone]", vbInformation
End Sub

Private Sub m_time_Click()
Shell App.Path & "\IE修复\ieun.exe"
End Sub

Private Sub m_tqyb_Click()
tqyb.Show

End Sub

Private Sub m_userview_Click()
hygl.Show
End Sub

Private Sub m_viewd_Click()
yinyetj.Show
End Sub

Private Sub m_yggz_Click()
gztj.Show
End Sub

Private Sub m_ygkaoqin_Click()
kaoqin.Show
End Sub

Private Sub Timer1_Timer()

End Sub

Private Sub m_ygtcck_Click()
tichengtongji.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
        Case 1
          kaoqin.Show
        Case 2
          sy.Show
        Case 3
           yyhz.Show
        Case 4
            kqtj.Show
        Case 5
         hygl.Show
        Case 6
         tqyb.Show
        Case 7
           gztj.Show
        Case 8
       Open App.Path & "\data\copy.bat" For Output As #1
        Print #1, "copy kq.mdb " & Format(time, "hhmmss") & ".mdb"
        Close #1
        Shell App.Path & "\data\copy.bat", vbHide
             Case 9
        MsgBox "请联系开发商维修人员手动进行恢复,以便于保存您数据的完整性和安全性", vbInformation
        Case 10
       Form5.Show
           
    End Select
End Sub

Private Sub view_yyy_Click()
yyhz.Show
End Sub

Sub st()

  Y = Screen.Height / Screen.TwipsPerPixelY
If Y = 768 Then
Image1.Picture = LoadPicture(App.Path & "\bg\bg2.jpg")
Image1.Height = Screen.Height + 400
Image1.Width = Screen.Width + 4000
ElseIf Y = 600 Then
Image1.Picture = LoadPicture(App.Path & "\bg\bg1.jpg")
Image1.Height = Screen.Height
Image1.Width = Screen.Width + 4000
Else
MsgBox "分辨率错误"
Image1.Picture = LoadPicture(App.Path & "\bg\bg.jpg")
End If

End Sub