#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Include <GuiImageList.au3>
#Include <GuiStatusBar.au3>
#include <Access.au3>
$aero = @ScriptDir &"\qq2009.she"
$skin = @scriptdir&"\Skin.dll"
Skin($aero)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("客户资料", 800, 600, 192, 114)
GUISetState(@SW_SHOW)
GUICtrlCreateGroup("保山网维大师客户资料",0,10,800,500)
GUICtrlCreateLabel("查找网吧:",20,550)
GUICtrlCreateInput("",80,548,80,20)
GUICtrlCreateButton("搜索",180,548)
GUICtrlCreateButton ("添加数据库",240,548)
$listview1=GUICtrlCreateListView ("网吧ID|网吧名称|网吧IP地址|网维大师VIP序号|网吧联系人|网吧联系电话|网吧地址|网吧技术负责人",0,30,800,500,-1,0x00000001)
$name=GUICtrlCreateContextMenu($listview1)
GUICtrlCreateMenuItem("查找网吧",$name)
GUICtrlCreateMenuItem("添加数据",$name)
GUICtrlCreateMenuItem("删除数据库",$name)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 0)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Skin($She)
$Dll = DllOpen($skin)
DllCall($Dll, "int", "SkinH_AttachEx", "str",$She, "str", "benkel")
DllCall($Dll, "int", "SkinH_SetAero", "int", 0)
EndFunc ;==>Skin