⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 recfrm.frm

📁 学籍管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    .Recordset.AddNew
    .Recordset.Fields("班级") = Text1.Text
    .Recordset.Fields("学号") = Text2.Text
    .Recordset.Fields("姓名") = Text3.Text
    .Recordset.Fields("性别") = Combo1.Text
    .Recordset.Fields("出生日期") = MaskEdBox1.Text
    .Recordset.Fields("联系电话") = Text5.Text
    .Recordset.Fields("家庭住址") = Text6.Text
    .Recordset.Fields("工作单位") = Text7.Text
    .Recordset.Fields("单位电话") = Text8.Text
    .Recordset.Fields("传呼") = Text9.Text
    .Recordset.Fields("收费情况") = Text10.Text
    .Recordset.Update
    .Refresh
   End With
RecFrm.Controls.Remove "data2"
BrwFrm.Show

End Sub

Private Sub Command15_Click()
'第十五种方法动态增加DATA控件
RecFrm.Controls.Add "MSAdodcLib.Adodc", "adodc2"
   With RecFrm!Adodc2
    .Visible = False
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
    .CommandType = adCmdUnknown
    .RecordSource = "SELECT * FROM 学生"
    .Refresh
    .Recordset.AddNew
    .Recordset.Fields("班级") = Text1.Text
    .Recordset.Fields("学号") = Text2.Text
    .Recordset.Fields("姓名") = Text3.Text
    .Recordset.Fields("性别") = Combo1.Text
    .Recordset.Fields("出生日期") = MaskEdBox1.Text
    .Recordset.Fields("联系电话") = Text5.Text
    .Recordset.Fields("家庭住址") = Text6.Text
    .Recordset.Fields("工作单位") = Text7.Text
    .Recordset.Fields("单位电话") = Text8.Text
    .Recordset.Fields("传呼") = Text9.Text
    .Recordset.Fields("收费情况") = Text10.Text
    .Recordset.Update
    .Refresh
   End With
RecFrm.Controls.Remove "adodc2"
BrwFrm.Show
End Sub

Private Sub Command16_Click()
'第十六种方法使用配置好的DATA控件
Data1.Visible = False
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "学生"
Data1.Refresh
With Data1.Recordset
    .AddNew
    .Fields("班级") = Text1.Text
    .Fields("学号") = Text2.Text
    .Fields("姓名") = Text3.Text
    .Fields("性别") = Combo1.Text
    .Fields("出生日期") = MaskEdBox1.Text
    .Fields("联系电话") = Text5.Text
    .Fields("家庭住址") = Text6.Text
    .Fields("工作单位") = Text7.Text
    .Fields("单位电话") = Text8.Text
    .Fields("传呼") = Text9.Text
    .Fields("收费情况") = Text10.Text
    .Update
End With
Data1.Refresh
BrwFrm.Show
End Sub

Private Sub Command17_Click()
'第十七种方法直接使用配置好的DATA
With Data1.Recordset
    .AddNew
    .Fields("班级") = Text1.Text
    .Fields("学号") = Text2.Text
    .Fields("姓名") = Text3.Text
    .Fields("性别") = Combo1.Text
    .Fields("出生日期") = MaskEdBox1.Text
    .Fields("联系电话") = Text5.Text
    .Fields("家庭住址") = Text6.Text
    .Fields("工作单位") = Text7.Text
    .Fields("单位电话") = Text8.Text
    .Fields("传呼") = Text9.Text
    .Fields("收费情况") = Text10.Text
    .Update
End With
Data1.Refresh
BrwFrm.Show

End Sub

Private Sub Command18_Click()
'第十八种方法直接使用配置好的ADODC
Adodc1.Refresh
With RecFrm.Adodc1.Recordset
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Adodc1.Refresh
BrwFrm.Show

End Sub

Private Sub Command19_Click()
'第十九种方法直接配置ADODC
   With Adodc3
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
    .CommandType = adCmdUnknown
    .RecordSource = "SELECT * FROM 学生"
    .Refresh
    .Recordset.AddNew
    .Recordset.Fields("班级") = Text1.Text
    .Recordset.Fields("学号") = Text2.Text
    .Recordset.Fields("姓名") = Text3.Text
    .Recordset.Fields("性别") = Combo1.Text
    .Recordset.Fields("出生日期") = MaskEdBox1.Text
    .Recordset.Fields("联系电话") = Text5.Text
    .Recordset.Fields("家庭住址") = Text6.Text
    .Recordset.Fields("工作单位") = Text7.Text
    .Recordset.Fields("单位电话") = Text8.Text
    .Recordset.Fields("传呼") = Text9.Text
    .Recordset.Fields("收费情况") = Text10.Text
    .Recordset.Update
    .Refresh
   End With
BrwFrm.Show

End Sub

Private Sub Command2_Click()
'第二种方法使用代码建立数据库和记录集
Dim Dat1 As Database
Dim rs As Recordset
Set Dat1 = OpenDatabase(App.Path & "\db1.mdb")
Set rs = Dat1.OpenRecordset("学生")
rs.AddNew
rs.Fields("班级") = Text1.Text
rs.Fields("学号") = Text2.Text
rs.Fields("姓名") = Text3.Text
rs.Fields("性别") = Combo1.Text
rs.Fields("出生日期") = MaskEdBox1.Text
rs.Fields("联系电话") = Text5.Text
rs.Fields("家庭住址") = Text6.Text
rs.Fields("工作单位") = Text7.Text
rs.Fields("单位电话") = Text8.Text
rs.Fields("传呼") = Text9.Text
rs.Fields("收费情况") = Text10.Text
rs.Update
Dat1.Close
BrwFrm.Show
End Sub

Private Sub Command3_Click()
'第三种方法用代码定义ADODC的连接
Dim Cnn As New ADODB.Connection
Dim Tbl As New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
With Tbl
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "学生", Cnn, , , adCmdTable
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Cnn.Close
BrwFrm.Show
End Sub

Private Sub Command4_Click()
'第四中方法修改ADODC控件的数据源
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "学生"
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Adodc1.Refresh
BrwFrm.Show
End Sub

Private Sub Command5_Click()
'第五中方法ADODC代码和SQL语句
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
strSQL = "SELECT * FROM 学生"
Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL, Cnn, , , adCmdText
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Cnn.Close
BrwFrm.Show
End Sub

Private Sub Command6_Click()
'第六种 直接用SQL语句。
Dim dbs  As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
SQLstr = "INSERT INTO 学生 (班级,学号,姓名,性别,出生日期,联系电话,家庭住址,工作单位,单位电话,传呼," _
   & "收费情况) VALUES('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" _
   & Combo1.Text & "','" & MaskEdBox1.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "');"
dbs.Execute SQLstr
dbs.Close
BrwFrm.Show
End Sub

Private Sub Command7_Click()
'第七中方法用代码定义一个ADODC连接
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
strSQL = "SELECT * FROM 学生"
Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL, Cnn, , , adCmdUnknown
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Cnn.Close
BrwFrm.Show
End Sub

Private Sub Command8_Click()
'第八中方法修改ADODC控件的数据源
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM 学生"
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Adodc1.Refresh
BrwFrm.Show
End Sub

Private Sub Command9_Click()
'第九中方法修改ADODC的数据源
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "SELECT * FROM 学生"
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Adodc1.Refresh
BrwFrm.Show
End Sub


Private Sub Image1_Click()
'打开主页
ret& = ShellExecute(Me.hwnd, "Open", "http://dyqing.533.net", "", App.Path, 1)

End Sub

Private Sub Image2_Click()
'发送邮件
ret& = ShellExecute(Me.hwnd, "Open", "mailto:duyunqing@163.net", "", App.Path, 1)

End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -