Enabled=True
cmd12.Enabled=True
cmd13.Enabled=True
cmd14.Enabled=True
Else
TDBGrid1.DataSource=Nothing
TDBGrid1.Refresh
EndIf
ls.Caption="符合条件的数据有"+Trim(dqkk.RecordCount)+"条"
EndSub
(3)刷新按钮:(Cmdsx)
【功能】
根据条件刷新右侧读者情况列表,用法同查询按钮。
【代码】
PrivateSubcmdsx_Click()
Calldzcx
EndSub
(4)退出按钮:(Cmd3)
【功能】
退出读者管理界面,回到程序主窗口。
【代码】
PrivateSubcmd3_Click()
UnloadMe
EndSub
2.『读者资料管理及维护』
『读者资料管理及维护』主要功能:
馆员在这里管理读者资料,可以进行新增读者、修改读者资料、删除读者、换借阅证、打印借阅证、打印读者资料、证件挂失、重新设置读者权限、更改读者身份、办理读者的离校/离职的操作。方便对读者资料的维护和对读者证件的管理。
『读者资料管理及维护』有10个功能按钮:新增读者、修改数据、删除读者、换借阅证、证件挂失、重设权限、更改身份、离校/离职、打印读者证、打印数据
(1)新增读者:(Cmd4)
点击新增读者,出现『读者基本数据-新增』窗口,如图6-13所示。
图6-13『读者基本数据-新增』窗口
【功能】
输入读者的基本数据信息,其中读者证号、读者状况、单位所系、读者姓名为必填项,若没有填写,则程序会自动提示,并会把光标置在没有填写的项目中,除必填项外其余选项可以不填。读者状况、单位所系、读者身份为选择项,不必直接输入,其余基本情况直接输入即可。输入完毕点击右下角存档按钮即可保存此条记录并退回【读者管理】界面。新增的读者记录会出现在【读者管理】右侧列表中,列表中的数据会按照读者证号由小到大排列。
【代码】
PrivateSubcmd4_Click()
BZpp="0"
frm_dz.ShowvbModal
Calldzcx
EndSub
(2)修改数据:(Cmd5)
点击修改数据,出现『读者基本数据-修改』窗口,界面同『读者基本数据-新增』。
【功能】
对已存在读者的基本数据进行修改。修改数据界面同新增读者界面,这里读者证号、读者状况、读者身份、可借阅册数不可修改,呈灰色显示,其余各项均可修改。修改完成后点存档按钮即可将修改数据保存并退出。若点退出按钮,则修改无效,程序不会保存修改数据并退回到【读者管理】界面。
【代码】
PrivateSubcmd5_Click()
BZpp="1"
frm_dz.txtdz(0).Text=TDBGrid1.Columns(0)
frm_dz.txtdz(1).Text=TDBGrid1.Columns(1)
frm_dz.Caption="读者基本数据-修改"
Callfrm_dz.dzxs
frm_dz.ShowvbModal
Calldzcx
EndSub
『读者基本数据-新增/修改』窗口『存档』按钮
PrivateSubcmd1_Click()
DimdzRSAsNewADODB.Recordset
IfTrim(txtdz(0).Text)=""Then
rt=MsgBox("请输入读者证号!",vbOKOnly,"提示")
txtdz(0).SetFocus
ExitSub
EndIf
IfTrim(txtdz(1).Text)=""Then
rt=MsgBox("请输入读者姓名!",vbOKOnly,"提示")
txtdz(1).SetFocus
ExitSub
EndIf
IfTrim(dcmbdz(0).Text)=""Then
rt=MsgBox("请选择读者状况!",vbOKOnly,"提示")
dcmbdz(0).SetFocus
ExitSub
EndIf
IfTrim(dcmbdz(1).Text)=""Then
rt=MsgBox("请选择单位所系!",vbOKOnly,"提示")
dcmbdz(1).SetFocus
ExitSub
EndIf
IfTrim(dcmbdz(2).Text)=""Then
rt=MsgBox("请选择读者身份!",vbOKOnly,"提示")
dcmbdz(2).SetFocus
ExitSub
EndIf
idcard=""
Iftxtidcard(0).Text<>""Then
Fori=0To17
c=txtidcard(i).Text
idcard=Trim(idcard)+c
Next
EndIf
idcard=Trim(idcard)
IfTrim(idcard)=""Then
rt=MsgBox("请输入身份证号!",vbOKOnly,"提示")
txtidcard(0).SetFocus
ExitSub
EndIf
IfBZpp="0"Then
SetdzRS=Nothing
dzRS.Open"select*fromreaddzwherereadID='"+Trim(txtdz(0).Text)+"'",g_CN,adOpenKeyset
IfdzRS.RecordCount<>0Then
rt=MsgBox("读者证号重复,请重新输入!",vbOKOnly,"提示")
txtdz(0).SetFocus
ExitSub
EndIf
SetdzRS=Nothing
dzRS.Open"select*fromreaddz",g_CN,adOpenStatic,adLockOptimistic
dzRS.AddNew
dzRS!readID=Trim(txtdz(0).Text)
dzRS!readNA=Trim(txtdz(1).Text)
dzRS!readzk=Trim(dcmbdz(0).Text)
dzRS!readsex=IIf(Option1.Value=True,"男","女")
dzRS!sdeptype=Trim(dcmbdz(1).Text)
dzRS!grade=Trim(txtdz(2).Text)
dzRS!readsf=Trim(dcmbdz(2).Text)
dzRS!brith=DTPicker1.Value
dzRS!sfzh=idcard
dzRS!Password=Trim(txtdz(3).Text)
dzRS!bzrID=Trim(txtdz(4).Text)
dzRS!temptel=Trim(txtdz(5).Text)
dzRS!parmtel=Trim(txtdz(6).Text)
dzRS!tempadd=Trim(txtdz(7).Text)
dzRS!parmadd=Trim(txtdz(8).Text)
dzRS!email=Trim(txtdz(9).Text)
dzRS!readmemo=Trim(txtdz(10).Text)
dzRS!kjycs=Val(Trim(txtdz(11).Text))
dzRS!djrq=Date
dzRS.Update
Else
strsql="UpdatereaddzsetreadID='"+Trim(txtdz(0).Text)+"',"
strsql=strsql&"readNA='"+Trim(txtdz(1).Text)+"',"
strsql=strsql&"readzk='"+Trim(dcmbdz(0).Text)+"',"
strsql=strsql&"readsex='"+IIf(Option1.Value=True,"男","女")+"',"
strsql=strsql&"sdeptype='"+Trim(dcmbdz(1).Text)+"',"
strsql=strsql&"grade='"+Trim(txtdz(2).Text)+"',"
strsql=strsql&"readsf='"+Trim(dcmbdz(2).Text)+"',"
strsql=strsql&"brith='"+Format(DTPicker1.Value,"yyyy-mm-dd")+"',"
strsql=strsql&"sfzh='"+idcard+"',"
strsql=strsql&"Password='"+Trim(txtdz(3).Text)+"',"
strsql=strsql&"bzrID='"+Trim(txtdz(4).Text)+"',"
strsql=strsql&"temptel='"+Trim(txtdz(5).Text)+"',"
strsql=strsql&"parmtel='"+Trim(txtdz(6).Text)+"',"
strsql=strsql&"tempadd='"+Trim(txtdz(7).Text)+"',"
strsql=strsql&"parmadd='"+Trim(txtdz(8).Text)+"',"
strsql=strsql&"email='"+Trim(txtdz(9).Text)+"',"
strsql=strsql&"readmemo='"+Trim(txtdz(10).Text)+"',"
strsql=strsql&"kjycs="+Trim(txtdz(11).Text)+","
strsql=strsql&"djrq='"+Format(Date,"yyyy-mm-dd")+"'"
strsql=strsql&"wherereadID='"
strsql=strsql&frm_wh.TDBGrid1.Columns(0)&"'"
g_CN.Executestrsql
rt=MsgBox("读者数据修改完成!",vbOKOnly,"提示")
EndIf
UnloadMe
EndSub
【说明】
由于新增读者和修改数据界面相同,所以利用Bzpp的值控制要执行的程序段。若Bzpp=0,则执行新增读者部分,若Bzpp=1则执行修改数据部分。当Bzpp=0,程序判断必填项是否输入,若有空项则程序会提示将其输入完整,并置光标到相应的选项中。填写完毕,程序利用SQL语句新增一条记录,并将新增数据写入对应的字段中。当Bzpp=1时,用修改后数据替换以前的数据。
PublicSubdzxs()
Setdqkk=Nothing
dqkk.Open"select*fromreaddzwherereadID='"+txtdz(0).Text+"'",g_CN,adOpenKeyset
Ifdqkk.RecordCount<>0Then
txtdz(0).Text=dqkk!readID
txtdz(1).Text=dqkk!readNA
dcmbdz(0).Text=dqkk!readzk
Ifdqkk!readsex="男"Then
Option1.Value=True
Else
Option1.Value=False
EndIf
dcmbdz(1).Text=dqkk!sdeptype
txtdz(2).Text=dqkk!grade
dcmbdz(2).Text=dqkk!sdeptype
txtdz(2).Text=dqkk!grade
dcmbdz(2)
上一篇:
dekphi贸易公司信息管理系统+论文(论文和程序)
下一篇:
还记得,那年的风车吗?