?? student_frm.frm
字號:
Width = 975
End
Begin VB.CommandButton cmdadd
Caption = "添加"
Height = 375
Left = 360
TabIndex = 22
Top = 360
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "數據錄入或顯示"
Height = 3495
Left = 240
TabIndex = 6
Top = 480
Width = 6015
Begin VB.TextBox txtborndate
Height = 495
Left = 1320
TabIndex = 44
Top = 1560
Width = 2295
End
Begin VB.TextBox txtm
Height = 495
Left = 1320
TabIndex = 43
Top = 2880
Width = 4095
End
Begin VB.TextBox txtaddress
Height = 495
Left = 1320
TabIndex = 19
Top = 2280
Width = 4095
End
Begin VB.TextBox txttel
Height = 375
Left = 3000
TabIndex = 16
Top = 840
Width = 1335
End
Begin VB.ComboBox Combosex
Height = 300
Left = 960
TabIndex = 14
Top = 960
Width = 975
End
Begin VB.PictureBox Picture1
Height = 1095
Left = 4680
ScaleHeight = 1035
ScaleWidth = 915
TabIndex = 12
Top = 240
Width = 975
End
Begin VB.TextBox txtname
Height = 375
Left = 2880
TabIndex = 10
Top = 240
Width = 975
End
Begin VB.TextBox txtid
Height = 375
Left = 960
TabIndex = 8
Top = 240
Width = 975
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "備注："
Height = 180
Left = 240
TabIndex = 20
Top = 3000
Width = 540
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "家庭地址："
Height = 180
Left = 120
TabIndex = 18
Top = 2400
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "出生年月："
Height = 180
Left = 120
TabIndex = 17
Top = 1680
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "電話："
Height = 180
Left = 2280
TabIndex = 15
Top = 960
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "性別："
Height = 180
Left = 240
TabIndex = 13
Top = 1080
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "照片："
Height = 180
Left = 4080
TabIndex = 11
Top = 360
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 2280
TabIndex = 9
Top = 360
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "學號："
Height = 180
Left = 240
TabIndex = 7
Top = 360
Width = 540
End
End
Begin VB.Frame Frame1
Caption = "編輯"
Height = 1095
Left = -72000
TabIndex = 1
Top = 4320
Width = 6015
Begin VB.CommandButton cmdlast
Caption = "最后一條記錄"
Height = 495
Left = 4320
TabIndex = 5
Top = 360
Width = 1575
End
Begin VB.CommandButton cmdprevious
Caption = "上一條記錄"
Height = 495
Left = 3000
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.CommandButton cmdnext
Caption = "下一條記錄"
Height = 495
Left = 1560
TabIndex = 3
Top = 360
Width = 1215
End
Begin VB.CommandButton cmdfirst
Caption = "第一條記錄"
Height = 495
Left = 120
TabIndex = 2
Top = 360
Width = 1215
End
End
End
End
Attribute VB_Name = "student_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim con As ADODB.Connection
Private Sub cmdsimply_Click()
'查找記錄
Dim rs As New ADODB.Recordset
Dim query As String
If Combosimply.Text = "學號" Then
query = "SELECT * FROM studentinfo WHERE " & "sno" & " = '" & Trim(txtsimply.Text) & "'"
Else
query = "SELECT * FROM studentinfo WHERE " & "sname" & " = '" & Trim(txtsimply.Text) & "'"
End If
rs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
rs.MoveLast
End If
If rs.RecordCount > 0 Then
Set DataGrid2.DataSource = rs
DataGrid2.Refresh
MsgBox "總共查到" & rs.RecordCount & "記錄", vbInformation
Else
MsgBox "沒有找到記錄,請重新輸入查詢數據", vbInformation
End If
txtsimply.Text = ""
End Sub
Private Sub cmdmh_Click()
'組合查詢
Dim shenri As String
Dim myrs As New ADODB.Recordset
Dim query As String
If Check1.Value = 1 Then
'按學號查詢
query = "SELECT * FROM studentinfo WHERE " & "sno" & " = '" & Trim(txtid2.Text) & "'"
myrs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
End If
If Check3.Value = 1 Then
'按姓名查詢
query = "SELECT * FROM studentinfo WHERE " & "sname" & " = '" & Trim(txtname2.Text) & "'"
myrs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
End If
If Check5.Value = 1 Then
'按備注查詢
query = "SELECT * FROM studentinfo WHERE " & "m" & " = '" & Trim(txtm2.Text) & "'"
myrs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
End If
If Check2.Value = 1 Then
'按地址查詢
query = "SELECT * FROM studentinfo WHERE " & "address" & " = '" & Trim(txtaddress2.Text) & "'"
myrs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
End If
If Check4.Value = 1 Then
'按出生日期查詢
query = "SELECT * FROM studentinfo WHERE " & "birth" & " = '" & Trim(txtborndate2.Text) & "'"
myrs.Open query, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid2.DataSource = Nothing
End If
If myrs.RecordCount > 0 Then
Set DataGrid2.DataSource = myrs
MsgBox "總共查到" & myrs.RecordCount & "記錄", vbInformation
Else
MsgBox "沒有找到記錄,請重新輸入查詢數據", vbInformation
End If
End Sub
Private Sub cmdsave_Click()
'保存記錄
Dim myrs As New ADODB.Recordset
myrs.Open "SELECT * FROM studentinfo", con, adOpenDynamic, adLockOptimistic, adCmdText
myrs.AddNew
If Not Testtxt(txtid.Text) Then
MsgBox "學號不能為空!"
txtid.SetFocus
Exit Sub
End If
If Not Testtxt(txtname.Text) Then
MsgBox "姓名不能為空!"
txtname.SetFocus
Exit Sub
End If
If Not Testtxt(txttel.Text) Then
MsgBox "請輸入聯系電話！"
txttel.SetFocus
Exit Sub
End If
If Not Testtxt(txtaddress.Text) Then
MsgBox "請輸入家庭地址！"
txtaddress.SetFocus
Exit Sub
End If
If Not Testtxt(txtborndate.Text) Then
MsgBox "請輸入生日！"
txtborndate.SetFocus
Exit Sub
End If
myrs.Fields(0) = txtid.Text
myrs.Fields(1) = txtname.Text
myrs.Fields(2) = Combosex.Text
myrs.Fields(3) = txtborndate.Text
myrs.Fields(4) = txttel.Text
myrs.Fields(5) = txtaddress.Text
myrs.Fields(6) = txtm.Text
myrs.Update
Set DataGrid1.DataSource = myrs
MsgBox "添加學生信息成功！", vbOKOnly + vbExclamation, "警告"
End Sub
Private Sub cmdfirst_Click()
'移動到首記錄
Adodc1.Recordset.MoveFirst
End Sub
Private Sub cmdlast_Click()
'移動到尾記錄
Adodc1.Recordset.MoveLast
End Sub
Private Sub cmdprevious_Click()
'移動到上一條記錄
If Not Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MovePrevious
Else
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub cmdnext_Click()
'移動到下一條記錄
If Not Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub cmdcancel_Click()
'添加
If MsgBox("是否取消對信息的修改？", vbYesNo + vbExclamation, "警告") = vbYes Then
Combosex.Clear
txtid = ""
txtname = ""
txttel = ""
txtaddress = ""
txtm = ""
txtborndate = ""
txtid.SetFocus
End If
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdadd_Click()
'添加記錄前清空文本框
Combosex.Clear
Combosex.AddItem "男"
Combosex.AddItem "女"
txtid = ""
txtname = ""
txttel = ""
txtaddress = ""
txtborndate = ""
txtm = ""
End Sub
Private Sub Form_Load()
'創建連接，并打開
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\050531123賈晨微\db1.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
Combosex.AddItem "男"
Combosex.AddItem "女"
Combosimply.AddItem "學號"
Combosimply.AddItem "姓名"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -