form1.ebf

windows mobile 应用程序开发实践一书的源代码

VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0FF&
   Caption         =   "Form1"
   ClientHeight    =   3615
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   3480
   ForeColor       =   &H80000008&
   ScaleHeight     =   3615
   ScaleWidth      =   3480
   ShowOK          =   -1  'True
   Begin VBCE.CommandButton createdb 
      Height          =   495
      Left            =   600
      TabIndex        =   2
      Top             =   2400
      Width           =   1335
      _cx             =   2355
      _cy             =   873
      BackColor       =   12632256
      Caption         =   "创建"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.TextBox dbname 
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   2775
      _cx             =   4895
      _cy             =   873
      BackColor       =   -2147483643
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Text            =   "nab"
      Alignment       =   0
      HideSelection   =   -1  'True
      Locked          =   0   'False
      MaxLength       =   0
      MultiLine       =   0   'False
      PasswordChar    =   ""
      ScrollBars      =   0
   End
   Begin VBCE.Label Label1 
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   1695
      _cx             =   2990
      _cy             =   450
      AutoSize        =   0   'False
      BackColor       =   -2147483643
      BackStyle       =   1
      BorderStyle     =   0
      Caption         =   "数据库名称"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Alignment       =   0
      UseMnemonic     =   -1  'True
      WordWrap        =   0   'False
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Connection As ADOCE.Connection
Dim table, indextable As ADOCE.Recordset
Set Connection = CreateObject("ADOCE.Connection.3.1")
Set table = CreateObject("ADOCE.Recordset.3.1")
Dim CPUIDSTRDest As String
Public fieldarray() As String
Public objConn, objRecTables, objRecFields, strActiveConnection, strSQL
Dim unexpectedError
Public maxval, total As Double
Public xzhou() As Double
Public xshu, yshu As Long
Public yzhou() As String

DBConnect


Public Sub DBConnect()
  
    Connection.Open "" & App.Path & "\books.cdb"
     If Err Then
        unexpectedError = True
        MsgBox "打开数据库失败，请检查", vbCritical
        Err.Clear
        App.End
    End If
      
End Sub


Private Sub createdb_Click()
'Connection.Open
Dim dbnamestr, createstr As String
dbnamestr = "\My Documents\" & dbname.Text & ".cdb"
createstr = "Create Database ' " & dbname.Text & "' "
Connection.Execute createstr
If Err.Number > 0 Then
MsgBox "创建错误"
Else
MsgBox "创建成功"
End If
Connection.Close
Set Connection = Nothing
 

End Sub

Private Sub Form_OKClick()
    App.End
End Sub