📄 form4.frm
字号:
Text1.SetFocus
End Sub
Private Sub cmdall_Click()
Dim sql As String
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc4.CommandType = adCmdText
sql = "select * from student"
Adodc4.RecordSource = sql
Set DataGrid2.DataSource = Adodc4
DataGrid2.Refresh
Set Text8.DataSource = Adodc4
Set Text9.DataSource = Adodc4
Set Combo5.DataSource = Adodc4
Set Combo6.DataSource = Adodc4
Set DTPicker2.DataSource = Adodc4
Set DataCombo3.DataSource = Adodc4
Set DataCombo6.DataSource = Adodc4
Set Text10.DataSource = Adodc4
Set Text11.DataSource = Adodc4
Set Text12.DataSource = Adodc4
Text8.DataField = "学号"
Text9.DataField = "姓名"
Combo5.DataField = "性别"
Combo6.DataField = "政治面貌"
DTPicker2.DataField = "出生日期"
DataCombo3.DataField = "专业"
DataCombo6.DataField = "班级"
Text10.DataField = "家庭住址"
Text11.DataField = "联系电话"
Text12.DataField = "备注"
End Sub
Private Sub cmdall3_Click()
Dim sql As String
Adodc9.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc9.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc1.CommandType = adCmdText
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc4.CommandType = adCmdText
sql = "select * from student"
Adodc9.RecordSource = sql
Adodc1.RecordSource = sql
Adodc4.RecordSource = sql
Set DataGrid3.DataSource = Adodc9
Set DataGrid1.DataSource = Adodc1
Set DataGrid2.DataSource = Adodc4
Adodc9.Refresh
Adodc1.Refresh
Adodc4.Refresh
DataGrid1.Refresh
DataGrid3.Refresh
DataGrid2.Refresh
Set Text15.DataSource = Adodc9
Set Text16.DataSource = Adodc9
Set Text17.DataSource = Adodc9
Set Text18.DataSource = Adodc9
Set Text19.DataSource = Adodc9
Set Text20.DataSource = Adodc9
Set Text21.DataSource = Adodc9
Set Text22.DataSource = Adodc9
Set Text23.DataSource = Adodc9
Set Text24.DataSource = Adodc9
Text15.DataField = "学号"
Text16.DataField = "姓名"
Text17.DataField = "性别"
Text18.DataField = "政治面貌"
Text19.DataField = "出生日期"
Text20.DataField = "专业"
Text21.DataField = "班级"
Text22.DataField = "家庭住址"
Text23.DataField = "联系电话"
Text24.DataField = "备注"
End Sub
Private Sub cmdchange_Click()
Dim sql As String
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc5.CommandType = adCmdText
sql = "select * from student"
Adodc5.RecordSource = sql
Adodc5.Recordset.Update
Set DataGrid2.DataSource = Adodc5
DataGrid2.Refresh
Set Text8.DataSource = Adodc5
Set Text9.DataSource = Adodc5
Set Combo5.DataSource = Adodc5
Set Combo6.DataSource = Adodc5
Set DTPicker2.DataSource = Adodc5
Set DataCombo3.DataSource = Adodc5
Set DataCombo6.DataSource = Adodc5
Set Text10.DataSource = Adodc5
Set Text11.DataSource = Adodc5
Set Text12.DataSource = Adodc5
Text8.DataField = "学号"
Text9.DataField = "姓名"
Combo5.DataField = "性别"
Combo6.DataField = "政治面貌"
DTPicker2.DataField = "出生日期"
DataCombo3.DataField = "专业"
DataCombo6.DataField = "班级"
Text10.DataField = "家庭住址"
Text11.DataField = "联系电话"
Text12.DataField = "备注"
If cmdchange.Caption = "修改" Then
cmdchange.Caption = "确认修改"
Text8.Enabled = True
Text9.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
DTPicker2.Enabled = True
DataCombo3.Enabled = True
DataCombo6.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Adodc5.Recordset.Fields(0) = Text8.Text
Adodc5.Recordset.Fields(1) = Text9.Text
Adodc5.Recordset.Fields(2) = Combo5.Text
Adodc5.Recordset.Fields(3) = Combo6.Text
Adodc5.Recordset.Fields(4) = DTPicker2.Value
Adodc5.Recordset.Fields(5) = DataCombo3.Text
Adodc5.Recordset.Fields(6) = DataCombo6.Text
Adodc5.Recordset.Fields(7) = Text10.Text
Adodc5.Recordset.Fields(8) = Text11.Text
Adodc5.Recordset.Fields(9) = Text12.Text
Else
cmdchange.Caption = "修改"
Text8.Enabled = False
Text9.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
DTPicker2.Enabled = False
DataCombo3.Enabled = False
DataCombo6.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
End If
End Sub
Private Sub cmdcls_Click()
Text1.Text = ""
Text2.Text = ""
Combo2.Text = ""
Combo1.Text = ""
DataCombo1.Text = ""
DataCombo2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub cmddel_Click()
Dim i As Integer
i = MsgBox("是否真的删除该学生学籍？", vbYesNo + vbQuestion, "提示")
If i = vbYes Then
Adodc6.Recordset.Delete
DoEvents
Adodc6.Recordset.MoveFirst
DataGrid3.Refresh
End If
End Sub
Private Sub cmdfind_Click()
Dim sql As String
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc5.CommandType = adCmdText
If Option3.Value = True Then
sql = "select * from student where 学号='" & Text6.Text & "'"
End If
If Option4.Value = True Then
sql = "select * from student where 姓名 like '" & "%" & Trim(Text7.Text) & "%" & "'"
End If
If Option5.Value = True Then
sql = "select * from student where 班级='" & DataCombo5.Text & "'"
End If
Adodc5.RecordSource = sql
Adodc5.Refresh
Set DataGrid2.DataSource = Adodc5
DataGrid2.Refresh
Set Text8.DataSource = Adodc5
Set Text9.DataSource = Adodc5
Set Combo5.DataSource = Adodc5
Set Combo6.DataSource = Adodc5
Set DTPicker2.DataSource = Adodc5
Set DataCombo3.DataSource = Adodc5
Set DataCombo6.DataSource = Adodc5
Set Text10.DataSource = Adodc5
Set Text11.DataSource = Adodc5
Set Text12.DataSource = Adodc5
Text8.DataField = "学号"
Text9.DataField = "姓名"
Combo5.DataField = "性别"
Combo6.DataField = "政治面貌"
DTPicker2.DataField = "出生日期"
DataCombo3.DataField = "专业"
DataCombo6.DataField = "班级"
Text10.DataField = "家庭住址"
Text11.DataField = "联系电话"
Text12.DataField = "备注"
End Sub
Private Sub cmdcfind_Click()
Dim sql As String
Adodc6.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc6.CommandType = adCmdText
If Option8.Value = True Then
sql = "select * from student where 学号='" & Text14.Text & "'"
End If
If Option7.Value = True Then
sql = "select * from student where 姓名 like '" & "%" & Trim(Text13.Text) & "%" & "'"
End If
If Option6.Value = True Then
sql = "select * from student where 班级='" & DataCombo7.Text & "'"
End If
Adodc6.RecordSource = sql
Adodc6.Refresh
Set DataGrid3.DataSource = Adodc6
DataGrid3.Refresh
Set Text15.DataSource = Adodc6
Set Text16.DataSource = Adodc6
Set Text17.DataSource = Adodc6
Set Text18.DataSource = Adodc6
Set Text19.DataSource = Adodc6
Set Text20.DataSource = Adodc6
Set Text21.DataSource = Adodc6
Set Text22.DataSource = Adodc6
Set Text23.DataSource = Adodc6
Set Text24.DataSource = Adodc6
Text15.DataField = "学号"
Text16.DataField = "姓名"
Text17.DataField = "性别"
Text18.DataField = "政治面貌"
Text19.DataField = "出生日期"
Text20.DataField = "专业"
Text21.DataField = "班级"
Text22.DataField = "家庭住址"
Text23.DataField = "联系电话"
Text24.DataField = "备注"
End Sub
Private Sub cmdrnew_Click()
Set DataGrid2.DataSource = Adodc5
Set Text8.DataSource = Adodc5
Set Text9.DataSource = Adodc5
Set Combo5.DataSource = Adodc5
Set Combo6.DataSource = Adodc5
Set DTPicker2.DataSource = Adodc5
Set DataCombo3.DataSource = Adodc5
Set DataCombo6.DataSource = Adodc5
Set Text10.DataSource = Adodc5
Set Text11.DataSource = Adodc5
Set Text12.DataSource = Adodc5
Text8.DataField = "学号"
Text9.DataField = "姓名"
Combo5.DataField = "性别"
Combo6.DataField = "政治面貌"
DTPicker2.DataField = "出生日期"
DataCombo3.DataField = "专业"
DataCombo6.DataField = "班级"
Text10.DataField = "家庭住址"
Text11.DataField = "联系电话"
Text12.DataField = "备注"
Adodc5.Recordset.Fields(0) = Text8.Text
Adodc5.Recordset.Fields(1) = Text9.Text
Adodc5.Recordset.Fields(2) = Combo5.Text
Adodc5.Recordset.Fields(3) = Combo6.Text
Adodc5.Recordset.Fields(4) = DTPicker2.Value
Adodc5.Recordset.Fields(5) = DataCombo3.Text
Adodc5.Recordset.Fields(6) = DataCombo6.Text
Adodc5.Recordset.Fields(7) = Text10.Text
Adodc5.Recordset.Fields(8) = Text11.Text
Adodc5.Recordset.Fields(9) = Text12.Text
Adodc5.Refresh
Adodc4.Refresh
Adodc1.Refresh
Adodc5.RecordSource = "select * from student"
DataGrid2.Refresh
DataGrid1.Refresh
End Sub
Private Sub cmdsave_Click()
Adodc1.Recordset.Fields(0) = Text1.Text
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Fields(2) = Combo2.Text
Adodc1.Recordset.Fields(3) = Combo1.Text
Adodc1.Recordset.Fields(4) = DTPicker1.Value
Adodc1.Recordset.Fields(5) = DataCombo1.Text
Adodc1.Recordset.Fields(6) = DataCombo2.Text
Adodc1.Recordset.Fields(7) = Text3.Text
Adodc1.Recordset.Fields(8) = Text4.Text
Adodc1.Recordset.Fields(9) = Text5.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.Close
Unload Me
End Sub
Private Sub Command13_Click()
Adodc9.Recordset.MovePrevious
If Adodc9.Recordset.BOF Then
MsgBox "已经是第一条记录了！", vbOKOnly + vbInformation, "提示"
Adodc9.Recordset.MoveFirst
End If
End Sub
Private Sub Command14_Click()
On Error Resume Next
Adodc9.Recordset.MoveNext
If Adodc9.Recordset.EOF Then
MsgBox "已经是最后一条记录了！", vbOKOnly + vbInformation, "提示"
Adodc9.Recordset.MoveLast
End If
End Sub
Private Sub Command15_Click()
DataReport1.Show
End Sub
Private Sub Command16_Click()
Dim sql As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc1.CommandType = adCmdText
sql = "select * from student"
Adodc1.RecordSource = sql
Set DataGrid4.DataSource = Adodc1
DataGrid4.Refresh
End Sub
Private Sub Form_Load()
Dim sql As String
Dim zy As String
Dim class As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc1.CommandType = adCmdText
Adodc2.CommandType = adCmdText
Adodc3.CommandType = adCmdText
Adodc4.CommandType = adCmdText
sql = "select * from student"
zy = "select * from zy"
class = "select * from class"
Adodc1.RecordSource = sql
Adodc2.RecordSource = zy
Adodc3.RecordSource = class
Adodc4.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Set DataGrid4.DataSource = Adodc1
Set Text1.DataSource = Adodc1
Set Text2.DataSource = Adodc1
Set Combo2.DataSource = Adodc1
Set Combo1.DataSour⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -