form15.frm

来自「一个商业软件的源码」· FRM 代码 · 共 852 行 · 第 1/2 页

      Width           =   8295
   End
End
Attribute VB_Name = "Form15"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private cxkk As String
Private tj As String
Private nr As String







Private Sub CurtButton1_Click()
Dim str As String
Dim i As Integer
Dim J As Integer
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).name = Combo2.Text Then J = i
str = ConvType(Adodc1.Recordset.Fields(J).Type)
Next i

Select Case str
Case "Text"
  If Combo2.Text = "Like" Then
   If tj = "" Then
   cxkk = cxkk & "(" & Combo1.Text & " " & Combo2.Text & " " & " '" & "%" & DataCombo1.Text & "%" & "'" & ") "
   Else
   cxkk = cxkk & "AND" & "(" & Combo1.Text & " " & Combo2.Text & " " & " '" & "%" & DataCombo1.Text & "%" & "'" & ")"
   End If
  Else
     If tj = "" Then
     cxkk = cxkk & "(" & Combo1.Text & Combo2.Text & " '" & DataCombo1.Text & "'" & ") "
     Else
    cxkk = cxkk & "AND" & "(" & Combo1.Text & Combo2.Text & " '" & DataCombo1.Text & "'" & ")"
     End If
 End If

Case "Date/Time"

 If Combo2.Text = "Like" Then
  If tj = "" Then
  cxkk = cxkk & "(" & Combo1.Text & " " & Combo2.Text & " " & "'" & "%" & DataCombo1.Text & "%" & "'" & ") "
  Else
  cxkk = cxkk & "AND" & "(" & Combo1.Text & " " & Combo2.Text & " " & " #" & DataCombo1.Text & "#" & ")"
  End If
 Else
  If tj = "" Then
  cxkk = cxkk & "(" & Combo1.Text & Combo2.Text & "#" & DataCombo1.Text & "#" & ") "
  Else
  cxkk = cxkk & "AND" & "(" & Combo1.Text & Combo2.Text & "# " & DataCombo1.Text & "#" & ")"
  End If
End If
End Select

tj = " where " & cxkk


End Sub

Private Sub CurtButton10_Click()
List3.Clear
Dim a As Integer
Dim i As Integer
a = List2.ListCount - 1
For i = 0 To a
List2.ListIndex = i
List3.AddItem List2.Text
Next i

End Sub

Private Sub CurtButton11_Click()
Dim a As Integer
Dim i As Integer
a = List3.ListCount - 1
For i = 0 To a
If List3.Selected(i) = True Then
List3.RemoveItem (i)
Exit Sub
End If
Next i
If List3.ListCount = 0 Then
UpDown1.Visible = False
End If
End Sub

Private Sub CurtButton12_Click()
List2.Clear
'Combo3.Clear
'Combo3.AddItem "(" & "无" & ")"
UpDown1.Visible = False
End Sub

Private Sub CurtButton2_Click()
Dim str As String
Dim i As Integer
Dim J As Integer
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).name = Combo1.Text Then J = i
str = ConvType(Adodc1.Recordset.Fields(J).Type)
Next i
Select Case str
Case "Text"
 If Combo1.Text = "Like" Then
  If tj = "" Then
  cxkk = cxkk & "(" & Combo1.Text & " " & Combo2.Text & " " & " '" & "%" & DataCombo1.Text & "%" & "'" & ") "
 Else
  cxkk = cxkk & "OR" & "(" & Combo1.Text & " " & Combo2.Text & " " & " '" & "%" & DataCombo1.Text & "%" & "'" & ")"
End If
Else
If tj = "" Then
cxkk = cxkk & "(" & Combo1.Text & Combo2.Text & " '" & DataCombo1.Text & "'" & ") "
Else
cxkk = cxkk & "OR" & "(" & Combo1.Text & Combo2.Text & " '" & DataCombo1.Text & "'" & ")"
End If
End If


Case "Date/Time"
   If Combo1.Text = "Like" Then
  If tj = "" Then
  cxkk = cxkk & "(" & Combo1.Text & " " & Combo2.Text & " " & " %" & "#" & DataCombo1.Text & "#" & "%" & ") "
 Else
  cxkk = cxkk & "OR" & "(" & Combo1.Text & " " & Combo2.Text & " " & " %" & "#" & DataCombo1.Text & "#" & "%" & ")"
End If
Else
If tj = "" Then
cxkk = cxkk & "(" & Combo1.Text & Combo2.Text & " #" & DataCombo1.Text & "#" & ") "
Else
cxkk = cxkk & "OR" & "(" & Combo1.Text & Combo2.Text & " #" & DataCombo1.Text & "#" & ")"
End If
End If
End Select
MsgBox cxkk
tj = " where " & cxkk
End Sub

Private Sub CurtButton3_Click()
sq = ""
f16t1 = ""
f16t2 = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
nr = ""
kj = ""
f16s = ""
List3.Clear
End Sub

Private Sub CurtButton4_Click()

If List1.Text <> "" Then
If sq = "" Then
Dim jg As String
Dim i As Integer
Dim J As Integer
If List3.ListCount <> 0 Then

i = List3.ListCount - 1
For J = 0 To i
List3.ListIndex = J
nr = nr + List3.Text & ","
Next J
nr = Left(nr, Len(nr) - 1)
Else
nr = "*"
End If
If f16s = "" Then
sq = "select " & nr & " from " & List1.Text
On Error GoTo ss:
MsgBox sq
selectview.Show
Else
On Error GoTo ss:
sq = "select " & nr & " from " & f16t1 & "," & f16t2 & tj & " and " & f16s
MsgBox sq
selectview.Show
End If

End If
Else
MsgBox "请选折要查询的表！", vbonlyok
End If
ss:
sq = ""
f16t1 = ""
f16t2 = ""

nr = ""
kj = ""
f16s = ""
List3.Clear
End Sub

Private Sub CurtButton5_Click()
Form16.Show


End Sub

Private Sub CurtButton9_Click()
Dim a As Integer
Dim i As Integer
List3.Clear
a = List2.ListCount - 1
For i = 0 To a
If List2.Selected(i) = True Then
List2.ListIndex = i

List3.AddItem List2.Text
End If
Next i
If List3.ListCount = 1 Then
'Combo3.Clear
'Combo3.AddItem "(" & "无" & ")"
List3.ListIndex = 0
'Combo3.AddItem List2.Text
Else
'Combo3.Clear
'Combo3.AddItem "(" & "无" & ")"
End If
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Dim i As Integer
Dim h As String
Dim J As String
If Combo1.Text = "" Or Combo1.Text = "(" & "无" & ")" Then
Else
i = InStr(Combo1.Text, ".")
J = Mid(Combo1.Text, i + 1)
h = Left(Combo1.Text, i - 1)
Adodc1.RecordSource = "select distinct " & J & " from " & h
Adodc1.Refresh
Set DataCombo1.RowSource = Adodc1.Recordset

DataCombo1.ListField = J
End If
If Combo2.Text <> "" And Combo1.Text <> "(" & "无" & ")" Or Combo1.Text <> "" And Combo2.Text <> "(" & "无" & ")" Then
CurtButton1.Enabled = True
CurtButton2.Enabled = True
Else
CurtButton1.Enabled = False
CurtButton2.Enabled = False
End If
End Sub

Private Sub Form_Load()


Combo2.AddItem "(" & "无" & ")"
Combo2.AddItem "="
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "<>"
Combo2.AddItem ">="
Combo2.AddItem "<="
Combo2.AddItem "Like"
Dim rstSchema As ADODB.Recordset
  Set rstSchema = cnnado.OpenSchema(adSchemaTables)
  Do Until rstSchema.EOF
  
  If rstSchema!table_type = "TABLE" Then
             List1.AddItem rstSchema!TABLE_NAME
             rstSchema.MoveNext
             Else
             rstSchema.MoveNext
             End If
        Loop
          
        '   clean   up
        rstSchema.Close
        
        Set rstSchema = Nothing
        Set Cnxn = Nothing

Adodc2.ConnectionString = cnnado.ConnectionString
nr = ""
tj = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
sq = ""

End Sub

Private Sub List1_Click()
Dim kj As String
'List2.Clear
'Combo1.Clear
Adodc1.ConnectionString = cnnado.ConnectionString
Adodc1.RecordSource = "select * from " & List1.Text
Adodc1.Refresh
Dim i As Integer
Dim J As Integer
i = Adodc1.Recordset.Fields.Count - 1
For J = 0 To i
 kj = Adodc1.Recordset.Fields(J).name
Combo1.AddItem List1.Text & "." & kj, J
List2.AddItem List1.Text & "." & kj, J
Next J
 
End Sub
Private Function ConvType(ByVal TypeVal As Long) As String
  Select Case TypeVal
        Case adBigInt                    ' 20
            ConvType = "Big Integer"
        Case adBinary                    ' 128
            ConvType = "Binary"
        Case adBoolean                   ' 11
            ConvType = "Boolean"
        Case adBSTR                      ' 8 i.e. null terminated string
            ConvType = "Text"
        Case adChar                      ' 129
            ConvType = "Text"
        Case adCurrency                  ' 6
            ConvType = "Currency"
        Case adDate                      ' 7
            ConvType = "Date/Time"
        Case adDBDate                    ' 133
            ConvType = "Date/Time"
        Case adDBTime                    ' 134
            ConvType = "Date/Time"
        Case adDBTimeStamp               ' 135
            ConvType = "Date/Time"
        Case adDecimal                   ' 14
            ConvType = "Float"
        Case adDouble                    ' 5
            ConvType = "Float"
        Case adEmpty                     ' 0
            ConvType = "Empty"
        Case adError                     ' 10
            ConvType = "Error"
        Case adGUID                      ' 72
            ConvType = "GUID"
        Case adIDispatch                 ' 9
            ConvType = "IDispatch"
        Case adInteger                   ' 3
            ConvType = "Integer"
        Case adIUnknown                  ' 13
            ConvType = "Unknown"
        Case adLongVarBinary             ' 205
            ConvType = "Binary"
        Case adLongVarChar               ' 201
            ConvType = "Text"
        Case adLongVarWChar              ' 203
            ConvType = "Text"
        Case adNumeric                  ' 131
            ConvType = "Long"
        Case adSingle                    ' 4
            ConvType = "Single"
        Case adSmallInt                  ' 2
            ConvType = "Small Integer"
        Case adTinyInt                   ' 16
            ConvType = "Tiny Integer"
        Case adUnsignedBigInt            ' 21
            ConvType = "Big Integer"
        Case adUnsignedInt               ' 19
            ConvType = "Integer"
        Case adUnsignedSmallInt          ' 18
            ConvType = "Small Integer"
        Case adUnsignedTinyInt           ' 17
            ConvType = "Timy Integer"
        Case adUserDefined               ' 132
            ConvType = "UserDefined"
        Case adVarNumeric                 ' 139
            ConvType = "Long"
        Case adVarBinary                 ' 204
            ConvType = "Binary"
        Case adVarChar                   ' 200
            ConvType = "Text"
        Case adVariant                   ' 12
            ConvType = "Variant"
        Case adVarWChar                  ' 202
            ConvType = "Text"
        Case adWChar                     ' 130
            ConvType = "Text"
        Case Else
            ConvType = "Unknown"
   End Select
End Function

Private Sub List3_Click()
If List3.Text <> "" Then
UpDown1.Visible = True
End If

End Sub

Private Sub UpDown1_DownClick()
Dim a As String
Dim b As Integer

b = List3.ListIndex
If b < List3.ListCount - 1 Then
a = List3.List(b + 1)
List3.List(b + 1) = List3.List(b)
List3.List(b) = a
List3.ListIndex = b + 1
End If
End Sub

Private Sub UpDown1_UpClick()
Dim c As String
Dim d As Integer

d = List3.ListIndex
If d > 0 Then
c = List3.List(d - 1)
List3.List(d - 1) = List3.List(d)
List3.List(d) = c
List3.ListIndex = d - 1
End If
End Sub