frmmain.frm

快速数据库的编程实现 一定要用微软的数据引擎吗？一定要承受巨大的 DLL 文件？本程序说： No.

VERSION 4.00
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Binary DB Demo"
   ClientHeight    =   2550
   ClientLeft      =   1155
   ClientTop       =   3525
   ClientWidth     =   8580
   Height          =   2955
   Icon            =   "frmMain.frx":0000
   Left            =   1095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2550
   ScaleWidth      =   8580
   ShowInTaskbar   =   0   'False
   Top             =   3180
   Width           =   8700
   Begin VB.CommandButton Command3 
      Caption         =   "&Delete Record"
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   2070
      Width           =   1275
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&Add Record..."
      Height          =   375
      Left            =   90
      TabIndex        =   1
      Top             =   2070
      Width           =   1275
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         name            =   "Fixedsys"
         charset         =   0
         weight          =   400
         size            =   9
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   1860
      ItemData        =   "frmMain.frx":0442
      Left            =   90
      List            =   "frmMain.frx":0444
      TabIndex        =   0
      Top             =   90
      Width           =   8385
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Doubleclick to edit."
      Height          =   375
      Left            =   3780
      TabIndex        =   4
      Top             =   2070
      Width           =   2265
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Note: NT 4.0 Users Won't See Horizontal Scroll Bar."
      Height          =   375
      Left            =   6210
      TabIndex        =   3
      Top             =   2070
      Width           =   2265
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Command1_Click()
On Error Resume Next
    BinaryMgmt.AddRecord
On Error GoTo 0
On Error Resume Next
End Sub



Private Sub Command3_Click()
On Error Resume Next
    BinaryMgmt.DeleteRecord
On Error GoTo 0
On Error Resume Next
End Sub


Private Sub Form_Load()
On Error Resume Next
    BinaryMgmt.ReadAllRecords
    Reply = SendMessage(Me.List1.hwnd, &H400 + 21, 1000, 0&)
    Any_Change_At_All = False
On Error GoTo 0
On Error Resume Next
End Sub


Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    If Any_Change_At_All = True Then
        BinaryMgmt.CompactDatabase
    End If
On Error GoTo 0
On Error Resume Next
End Sub


Private Sub List1_DblClick()
On Error Resume Next
    BinaryMgmt.EditRecord
On Error GoTo 0
On Error Resume Next
End Sub