form13.frm

因本人没有充足的时间

VERSION 5.00
Begin VB.Form Form13 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "删除股东交易表对话框"
   ClientHeight    =   885
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3300
   Icon            =   "Form13.frx":0000
   LinkTopic       =   "Form13"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   885
   ScaleWidth      =   3300
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      BackColor       =   &H8000000F&
      Height          =   270
      Left            =   1080
      TabIndex        =   1
      Top             =   345
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "股东代码"
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   855
   End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
Form3.Command7.Enabled = False
Unload Me
End Sub

Private Sub Form_Load()
Dim a As String
Dim sjkdb As Database
Dim wksp As Workspace
Dim tds As TableDefs
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
Text1.Text = Form3.Text11.Text
a = Text1.Text
Set wksp = DBEngine.Workspaces(0)
Set sjkdb = wksp.OpenDatabase("c:\data\msdb2.mdb", False, False, ";pwd=empty")
Set tbs = sjkdb.TableDefs
tbs.Delete (a)
MsgBox ("删除成功！")
Me.WindowState = 1
End Sub

Private Sub command1_Click()

End Sub