form3.frm

来自「vb电子书籍」· FRM 代码 · 共 194 行

   VERSION 5.00
   Begin VB.Form Form3
      Caption         =   "填充题"
      ClientHeight    =   3465
      ClientLeft      =   165
      ClientTop       =   735
      ClientWidth     =   7830
      LinkTopic       =   "Form3"
      ScaleHeight     =   3465
      ScaleWidth      =   7830
      StartUpPosition =   3  '窗口缺省
      Begin VB.TextBox Text1
         DataField       =   "答C"
         DataSource      =   "Data1"
         Height          =   270
         Index           =   2
         Left            =   360
         TabIndex        =   4
         Top             =   2880
         Width           =   7215
      End
      Begin VB.TextBox Text1
         DataField       =   "答B"
         DataSource      =   "Data1"
         Height          =   270
         Index           =   1
         Left            =   360
         TabIndex        =   3
         Top             =   2520
         Width           =   7215
      End
      Begin VB.TextBox Text1
         DataField       =   "答A"
         DataSource      =   "Data1"
         Height          =   270
         Index           =   0
         Left            =   360
         TabIndex        =   1
         Top             =   2160
         Width           =   7215
      End
      Begin VB.Data Data1
         Appearance      =   0  'Flat
         Caption         =   "         选择题"
         Connect         =   "Access"
         DatabaseName    =   "db2.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   375
         Left            =   0
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "填充题"
         Top             =   240
         Width           =   3615
      End
      Begin VB.Label Label3
         DataField       =   "答E"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   4
         Left            =   6480
         TabIndex        =   9
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label3
         DataField       =   "答D"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   3
         Left            =   5040
         TabIndex        =   8
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label3
         DataField       =   "答C"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   2
         Left            =   3600
         TabIndex        =   7
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label3
         DataField       =   "答B"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   1
         Left            =   2160
         TabIndex        =   6
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label3
         DataField       =   "v答A"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   0
         Left            =   720
         TabIndex        =   5
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "1     2    3"
         BeginProperty Font
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1215
         Left            =   120
         TabIndex        =   2
         Top             =   2160
         Width           =   255
      End
      Begin VB.Label Label1
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         DataField       =   "题名"
         DataSource      =   "Data1"
         Height          =   615
         Left            =   0
         TabIndex        =   0
         Top             =   840
         Width           =   7695
      End
      Begin VB.Menu xu
         Caption         =   "选择题"
      End
      Begin VB.Menu cg
         Caption         =   "程序填充题"
      End
      Begin VB.Menu b
         Caption         =   "编程题"
      End
      Begin VB.Menu s
         Caption         =   "数据保存"
      End
      Begin VB.Menu c
         Caption         =   "窗口"
      End
      Begin VB.Menu e
         Caption         =   "退出"
      End
   End
   Attribute VB_Name = "Form3"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim i, j As Integer
'##################################################################
'## 过程名称：Data1_Reposition
'## 参数： 无
'##################################################################
Private Sub Data1_Reposition()
    If Not IsNull(Data1.Recordset.Fields("答案数")) Then
        j = Data1.Recordset.Fields("答案数")
    End If
    For i = 2 To j
        Text1(i).Visible = True
    Next i
    
End Sub
    
'##################################################################
'## 过程名称：e_Click
'## 参数： 无
'##################################################################
Private Sub e_Click()
    End
End Sub
    
'##################################################################
'## 过程名称：xu_Click
'## 参数： 无
'##################################################################
Private Sub xu_Click()
    Form2.Show
    Unload Form3
End Sub