📄 form12.frm

📁 因本人没有充足的时间
💻 FRM
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form12 
   BorderStyle     =   0  'None
   Caption         =   "省二建股权证管理系统V1.0"
   ClientHeight    =   6300
   ClientLeft      =   2865
   ClientTop       =   3435
   ClientWidth     =   9135
   Icon            =   "Form12.frx":0000
   LinkTopic       =   "Form5"
   MinButton       =   0   'False
   ScaleHeight     =   6300
   ScaleWidth      =   9135
   ShowInTaskbar   =   0   'False
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   6600
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   240
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSF 
      Bindings        =   "Form12.frx":08CA
      Height          =   6015
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   10610
      _Version        =   393216
      Rows            =   5
      Cols            =   5
      SelectionMode   =   2
      MergeCells      =   1
      AllowUserResizing=   3
   End
   Begin VB.Menu Q1 
      Caption         =   "文件（F）"
      Index           =   1
      Begin VB.Menu w1 
         Caption         =   "清空查询结果"
         Index           =   1
      End
      Begin VB.Menu w2 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu w3 
         Caption         =   "退出"
         Index           =   3
      End
   End
   Begin VB.Menu Q2 
      Caption         =   "按股东代码查询（W）"
      Index           =   2
   End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label12_Click()

End Sub
Private Sub Form_Load()
Dim b As String
Dim sjkdb As Database
Dim wksp As Workspace
Dim td As TableDef
Dim rd As Recordset
Dim fl As Field
Dim idxs As Indexes
Dim idx As Index
Dim idx1 As Index
Dim idx2 As Index
Dim fl1 As Field
Dim fl2 As Field
Dim fl3 As Field
Dim fl4 As Field
Dim fl5 As Field
Dim fl6 As Field
Dim fl7 As Field
Dim fl8 As Field
Dim fl9 As Field
Dim fl10 As Field
Dim fl11 As Field
Dim fl12 As Field
Dim fl13 As Field
Dim fl14 As Field
Dim fl15 As Field
Dim fl16 As Field
Dim fl17 As Field
Dim fl18 As Field
Dim fl19 As Field
Dim fl20 As Field
Dim fl21 As Field
Dim fl22 As Field
Dim fl23 As Field
Dim fl24 As Field
b = Form10.a
Set wksp = DBEngine.Workspaces(0)
Set sjkdb = wksp.OpenDatabase("c:\data\msdb2.mdb", False, False, ";pwd=empty")
MSF.Height = Form12.Height - 2500
MSF.Width = Form12.Width - 500
End Sub

Private Sub Form_Resize()
Dim a As Index
Dim b As Index
MSF.Height = Form12.Height - 2500
MSF.Width = Form12.Width - 500
End Sub

Private Sub Q5_Click(Index As Integer)

End Sub

Private Sub Q7_Click(Index As Integer)

End Sub

Private Sub Q9_Click(Index As Integer)

End Sub

Private Sub Q2_Click(Index As Integer)

End Sub

Private Sub w1_Click(Index As Integer)
If TextA1.Text = "" Then
MsgBox ("已清空表单!")
Data2.Refresh
Else
Data2.Recordset.MoveLast
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub w3_Click(Index As Integer)
Unload Me
End Sub
💿 文件大小 1267 K
👤 上传用户 sun337146987
📂 所属分类数据库系统
⌨️ 快捷键说明

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