frmsql.frm

来自「一个简单但功能强大的进货系统,同样适合用于毕业论文的设计」· FRM 代码 · 共 53 行

VERSION 5.00
Begin VB.Form frmSQL 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查找"
   ClientHeight    =   2175
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5055
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2175
   ScaleWidth      =   5055
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "frmSQL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'
'Public intNumField As Integer
'Public strSqlField As String
'
'Private Sub CmdSql_Click(Index As Integer)
'    Select Case Index
'        Case 0
'            If Me.TxtSQL.Text = "" Then
'                intNumField = -1
'            Else
'                intNumField = Me.CboField.ListIndex
'                strSqlField = Me.TxtSQL.Text
'            End If
'        Case 1
'            intNumField = -2
'    End Select
'    Unload Me
'End Sub
'
'Private Sub Form_Load()
'    Dim intTmp As Integer
'    For intTmp = 0 To intNumField - 1
'        Me.CboField.AddItem "字段" & CStr(intTmp + 1)
'    Next
'    Me.CboField.ListIndex = 0
'End Sub

Private Sub Form_Load()

End Sub