📄 mdiform1.frm

📁 通用样品管理系统是一个商业程序,功能界面都还不错!
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23

Private Sub MnuExi_Click()
 Unload Me
End Sub

Private Sub MnuFAQ_Click()
MDIForm1.MousePointer = 11
Dim WxyNo As Long
 WxyNo = ShellExecute(Me.hwnd, "open", "Http://www.wenzhou.com/qy.asp", "", App.Path, 1)
If WxyNo = 0 Then
 MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
End If
 MDIForm1.MousePointer = 0
End Sub

Private Sub MnuFind_Click()
MDIForm1.MousePointer = 11
If frmExplorer.Visible = True Then
    MDIForm1.MousePointer = 0
    frmExplorer.SetFocus
   Else
    frmExplorer.Show
End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuHelpContent_Click()
MDIForm1.MousePointer = 11
   HelpDailog.HelpFile = Browser + "Help.HLP"
   HelpDailog.HelpCommand = &H3&
   HelpDailog.ShowHelp
   
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuModify_Click()
MDIForm1.MousePointer = 11
If frmModify.Visible = True Then
    MDIForm1.MousePointer = 0
    frmModify.SetFocus
   Else
    frmModify.Show
End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuMultiMode_Click()
MDIForm1.MousePointer = 11
 NetData.Show 1
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuNew_Click()
MDIForm1.MousePointer = 11
If frmRegister.Visible = True Then
    MDIForm1.MousePointer = 0
    frmRegister.SetFocus
   Else
    frmRegister.Show
End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuOperater_Click()
MDIForm1.MousePointer = 11
If Operationer.Visible = True Then
    MDIForm1.MousePointer = 0
    Operationer.SetFocus
   Else
    Operationer.Show
End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuOperator_Click()
MDIForm1.MousePointer = 11
If frmOperator.Visible = True Then
    MDIForm1.MousePointer = 0
    frmOperator.SetFocus
   Else
    frmOperator.Show
End If
MDIForm1.MousePointer = 0

End Sub

Private Sub MnuProduct_Click()
MDIForm1.MousePointer = 11
Dim WxyNo As Long
 WxyNo = ShellExecute(Me.hwnd, "open", "Http://www.wenzhou.com/index.asp", "", App.Path, 1)
If WxyNo = 0 Then
 MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
End If
 MDIForm1.MousePointer = 0
End Sub

Private Sub MnuReadme_Click()
Dim Rok As Double
On Error Resume Next
   Rok = Shell("Notepad.EXE " + Browser + "Readme.txt", vbNormalFocus)
If Rok = 0 Then
   MsgBox "Windows 出错不能正常运行 Readme 程序!", vbOKOnly + 16, "错误"
   Exit Sub
End If
End Sub

Private Sub MnuRegister_Click()
MDIForm1.MousePointer = 11
Dim WxyNo As Long
 WxyNo = ShellExecute(Me.hwnd, "open", "Http://www.netease.com/~yusilong/register", "", App.Path, 1)
If WxyNo = 0 Then
 MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
End If
 MDIForm1.MousePointer = 0
End Sub

Private Sub MnuSample_Click()
MDIForm1.MousePointer = 11
 If frmDefine.Visible Then
    MDIForm1.MousePointer = 0
    frmDefine.SetFocus
  Else
    frmDefine.Show
 End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuSingleMode_Click()
  '检查路径是否正确
      Dim DataFile As String, NetFile As String
      Dim Fn As Integer
      Dim NetFile0 As String, NetFile1 As String, NetFile2 As String
          NetFile = App.Path + "\sys"
      If Right(NetFile, 1) <> "\" Then
            NetFile = NetFile + "\"
         End If
       NetFile0 = NetFile & "Sample.MDB"
       NetFile1 = NetFile & "USER.MDB"
       NetFile2 = NetFile & "DATA.MDB"
       
       '继续增加数据库...1
       '检测数据库的正确性
       On Error GoTo NetError
          Fn = FreeFile
       Open NetFile0 For Input As Fn
       Close Fn
       Open NetFile1 For Input As Fn
       Close Fn
       Open NetFile2 For Input As Fn
       Close Fn
       '继续增加数据库...2
       
       
       '网络数据库
       
       SampleData = NetFile0
       UserData = NetFile1
       ConfigData = NetFile2
       
       '继续增加数据库...3
       
           
    '写入net.ini文件中
       DataFile = Browser + "sys\net.ini"
       Open DataFile For Output As Fn
       Print #Fn, NetFile
       Close Fn
       MsgBox "  从现在开始,您所使用的数据被存到[本机]目录中。  " & vbCrLf & vbCrLf & "   应用目录为：" & App.Path + "\sys", vbInformation

       
Exit Sub

'错误代码
NetError:
  MsgBox "  数据库文件造破坏,请与供应商联系!    ", vbOKOnly + vbCritical, "警告!"

End Sub

Private Sub MnuSoftRegister_Click()
MDIForm1.MousePointer = 11
 Register.Show 1
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuSupport_Click()
MDIForm1.MousePointer = 11
Dim WxyNo As Long
 WxyNo = ShellExecute(Me.hwnd, "open", "Http://www.wenzhoucity.com/info.asp", "", App.Path, 1)
If WxyNo = 0 Then
 MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
End If
 MDIForm1.MousePointer = 0
End Sub

Private Sub MnuSysConfig_Click()
MDIForm1.MousePointer = 11
If ConfigForm.Visible = True Then
    MDIForm1.MousePointer = 0
    ConfigForm.SetFocus
   Else
    ConfigForm.Show
End If
MDIForm1.MousePointer = 0
End Sub

Private Sub MnuTip_Click()
 MDIForm1.MousePointer = 11
   If frmTip.Visible = True Then
      MDIForm1.MousePointer = 0
      frmTip.SetFocus
       Else
      frmTip.Show
   End If
 MDIForm1.MousePointer = 0
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Me.MousePointer = 11
Select Case Button.Key
       Case "Property"
 MDIForm1.MousePointer = 11
 If frmDefine.Visible Then
    MDIForm1.MousePointer = 0
    frmDefine.SetFocus
  Else
    frmDefine.Show
 End If
MDIForm1.MousePointer = 0
       Case "Exit"
            Me.MousePointer = 0
            Unload MDIForm1
            Exit Sub
       Case "New"
MDIForm1.MousePointer = 11
If frmRegister.Visible = True Then
    MDIForm1.MousePointer = 0
    frmRegister.SetFocus
   Else
    frmRegister.Show
End If
MDIForm1.MousePointer = 0
       Case "Modify"
MDIForm1.MousePointer = 11
If frmModify.Visible = True Then
    MDIForm1.MousePointer = 0
    frmModify.SetFocus
   Else
    frmModify.Show
End If
MDIForm1.MousePointer = 0
       Case "Delete"
MDIForm1.MousePointer = 11
If frmDelete.Visible = True Then
    MDIForm1.MousePointer = 0
    frmDelete.SetFocus
   Else
    frmDelete.Show
End If
MDIForm1.MousePointer = 0
       Case "Config"
MDIForm1.MousePointer = 11
If ConfigForm.Visible = True Then
    MDIForm1.MousePointer = 0
    ConfigForm.SetFocus
   Else
    ConfigForm.Show
End If
MDIForm1.MousePointer = 0
       Case "User"
MDIForm1.MousePointer = 11
 If UserText = "超级用户" Then
   If frmOperator.Visible = True Then
      MDIForm1.MousePointer = 0
      frmOperator.SetFocus
   Else
      frmOperator.Show
   End If
 Else
   If Operationer.Visible = True Then
      MDIForm1.MousePointer = 0
      Operationer.SetFocus
   Else
     Operationer.Show
   End If
 End If
MDIForm1.MousePointer = 0
       Case "Tip"
 MDIForm1.MousePointer = 11
   If frmTip.Visible = True Then
      MDIForm1.MousePointer = 0
      frmTip.SetFocus
       Else
      frmTip.Show
   End If
 MDIForm1.MousePointer = 0
       Case "Find"
MDIForm1.MousePointer = 11
If frmExplorer.Visible = True Then
    MDIForm1.MousePointer = 0
    frmExplorer.SetFocus
   Else
    frmExplorer.Show
End If
MDIForm1.MousePointer = 0
       Case "View"
MDIForm1.MousePointer = 11
   Load frmView
MDIForm1.MousePointer = 0
   MDIForm1.Hide
   frmView.Show 1
       Case "Help"
MDIForm1.MousePointer = 11
   MDIForm1.HelpDailog.HelpFile = Browser + "Help.HLP"
   MDIForm1.HelpDailog.HelpCommand = &H9&
   MDIForm1.HelpDailog.ShowHelp
MDIForm1.MousePointer = 0
End Select
Me.MousePointer = 0
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -