⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin.au3

📁 宽带管理系统源码
💻 AU3
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    EndIf
Else
	 MsgBox(16,"错误","对不起,您不是管理员,无权操作！")
EndIf
EndFunc

Func _delete_log($name,$var)
			local $no
			if StringStripWS($User_Authority,8)= "管理员" then
	        If  $name <>"" then 
			If $var = 1 then $no = MsgBox(8192 + 256 + 32 + 4, "警告提示:", "是否清除客户:『"& $name &"』缴费记录?该操作不可逆,点否取消操作!!!")
		       Else
			   $no = 6
			EndIf
	        if $no = 6 then
		    $conn = ObjCreate("ADODB.Connection")
		    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
		    $conn.Execute("Delete  From S_log Where  Name ='" &$name& "'")
		    $conn.close
		    MsgBox(0,"提示:","删除客户:『"& $name &"』缴费记录成功!")
			Return 0
		    Else
			Return 1
	        EndIf
		    Else
			Return 1
	        MsgBox(16,"错误","对不起,您不是管理员,无权操作！")
            EndIf
EndFunc

Func _StatusBar_tongji($Bar)
_GUICtrlStatusBar_SetText ($StatusBar1,$Bar)
EndFunc

Func _sql_Search($Combo1data,$keys,$bar_name);数据库搜索函数
	_zhuangtai(1)
	   Local $date2_data,$State_data
		_GUICtrlListView_DeleteAllItems($ListView1)
	    $conn = ObjCreate("ADODB.Connection")
	    $RS = ObjCreate("ADODB.Recordset")
	    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	    $RS.ActiveConnection = $conn
		if $Combo1data = "按IP地址" then $RS.Open ('Select * From S_data where ' & "Ip" & ' = '& '"' & $keys & '"')
		if $Combo1data = "按MAC地址" then $RS.Open ('Select * From S_data where ' & "MAC" & ' = '& '"' & $keys & '"')
		if $Combo1data = "按姓名" then $RS.Open ('Select * From S_data where ' & "Name" & ' like' & '"%' & $keys & '%"');姓名按模糊查找
		if $Combo1data = "按状态" then $RS.Open ('Select * From S_data where ' & "State" & ' = '& '"' & $keys & '"')
		While (Not $RS.eof And Not $RS.bof)
			$date2_data = $RS.Fields (7).value
			if _Date_z($date2_data,0) >_Date_z($date1_data,0) then 
			$State_data = "正常"
			$CLR_MONEYGREEN =""
		    Else
			$State_data = "到期"
			$CLR_MONEYGREEN =0xFF0000
			EndIf
        GUICtrlCreateListViewItem($RS.Fields (1).value & '|' & $RS.Fields (2).value & '|' & $RS.Fields (3).value & '|' & $RS.Fields (6).value & '|' & $RS.Fields (7).value & '|'  & $State_data, $ListView1 )
		_GUICtrlListView_SetTextColor($listview1,GUICtrlSetColor(-1, $CLR_MONEYGREEN))
		GUICtrlSetImage(-1, "shell32.dll", 18)
	    $RS.movenext
	    WEnd
	    $RS.close
	    $conn.close

		_StatusBar_tongji('    '& $bar_name & '   '&  _GUICtrlListView_GetItemCount($listview1)&'  个                            ' )
EndFunc

Func _sql_ip()
	_zhuangtai(1)
	_GUICtrlListView_DeleteAllItems($ListView1)
	$conn = ObjCreate("ADODB.Connection")
	$RS = ObjCreate("ADODB.Recordset")
	$conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	$RS.ActiveConnection = $conn
	$RS.open ("select * from S_data")
	While (Not $RS.eof And Not $RS.bof)
		$date2_data = $RS.Fields (7).value
		if _Date_z($date2_data,0) > _Date_z($date1_data,0) then 
		 $State_data = "正常"
		 $CLR_MONEYGREEN =""
		Else
		 $State_data = "到期"
		 $CLR_MONEYGREEN =0xFF0000
		EndIf
		GUICtrlCreateListViewItem($RS.Fields (1).value & '|' & $RS.Fields (2).value & '|' & $RS.Fields (3).value & '|' & $RS.Fields (6).value & '|' & $RS.Fields (7).value & '|'  & $State_data, $ListView1 )
		_GUICtrlListView_SetTextColor($listview1,GUICtrlSetColor(-1, $CLR_MONEYGREEN))
		if _ping($RS.Fields (2).value) =0 then 
		   _StatusBar_tongji("   正在检测用户: " & $RS.Fields (1).value & "       I P:"& ($RS.Fields (2).value) & "  在线！                                                        ")
		GUICtrlSetImage(-1, "shell32.dll", 10)
	    else 
		   _StatusBar_tongji("   正在检测用户: " & $RS.Fields (1).value & "       I P:"& ($RS.Fields (2).value) & "  不在线！                                                        ")
		GUICtrlSetImage(-1, "shell32.dll", 11)
		EndIf
		$RS.movenext
	WEnd
	$RS.close
	$conn.close
	_StatusBar_tongji('   检测完成                                ' )
EndFunc

Func _sql()
	_zhuangtai(1)
	Local $date2_data,$State_data
	_GUICtrlListView_DeleteAllItems($ListView1)
	$conn = ObjCreate("ADODB.Connection")
	$RS = ObjCreate("ADODB.Recordset")
	$conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	$RS.ActiveConnection = $conn
	$RS.open ("select * from S_data")
	While (Not $RS.eof And Not $RS.bof)
			$date2_data = $RS.Fields (7).value
			if _Date_z($date1_data,0) < _Date_z($date2_data,0) then 
			$State_data = "正常"
			$CLR_MONEYGREEN =""
		    Else
			$State_data = "到期"
			$CLR_MONEYGREEN =0xFF0000
			$update = 'UPDATE S_data SET State="' & $State_data & '" where Name="' & $RS.Fields (1).value & '"'
		    $conn.Execute($update)
			EndIf
		GUICtrlCreateListViewItem($RS.Fields (1).value & '|' & $RS.Fields (2).value & '|' & $RS.Fields (3).value & '|' & $RS.Fields (6).value & '|' & $RS.Fields (7).value &  '|' & $State_data, $ListView1 )
		_GUICtrlListView_SetTextColor($listview1,GUICtrlSetColor(-1, $CLR_MONEYGREEN))
		GUICtrlSetImage(-1, "shell32.dll", 18)
		$RS.movenext
	WEnd
	$RS.close
	$conn.close
	_StatusBar_tongji('   当前用户总数:    ' &  _GUICtrlListView_GetItemCount($listview1)&'  个                            ' )
EndFunc

Func _sql_add($Name,$IP,$Mac,$Tel,$Address,$Date1,$Date2,$Amount,$Remarks);数据库添加用户函数
	    Local $d_name = ""
		$conn = ObjCreate("ADODB.Connection")
	    $RS = ObjCreate("ADODB.Recordset")
	    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	    $RS.ActiveConnection = $conn
		$RS.Open ('Select * From S_data where '  & "Name" &  '=' & '"' & $Name & '"')
		While (Not $RS.eof And Not $RS.bof)
		$d_name = $RS.Fields (1).value
		$RS.movenext
		WEnd
		if $d_name <> $Name then
		$update = 'insert into S_data (Name,Ip,Mac,Tel,Address,Date1,Date2,Amount,Remarks,State) values ("' & $Name & '","' & $Ip & '","' & $Mac & '","' & $Tel & '","' & $Address & '","'&$Date1&' ","' &$Date2 &'","' & $Amount & '", "'&$Remarks&'", "正常")'
		$conn.Execute($update)
	    Return 0
	    Else
		Return 1
	    EndIf
        $RS.close
		$conn.close
EndFunc

Func _SQL_LOG($Name1,$a_time1,$a_name1,$a_amount1,$var)
        $conn = ObjCreate("ADODB.Connection")
	    $RS = ObjCreate("ADODB.Recordset")
	    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
		$RS.ActiveConnection = $conn
		$update = 'insert into S_log (Name,a_time,a_name,a_a,a_amount) values ("' & $Name1 & '","' & $a_time1 & '","' & $a_name1 & '","' &$var& '","' & $a_amount1& '")'
		$conn.Execute($update)
	    $conn.close
EndFunc


Func _sql_edit($Name_1,$Name_new,$Tel_1,$Mac_1,$Ip_1,$Address_1,$Date1_1,$Date2_1,$Remarks_1);数据修改函数
	if StringStripWS($User_Authority,8)= "管理员" then
        $conn = ObjCreate("ADODB.Connection")
	    $RS = ObjCreate("ADODB.Recordset")
	    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
		$RS.ActiveConnection = $conn
		$update = 'UPDATE S_data SET name="' & $Name_new & '",tel="' & $Tel_1 & '",ip="' & $IP_1 & '",Mac="' & $Mac_1 & '",Address="' & $Address_1 & '",Date1="' & $Date1_1 & '",Date2="' & $Date2_1 & '",Remarks="' & $Remarks_1 & '" where Name="' & $Name_1 & '"'
		$conn.Execute($update)
	    $conn.close
	Else
	MsgBox(16,"错误","对不起,您不是管理员,无权操作！")
    EndIf	
EndFunc
	

Func _add_gui();数据添加窗口
	$Form1 = GUICreate("客户资料录入", 550, 363)
    $Group1 = GUICtrlCreateGroup("", 8, 4, 533, 350)
    GUICtrlCreateLabel("客户名称：", 40, 32, 64, 17)
    GUICtrlCreateLabel("联系电话：", 295, 32, 64, 17)
    GUICtrlCreateLabel("I P 地址：", 40, 67, 64, 17)
    $Name_Input = GUICtrlCreateInput("", 112, 29, 137, 20)
    $Tel_Input = GUICtrlCreateInput("", 367, 29, 137, 20,$ES_AUTOVSCROLL)
    GUICtrlCreateLabel("MAC 地址：", 295, 67, 64, 17)
    $Mac_Input = GUICtrlCreateInput("", 367, 64, 137, 20,$ES_UPPERCASE+$ES_AUTOVSCROLL)
    $IPAddress = _GUICtrlIpAddress_Create($Form1, 112, 64, 137, 20)
    GUICtrlCreateLabel("联系地址：", 39, 102, 64, 17)
    $Address_Input = GUICtrlCreateInput("", 112, 99, 393, 20)
    GUICtrlCreateLabel("开户时间：", 39, 139, 64, 17)
    $Date1_Input = GUICtrlCreateDate("", 112, 134, 137, 20)
    GUICtrlCreateLabel("到期时间：", 295, 139, 64, 17)
    $Date2_Input = GUICtrlCreateDate("", 367, 134, 137, 20)
    $Remarks_Edit = GUICtrlCreateEdit("", 40, 216, 465, 81)
    GUICtrlSetTip(-1,"此处可填写备注信息,方便管理!","提示:",1)
    GUICtrlCreateLabel("充值金额：", 40, 174, 64, 17)
    $Amount_Input= GUICtrlCreateInput("", 112, 169, 31, 20,$ES_NUMBER)
	GUICtrlSetTip(-1,"必须输入金额数","提示:",1)
	GUICtrlCreateLabel("(元)", 144, 174, 30, 17)
	GUICtrlSetColor(-1, 0xFF0000)
    $Calculation = GUICtrlCreateButton("计算到期时间", 293, 169, 81, 20)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    $Removal = GUICtrlCreateButton("清除重填", 64, 312, 89, 25)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    $Determined = GUICtrlCreateButton("确定录入", 392, 312, 89, 25)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    GUICtrlCreateLabel("包月：", 179, 174, 40, 17)
    $Monthly_Input = GUICtrlCreateInput("",  225, 169, 25, 20,$ES_NUMBER)
	GUICtrlSetTip(-1,"可以为空,如果为空,则自动按金额算时间!","提示:",1)
	GUICtrlCreateLabel("(月)", 256, 174, 30, 17)
	GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    GUISetBkColor (0xCAE1FF)
    While 1
        $msg = GUIGetMsg()
        Select
		Case $msg = $GUI_EVENT_CLOSE
				GUIDelete($Form1)
				WinActivate("客户资料录入")
				GUISetState(@SW_ENABLE, $Form1_1)
				ExitLoop
		Case $msg = $Determined 
				$Name = GUICtrlRead($Name_Input)
				$Tel =  GUICtrlRead($Tel_Input)
				$Mac =  GUICtrlRead($Mac_Input)
				$Address =  GUICtrlRead($Address_Input)
				$Amount = GUICtrlRead($Amount_Input)			
				$Monthly =  GUICtrlRead($Monthly_Input)
				$Ip = _GUICtrlIpAddress_Get($IPAddress)
				$Date1 = GUICtrlRead($Date1_Input)
				$Date2 = GUICtrlRead($Date2_Input)
				$Remarks = GUICtrlRead($Remarks_Edit)
                IF $Name = "" Or $Tel = "" Or  $Mac = "" Or  $Address = "" Or $Monthly = "" Then
				   MsgBox(0,"提示：","客户资料不能为空,请认真填写!")
				Else
				   If $Date1 = $Date2 then 
				   MsgBox(0,"提示：","请指定到期时间,或者点击计算时间按钮自动计算到期时间!")
			       Else
				         If $Ip ="0.0.0.0" then 
				            MsgBox(0,"提示：","IP地址不能为空,请认真填写!")
						 Else
							if  _sql_add($Name,$IP,$Mac,$Tel,$Address,$Date1,$Date2,$Amount,$Remarks) <>1 then
								_SQL_LOG($Name,$Date_time,$login_user,$Amount,"开户")
								MsgBox(0,"成功：","客户资料录入成功!")								
							    GUIDelete($Form1)
				                WinActivate("客户资料录入")
							    GUISetState(@SW_ENABLE, $Form1_1)
								ExitLooP
						    Else
							    MsgBox(0,"失败：","录入的资料已经存在,录入失败!")
							EndIf	
				        EndIf
				   EndIf
				EndIf
		Case $msg = $Removal
				GUICtrlSetData($Name_Input,"")
				GUICtrlSetData($Tel_Input,"")
				GUICtrlSetData($Mac_Input,"")
				GUICtrlSetData($Address_Input,"")
				GUICtrlSetData($Monthly_Input,"")
				GUICtrlSetData($Amount_Input,"")
				_GUICtrlIpAddress_Set($IPAddress,"")
			Case $msg = $Calculation
				 GUICtrlSetData($Date2_Input,"")
				 $Amount = GUICtrlRead($Amount_Input)
			     $Monthly = GUICtrlRead($Monthly_Input)
			     if $Monthly ="" then 
				    $Monthly = Floor($Amount/50)
					GUICtrlSetData($Monthly_Input,$Monthly)
				 EndIf
			     $jieshu_date = _Date_z(GUICtrlRead($Date2_Input),1)
			     GUICtrlSetData($Date2_Input,_Calculation($Monthly,$jieshu_date))
                EndSelect
    WEnd
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -