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)="毕业级别"
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"selectxf.学籍号,xsda.姓名,xf.学分,xsda.毕业级别fromxsda,xfwherexf.学籍号=xsda.学籍号",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
mbDataChanged=False
EndSub
10:系统登录窗体源代码:
DimWithEventsadoPrimaryRSAsRecordset
PrivateSubCommand1_Click()
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=xjgl.mdb;"
SetadoPrimaryRS=NewRecordset
a=Text1.Text
b=Text2.Text
adoPrimaryRS.Open"select*fromuserwhere用户名='"&a&"'and密码='"&b&"'",db,adOpenStatic,adLockOptimistic
IfadoPrimaryRS.EOFThen
MsgBox("用户名或密码错误!")
StaticnumcountAsInteger
numcount=numcount+1
Ifnumcount=3Then
numcount=0
MsgBox("三次口令错,将退出程序!")
UnloadMe
EndIf
Else
IfadoPrimaryRS.Fields("级别")="管理员"Then
x=1
Else
x=0
EndIf
UnloadMe
Form7.Show
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Left=(Screen.Width-Width)\2
Top=(Screen.Height-Height)\2
EndSub
11:添加用户窗体源代码:
DimWithEventsadoPrimaryRSAsRecordset
PrivateSubCommand1_Click()
adoPrimaryRS.MoveFirst
Text1.Text=adoPrimaryRS.Fields("用户名")
Text2.Text=adoPrimaryRS.Fields("密码")
Text3.Text=adoPrimaryRS.Fields("级别")
Text4.Text=adoPrimaryRS.Fields("联系电话")
EndSub
PrivateSubCommand2_Click()
adoPrimaryRS.MovePrevious
IfadoPrimaryRS.BOFThen
MsgBox("已经是第一条记录了!")
adoPrimaryRS.MoveFirst
Else
Text1.Text=adoPrimaryRS.Fields("用户名")
Text2.Text=adoPrimaryRS.Fields("密码")
Text3.Text=adoPrimaryRS.Fields("级别")
Text4.Text=adoPrimaryRS.Fields("联系电话")
EndIf
EndSub
PrivateSubCommand3_Click()
adoPrimaryRS.MoveNext
IfadoPrimaryRS.EOFThen
MsgBox("已经是第后一条记录了!")
adoPrimaryRS.MoveLast
Else
Text1.Text=adoPrimaryRS.Fields("用户名")
Text2.Text=adoPrimaryRS.Fields("密码")
Text3.Text=adoPrimaryRS.Fields("级别")
Text4.Text=adoPrimaryRS.Fields("联系电话")
EndIf
EndSub
PrivateSubCommand4_Click()
adoPrimaryRS.MoveLast
Text1.Text=adoPrimaryRS.Fields("用户名")
Text2.Text=adoPrimaryRS.Fields("密码")
Text3.Text=adoPrimaryRS.Fields("级别")
Text4.Text=adoPrimaryRS.Fields("联系电话")
EndSub
PrivateSubCommand5_Click()
IfCommand5.Caption="修改"Then
Command5.Caption="保存"
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Else
Command5.Caption="修改"
adoPrimaryRS.Fields("用户名")=Text1.Text
adoPrimaryRS.Fields("密码")=Text2.Text
adoPrimaryRS.Fields("级别")=Text3.Text
adoPrimaryRS.Fields("联系电话")=Text4.Text
adoPrimaryRS.Update
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
EndIf
EndSub
PrivateSubCommand6_Click()
IfCommand6.Caption="添加"Then
Command6.Caption="保存"
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text1.SetFocus
Else
IfText1.Text=""Then
MsgBox("用户名不能为空!")
ExitSub
EndIf
IfText2.Text=""Then
MsgBox("密码不能为空!")
ExitSub
EndIf
IfText3.Text=""Then
MsgBox("级别不能为空!")
ExitSub
EndIf
IfText4.Text=""Then
MsgBox("联系电话不能为空!")
ExitSub
EndIf
adoPrimaryRS.AddNew
adoPrimaryRS.Fields("用户名")=Text1.Text
adoPrimaryRS.Fields("密码")=Text2.Text
adoPrimaryRS.Fields("级别")=Text3.Text
adoPrimaryRS.Fields("联系电话")=Text4.Text
adoPrimaryRS.Update
Command6.Caption="添加"
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.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("联系电话")
EndSub
PrivateSubCommand8_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*fromuser",db,adOpenStatic,adLockOptimistic
SetDataGrid.DataSource=adoPrimaryRS
IfadoPrimaryRS.EOFThen
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Else
Text1.Text=adoPrimaryRS.Fields("用户名")
Text2.Text=adoPrimaryRS.Fields("密码")
Text3.Text=adoPrimaryRS.Fields("级别")
Text4.Text=adoPrimaryRS.Fields("联系电话")
EndIf
mbDataChanged=False
EndSub
??
??
??
??
计算机专业毕业设计
1
上一篇:
vb学生评语生成系统论文(论文和程序)
下一篇:
线路大修土木毕业设计K100+000-K110+000参考资料