home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / MYSQL_Admi1762726272004.psc / Form1.frm < prev    next >
Text File  |  2004-02-07  |  21KB  |  645 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
  4. Begin VB.Form frmAdmin 
  5.    BackColor       =   &H00E0E0E0&
  6.    Caption         =   "Softbuddy - MYSQL ADMIN 1.0"
  7.    ClientHeight    =   8295
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   10485
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "Form1.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   8295
  23.    ScaleWidth      =   10485
  24.    StartUpPosition =   2  'CenterScreen
  25.    Begin VB.PictureBox picTab 
  26.       Appearance      =   0  'Flat
  27.       BorderStyle     =   0  'None
  28.       ForeColor       =   &H80000008&
  29.       Height          =   5025
  30.       Index           =   4
  31.       Left            =   -30000
  32.       ScaleHeight     =   5025
  33.       ScaleWidth      =   4935
  34.       TabIndex        =   10
  35.       Top             =   2400
  36.       Visible         =   0   'False
  37.       Width           =   4935
  38.       Begin VB.TextBox txtSQL 
  39.          Height          =   1215
  40.          Left            =   60
  41.          MultiLine       =   -1  'True
  42.          ScrollBars      =   2  'Vertical
  43.          TabIndex        =   18
  44.          ToolTipText     =   "PRESS F9 TO EXECUTE SQL"
  45.          Top             =   240
  46.          Width           =   5895
  47.       End
  48.       Begin MSFlexGridLib.MSFlexGrid P_SHEET3 
  49.          Height          =   3255
  50.          Left            =   0
  51.          TabIndex        =   19
  52.          Top             =   1920
  53.          Width           =   6015
  54.          _ExtentX        =   10610
  55.          _ExtentY        =   5741
  56.          _Version        =   393216
  57.          FixedCols       =   0
  58.          BackColor       =   16777215
  59.          BackColorFixed  =   14737632
  60.          AllowUserResizing=   1
  61.       End
  62.       Begin VB.Label lblSQL 
  63.          AutoSize        =   -1  'True
  64.          Caption         =   "Select a Database"
  65.          Height          =   195
  66.          Left            =   60
  67.          TabIndex        =   20
  68.          Top             =   0
  69.          Width           =   1305
  70.       End
  71.    End
  72.    Begin VB.PictureBox picTab 
  73.       Appearance      =   0  'Flat
  74.       BorderStyle     =   0  'None
  75.       ForeColor       =   &H80000008&
  76.       Height          =   5025
  77.       Index           =   3
  78.       Left            =   -20000
  79.       ScaleHeight     =   5025
  80.       ScaleWidth      =   4935
  81.       TabIndex        =   9
  82.       Top             =   0
  83.       Visible         =   0   'False
  84.       Width           =   4935
  85.    End
  86.    Begin VB.PictureBox picTab 
  87.       Appearance      =   0  'Flat
  88.       BorderStyle     =   0  'None
  89.       ForeColor       =   &H80000008&
  90.       Height          =   5145
  91.       Index           =   2
  92.       Left            =   3000
  93.       ScaleHeight     =   5145
  94.       ScaleWidth      =   5055
  95.       TabIndex        =   8
  96.       Top             =   -24000
  97.       Visible         =   0   'False
  98.       Width           =   5055
  99.       Begin VB.TextBox txtScript 
  100.          Height          =   4695
  101.          Left            =   0
  102.          Locked          =   -1  'True
  103.          MultiLine       =   -1  'True
  104.          ScrollBars      =   2  'Vertical
  105.          TabIndex        =   17
  106.          Top             =   0
  107.          Width           =   5895
  108.       End
  109.       Begin VB.CommandButton cmdFile 
  110.          Caption         =   "&Save to file"
  111.          Height          =   350
  112.          Left            =   4680
  113.          TabIndex        =   16
  114.          Top             =   4720
  115.          Width           =   1215
  116.       End
  117.    End
  118.    Begin VB.PictureBox picTab 
  119.       Appearance      =   0  'Flat
  120.       BorderStyle     =   0  'None
  121.       ForeColor       =   &H80000008&
  122.       Height          =   5625
  123.       Index           =   1
  124.       Left            =   2880
  125.       ScaleHeight     =   5625
  126.       ScaleWidth      =   5175
  127.       TabIndex        =   7
  128.       Top             =   -20000
  129.       Visible         =   0   'False
  130.       Width           =   5175
  131.       Begin MSFlexGridLib.MSFlexGrid P_Sheet1 
  132.          Height          =   2415
  133.          Left            =   0
  134.          TabIndex        =   12
  135.          Top             =   240
  136.          Width           =   6015
  137.          _ExtentX        =   10610
  138.          _ExtentY        =   4260
  139.          _Version        =   393216
  140.          FixedCols       =   0
  141.          BackColor       =   16777215
  142.          BackColorFixed  =   14737632
  143.          AllowUserResizing=   1
  144.       End
  145.       Begin MSFlexGridLib.MSFlexGrid P_Sheet2 
  146.          Height          =   2055
  147.          Left            =   0
  148.          TabIndex        =   13
  149.          Top             =   3120
  150.          Width           =   6015
  151.          _ExtentX        =   10610
  152.          _ExtentY        =   3625
  153.          _Version        =   393216
  154.          FixedCols       =   0
  155.          BackColor       =   16777215
  156.          BackColorFixed  =   14737632
  157.          AllowUserResizing=   1
  158.       End
  159.       Begin VB.Label lblProperties 
  160.          AutoSize        =   -1  'True
  161.          Caption         =   "Select a Database"
  162.          Height          =   195
  163.          Left            =   60
  164.          TabIndex        =   15
  165.          Top             =   0
  166.          Width           =   1305
  167.       End
  168.       Begin VB.Label Label2 
  169.          Caption         =   "Indexes"
  170.          Height          =   255
  171.          Left            =   60
  172.          TabIndex        =   14
  173.          Top             =   2880
  174.          Width           =   2175
  175.       End
  176.    End
  177.    Begin VB.PictureBox picTab 
  178.       Appearance      =   0  'Flat
  179.       BorderStyle     =   0  'None
  180.       ForeColor       =   &H80000008&
  181.       Height          =   5025
  182.       Index           =   0
  183.       Left            =   -30000
  184.       ScaleHeight     =   5025
  185.       ScaleWidth      =   4935
  186.       TabIndex        =   6
  187.       Top             =   2040
  188.       Visible         =   0   'False
  189.       Width           =   4935
  190.       Begin MSFlexGridLib.MSFlexGrid Sheet 
  191.          Height          =   5175
  192.          Left            =   0
  193.          TabIndex        =   11
  194.          Top             =   0
  195.          Width           =   6015
  196.          _ExtentX        =   10610
  197.          _ExtentY        =   9128
  198.          _Version        =   393216
  199.          FixedCols       =   0
  200.          BackColor       =   16777215
  201.          BackColorFixed  =   14737632
  202.          AllowUserResizing=   1
  203.       End
  204.    End
  205.    Begin MSComctlLib.TabStrip RSTAB 
  206.       Height          =   6615
  207.       Left            =   2880
  208.       TabIndex        =   5
  209.       Top             =   1560
  210.       Width           =   7455
  211.       _ExtentX        =   13150
  212.       _ExtentY        =   11668
  213.       MultiRow        =   -1  'True
  214.       TabStyle        =   1
  215.       _Version        =   393216
  216.       BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
  217.          NumTabs         =   5
  218.          BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  219.             Caption         =   "Data"
  220.             Key             =   "data"
  221.             Object.Tag             =   "data"
  222.             ImageVarType    =   2
  223.          EndProperty
  224.          BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  225.             Caption         =   "Properties"
  226.             Key             =   "properties"
  227.             Object.Tag             =   "properties"
  228.             ImageVarType    =   2
  229.          EndProperty
  230.          BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  231.             Caption         =   "Script"
  232.             Key             =   "script"
  233.             Object.Tag             =   "script"
  234.             ImageVarType    =   2
  235.          EndProperty
  236.          BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  237.             Caption         =   "Export"
  238.             Key             =   "export"
  239.             Object.Tag             =   "export"
  240.             ImageVarType    =   2
  241.          EndProperty
  242.          BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  243.             Caption         =   "SQL"
  244.             Key             =   "sql"
  245.             Object.Tag             =   "sql"
  246.             ImageVarType    =   2
  247.          EndProperty
  248.       EndProperty
  249.    End
  250.    Begin VB.PictureBox Picramme 
  251.       Align           =   3  'Align Left
  252.       Appearance      =   0  'Flat
  253.       BackColor       =   &H80000005&
  254.       BorderStyle     =   0  'None
  255.       BeginProperty Font 
  256.          Name            =   "Verdana"
  257.          Size            =   8.25
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       ForeColor       =   &H80000008&
  265.       Height          =   6840
  266.       Left            =   0
  267.       ScaleHeight     =   6840
  268.       ScaleWidth      =   2775
  269.       TabIndex        =   3
  270.       Top             =   1455
  271.       Width           =   2775
  272.       Begin VB.CommandButton Command1 
  273.          Appearance      =   0  'Flat
  274.          BackColor       =   &H00FFFFFF&
  275.          Height          =   300
  276.          Left            =   2260
  277.          Picture         =   "Form1.frx":030A
  278.          Style           =   1  'Graphical
  279.          TabIndex        =   21
  280.          ToolTipText     =   "Refresh Databases and tables"
  281.          Top             =   120
  282.          UseMaskColor    =   -1  'True
  283.          Width           =   350
  284.       End
  285.       Begin MSComctlLib.TreeView TreeView1 
  286.          Height          =   5775
  287.          Left            =   120
  288.          TabIndex        =   4
  289.          Top             =   600
  290.          Width           =   2415
  291.          _ExtentX        =   4260
  292.          _ExtentY        =   10186
  293.          _Version        =   393217
  294.          LabelEdit       =   1
  295.          Sorted          =   -1  'True
  296.          Style           =   7
  297.          FullRowSelect   =   -1  'True
  298.          ImageList       =   "ImageList1"
  299.          Appearance      =   0
  300.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  301.             Name            =   "Verdana"
  302.             Size            =   6.75
  303.             Charset         =   0
  304.             Weight          =   400
  305.             Underline       =   0   'False
  306.             Italic          =   0   'False
  307.             Strikethrough   =   0   'False
  308.          EndProperty
  309.       End
  310.       Begin VB.CommandButton Command2 
  311.          Appearance      =   0  'Flat
  312.          BackColor       =   &H00FFFFFF&
  313.          Height          =   300
  314.          Left            =   1930
  315.          Picture         =   "Form1.frx":03C7
  316.          Style           =   1  'Graphical
  317.          TabIndex        =   22
  318.          ToolTipText     =   "Change Profile"
  319.          Top             =   120
  320.          UseMaskColor    =   -1  'True
  321.          Width           =   350
  322.       End
  323.       Begin VB.CommandButton Command3 
  324.          Appearance      =   0  'Flat
  325.          BackColor       =   &H00FFFFFF&
  326.          Height          =   300
  327.          Left            =   1580
  328.          Picture         =   "Form1.frx":04BA
  329.          Style           =   1  'Graphical
  330.          TabIndex        =   23
  331.          ToolTipText     =   "Create New Window"
  332.          Top             =   120
  333.          UseMaskColor    =   -1  'True
  334.          Visible         =   0   'False
  335.          Width           =   350
  336.       End
  337.    End
  338.    Begin VB.PictureBox Picture1 
  339.       Align           =   1  'Align Top
  340.       Appearance      =   0  'Flat
  341.       BackColor       =   &H80000005&
  342.       BeginProperty Font 
  343.          Name            =   "MS Sans Serif"
  344.          Size            =   8.25
  345.          Charset         =   0
  346.          Weight          =   400
  347.          Underline       =   0   'False
  348.          Italic          =   0   'False
  349.          Strikethrough   =   0   'False
  350.       EndProperty
  351.       ForeColor       =   &H80000008&
  352.       Height          =   1455
  353.       Left            =   0
  354.       ScaleHeight     =   1425
  355.       ScaleWidth      =   10455
  356.       TabIndex        =   0
  357.       Top             =   0
  358.       Width           =   10485
  359.       Begin VB.Label Label1 
  360.          AutoSize        =   -1  'True
  361.          BackStyle       =   0  'Transparent
  362.          Caption         =   "ADMIN"
  363.          BeginProperty Font 
  364.             Name            =   "Tahoma"
  365.             Size            =   18
  366.             Charset         =   0
  367.             Weight          =   700
  368.             Underline       =   0   'False
  369.             Italic          =   0   'False
  370.             Strikethrough   =   0   'False
  371.          EndProperty
  372.          ForeColor       =   &H000040C0&
  373.          Height          =   435
  374.          Index           =   1
  375.          Left            =   7560
  376.          TabIndex        =   2
  377.          Top             =   0
  378.          Width           =   1290
  379.       End
  380.       Begin VB.Line Line1 
  381.          BorderColor     =   &H00000000&
  382.          X1              =   3120
  383.          X2              =   9960
  384.          Y1              =   480
  385.          Y2              =   480
  386.       End
  387.       Begin VB.Label Label1 
  388.          AutoSize        =   -1  'True
  389.          BackStyle       =   0  'Transparent
  390.          Caption         =   "MYSQL"
  391.          BeginProperty Font 
  392.             Name            =   "Tahoma"
  393.             Size            =   18
  394.             Charset         =   0
  395.             Weight          =   700
  396.             Underline       =   0   'False
  397.             Italic          =   0   'False
  398.             Strikethrough   =   0   'False
  399.          EndProperty
  400.          ForeColor       =   &H009E6441&
  401.          Height          =   435
  402.          Index           =   0
  403.          Left            =   6240
  404.          TabIndex        =   1
  405.          Top             =   0
  406.          Width           =   1260
  407.       End
  408.       Begin VB.Image Image1 
  409.          Height          =   2175
  410.          Left            =   0
  411.          Picture         =   "Form1.frx":05AD
  412.          Top             =   -120
  413.          Width           =   6000
  414.       End
  415.    End
  416.    Begin MSComctlLib.ImageList ImageList1 
  417.       Left            =   8280
  418.       Top             =   0
  419.       _ExtentX        =   1005
  420.       _ExtentY        =   1005
  421.       BackColor       =   -2147483643
  422.       ImageWidth      =   16
  423.       ImageHeight     =   16
  424.       MaskColor       =   12632256
  425.       _Version        =   393216
  426.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  427.          NumListImages   =   4
  428.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.             Picture         =   "Form1.frx":2ADA1
  430.             Key             =   ""
  431.          EndProperty
  432.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.             Picture         =   "Form1.frx":2AE37
  434.             Key             =   ""
  435.          EndProperty
  436.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.             Picture         =   "Form1.frx":2AEF7
  438.             Key             =   ""
  439.          EndProperty
  440.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.             Picture         =   "Form1.frx":2AF92
  442.             Key             =   ""
  443.          EndProperty
  444.       EndProperty
  445.    End
  446. End
  447. Attribute VB_Name = "frmAdmin"
  448. Attribute VB_GlobalNameSpace = False
  449. Attribute VB_Creatable = False
  450. Attribute VB_PredeclaredId = True
  451. Attribute VB_Exposed = False
  452. Option Explicit
  453.  
  454. Dim xNode As Node
  455. Const AllLeft = 2940
  456.  
  457. Private Sub cmdSQL_Click()
  458. If xNode.Parent Is Nothing Then
  459.  If Not modMYSQL.PrefromSQL(txtSQL, xNode.Text, Me.P_SHEET3, "{null}") Then
  460.      MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  461.  End If
  462. Else
  463.  If Not modMYSQL.PrefromSQL(txtSQL, xNode.Parent, Me.P_SHEET3, "{null}") Then
  464.      MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  465.  End If
  466. End If
  467. End Sub
  468.  
  469. Private Sub Command1_Click()
  470.  
  471. Dim Strname As String
  472.  
  473. If Not xNode Is Nothing Then Strname = xNode.Text
  474.  
  475.  modMYSQL.LoadEnv
  476.  Dim I As Integer
  477.  
  478.  For I = 1 To TreeView1.Nodes.Count
  479.   If TreeView1.Nodes(I).Text = Strname Then Set xNode = TreeView1.Nodes(I)
  480.   TreeView1.Nodes(I).Expanded = True
  481.  Next I
  482.  
  483.  
  484. End Sub
  485.  
  486. Private Sub Command2_Click()
  487.  Load frmLogin
  488.  frmLogin.Show
  489.  Unload Me
  490. End Sub
  491.  
  492. Private Sub Form_Load()
  493.  picTab(0).ZOrder 0
  494.  picTab(0).Visible = True
  495. End Sub
  496.  
  497.  
  498. Private Sub Form_Resize()
  499.  On Error Resume Next
  500.  
  501.  
  502.    TreeView1.Height = Picramme.ScaleHeight - TreeView1.Top
  503.  
  504.    RSTAB.Width = Me.ScaleWidth - RSTAB.Left - 60
  505.    RSTAB.Height = Me.ScaleHeight - RSTAB.Top - 60
  506.  
  507.  Dim I As Integer
  508.  Dim J As Integer
  509.  
  510.  J = picTab.UBound
  511.  
  512.  For I = 0 To J
  513.   picTab(I).Left = AllLeft
  514.   picTab(I).Top = RSTAB.Top + 450
  515.   picTab(I).Height = RSTAB.Height - 520
  516.   picTab(I).Width = RSTAB.Width - 120
  517.  Next I
  518.  
  519.  
  520.   Sheet.Height = picTab(0).ScaleHeight - (Sheet.Top + 60)
  521.   Sheet.Width = picTab(0).ScaleWidth - (Sheet.Left + 60)
  522.   
  523.  Dim H As Integer
  524.  
  525.  H = Int((picTab(0).ScaleHeight - 500) / 2)
  526.  
  527.   
  528.   P_Sheet1.Width = picTab(0).ScaleWidth - (P_Sheet1.Left + 60)
  529.   P_Sheet1.Height = H
  530.  
  531.   
  532.   P_Sheet2.Top = P_Sheet1.Top + P_Sheet1.Height + 300
  533.   P_Sheet2.Width = picTab(0).ScaleWidth - (P_Sheet2.Left + 60)
  534.   P_Sheet2.Height = H
  535.   
  536.   Label2.Top = P_Sheet2.Top - Label2.Height
  537.   
  538.   txtScript.Height = (picTab(0).ScaleHeight - 500)
  539.   txtScript.Width = picTab(0).ScaleWidth
  540.   cmdFile.Top = txtScript.Top + txtScript.Height + 60
  541.   cmdFile.Left = (picTab(0).ScaleWidth) - (cmdFile.Width + 120)
  542.   
  543.   
  544.   txtSQL.Height = H
  545.   txtSQL.Width = picTab(0).ScaleWidth
  546.   P_SHEET3.Top = txtSQL.Top + txtSQL.Height + 300
  547.   P_SHEET3.Height = H
  548.   P_SHEET3.Width = picTab(0).ScaleWidth
  549.  
  550. End Sub
  551.  
  552. Private Sub Form_Terminate()
  553.  modMYSQL.CloseConnection
  554.  Unload frmLogin
  555.  Unload frmOptions
  556.  Unload Me
  557.  End
  558. End Sub
  559.  
  560. Private Sub Form_Unload(Cancel As Integer)
  561.  modMYSQL.CloseConnection
  562.  Unload frmLogin
  563.  Unload frmOptions
  564.  Unload Me
  565.  End
  566.  
  567. End Sub
  568.  
  569. Private Sub P_Sheet1_KeyDown(KeyCode As Integer, Shift As Integer)
  570. If KeyCode = 67 And Shift = 2 Then Clipboard.SetText P_Sheet1.Text
  571. End Sub
  572.  
  573. Private Sub P_Sheet2_KeyDown(KeyCode As Integer, Shift As Integer)
  574. If KeyCode = 67 And Shift = 2 Then Clipboard.SetText P_Sheet2.Text
  575. End Sub
  576.  
  577. Private Sub P_SHEET3_KeyDown(KeyCode As Integer, Shift As Integer)
  578.  If KeyCode = 67 And Shift = 2 Then Clipboard.SetText P_SHEET3.Text
  579. End Sub
  580.  
  581. Private Sub RSTAB_Click()
  582.  Dim I As Integer
  583.  For I = 0 To picTab.UBound
  584.   picTab(I).Visible = False
  585.  Next I
  586.  
  587.  picTab(RSTAB.SelectedItem.Index - 1).ZOrder 0
  588.  picTab(RSTAB.SelectedItem.Index - 1).Visible = True
  589.  
  590.  
  591. End Sub
  592.  
  593. Private Sub Sheet_KeyDown(KeyCode As Integer, Shift As Integer)
  594.   If KeyCode = 67 And Shift = 2 Then Clipboard.SetText Sheet.Text
  595. End Sub
  596.  
  597. Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer)
  598.  If KeyCode = 67 And Shift = 2 Then Clipboard.SetText xNode.Text
  599. End Sub
  600.  
  601. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  602.  Set xNode = Node
  603.  On Error Resume Next
  604.  
  605.  If xNode.Parent Is Nothing Then
  606.     
  607.     Me.lblProperties = "Tables"
  608.     Me.lblSQL = "Useing Database " & xNode.Text
  609.     
  610.     If Not modMYSQL.PrefromSQL("SHOW TABLES FROM " & xNode.Text, "", Me.P_Sheet1, "NULL") Then
  611.       MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  612.     End If
  613.     
  614.     Me.P_Sheet2.Clear
  615.     Me.Sheet.Clear
  616.  
  617.  Else
  618.    If Not modMYSQL.PrefromSQL("SELECT * FROM " & xNode.Text, xNode.Parent, Me.Sheet) Then
  619.       MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  620.    Else
  621.     Me.lblSQL = "Useing Database " & xNode.Parent
  622.     Me.lblProperties = "Properties"
  623.     If Not modMYSQL.PrefromSQL("DESC " & xNode.Text, xNode.Parent, Me.P_Sheet1, "") Then
  624.       MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  625.     End If
  626.     
  627.     If Not modMYSQL.PrefromSQL("SHOW INDEX FROM " & xNode.Parent & "." & xNode.Text, "", Me.P_Sheet2) Then
  628.       MsgBox modMYSQL.StringError, vbInformation, "Softbuddy - MYSQL (ADMIN)"
  629.     End If
  630.     
  631.     txtScript = modMYSQL.BuildScript(xNode.Text, P_Sheet1, P_Sheet2)
  632.     
  633.    End If
  634.  
  635.  End If
  636.  
  637. End Sub
  638.  
  639. Private Sub txtSQL_KeyDown(KeyCode As Integer, Shift As Integer)
  640.  If KeyCode = vbKeyF9 Then
  641.     cmdSQL_Click
  642.  End If
  643.     
  644. End Sub
  645.