form5.frm

因本人没有充足的时间

VERSION 5.00
Begin VB.Form Form5 
   Caption         =   "Form5"
   ClientHeight    =   855
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2010
   LinkTopic       =   "Form5"
   ScaleHeight     =   855
   ScaleWidth      =   2010
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   240
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   1215
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
Unload Me
End Sub

Private Sub Form_Load()
Dim a 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
Text1.Text = Form3.Text4.Text
a = Text1.Text
Set wksp = DBEngine.Workspaces(0)
Set sjkdb = wksp.OpenDatabase("c:\data\msdb2.mdb", False, False, ";pwd=empty")
Set td = sjkdb.CreateTableDef(a)
Set fl = td.CreateField("摘要", dbText)
Set fl1 = td.CreateField("增加", dbText)
Set fl2 = td.CreateField("减少", dbText)
Set fl3 = td.CreateField("余额", dbText)
Set fl4 = td.CreateField("权重", dbText)
Set fl5 = td.CreateField("经办人", dbText)
Set fl6 = td.CreateField("日期", dbText)
td.Fields.Append fl
td.Fields.Append fl1
td.Fields.Append fl2
td.Fields.Append fl3
td.Fields.Append fl4
td.Fields.Append fl5
td.Fields.Append fl6
sjkdb.TableDefs.Append td
Set rd = sjkdb.OpenRecordset(a, dbOpenTable)
rd.AddNew
rd.Fields("摘要") = "入股"
rd.Fields("增加") = "0"
rd.Fields("减少") = "0"
rd.Fields("余额") = "0"
rd.Fields("权重") = "0"
rd.Fields("经办人") = "左川进"
rd.Fields("日期") = "2005.3.21"
rd.Update
sjkdb.Close
MsgBox "数据库建立完毕！", vbOKOnly, "天力科技"
Me.WindowState = 1
End Sub