显示sql结果.frm

软件用到的技巧：透明窗体

VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form RSQL 
   Caption         =   "初始化数据库"
   ClientHeight    =   5055
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7515
   LinkTopic       =   "Form13"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   5055
   ScaleWidth      =   7515
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   915
      Left            =   -3825
      Picture         =   "显示SQL结果.frx":0000
      ScaleHeight     =   915
      ScaleWidth      =   11430
      TabIndex        =   12
      Top             =   30
      Width           =   11430
      Begin VB.Label Label7 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "初始化数据库"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   285
         Left            =   3930
         TabIndex        =   13
         Top             =   330
         Width           =   1800
      End
   End
   Begin CSCommand.Command Command1 
      Height          =   405
      Left            =   5760
      TabIndex        =   9
      Top             =   4515
      Width           =   1545
      _ExtentX        =   2725
      _ExtentY        =   714
      IconAlign       =   0
      Icon            =   "显示SQL结果.frx":0DB8
      Caption         =   "开始初始化 [&C]"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Frame Frame2 
      Caption         =   "选择需要清空的模块"
      Height          =   1245
      Left            =   195
      TabIndex        =   5
      Top             =   2610
      Width           =   7110
      Begin VB.CheckBox Check3 
         Caption         =   "[&B] 拜访记录模块"
         Height          =   270
         Left            =   255
         TabIndex        =   8
         Top             =   885
         Width           =   2355
      End
      Begin VB.CheckBox Check2 
         Caption         =   "[&U] 网址收藏模块"
         Height          =   270
         Left            =   255
         TabIndex        =   7
         Top             =   577
         Width           =   2355
      End
      Begin VB.CheckBox Check1 
         Caption         =   "[&S] 商家和联系人模块"
         Height          =   270
         Left            =   255
         TabIndex        =   6
         Top             =   270
         Width           =   2355
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "警告"
      Height          =   1440
      Left            =   195
      TabIndex        =   0
      Top             =   1110
      Width           =   7095
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "4：因是免费的软件，作者只提供技术上的咨询，对因使用软件带来的损失概不负责。"
         Height          =   180
         Left            =   210
         TabIndex        =   4
         Top             =   1095
         Width           =   6750
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "3：如果你认为软件自带的功能不合适，请将数据库文件用ACCESS软件来自行管理。"
         Height          =   180
         Left            =   195
         TabIndex        =   3
         Top             =   840
         Width           =   6570
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "2：在初始化执行之前，请备份数据库到安全的地方。"
         Height          =   180
         Left            =   195
         TabIndex        =   2
         Top             =   570
         Width           =   4230
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "1：初始化数据库就是清空数据库并让标志ID归零，该操作将不可恢复，请慎重。"
         Height          =   180
         Left            =   195
         TabIndex        =   1
         Top             =   300
         Width           =   6390
      End
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "状态："
      Height          =   180
      Left            =   450
      TabIndex        =   11
      Top             =   3990
      Width           =   540
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      X1              =   165
      X2              =   7455
      Y1              =   4290
      Y2              =   4290
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "就绪。"
      Height          =   240
      Left            =   990
      TabIndex        =   10
      Top             =   3990
      Width           =   6300
   End
End
Attribute VB_Name = "RSQL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
        Me.Icon = MDIForm1.Icon
    Me.Height = 5460
    Me.Width = 7635
End Sub

Private Sub Form_Resize()
On Error GoTo ddd
    Me.Height = 5460
    Me.Width = 7635

ddd:
End Sub