frmxj.frm

Visual Basic程序设计基础》-杨小影-源代码

VERSION 5.00
Begin VB.Form Frmxj 
   Caption         =   "学籍信息"
   ClientHeight    =   3540
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3540
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmdmodify 
      Caption         =   "修改"
      Height          =   255
      Left            =   1515
      TabIndex        =   14
      Top             =   3195
      Width           =   720
   End
   Begin VB.CommandButton Cmddel 
      Caption         =   "删除"
      Height          =   270
      Left            =   765
      TabIndex        =   13
      Top             =   3195
      Width           =   675
   End
   Begin VB.CommandButton Cmdadd 
      Caption         =   "添加"
      Height          =   285
      Left            =   15
      TabIndex        =   12
      Top             =   3180
      Width           =   720
   End
   Begin VB.CommandButton Cmdquery 
      Caption         =   "查询"
      Height          =   285
      Left            =   2295
      TabIndex        =   11
      Top             =   3180
      Width           =   750
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   300
      Left            =   3135
      TabIndex        =   10
      Top             =   3165
      Width           =   735
   End
   Begin VB.Data Data1 
      Caption         =   "学籍信息"
      Connect         =   "Access"
      DatabaseName    =   "F:\水利水电\教材用学生管理系统\Stud05.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   585
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   "学籍"
      Top             =   2700
      Width           =   2580
   End
   Begin VB.ComboBox Combo1 
      DataField       =   "性别"
      DataSource      =   "Data1"
      Height          =   300
      Left            =   1260
      TabIndex        =   9
      Top             =   1101
      Width           =   1545
   End
   Begin VB.TextBox Text4 
      DataField       =   "班级"
      DataSource      =   "Data1"
      Height          =   300
      Left            =   1260
      TabIndex        =   8
      Top             =   2190
      Width           =   2250
   End
   Begin VB.TextBox Text3 
      DataField       =   "出生日期"
      DataSource      =   "Data1"
      Height          =   300
      Left            =   1260
      TabIndex        =   7
      Top             =   1644
      Width           =   1545
   End
   Begin VB.TextBox Text2 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      Height          =   300
      Left            =   1260
      TabIndex        =   6
      Top             =   558
      Width           =   1545
   End
   Begin VB.TextBox Text1 
      DataField       =   "学号"
      DataSource      =   "Data1"
      Height          =   300
      Left            =   1260
      TabIndex        =   5
      Top             =   15
      Width           =   1545
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "班级"
      Height          =   180
      Left            =   495
      TabIndex        =   4
      Top             =   2175
      Width           =   360
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "出生日期"
      Height          =   180
      Left            =   180
      TabIndex        =   3
      Top             =   1638
      Width           =   720
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "性别"
      Height          =   180
      Left            =   465
      TabIndex        =   2
      Top             =   1102
      Width           =   360
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "姓名"
      Height          =   180
      Left            =   480
      TabIndex        =   1
      Top             =   566
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "学号"
      Height          =   180
      Left            =   480
      TabIndex        =   0
      Top             =   30
      Width           =   360
   End
End
Attribute VB_Name = "Frmxj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Cmdadd_Click()
msg$ = "请输入增加的数据，并单击数据控件的左键或右键保存"
ans = MsgBox(msg$, vbOKCancel, "添加")
   '若用户单击MsgBox()的"确定"按钮，则继续运行增加程序
   If ans = vbOK Then
  '将光标设置在TxtXh上
Text1.SetFocus
'进行增加操作
Data1.Recordset.AddNew
End If

End Sub

Private Sub Cmddel_Click()
msg$ = "确定要删除该记录吗？"
ans = MsgBox(msg$, vbOKCancel, "删除")
If ans = vbOK Then
'删除该记录
Data1.Recordset.Delete
'移动记录指针
Data1.Recordset.MoveNext
End If

End Sub

Private Sub Cmdmodify_Click()
 msg$ = "请输入要修改的数据，并单击数据控件的左键或右键保存"
ans = MsgBox(msg$, vbOKCancel, "修改")
If ans = vbOK Then
   Text1.SetFocus
   '使用Recordset的Edit方法
   Data1.Recordset.Edit
End If

End Sub

Private Sub Cmdquery_Click()
msg$ = "请输入要查询学生的学号"
search$ = InputBox(msg$, "查询")        '接收用户输入的字符串
Data1.Recordset.Index = "PrimaryKey"           '设置索引字段
Data1.Recordset.Seek "=", search$         '查询数据
If Data1.Recordset.NoMatch Then
MsgBox ("抱歉！没有找到你所要的数据")
Data1.Recordset.MoveFirst                 '没有找到则将记录指针移到文件头
End If

End Sub

Private Sub Command1_Click()
Unload Me
End Sub