jsxxll.frm

利用VB语言程序和SQL数据库连接

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "教师信息浏览与修改"
   ClientHeight    =   3390
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6585
   LinkTopic       =   "Form1"
   ScaleHeight     =   3390
   ScaleWidth      =   6585
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command9 
      Caption         =   "取消"
      Height          =   375
      Left            =   5760
      TabIndex        =   28
      Top             =   2880
      Width           =   735
   End
   Begin VB.CommandButton Command8 
      Caption         =   "确定"
      Height          =   375
      Left            =   5160
      TabIndex        =   27
      Top             =   2880
      Width           =   615
   End
   Begin VB.CommandButton Command7 
      Caption         =   "修改"
      Height          =   375
      Left            =   4560
      TabIndex        =   26
      Top             =   2880
      Width           =   615
   End
   Begin VB.CommandButton Command6 
      Caption         =   "添加"
      Height          =   375
      Left            =   3960
      TabIndex        =   25
      Top             =   2880
      Width           =   615
   End
   Begin VB.CommandButton Command5 
      Caption         =   "删除"
      Height          =   375
      Left            =   3240
      TabIndex        =   24
      Top             =   2880
      Width           =   735
   End
   Begin VB.CommandButton Command4 
      Caption         =   "末记录"
      Height          =   375
      Left            =   2280
      TabIndex        =   23
      Top             =   2880
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "后移"
      Height          =   375
      Left            =   1560
      TabIndex        =   22
      Top             =   2880
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "前移"
      Height          =   375
      Left            =   840
      TabIndex        =   21
      Top             =   2880
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "首记录"
      Height          =   375
      Left            =   120
      TabIndex        =   20
      Top             =   2880
      Width           =   735
   End
   Begin VB.TextBox Text8 
      DataField       =   "Memo"
      DataSource      =   "Data1"
      Height          =   615
      Left            =   4800
      MultiLine       =   -1  'True
      TabIndex        =   19
      Text            =   "jsxxll.frx":0000
      Top             =   2040
      Width           =   1695
   End
   Begin VB.TextBox Text7 
      DataField       =   "DepartNo"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   3240
      TabIndex        =   16
      Text            =   "Text7"
      Top             =   2280
      Width           =   1455
   End
   Begin VB.TextBox Text6 
      DataField       =   "Telephone"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1200
      TabIndex        =   14
      Text            =   "Text6"
      Top             =   2280
      Width           =   1455
   End
   Begin VB.CheckBox Check1 
      Caption         =   "婚否"
      DataField       =   "Marriage"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   3360
      TabIndex        =   12
      Top             =   1800
      Width           =   855
   End
   Begin VB.TextBox Text5 
      DataField       =   "Birthday"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1200
      TabIndex        =   11
      Text            =   "Text5"
      Top             =   1800
      Width           =   1935
   End
   Begin VB.TextBox Text4 
      DataField       =   "Title"
      DataSource      =   "Data1"
      Height          =   390
      Left            =   2760
      TabIndex        =   9
      Text            =   "Text4"
      Top             =   1200
      Width           =   1455
   End
   Begin VB.ComboBox Combo1 
      DataField       =   "Sex"
      DataSource      =   "Data1"
      Height          =   300
      ItemData        =   "jsxxll.frx":0006
      Left            =   960
      List            =   "jsxxll.frx":0010
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   1320
      Width           =   975
   End
   Begin VB.TextBox Text3 
      DataField       =   "TeaID"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1200
      TabIndex        =   5
      Text            =   "Text3"
      Top             =   720
      Width           =   3015
   End
   Begin VB.TextBox Text2 
      DataField       =   "TeaName"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   240
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      DataField       =   "TeaNo"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   240
      Width           =   855
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "ODBC;Driver={SQL Server};Server=3E33F1EF1C564FA\TAHSJ;UID=sa;PWD=411024;Database=CollegeMIS"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   -1  'True
      Height          =   375
      Left            =   5040
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "dbo.Teacher"
      Top             =   1680
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.Label Label10 
      Caption         =   "备注："
      Height          =   255
      Left            =   4560
      TabIndex        =   18
      Top             =   1800
      Width           =   735
   End
   Begin VB.Image Image1 
      DataField       =   "Picture"
      DataSource      =   "Data1"
      Height          =   1215
      Left            =   4440
      Stretch         =   -1  'True
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label9 
      Caption         =   "照片"
      Height          =   255
      Left            =   4440
      TabIndex        =   17
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label8 
      Caption         =   "系号："
      Height          =   255
      Left            =   2640
      TabIndex        =   15
      Top             =   2400
      Width           =   615
   End
   Begin VB.Label Label7 
      Caption         =   "电话号码："
      Height          =   255
      Left            =   240
      TabIndex        =   13
      Top             =   2400
      Width           =   1095
   End
   Begin VB.Label Label6 
      Caption         =   "出生日期："
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "职称："
      DataSource      =   "Data1"
      Height          =   255
      Left            =   2160
      TabIndex        =   8
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "性别："
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "身份证号："
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "姓名："
      Height          =   255
      Left            =   2280
      TabIndex        =   2
      Top             =   360
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "教师号："
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim AddOrNot As Boolean      '存放是添加操作还是更新操作
Private Sub Command5_Click()         '删除记录
  If (vbYes = MsgBox("真的要删除当前记录吗？", vbYesNo + vbQuestion, "删除提示框")) Then
      Data1.Recordset.Delete
      Data1.Recordset.MoveNext
      If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
  End If
  If Data1.Recordset.EOF And Data1.Recordset.BOF Then
      MsgBox "已无记录"
      DisabledButton
      Command6.Enabled = True
  End If
End Sub

Private Sub Command6_Click()   '增加记录
   CanEdit                         '可以通过界面输入数据
   Data1.Recordset.AddNew          '添加一条记录
   ButtonAddEdit                   '设置按钮状态
   AddOrNot = True                 '是添加操作
End Sub

Private Sub Command7_Click()
  Data1.Recordset.Edit        '进入编辑状态
  CanEdit                     '能通过界面输入数据
  ButtonAddEdit               '设置按钮状态
  AddOrNot = False            '是修改操作
End Sub

Private Sub Command8_Click()   '确定操作
   If Len(LTrim(RTrim(Text1.Text))) = 0 Or _
      Len(LTrim(RTrim(Text3.Text))) = 0 Then
       MsgBox ("教师号和身份证号必须输入")
       Exit Sub
   End If                      '测试教师号和身份证号是否均输入
   Data1.Recordset.Update      '添加或修改的数据存入到数据库中
   CannotEdit                  '界面上的控件不能输入或不可用
   ButtonOkCancel              '设置按钮的状态
End Sub

Private Sub Command9_Click()         '取消操作
   If AddOrNot Then                  '如果是添加操作
       Data1.Refresh
   Else                              '执行的修改操作
       Data1.UpdateControls
   End If
   CannotEdit                        '控件不能编辑
   ButtonOkCancel                    '设置按钮状态
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
   Dim JSXM As String
   If Save Then
      JSXM = Trim(Text2.Text)
      If Len(JSXM) = 0 Then
         MsgBox ("教师姓名不能为空")
         Action = 0
      End If
  End If
End Sub

Private Sub Form_Initialize()        '窗体初始化事件
  CannotEdit
  If Data1.Recordset.BOF And Data1.Recordset.EOF Then
     DisabledButton
     Command6.Enabled = True  '只有添加按钮可用
  Else
     ButtonOkCancel
  End If
End Sub

Private Sub Image1_Click()
  Image1.Picture = Clipboard.GetData
End Sub
Private Sub Command1_Click()
   Data1.Recordset.MoveFirst     '把记录指针移到首记录
   Command1.Enabled = False      '首记录按钮不可用
   Command2.Enabled = False      '前移按钮不可用
   Command3.Enabled = True       '后移按钮可用
   Command4.Enabled = True       '末记录按钮可用
End Sub

Private Sub Command2_Click()
   Data1.Recordset.MovePrevious     '把记录指针向表头移动一条记录
   Command3.Enabled = True          '后移按钮可用
   Command4.Enabled = True          '末记录按钮可用
   If Data1.Recordset.BOF Then      '到达表记录集第一条记录的前面的处理
      Data1.Recordset.MoveFirst     '把记录指针移动到第一条记录
      Command1.Enabled = False      '首记录按钮不可用
      Command2.Enabled = False      '前移按钮不可用
   End If
End Sub

Private Sub Command3_Click()
   Data1.Recordset.MoveNext        '把记录指针向表尾移动一条记录
   Command1.Enabled = True
   Command2.Enabled = True
   If Data1.Recordset.EOF Then     '到达表记录集最后一条记录的前面的处理
      Data1.Recordset.MoveLast     '把记录指针移动到最后一条记录
      Command3.Enabled = False
      Command4.Enabled = False
   End If
End Sub

Private Sub Command4_Click()
   Data1.Recordset.MoveLast     '把记录指针移动到最后一条记录
   Command1.Enabled = True
   Command2.Enabled = True
   Command3.Enabled = False
   Command4.Enabled = False
End Sub

Public Sub ButtonAddEdit()  '用来设置执行了添加或删除操作时各按钮的状态
  Command1.Enabled = False: Command2.Enabled = False
  Command3.Enabled = False: Command4.Enabled = False
  Command5.Enabled = False: Command6.Enabled = False
  Command7.Enabled = False
  Command8.Enabled = True: Command9.Enabled = True
End Sub
Public Sub ButtonOkCancel() '用来设置执行了确定或取消操作时各按钮的状态
  Command1.Enabled = True: Command2.Enabled = True
  Command3.Enabled = True: Command4.Enabled = True
  Command5.Enabled = True: Command6.Enabled = True
  Command7.Enabled = True
  Command8.Enabled = False: Command9.Enabled = False
End Sub
Public Sub DisabledButton()  '使所有按钮均不可用
  Command1.Enabled = False: Command2.Enabled = False
  Command3.Enabled = False: Command4.Enabled = False
  Command5.Enabled = False: Command6.Enabled = False
  Command7.Enabled = False
  Command8.Enabled = False: Command9.Enabled = False
End Sub

Public Sub CannotEdit()   '使界面上各控件不能接受输入或不可用
 Text1.Locked = True: Text2.Locked = True
 Text3.Locked = True: Text4.Locked = True
 Text5.Locked = True: Text6.Locked = True
 Text7.Locked = True: Text8.Locked = True
 Combo1.Locked = True: Check1.Enabled = False
 Image1.Enabled = False
End Sub
Public Sub CanEdit()   '使界面上各控件不能接受输入或不可用
 Text1.Locked = False: Text2.Locked = False
 Text3.Locked = False: Text4.Locked = False
 Text5.Locked = False: Text6.Locked = False
 Text7.Locked = False: Text8.Locked = False
 Combo1.Locked = False: Check1.Enabled = True
 Image1.Enabled = True
End Sub