er=Space(255)'创建缓冲区
lBuffSize=Len(szBuffer)
RegOpenKeyExhKey,lpszSubKey,0,1,phkResult'打开注册键
lResult=RegQueryValueEx(phkResult,szKey,0,0,szBuffer,lBuffSize)'查询结果
RegCloseKeyphkResult'关闭注册键
IflResult=ERROR_SUCCESSThen'返回结果
GetRegValue=Left(szBuffer,lBuffSize-1)
Else
GetRegValue=""
EndIf
ExitFunction
ErrorRoutineErr:
GetRegValue=""
EndFunction
上网记录查询窗口lannote.frm
DimconnAsNewADODB.Connection
DimmrcAsNewADODB.Recordset
DimstlAsString
PrivateSubcmdQuery_Click()'查询按键
DimsumAsLong
Ifcombox1.Text="用户名称"Then
IftxtData.Text=""Then
MsgBox"比较数据栏不能为空!"
ExitSub
EndIf
stl="select*fromadslwhere用户名称='"&Trim(txtData.Text)&"'"'查询所用sql语句
Ifmrc.State<>adStateClosedThen'测试数据集状态
mrc.Close
EndIf
mrc.CursorLocation=adUseClient
mrc.Openstl,conn,adOpenDynamic,adLockOptimistic'执行查询
Ifmrc.RecordCount=0Then
MsgBox"找不到符合条件的记录!"
ExitSub
EndIf
SetDataGrid1.DataSource=mrc
EndIf
Ifcombox1.Text="全部记录"Then
stl="select*fromadsl"
Ifmrc.State<>adStateClosedThen
mrc.Close
EndIf
mrc.CursorLocation=adUseClient
mrc.Openstl,conn,adOpenDynamic,adLockOptimistic
SetDataGrid1.DataSource=mrc
EndIf
Ifcombox1.Text="上网日期"Then
stl="select*fromadslwhere登录日期between#"&DTPicker1.Value&_
"#and#"&DTPicker2.Value&"#"
Ifmrc.State<>adStateClosedThen
mrc.Close
EndIf
mrc.CursorLocation=adUseClient
mrc.Openstl,conn,adOpenDynamic,adLockOptimistic
SetDataGrid1.DataSource=mrc
Ifmrc.RecordCount=0Then
MsgBox"找不到符合条件的记录!"
ExitSub
EndIf
EndIf
sum=0
Fori=0Tomrc.RecordCount-1'计算上网用时
sum=sum+mrc.Fields("连接时长")
mrc.MoveNext
Nexti
Label7.Caption=ddd(sum)
EndSub
PrivateSubcombox1_Click()
Ifcombox1.Text="全部记录"Then
Label3.Visible=False
Label4.Visible=False
DTPicker1.Visible=False
DTPicker2.Visible=False
txtData.Visible=False
Label5.Visible=False
EndIf
Ifcombox1.Text="用户名称"Then
Label4.Visible=False
Label3.Visible=False
DTPicker1.Visible=False
DTPicker2.Visible=False
txtData.Visible=True
Label5.Visible=True
EndIf
Ifcombox1.Text="上网日期"Then
txtData.Visible=False
Label5.Visible=False
Label4.Visible=False
DTPicker1.Visible=True
DTPicker2.Visible=True
Label4.Visible=True
Label3.Visible=True
EndIf
EndSub
PrivateSubcmdClose_Click()
UnloadMe
EndSub
PrivateSubcmdFirst_Click()
Adodc1.Recordset.MoveFirst
ErrorHandle:
ExitSub
EndSub
PrivateSubForm_Load()
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\data\data.mdb;PersistSecurityInfo=False"stl="select*fromadsl"
Ifmrc.State<>adStateClosedThen
mrc.Close
EndIf
mrc.CursorLocation=adUseClient
mrc.Openstl,conn,adOpenDynamic,adLockOptimistic
SetDataGrid1.DataSource=mrc
EndSub
PrivateFunctionddd(sum1AsLong)AsString
hh=sum1\3600
mm=(sum1Mod3600)\60
ss=(sum1Mod3600)Mod60
ddd=hh&":"&mm&":"&ss
EndFunction
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
Form3.Show1
Case2
Debug.Print
Case3
Me.Hide
EndSelect
EndSub
??
??
??
??
34
上一篇:
VB网吧计费系统AC(论文和程序)
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮