frmpopupmnu.frm

VB远程操作Sql Server 2000数据库的工具 主要功能就是远程（局域网）操作Sql Server数据库。 包括： 搜索并列举局域网内的所有Sql Server服务器 搜索并列举Sql

VERSION 5.00
Begin VB.Form FrmPopupMnu 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   1290
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   5685
   Icon            =   "FrmPopupMnu.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1290
   ScaleWidth      =   5685
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu EditFileMnu1 
      Caption         =   "表操作1(&F)"
      Begin VB.Menu ClearFileMnu 
         Caption         =   "清空表(&C)"
      End
      Begin VB.Menu F1 
         Caption         =   "-"
      End
      Begin VB.Menu AddListMnu 
         Caption         =   "增加记录(&A)"
      End
      Begin VB.Menu F2 
         Caption         =   "-"
      End
      Begin VB.Menu UpdateListMnu 
         Caption         =   "修改记录(&E)"
      End
      Begin VB.Menu F3 
         Caption         =   "-"
      End
      Begin VB.Menu DeleteListMnu 
         Caption         =   "删除记录(&D)"
      End
      Begin VB.Menu F4 
         Caption         =   "-"
      End
      Begin VB.Menu AddFieldMnu 
         Caption         =   "增加字段(&I)"
      End
      Begin VB.Menu F5 
         Caption         =   "-"
      End
      Begin VB.Menu UpdateFieldMnu 
         Caption         =   "修改字段(&U)"
      End
      Begin VB.Menu F6 
         Caption         =   "-"
      End
      Begin VB.Menu DeleteFieldMnu 
         Caption         =   "删除字段(&R)"
      End
      Begin VB.Menu F15 
         Caption         =   "-"
      End
      Begin VB.Menu ToEXCELMnu 
         Caption         =   "输出到EXCEL(&T)"
      End
   End
   Begin VB.Menu EditFileMnu2 
      Caption         =   "表操作2"
      Begin VB.Menu CopyFileMnu 
         Caption         =   "复制表名到语句栏(&P)"
      End
      Begin VB.Menu F8 
         Caption         =   "-"
      End
      Begin VB.Menu ReNameMnu 
         Caption         =   "修改表名(&N)"
      End
      Begin VB.Menu F9 
         Caption         =   "-"
      End
      Begin VB.Menu CreateFileMnu 
         Caption         =   "新建表(&C)"
      End
      Begin VB.Menu F10 
         Caption         =   "-"
      End
      Begin VB.Menu DeleteFileMnu 
         Caption         =   "删除表(&D)"
      End
      Begin VB.Menu F16 
         Caption         =   "-"
      End
      Begin VB.Menu RidFileMnu 
         Caption         =   "清空表(&O)"
      End
      Begin VB.Menu F17 
         Caption         =   "-"
      End
      Begin VB.Menu ResizeDataListMnu 
         Caption         =   "刷新(&R)"
      End
   End
   Begin VB.Menu EditFieldMnu 
      Caption         =   "字段操作"
      Begin VB.Menu InsertRowMnu 
         Caption         =   "插入行"
      End
      Begin VB.Menu F12 
         Caption         =   "-"
      End
      Begin VB.Menu DelRowMnu 
         Caption         =   "删除行"
      End
      Begin VB.Menu F13 
         Caption         =   "-"
      End
      Begin VB.Menu DelFieldMnu 
         Caption         =   "标记删除字段"
      End
      Begin VB.Menu F14 
         Caption         =   "-"
      End
      Begin VB.Menu UndelFieldMnu 
         Caption         =   "取消删除标记"
      End
   End
End
Attribute VB_Name = "FrmPopupMnu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub AddFieldMnu_Click()
      FrmPopupMnu.InsertRowMnu.Enabled = True
      FrmPopupMnu.DelRowMnu.Enabled = True
      FrmPopupMnu.DelFieldMnu.Enabled = False
      FrmPopupMnu.UndelFieldMnu.Enabled = False
  FrmMain.PEditFieldMnu (2)
End Sub

Private Sub AddListMnu_Click()
  FrmMain.PEditListMnu (0)
End Sub

Private Sub ClearFileMnu_Click()
  FrmMain.PClearFileMnu
End Sub

Private Sub CopyFileMnu_Click()
  FrmMain.PCopyFileNameMnu
End Sub

Private Sub CreateFileMnu_Click()
      FrmPopupMnu.InsertRowMnu.Enabled = True
      FrmPopupMnu.DelRowMnu.Enabled = True
      FrmPopupMnu.DelFieldMnu.Enabled = False
      FrmPopupMnu.UndelFieldMnu.Enabled = False

  FrmMain.PEditFieldMnu (0)
End Sub

Private Sub DeleteFieldMnu_Click()
      FrmPopupMnu.InsertRowMnu.Enabled = False
      FrmPopupMnu.DelRowMnu.Enabled = False
      FrmPopupMnu.DelFieldMnu.Enabled = True
      FrmPopupMnu.UndelFieldMnu.Enabled = True

  FrmMain.PEditFieldMnu (6)
End Sub

Private Sub DeleteFileMnu_Click()
  FrmMain.PDelFileMnu
End Sub

Private Sub EditFielMnu_Click()

End Sub

Private Sub DeleteListMnu_Click()
  FrmMain.PEditListMnu (4)
End Sub

Private Sub DelFieldMnu_Click()
  FrmEditFile.MshCreate.TextMatrix(FrmEditFile.MshCreate.Row, 0) = "√"
  FrmEditFile.MshCreate.Col = 0
  FrmEditFile.MshCreate.CellForeColor = vbRed
End Sub

Private Sub DelRowMnu_Click()
  If FrmEditFile.MshCreate.Col > 0 And FrmEditFile.MshCreate.Row > 0 Then
    FrmEditFile.MshCreate.RemoveItem (FrmEditFile.MshCreate.Row)
  End If
End Sub



Private Sub InsertRowMnu_Click()
  If FrmEditFile.Text1(0).Visible = False And FrmEditFile.Text1(1).Visible = False And FrmEditFile.Combo1.Visible = False Then
    FrmEditFile.MshCreate.AddItem "", FrmEditFile.MshCreate.Row
  Else
  
  End If

End Sub

Private Sub ReNameMnu_Click()
  FrmMain.PReNameFileMnu
End Sub

Private Sub ResizeDataListMnu_Click()
  FrmMain.OpenDataList
End Sub

Private Sub RidFileMnu_Click()
  FrmMain.PClearFileMnu
End Sub

Private Sub ToExcelMnu_Click()
  FrmMain.ToEXCELMnu
End Sub

Private Sub UndelFieldMnu_Click()
  FrmEditFile.MshCreate.TextMatrix(FrmEditFile.MshCreate.Row, 0) = ""
  FrmEditFile.MshCreate.Col = 0
  FrmEditFile.MshCreate.CellForeColor = vbBlack
End Sub

Private Sub UpdateFieldMnu_Click()
      FrmPopupMnu.InsertRowMnu.Enabled = False
      FrmPopupMnu.DelRowMnu.Enabled = False
      FrmPopupMnu.DelFieldMnu.Enabled = False
      FrmPopupMnu.UndelFieldMnu.Enabled = False

  FrmMain.PEditFieldMnu (4)
End Sub

Private Sub UpdateListMnu_Click()
  FrmMain.PEditListMnu (2)
End Sub