scanarea.frm

使用ado 來自動管理資料庫,使用表單設計關念自動產生相對應資料庫.

VERSION 5.00
Begin VB.Form frmScanningArea 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "苯核跋办砞﹚"
   ClientHeight    =   3030
   ClientLeft      =   2955
   ClientTop       =   1725
   ClientWidth     =   3285
   Icon            =   "Scanarea.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3030
   ScaleWidth      =   3285
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   396
      Left            =   1620
      TabIndex        =   11
      Top             =   2400
      Width           =   1260
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   396
      Left            =   288
      TabIndex        =   10
      Top             =   2400
      Width           =   1260
   End
   Begin VB.TextBox txtLength 
      Height          =   300
      Left            =   1248
      MaxLength       =   5
      TabIndex        =   9
      Text            =   "0"
      Top             =   1824
      Width           =   1740
   End
   Begin VB.TextBox txtWidth 
      Height          =   300
      Left            =   1248
      MaxLength       =   5
      TabIndex        =   7
      Text            =   "0"
      Top             =   1440
      Width           =   1740
   End
   Begin VB.TextBox txtYPosition 
      Height          =   300
      Left            =   1248
      MaxLength       =   5
      TabIndex        =   5
      Text            =   "0"
      Top             =   1056
      Width           =   1740
   End
   Begin VB.TextBox txtXPosition 
      Height          =   300
      Left            =   1248
      MaxLength       =   5
      TabIndex        =   3
      Text            =   "0"
      Top             =   672
      Width           =   1740
   End
   Begin VB.ComboBox cboUnits 
      Height          =   288
      Left            =   1248
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   192
      Width           =   1740
   End
   Begin VB.Label Label5 
      Caption         =   "