DB.Recordset
txtsql="select*fromusewhereusername='"&Trim(Text1(0).Text)&"'"
Setmrc=ExecuteSQL(txtsql)
Ifmrc.EOF=FalseThen
MsgBox"已存在该用户!",vbExclamation+vbOKOnly,"警告"
Text1(0).SetFocus
Text1(0).SelStart=0
Text1(0).SelLength=Len(Text1(0).Text)
ExitSub
EndIf
txtsql="select*fromuse"
Setmrc=ExecuteSQL(txtsql)
mrc.AddNew
mrc.Fields(0)=Trim(Text1(0).Text)
mrc.Fields(1)=Trim(Text1(1).Text)
Fori=0To2
IfOption1(i).Value=TrueThen
SelectCasei
Case0
mrc.Fields("admin")="y"
Case1
mrc.Fields("readonly")="y"
Case2
Forj=0To3
IfCheck1(j).Value=1Then
SelectCasej
Case0
mrc.Fields("qx1")="y"
Case1
mrc.Fields("qx2")="y"
Case2
mrc.Fields("qx3")="y"
Case3
mrc.Fields("qx4")="y"
EndSelect
EndIf
Nextj
EndSelect
EndIf
Nexti
mrc.Update
MsgBox"用户添加成功!",vbExclamation+vbOKOnly,"警告"
Text1(0).Text=""
Text1(1).Text=""
Text1(2).Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Option1(2).Value=True
EndSub
PrivateSubForm_Resize()
Text1(0).SetFocus
EndSub
PrivateSubOption1_Click(IndexAsInteger)
IfIndex<>2Then
Fori=0To3
Check1(i).Enabled=False
Nexti
Else
Fori=0To3
Check1(i).Enabled=True
Nexti
EndIf
EndSub
4.4学生缴费管理模块:
因为本系统中有些功能模块具有相似之处,因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可能参阅本模块的设计思路。
PublicprintstrAsString
PrivateSubCommand1_Click()
DimdbSourceAsDatabase
SetdbSource=OpenDatabase("xs.mdb")
dbSource.Execute("SELECT*INto班级一览表IN'学生管理一览表.xls''EXCEL5.0;'FROMclass")
z=MsgBox("成功!",vbOKOnly,"查询")
EndSub
PublicSubclassshowtitle()
DimiAsInteger
MSF1.Clear
WithMSF1
.Cols=8
.TextMatrix(0,1)="年级"
.TextMatrix(0,2)="班级"
.TextMatrix(0,3)="教室"
.TextMatrix(0,4)="年制"
.TextMatrix(0,5)="专业"
.TextMatrix(0,6)="班主任"
.TextMatrix(0,7)="备注"
.ColWidth(0)=100
.ColWidth(1)=1300
.ColWidth(2)=1200
.ColWidth(3)=800
.ColWidth(4)=800
.ColWidth(5)=800
.ColWidth(6)=800
.ColWidth(7)=5000
.FixedRows=1
Fori=1To7
.ColAlignment(i)=0
Nexti
.FillStyle=flexFillSingle
.Col=0
.Row=0
.RowSel=1
.ColSel=.Cols-1
.CellAlignment=4
.Row=1
EndWith
EndSub
PublicSubclassshowdata()
DimjAsInteger
DimiAsInteger
Dimmrc1AsADODB.Recordset
Setmrc1=ExecuteSQL(Trim(txtsql))
Ifmrc1.EOF=FalseThen
mrc1.MoveFirst
WithMSF1
.Rows=1
DoWhileNotmrc1.EOF
.Rows=.Rows+1
Fori=1Tomrc1.Fields.Count
.TextMatrix(.Rows-1,i)=mrc1.Fields(i-1)
Nexti
mrc1.MoveNext
Loop
mrc1.Close
EndWith
Else
Ifclassfind=TrueThen
Formclass2.Hide
Formclass3.Show
zzz=MsgBox("对不起,没有此班级的档案记录!",vbOKOnly,"查询")
Formclass3.ZOrder(0)
Formclass3.Text1(0).SetFocus
EndIf
EndIf
EndSub
PrivateSubcmddel_Click()
qxstr=Executeqx(2)
Ifqxstr="readonly"Then
ss=MsgBox("对不起,你是只读用户不能删除记录,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
DimmrcAsADODB.Recordset
DimmsgtextAsString
DimintcountAsInteger
IfTrim(Me.MSF1.TextMatrix(MSF1.Row,1))=""Then
sssss=MsgBox("你还没有选择记录!",vbOKOnly+vbExclamation,"警告")
ExitSub
EndIf
IfMsgBox("确定要删除班级为"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"的记录吗?"&Chr(13)&Chr(10)&"继续会导致该班级在成绩和学费记录的数据丢失,继续吗?",vbOKCancel+vbExclamation,"警告")=vbOKThen
txtsql="delete*fromxjwhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"'"
Setmrc=ExecuteSQL(txtsql)
txtsql="delete*fromjfwhere学号in(selectfromxjwhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"')"
Setmrc=ExecuteSQL(txtsql)'删除在交费表中的所有该班级的记录
txtsql="delete*fromcjwhere学号in(selectfromxjwhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"')"
Setmrc=ExecuteSQL(txtsql)'删除在成绩表中的所有该班级的记录
txtsql="delete*fromclasswhere班级='"&Trim(Me.MSF1.TextMatrix(MSF1.Row,2))&"'"
Setmrc=ExecuteSQL(txtsql)'删除该班级的记录
EndIf
zxh=MsgBox("记录成功删除!",vbOKOnly,"查询")
txtsql="select*fromclass"
classshowtitle
classshowdata
CallForm_Activate
EndSub
PrivateSubcmdfind_Click()
Formclass3.Show
EndSub
PrivateSubcmdmodi_Click()
IfTrim(Me.MSF1.TextMatrix(MSF1.Row,1))=""Then
sssss=MsgBox("你还没有选择记录!",vbOKOnly+vbExclamation,"警告")
ExitSub
Else
qxstr=Executeqx(2)
Ifqxstr="readonly"Then
ss=MsgBox("对不起,你是只读用户不能修改记录,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
classmodi=True
Formclass1.Show
Formclass1.classload
Formclass1.ZOrder0
CallForm_Activate
EndIf
EndSub
PrivateSubcmdprint_Click()
IfTrim(printstr)=""Then
sssss=MsgBox("没有当前记录!",vbOKOnly+vbExclamation,"警告")
ExitSub
EndIf
IfDataEnv1.rsCommand2.State=adStateOpenThen
DataEnv1.rsCommand2.Close
EndIf
DataEnv1.rsCommand2.Openprintstr
IfDataEnv1.rsCommand2.EOF=TrueThen
sssss=MsgBox("没有当前记录!",vbOKOnly+vbExclamation,"警告")
ExitSub
EndIf
DataReportclass2.Show1
EndSub
PrivateSubcmdprintall_Click()
IfDataEnv1.rsCommand2.State=adStateOpenThen
DataEnv1.rsCommand2.Close
EndIf
DataEnv1.rsCommand2.Open("select*fromclass")
IfDataEnv1.rsCommand2.EOF=TrueThen
sssss=MsgBox("没有当前记录!",vbOKOnly+vbExclamation,"警告")
ExitSub
EndIf
DataReportclass2.Show1
EndSub
PrivateSubForm_Activate()
Ifclassfind=TrueThen
Formclass3.ZOrder0
EndIf
Ifclassfind=TrueThen
ExitSub
ElseIfclassmodi=TrueThen
classshowdata
'TreeView1_DblClick
'classmodi=False
Else
classtree
EndIf
'Ifclassfind=TrueThen
'ExitSub
'Else
'MDIForm1.clabrowse
'EndIf
EndSub
PublicSubclasstree()
TreeView1.Nodes.Clear
DimnodexAsNode
DimmrcAsADODB.Recordset
Dimmrc1AsADODB.Recordset
DimstrAsString
DimaAsString
a="年级"
TreeView1.LineStyle=tvwRootLines
str="selectdistinct年级fromclassorderby年级"
Setmrc=ExecuteSQL(str)
str="selectdistinct年级,班级fromclassorderby年级,班级"
Setmrc1=ExecuteSQL(str)
'mrc.MoveFirst
DoUntilmrc.EOF
mrc1.MoveFirst
Setnodex=TreeView1.Nodes.add(,,a,mrc.Fields(0),1,1)
DoWhile
上一篇:
vb+sql人事工资管理系统毕业设计(论文+源程序+PPT)(论文和程序)
下一篇:
法律专业开题报告范文