IfText5.Text=""Then
MsgBox("请填写备注!")
ExitSub
EndIf
adoPrimaryRS.AddNew
adoPrimaryRS.Fields("课程号")=Text1.Text
adoPrimaryRS.Fields("课程名")=Text2.Text
adoPrimaryRS.Fields("年级")=Text3.Text
adoPrimaryRS.Fields("学分")=Text4.Text
adoPrimaryRS.Fields("备注")=Text5.Text
adoPrimaryRS.Update
Command6.Caption="添加"
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
EndIf
EndSub
PrivateSubCommand7_Click()
adoPrimaryRS.Delete
adoPrimaryRS.MovePrevious
IfadoPrimaryRS.BOFThen
adoPrimaryRS.MoveFirst
EndIf
Text1.Text=adoPrimaryRS.Fields("课程号")
Text2.Text=adoPrimaryRS.Fields("课程名")
Text3.Text=adoPrimaryRS.Fields("年级")
Text4.Text=adoPrimaryRS.Fields("学分")
Text5.Text=adoPrimaryRS.Fields("备注")
EndSub
PrivateSubCommand8_Click()
UnloadMe
EndSub
PrivateSubDataGrid_Click()
Text1.Text=adoPrimaryRS.Fields("课程号")
Text2.Text=adoPrimaryRS.Fields("课程名")
Text3.Text=adoPrimaryRS.Fields("年级")
Text4.Text=adoPrimaryRS.Fields("学分")
Text5.Text=adoPrimaryRS.Fields("备注")
EndSub
PrivateSubForm_Load()
Left=(Screen.Width-Width)\2
Top=(Screen.Height-Height)\2
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select*fromjxjh",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
IfadoPrimaryRS.EOFThen
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Else
Text1.Text=adoPrimaryRS.Fields("课程号")
Text2.Text=adoPrimaryRS.Fields("课程名")
Text3.Text=adoPrimaryRS.Fields("年级")
Text4.Text=adoPrimaryRS.Fields("学分")
Text5.Text=adoPrimaryRS.Fields("备注")
EndIf
mbDataChanged=False
EndSub
8:教学计划查询窗体源代码:
DimWithEventsadoPrimaryRSAsRecordset
PrivateSubCombo1_Click()
Text1.Text=""
EndSub
PrivateSubCombo2_Click()
Text2.Text=""
EndSub
PrivateSubCommand1_Click()
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
a=Combo1.Text
b=Text1.Text
c=Combo2.Text
d=Text2.Text
IfCombo1.Text="选择字段1"OrText1.Text="填写关键字1"Then
MsgBox("请填写你的查询条件!")
ExitSub
EndIf
IfOption1.Value=TrueThen
Ifc="选择字段2"Then
adoPrimaryRS.Open"select*fromjxjhwhere"&a&"like'%"&b&"%'",db,adOpenStatic,adLockOptimistic
Else
adoPrimaryRS.Open"select*fromjxjhwhere"&a&"like'%"&b&"%'and"&c&"like'%"&d&"%'",db,adOpenStatic,adLockOptimistic
EndIf
Else
Ifc="选择字段2"Then
adoPrimaryRS.Open"select*fromjxjhwhere"&a&"like'%"&b&"%'",db,adOpenStatic,adLockOptimistic
Else
adoPrimaryRS.Open"select*fromjxjhwhere"&a&"like'%"&b&"%'or"&c&"like'%"&d&"%'",db,adOpenStatic,adLockOptimistic
EndIf
EndIf
IfadoPrimaryRS.EOFThen
MsgBox("没有符合条件的记录!")
EndIf
SetDataGrid.DataSource=adoPrimaryRS
EndSub
PrivateSubCommand2_Click()
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select*fromjxjh",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
mbDataChanged=False
EndSub
PrivateSubCommand3_Click()
DimiAsInteger,jAsInteger
DimxlappAsExcel.Application
DimxlbookAsExcel.Workbook
DimxlsheetAsExcel.Worksheet
Setxlapp=CreateObject("excel.application")
xlapp.Visible=True
Setxlbook=xlapp.Workbooks.Add
Setxlsheet=xlbook.Worksheets(1)
xlsheet.Cells(1,1)="课程号"
xlsheet.Cells(1,2)="课程名"
xlsheet.Cells(1,3)="年级"
xlsheet.Cells(1,4)="学分"
xlsheet.Cells(1,5)="备注"
adoPrimaryRS.MoveFirst
i=0
DoWhile(adoPrimaryRS.EOF=False)
Forj=0ToadoPrimaryRS.Fields.Count-1
DataGrid.Col=j
xlsheet.Cells(i+2,j+1)=DataGrid.Text
Nextj
adoPrimaryRS.MoveNext
i=i+1
Loop
Setxlapp=Nothing
Setxlbook=Nothing
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Left=(Screen.Width-Width)\2
Top=(Screen.Height-Height)\2
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select*fromjxjh",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
mbDataChanged=False
EndSub
9:学分查询窗体源代码:
DimWithEventsadoPrimaryRSAsRecordset
PrivateSubCombo1_Click()
Text1.Text=""
EndSub
PrivateSubCombo2_Click()
Text2.Text=""
EndSub
PrivateSubCommand1_Click()
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
a=Trim(Combo1.Text)
b=Trim(Text1.Text)
c=Trim(Combo2.Text)
d=Text2.Text
Ifa="学籍号"Then
adoPrimaryRS.Open"selectxf.学籍号,xsda.姓名,xf.学分,xsda.毕业级别fromxf,xsdawherexf.学籍号='"&b&"'andxf.学籍号=xsda.学籍号andxf.学分"&c&""&d,db,adOpenStatic,adLockOptimistic
Else
Ifa="毕业级别"Then
adoPrimaryRS.Open"selectxf.学籍号,xsda.姓名,xf.学分,xsda.毕业级别fromxf,xsdawherexsda.毕业级别='"&b&"'andxf.学籍号=xsda.学籍号andxf.学分"&c&""&d,db,adOpenStatic,adLockOptimistic
Else
adoPrimaryRS.Open"selectxf.学籍号,xsda.姓名,xf.学分,xsda.毕业级别fromxf,xsdawherexsda.姓名='"&b&"'andxf.学籍号=xsda.学籍号andxf.学分"&c&""&d,db,adOpenStatic,adLockOptimistic
EndIf
EndIf
SetDataGrid.DataSource=adoPrimaryRS
EndSub
PrivateSubCommand2_Click()
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"selectxf.学籍号,xsda.姓名,xf.学分,xsda.毕业级别fromxsda,xfwherexf.学籍号=xsda.学籍号",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
mbDataChanged=False
EndSub
PrivateSubCommand3_Click()
DimiAsInteger,jAsInteger
DimxlappAsExcel.Appli
上一篇:
vb学生评语生成系统论文(论文和程序)
下一篇:
法律专业开题报告范文