求ACCESS连接实例,找到的都不能用[已解决]

左手2018

我电脑 win7 64位, SciTE3.6.1

我在论坛搜索了很多access的实例, 下载下来后都无法使用. 准确的说, 从一开始就无法生成*.mdb文件.

请给一个最简单的连接access的例子, 还是au3不再支持access了?

[问题已解决]
总结:
au3调用access的话, access.au3目前不建议大家使用,总是我试了半天都没试出来.
如果你的系统是64位(一般都是了), 代码前面请加: #AutoIt3Wrapper_UseX64=n ;
access软件附在office里,在win7以上版本, 插入office安装光盘(或虚拟光盘)后,请不要傻瓜安装. 请进入光盘目录, 右键setup.exe, 然后选择以管理员身份运行. 新版本的office其实可以选择64位或32位的office版本setup.exe .  在光盘的office目录里可以选.(根目录里的setup.exe是32位的,留给懒人和小白的)

感谢论坛的w60711兄弟, 如果不是他我本来已经放弃access了.

w60711

我Win10
可以使用mdb的 建立 新增 修改 查询(范围列出) 删除
代码很乱，因为是临时修改手上的一份code出来给你参考用
所以没有很多时间做整理，将就看吧...

（代码结合了许ˋ多大神的例子，在此先感谢了～）
請將2份代碼合成一份，超出系統限制了．．．

;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                              载入Fuction                              |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GuiListBox.au3>
#include <GuiListView.au3>
#include <Misc.au3>
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <GDIPlus.au3>
#include <MsgBoxConstants.au3>
#include <Crypt.au3>
#include <GuiMenu.au3>
#include <InetConstants.au3>
#include <WinAPIFiles.au3>
#include <TrayConstants.au3>
#include <Winapi.au3>



;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                                 宣告变数                                |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Global $GUIWidth = 800 ;;介面宽
Global $GUILength = 600 ;;介面高

Global $fontsize=13, $font_xing=300, $font_var=Default, $font_name='Microsoft JhengHei' ;;全局字体及大小（备用字体：'Comic Sans Ms'、'YaHei Consolas Hybrid'）

Global Const $Title = 'MDB示例' ;;软体名称
Global Const $Author = 'ACN Ex' ;;作者名称
Global Const $ver = '1.0.0.0' ;;版本号码
Global Const $Copyright = 'Copyright © ACN' ;;版权宣告

Global Const $mdb_data_pwd = '7eWQon8' ;;资料库密码
Global Const $AES_pwd = '9414IPx' ;;储存于资料库中之密码 加解密用金钥
Global Const $DBName = "db.mdb" ;;资料库档案名称
Global Const $DBData = "appData" ;;资料库中储存 本软体登入用帐密 之资料表
Global Const $DBEnterpriseTable = "Login" ;;资料库中储存 人物帐号密码 之资料表
Global Const $Clog = "Clog" ;;资料库中储存 纪录关闭前列出范围的选项 之资料表
Global Const $Other = "OtherSetting" ;;资料库中储存 杂项 之资料表

Global Const $text = '01.........................' & @CRLF & @CRLF & _ ;;帮助说明裡的文字
                                         '02.........................................' & @CRLF & @CRLF & _
                                         '03..........................................' & @CRLF & _
                                         '........................................................'

Global $OSVOutput

Dim $label[6][6] ;;钟隐 Fuction 相关变数

Dim $about_gui, $cPass_gui ;;关于视窗，变更密码视窗，捐赠作者视窗

Dim $EID ;;此为资料表中 每笔资料之 id
Dim $OldPassword,$NewPassword,$ConfirmPasswordAgain ;;本软体登入之密码修改视窗的Input：旧密码，新密码，新密码确认

;;第一次使用，游戏帐号密码的资料表是否为空，手动检查更新，完整视窗大小（判断上次使用纪录）
Dim $FirstUse = 0 , $EmptyDatabase = 0, $GuiFullSize


Global $iExStyle = ""

Global $MouseNotInListView
Global Const $TME_HOVER = 0x00000001
Global Const $TME_LEAVE = 0x00000002


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                                 资料库                                |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;假如没有资料库就建立资料库（mdb）
If Not FileExists ($DBName) Then
        $newMdb = ObjCreate("ADOX.Catalog")
        $newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $newmdb.ActiveConnection.Close
        $addtbl = ObjCreate("ADODB.Connection")
        $addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd) ;;建立mdb
        ;;建立 "表"
        $addTbl.Execute("CREATE TABLE " & $DBData)
        $addTbl.Execute("CREATE TABLE " & $DBEnterpriseTable)
        $addTbl.Execute("CREATE TABLE " & $Clog)
        $addTbl.Execute("CREATE TABLE " & $Other)
        $addtbl.Close

        ;;建立 "栏名"
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.Execute("ALTER TABLE " & $DBData & " ADD id identity(1, 1) primary key,name text(255) ,pass text(255) ,nickname text(255) ,Permission text(255)")
        $addfld.Execute("ALTER TABLE " & $DBEnterpriseTable & " ADD id identity(1, 1) primary key,whos text(255) ,userid text(255) ,pass text(255) ,deputation text(255)" )
        $addfld.Execute("ALTER TABLE " & $Clog & " ADD id identity(1, 1) primary key,whos text(255)" )
        $addfld.Execute("ALTER TABLE " & $Other & " ADD id identity(1, 1) primary key,itemname text(255) ,ivalue text(255)" )

        ;;建立列出范围的预设值：All
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.Execute("insert into " & $Clog & " (whos) values('"&'All'&"')")

        ;;建立更新询问、视窗大小预设值
        $addfld.Execute("insert into " & $Other & " (itemname,ivalue) values('"&'askUpadte'&"','"&'1'&"')")
        $addfld.Execute("insert into " & $Other & " (itemname,ivalue) values('"&'getBeta'&"','"&'0'&"')")
        $addfld.Execute("insert into " & $Other & " (itemname,ivalue) values('"&'guiSize'&"','"&'0'&"')")

        ;;首次登入时自动建立帐号Admin，密码为空
        $FirstUse = 1
        $SetName = 'admin'
        $SetPass = ''
    $a=StringSplit($SetPass,"",2);;<<++++++加密ENC
    For $i=0 To UBound($a)-1
            $a[$i]=AscW($a[$i])
    Next
    $b=""
    For $i=0 To UBound($a)-1
            $b=$b&$a[$i]&"|"
    Next
    $ENCPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC
        $addfld.Execute("insert into " & $DBData & " (name,pass) values('"&$SetName&"','"&$ENCPass&"')")
        $addfld.close
        _newuseLogin()
Else ;;有资料库，检查后来追加表、栏位
        ;;
EndIf


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                               登入验证视窗                              |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Opt("GUIOnEventMode",0);;使用消息模式
_login()


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                                LIST样式                                |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE);<<<<<<<<<+++
Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES, $LVS_EX_DOUBLEBUFFER);<<<<<<<<<+++


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                            判断是否有帐号资料                            |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
If FileExists($DBName) Then
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection =$addfld
        $RS.Open ("Select * From " & $DBEnterpriseTable )
        $EmptyDatabase = 0
        If $RS.eof And $RS.bof Then $EmptyDatabase = 1
EndIf


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                           判断上次视窗是否展开                           |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
$RS =ObjCreate("ADODB.Recordset")
$RS.ActiveConnection =$addfld
        $RS.Open ("Select * From "& $Other & " WHERE " & 'itemname' & " ='"&'guiSize'&"'") ;;完整查询语法
        while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                $GuiFullSize = $RS.Fields (2).value
                $rs.movenext
        WEnd
$rs.close
$addfld.Close


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                                  主UI                                  |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Opt("TrayMenuMode",1);:启用选单
Opt("GUIOnEventMode",1);;使用事件模式

$Form1 = GUICreate($Title & ' v' & $ver,$GUIWidth,$GUILength,-1,-1) ;;帐号资料表有资料
GUISetFont($fontsize,$font_xing,$font_var,$font_name) ;;全局字型
GUISetBkColor(0xF0F0F0) ; 将变更背景色彩
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")

$menuFile = GUICtrlCreateMenu ( "档案 (&F)")
        $cPassInMenuTab = GUICtrlCreateMenuItem("变更密码 (&P)", $menuFile)
            GUICtrlSetOnEvent(-1, "_cPass")
        $itemExitInMenuFile = GUICtrlCreateMenuItem("结束 (&X)", $menuFile)
                GUICtrlSetOnEvent(-1, "AForm1Close")

$menuEdit2 = GUICtrlCreateMenu ( "编辑 (&E)")
        $EditInMenuTab = GUICtrlCreateMenuItem("汇入资料 (&I)", $menuEdit2)
        GUICtrlSetOnEvent(-1, "ImportWorkerTable")
        $EditInMenuTab = GUICtrlCreateMenuItem("汇出资料 (&S)", $menuEdit2)
        GUICtrlSetOnEvent(-1, "SaveCurrentWorkerTable")
        $EditInMenuTab = GUICtrlCreateMenuItem("删除人员资料 (&N)", $menuEdit2)
        GUICtrlSetOnEvent(-1, "Button6Click")

$menu2 = GUICtrlCreateMenu ( "悬浮 (&S)")
        $menu2item1 = GUICtrlCreateMenuItem("开启 (&T)", $menu2,0,1)
        GUICtrlSetOnEvent(-1, "_Topping")
        $menu2item2 = GUICtrlCreateMenuItem("关闭 (&N)", $menu2,1,1)
        GUICtrlSetOnEvent(-1, "_Topping")

$menuTab = GUICtrlCreateMenu ( "帮助 (&H)")
        $DonateInMenuTab = GUICtrlCreateMenuItem("捐赠作者 (&D)", $menuTab)
        $HelpInMenuTab = GUICtrlCreateMenuItem("说明 (&R)", $menuTab)
        GUICtrlSetOnEvent(-1, "Readme")
        $AboutInMenuTab = GUICtrlCreateMenuItem("关于 (&A)", $menuTab)
        GUICtrlSetOnEvent(-1, "about")





;;---------- Start 关于本软体和下方资讯列 ----------
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
$hStatus = _GUICtrlStatusBar_Create($Form1)
Local $a_PartsRightEdge[3] = [460, 675, -1]
_GUICtrlStatusBar_SetParts($hStatus, $a_PartsRightEdge)
_GUICtrlStatusBar_SetText($hStatus, $Title)
_GUICtrlStatusBar_SetText($hStatus, "Author：" & $Author, 1)
_GUICtrlStatusBar_SetText($hStatus, "Version：" & $ver, 2)
;~ 系统菜单添加
$nItem1 = CreateSystemMenuItem($Form1, "关于本软体(&A)", -1, False, 0)
;~ 移除菜单
RemoveMenu($Form1, $SC_SIZE)
RemoveMenu($Form1, $SC_MAXIMIZE)
RemoveMenu($Form1, $SC_RESTORE)
;~ 结束
;;---------- End 关于本软体和下方资讯列 ----------


Global $GUI1,$GUI2,$MainGUI,$ListView1,$ListView2
Global $Menu1, $menu2
Global Enum $MenuAdd = 1000, $MenuEdit, $MenuDel

$Menu1=_GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($Menu1, 0, "  新增 (Add)", $MenuAdd)
_GUICtrlMenu_SetItemBmp($Menu1, 0, _CreateBitmapFromIcon(_WinAPI_GetSysColor($COLOR_MENU), @SystemDir & '\imageres.dll', 246, 16, 16))
_GUICtrlMenu_InsertMenuItem($Menu1, 1, "  编辑 (Edit)", $MenuEdit)
_GUICtrlMenu_SetItemBmp($Menu1, 1, _CreateBitmapFromIcon(_WinAPI_GetSysColor($COLOR_MENU), @SystemDir & '\imageres.dll', 289, 16, 16))
_GUICtrlMenu_InsertMenuItem($Menu1, 2, "  删除 (Del)", $MenuDel)
_GUICtrlMenu_SetItemBmp($Menu1, 2, _CreateBitmapFromIcon(_WinAPI_GetSysColor($COLOR_MENU), @SystemDir & '\imageres.dll', 49, 16, 16))


GUICtrlCreateLabel('Edit',800,0,405,35,$SS_CENTER+$SS_SUNKEN)
GUICtrlSetBkColor(-1,0xDFDFDF)
GUICtrlSetFont(-1,$fontsize+5,700,$font_var,$font_name)

GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $guitext1 = GUICtrlCreateLabel('范围：',815,57,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $Enterprise = GUICtrlCreateInput('',925,53,230,30,BitOR($SS_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1,"请输入您的暱称或名字",'',0,0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetBkColor(-1,0xF7F7F7)
GUICtrlSetState(-1,$GUI_FOCUS) ;;预设光标所在位置
Global $guitext2 = GUICtrlCreateLabel('帐号：',815,97,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $Principal = GUICtrlCreateInput('',925,93,230,30,BitOR($SS_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1,"请输入您的NC帐号",'',0,0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetBkColor(-1,0xF7F7F7)
Global $guitext3 = GUICtrlCreateLabel('密码：',815,137,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $TelPhone1 = GUICtrlCreateInput ('',925,133,230,30,BitOR($SS_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1,"请输入您的NC密码（密码明文显示方便阅读，但是以密文方式储存，请放心）",'',0,0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetBkColor(-1,0xF7F7F7)
Global $guitext4 = GUICtrlCreateLabel('备注：',815,177,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $FaxPhone1 = GUICtrlCreateInput ('',925,173,230,30,BitOR($SS_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1,"请输入该帐号的备注",'',0,0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetBkColor(-1,0xF7F7F7)

Global $guitext5 = GUICtrlCreateLabel('指定ＩＤ：',815,257,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
Global $WID = GUICtrlCreateCombo('',925,253,100,25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetTip(-1,"如果您曾经删除过单笔资料，此处可以让您新增时，将资料写入空的资料库ID",'',0,0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetFont( -1, $fontsize-2, $font_xing, $font_var, $font_name)


Global $Button2 = GUICtrlCreateButton('新增资料',885,300,100,35)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button2Click')
Global $Button10 = GUICtrlCreateButton('覆写资料',1025,300,100,35)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button10Click')
Global $Button1 = GUICtrlCreateButton('查询资料',845,370,80,35)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button1Click')
Global $Button3 = GUICtrlCreateButton('清空栏位',975,370,80,35)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button3Click')
Global $Button6 = GUICtrlCreateButton('全部删除',1105,370,80,35)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button6Click')


GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlCreateLabel('列出范围：',2,117,100,30,$SS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
$Range = GUICtrlCreateCombo('All',102,114,150,25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
_whos()
GUICtrlSetOnEvent(-1,"_Range")
$Button8 = GUICtrlCreateButton('清除列表',265,114,100,30)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'Button8Click')
$Button9 = GUICtrlCreateLabel('开启编辑窗>',698,125,100,20,$BS_CENTER)
GUICtrlSetFont(-1,$fontsize,700,$font_var,$font_name)
GUICtrlSetColor(-1, 0X0094FF);;蓝色
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GuiCtrlSetCursor(-1, 0)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetOnEvent(-1,'sAdditem')

$ListView1 = GUICtrlCreateListView('',2,155,798,$GUILength-200)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ;;奇数行为listview的背景色，偶数行为listviewitem的背景色
GUICtrlSetBkColor(-1,0xF7F7F7)
GUICtrlSetFont( -1, $fontsize, $font_xing, $font_var, $font_name)
Dim $B_DESCENDING[_GUICtrlListView_GetColumnCount($ListView1)] ;<==定义排序数组,必不可少
$iExStyle += $LVS_EX_GRIDLINES ; 项目和子项显示网格.
$iExStyle += $LVS_EX_FULLROWSELECT ; 项目选中时, 该项及其所有子项高亮显示.
_GUICtrlListView_SetExtendedListViewStyle($ListView1,$iExStyle)
GUICtrlSendMsg(-1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_HEADERDRAGDROP, $LVS_EX_HEADERDRAGDROP)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
_GUICtrlListView_AddColumn($ListView1, '索引号', 75)
_GUICtrlListView_AddColumn($ListView1, '范围', 80)
_GUICtrlListView_AddColumn($ListView1, '帐号', 275)
_GUICtrlListView_AddColumn($ListView1, '备注', 340)
_GUICtrlListView_JustifyColumn($ListView1, 0, 2)
_GUICtrlListView_JustifyColumn($ListView1, 1, 2)
_GUICtrlListView_JustifyColumn($ListView1, 2, 2)
_GUICtrlListView_JustifyColumn($ListView1, 3, 2)

GUICtrlCreateGroup('Info',315,5,480,100)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlCreateLabel($Title,325,30,100,20,$BS_CENTER)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlSetFont(-1,$fontsize-2,700,$font_var,$font_name)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,0X0094FF)
$NCLauncher = GUICtrlCreateLabel('',430,33,655,20)
GUICtrlSetFont(-1,$fontsize-4,700,$font_var,$font_name)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,0X0094FF)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
_BasicInfo()
GUICtrlCreateLabel($OSVOutput, 325, 65)
GUICtrlSetFont(-1,$fontsize-4,700,$font_var,$font_name)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,0X0094FF)
GUICtrlSetResizing(-1,$GUI_DOCKALL) ;;防止位移
GUICtrlCreateGroup('',-99,-99,1,1)

GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND") ;;关于
GUICtrlCreateLabel("", 0, 0, 645, 210, 0x04000000, 0x00100000)
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY");<<<<<<<<<+++

;;LIST样式
Global $B_DESCENDING[_GUICtrlListView_GetColumnCount($ListView1)];<<<<<<<<<+++

If $EmptyDatabase = 1 Or $GuiFullSize = 1 Then sAdditem()

_Range()
;;以序号排序，要在读˙取完资料后再执行
_GUICtrlListView_RegisterSortCallBack($ListView1)
_GUICtrlListView_SortItems($ListView1, 0);以序号排序
_GUICtrlListView_UnRegisterSortCallBack($ListView1)



While 1
        Sleep(50)
        If _Hover($Form1,2,155,798,$GUILength-200) = 0 Then ;;如果鼠标超出了ListView范围，就取消ToolTip
                If $MouseNotInListView = 0 Then ToolTip('')
                $MouseNotInListView = 1 ;;是，不在ListView范围
        Else
                $MouseNotInListView = 0 ;;否，有在ListView范围
        EndIf
WEnd


Func _Hover($cH_hWin = "", $Pos_X = 0, $Pos_Y = 0, $Pos_W = 0, $Pos_H = 0) ;;判断鼠标是否在ListView范围
        $cH_Data = GUIGetCursorInfo($cH_hWin)
;~     TrayTip($cH_Data[0] & " " & $cH_Data[1], $Pos_X & " + " & $Pos_X + $Pos_W & "    " & $Pos_Y & " + " & $Pos_Y + $Pos_H,5)
    If Not IsArray($cH_Data) Then Return SetError(10086)
    If $cH_Data[0] > $Pos_X And $cH_Data[0] < $Pos_X + $Pos_W And $cH_Data[1] > $Pos_Y And $cH_Data[1] < $Pos_Y + $Pos_H Then
        Return 1
    Else
            Return 0
    EndIf
EndFunc



Func _BasicInfo()
        ;;---------- Start 取得系统版号 ----------
        $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", 0x30)

        If IsObj($colItems) then
           For $objItem In $colItems
              $OSVOutput = $objItem.Caption & @CRLF & $objItem.Version & @CRLF
           Next
        Else
           $OSVOutput = 'N/A'
        Endif
        ;;---------- End 取得系统版号 ----------
EndFunc


Func sAdditem()
    $ViewErrButtonText=GUICtrlRead($Button9)
    $XY=WinGetPos($Form1) ;;取得Form1大小
    if $ViewErrButtonText="<关闭编辑窗" Then
        GUICtrlSetData($Button9, "开启编辑窗>")
                GUICtrlSetColor ($Button9, 0X0094FF);;蓝色
        $newX=$XY[2]-405 ;;原始尺寸
                WinMove($Form1,"",$XY[0],$XY[1],$newX,$XY[3]) ;;改变视窗大小
                $POS = WinGetPos($Form1) ;;取得改变后窗口大小
                WinMove($Form1,'',(@DesktopWidth-$POS[2])/2,$XY[1]) ;;将窗口水平置中

                ;;重置下方资讯栏
                $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
                $hStatus = _GUICtrlStatusBar_Create($Form1)
                Local $a_PartsRightEdge[3] = [460, 675, -1]
                _GUICtrlStatusBar_SetParts($hStatus, $a_PartsRightEdge)
                _GUICtrlStatusBar_SetText($hStatus, $Title)
                _GUICtrlStatusBar_SetText($hStatus, "Author：" & $Author, 1)
                _GUICtrlStatusBar_SetText($hStatus, "Version：" & $ver, 2)
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                $addfld.execute("update " & $Other & " set  ivalue='"&'0'&"' WHERE itemname" & " = '" & 'guiSize' & "'")
                $addfld.close
    Else
        GUICtrlSetData($Button9, "<关闭编辑窗")
                GUICtrlSetColor ($Button9, 0xFF0000);;红色
        $newX=$XY[2]+405 ;;延展视窗
                WinMove($Form1,"",$XY[0],$XY[1],$newX,$XY[3]) ;;改变视窗大小
                $POS = WinGetPos($Form1) ;;取得改变后窗口大小
                WinMove($Form1,'',(@DesktopWidth-$POS[2])/2,$XY[1]) ;;将窗口水平置中

                ;;重置下方资讯栏
                $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
                $hStatus = _GUICtrlStatusBar_Create($Form1)
                Local $a_PartsRightEdge[3] = [860, 1085, -1]
                _GUICtrlStatusBar_SetParts($hStatus, $a_PartsRightEdge)
                _GUICtrlStatusBar_SetText($hStatus, $Title)
                _GUICtrlStatusBar_SetText($hStatus, "Author：" & $Author, 1)
                _GUICtrlStatusBar_SetText($hStatus, "Version：" & $ver, 2)
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                $addfld.execute("update " & $Other & " set  ivalue='"&'1'&"' WHERE itemname" & " = '" & 'guiSize' & "'")
                $addfld.close
    EndIf
EndFunc


Func Readme()
        MsgBox(262144+64,'使用说明',$text)
EndFunc

w60711

呈上

Func _AES128($mode,$way,$data,$pass);;使用AES 256 加密解密
        Switch $mode
                Case 0;;加密
                        _Crypt_Startup()
                        Return  _Crypt_EncryptData($data,$pass, $way)
                Case 1;;解密
                        _Crypt_Startup()
                        Return  _Crypt_DecryptData($data,$pass, $way)
        EndSwitch
EndFunc


Func _whos();;找出有谁，放进选单
        Dim $ClogID
        Dim $YN = 'N'

        $addfld = ObjCreate("ADODB.Connection");;<<++++++从DB取得上一次浏览范围
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open ("Select * From " & $Clog )
        while Not $RS.eof And Not $RS.bof
                $ClogID = $RS.Fields (1).value
                $rs.movenext
        WEnd
        $rs.close
        $addfld.Close;;<<++++++从DB取得上一次浏览范围

        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open ("Select * From " & $DBEnterpriseTable )
        GUICtrlSetData($Range,'All','All');;介面显示为All
        while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                If StringInStr($RS.Fields (1).value,$ClogID) = 1 Then $YN = 'Y'
                If $RS.Fields (1).value <> '' Then $str = $RS.Fields (1).value
                If $RS.Fields (1).value = '' Then $str = 'N/A'
                GUICtrlSetData($Range,$str,$ClogID)
                $rs.movenext
        WEnd
        If $YN = 'Y' Then GUICtrlSetData($Range,$ClogID,$ClogID)
        If $YN = 'N' Then GUICtrlSetData($Range,'All','All')
        $rs.close
        $addfld.Close
EndFunc


Func _Range()
        $ReadRange = GUICtrlRead($Range)
        $SerchItem = "whos"
        $CValue = '1'

        $addfld = ObjCreate("ADODB.Connection");;<<+++++++纪录选择的范围到DB
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.execute("update " & $Clog & " set  whos='"&$ReadRange&"' WHERE id" & " = " & $CValue)
        $addfld.close;;<<+++++++纪录选择的范围到DB

        GUICtrlSendMsg($ListView1,$LVM_DELETEALLITEMS,0,0)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection =$addfld
        GUISetState(@SW_LOCK,$Form1);;锁定，可让TAB裡的LIST读取较快较不闪烁

        If $ReadRange = "All" Then;;列出全部
                $RS.Open ("Select * From " & $DBEnterpriseTable )
                while Not $RS.eof And Not $RS.bof
                        if @error =1 Then ExitLoop
                        If $RS.Fields (2).value = '' Or $RS.Fields (2).value = Null Or $RS.Fields (2).value = False Then
                                ;;
                        Else
                                GUICtrlCreateListViewItem ( $RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value&"|"& $RS.Fields (4).value,$ListView1 )
                                GUICtrlSetBkColor (-1,0xE9E9E9) ;;设置 偶数行项目背景颜色
                        EndIf
                        $rs.movenext
                WEnd
        Else;;列出指定主人
                $RS.Open ("Select * From "& $DBEnterpriseTable & " WHERE " & $SerchItem & " ='"&$ReadRange&"'") ;;完整查询语法
                while Not $RS.eof And Not $RS.bof
                        if @error =1 Then ExitLoop
                        GUICtrlCreateListViewItem($RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value&"|"& $RS.Fields (4).value,$ListView1)
                        GUICtrlSetBkColor (-1,0xE9E9E9) ;;设置 偶数行项目背景颜色
                        $rs.movenext
                WEnd
        EndIf

        GUISetState(@SW_UNLOCK,$Form1);;解除锁定
        $rs.close
        $addfld.Close
EndFunc


Func _Password();变更密码
        $ROldPass = GUICtrlRead($OldPassword)
        $RNewPass = GUICtrlRead($NewPassword)
        $RCNewPass = GUICtrlRead($ConfirmPasswordAgain)
        $Value = '1' ;;密码 所在的 ID

        If $FirstUse = 0 Then
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                $RS =ObjCreate("ADODB.Recordset")
                $RS.ActiveConnection = $addfld
                $RS.Open ("Select * From " & $DBData )
                $DBTEXT = $RS.Fields (2).value
                $rs.close
                $addfld.Close
        EndIf

        If $FirstUse = 0 Then
            $a=StringSplit($ROldPass,"",2);;<<++++++加密ENC
            For $i=0 To UBound($a)-1
                    $a[$i]=AscW($a[$i])
            Next
            $b=""
            For $i=0 To UBound($a)-1
                    $b=$b&$a[$i]&"|"
            Next
            $ENCPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC
        EndIf

        If $FirstUse = 0 Then
                If $ENCPass <> $DBTEXT Then
                        MsgBox(262144+48,'错误','输入的原始密码错误！请重新再试一次。',$MB_OK)
                        Return
                EndIf
        EndIf

        If $RNewPass <> $RCNewPass Then
                MsgBox(262144+48,'错误','输入的两次新密码不相符！请确认后重试。',$MB_OK)
                Return
        EndIf
        $a=StringSplit($RNewPass,"",2);;<<++++++加密ENC
        For $i=0 To UBound($a)-1
                $a[$i]=AscW($a[$i])
        Next
        $b=""
        For $i=0 To UBound($a)-1
                $b=$b&$a[$i]&"|"
        Next
        $ENCPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC

        $addfld = ObjCreate("ADODB.Connection");;<<+++++++纪录选择的范围到DB
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.execute("update " & $DBData & " set  pass='"&$ENCPass&"' WHERE id" & " = " & $Value)
        $addfld.close;;<<+++++++纪录选择的范围到DB
        If $FirstUse = 0 Then
                MsgBox(262144+64,'完成','已更新密码！请以新密码重新登入。',5,$MB_OK)
                Exit
        Else
                $FirstUse = 0
        EndIf
EndFunc


Func AForm1Close() ;;关闭本程序
        If WinExists("关于 "&$Title & ' v' & $ver) Then
        GUIDelete($About_gui)
        Return 0
        Else
                If MsgBox(262144+36, "", "确定要退出吗？") = 6 Then
                        Exit
                EndIf
        EndIf
EndFunc


Func Button1Click();;查询资料
        GUICtrlSetState($Button1,$GUI_DISABLE)
        Serch()
        GUICtrlSetState($Button1,@SW_ENABLE)
EndFunc


Func Button3Click();;清空栏位
                GUICtrlSetData($Enterprise,'')
                GUICtrlSetData($Principal,'')
                GUICtrlSetData($TelPhone1,'')
                GUICtrlSetData($FaxPhone1,'')
                GUICtrlSetData($WID,'')
                GUICtrlSetState($Enterprise,$GUI_FOCUS) ;;预设光标所在位置
EndFunc


Func Button6Click();;全部删除（删除资料表，可用做索引号重置）
        GUICtrlSetState($Button6,$GUI_DISABLE)
        $MSGCheck = MsgBox(32+4,'警告','您确定要删除所有帐号资料吗？' & @CRLF & @CRLF & "此操作不能回復，请谨慎使用。" )
        If $MSGCheck = 6 Then
                DeleteWorkerTable()
        Else
                Return
        EndIf
        GUICtrlSetState($Button6,@SW_ENABLE)
        Return
EndFunc


Func _runL2()
         MsgBox(0,0,'run')
EndFunc



Func Button8Click();;清除列表
        GUICtrlSetState($Button8,$GUI_DISABLE)
        Clear()
        GUICtrlSetState($Button8,@SW_ENABLE)
EndFunc


Func Button9Click ();;复製资料
        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        If $Strnspin[1]='0' Then
                MsgBox(48,'错误','您没有选择任一项目！')
                Return
        Else
                dataup()
        EndIf
EndFunc


Func Button10Click ();;覆写资料
        $ReadPrincipal = GUICtrlRead($Principal)
        $ReadTelPhone1 = GUICtrlRead($TelPhone1)

        GUICtrlSetState($Button10,$GUI_DISABLE)
        $RWID = GUICtrlRead($WID)

        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        If $ReadPrincipal = '' Then
                MsgBox(48,'错误','ＮＣ帐号为必填项目！')
                GUICtrlSetState($Button10,@SW_ENABLE)
                Return
        EndIf
        If StringIsDigit($RWID) = 1 Then;;是否仅包含数字
                        $addfld = ObjCreate("ADODB.Connection")
                        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                        $RS =ObjCreate("ADODB.Recordset")
                        $RS.ActiveConnection =$addfld
                        $RS.Open ("Select * From "& $DBEnterpriseTable & " WHERE " & " ID = " & $RWID)
                        $MSGCheck = MsgBox(32+4,'[编辑] - 警告','您确定将资料写入此ID位置吗？' & @CRLF & @CRLF & "索引号：" & $RS.Fields (0).value & @CRLF & "帐号：" & $RS.Fields (2).value & @CRLF & "备注：" & $RS.Fields (2).value )
                        $rs.close
                        $addfld.Close

                        If $MSGCheck = 6 Then
                                back()
                                GUICtrlSetState($Button10,@SW_ENABLE)
                                Return
                        Else
                                GUICtrlSetState($Button10,@SW_ENABLE)
                                Return
                        EndIf
        ElseIf $Strnspin[1]='0' Then
                MsgBox(48,'错误','您没有选择任一项目！')
                GUICtrlSetState($Button10,@SW_ENABLE)
                Return
        Else
                If $EID = Null Then
                        $MSGCheck = MsgBox(32+4,'[覆写] - 警告','您确定要覆写到该笔资料吗？' & @CRLF & @CRLF & "索引号：" & $Strnspin[1] & @CRLF & "帐号：" & $Strnspin[3] & @CRLF & "备注：" & $Strnspin[4] )
                        If $MSGCheck = 6 Then
                                back()
                                GUICtrlSetState($Button10,@SW_ENABLE)
                                Return
                        Else
                                GUICtrlSetState($Button10,@SW_ENABLE)
                                Return
                        EndIf
                EndIf

                If $EID <> Null Then
                        $addfld = ObjCreate("ADODB.Connection")
                        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                        $RS =ObjCreate("ADODB.Recordset")
                        $RS.ActiveConnection =$addfld
                        $RS.Open ("Select * From "& $DBEnterpriseTable & " WHERE " & " ID = " & $EID) ;;模煳查询语法
                        $MSGCheck = MsgBox(32+4,'[编辑] - 警告','您确定要完成编辑本笔资料吗？' & @CRLF & @CRLF & "索引号：" & $RS.Fields (0).value & @CRLF & "帐号：" & $RS.Fields (2).value & @CRLF & "备注：" & $RS.Fields (4).value )
                        $rs.close
                        $addfld.Close

                        If $MSGCheck = 6 Then
                                back()
                                $EID = Null
                                GUICtrlSetState($Button10,@SW_ENABLE)
                                Return
                        Else
                                $MSGCheckA = MsgBox(32+4,'[编辑] - 警告','那您要更新资料到所选项吗？' & @CRLF & @CRLF & "索引号：" & $Strnspin[1] & @CRLF & "帐号：" & $Strnspin[3] & @CRLF & "备注：" & $Strnspin[4])
                                If $MSGCheckA = 6 Then
                                        $EID = Null
                                        back()
                                        GUICtrlSetState($Button10,@SW_ENABLE)
                                        Return
                                Else
                                        GUICtrlSetState($Button10,@SW_ENABLE)
                                        Return
                                EndIf
                        EndIf
                EndIf
        EndIf
EndFunc


Func Button11Click ();;删除所选项目
        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        $MSGCheck = MsgBox(32+4,'警告','您定要删除该笔资料吗？' & @CRLF & @CRLF & "索引号：" & $Strnspin[1] & @CRLF & "帐号：" & $Strnspin[3] & @CRLF & "备注：" & $Strnspin[4] )
        If $MSGCheck = 6 Then
                del()
        Else
                Return
        EndIf
EndFunc


Func read();;读取资料到LIST
        GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open ("Select * From " & $DBEnterpriseTable )
        GUISetState(@SW_LOCK,$Form1);;锁定，可让TAB裡的LIST读取较快较不闪烁
        while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                If $RS.Fields (2).value = '' Or $RS.Fields (2).value = Null Or $RS.Fields (2).value = False Then
                        ;;
                Else
                        GUICtrlCreateListViewItem ( $RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value&"|"& $RS.Fields (4).value,$ListView1 )
                EndIf
                $rs.movenext
        WEnd
        GUISetState(@SW_UNLOCK,$Form1);;解除锁定
        $rs.close
        $addfld.Close
        $EID = Null
        _whos()
        _SerchNull()
EndFunc


Func _SerchNull();;搜索没有资料的ID
        Local $L
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection =$addfld
        $RS.Open ("Select * From "& $DBEnterpriseTable & " WHERE " & 'userid IS NULL OR' & " userid = ''")
        GUISetState(@SW_LOCK,$Form1);;锁定，可让TAB裡的LIST读取较快较不闪烁
        while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                $L = $L & '|' & $RS.Fields (0).value
                $rs.movenext
        WEnd
        GUICtrlSetData($WID,'' & '|'& $L,'')
        GUISetState(@SW_UNLOCK,$Form1);;解除锁定
        $rs.close
        $addfld.Close
EndFunc


Func del();;删除项目（屏蔽/保留索引号）
        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        $NULL = ''

        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$NULL&"',userid='"&$NULL&"',pass='"&$NULL&"',deputation='"&$NULL&"' WHERE id" & " = " & $Strnspin[1])
        $addfld.close
        read()
EndFunc


Func dataup();;复製所选资料到编辑窗格
        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        GUICtrlSetData($Enterprise,'')
        GUICtrlSetData($Principal,'')
        GUICtrlSetData($TelPhone1,'')
        GUICtrlSetData($FaxPhone1,'')

        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open ("Select * From " & $DBEnterpriseTable &  " WHERE id" & " = " & $Strnspin[1])
        $a=StringSplit(BinaryToString(_AES128(1,$CALG_AES_128,$RS.Fields (3).value,$AES_pwd)),"|",2);;<<++++++解密DEC
        For $i=0 To UBound($a)-1
                $a[$i]=ChrW($a[$i])
        Next
        $UserPass=""
        For $i=0 To UBound($a)-1
                $UserPass=$UserPass&$a[$i]
        Next;;<<++++++解密DEC

        GUICtrlSetData($Enterprise,$RS.Fields (1).value)
        GUICtrlSetData($Principal,$RS.Fields (2).value)
        GUICtrlSetData($TelPhone1,$UserPass)
        GUICtrlSetData($FaxPhone1,$RS.Fields (4).value)
        $rs.movenext
        $rs.close
        $addfld.Close
EndFunc


Func back();;复写（更新）所选项目的资料
        $ReadEnterprise = GUICtrlRead($Enterprise)
        If $ReadEnterprise = '' Then $ReadEnterprise = 'N/A'
        $ReadPrincipal = GUICtrlRead($Principal)
        $ReadTelPhone1 = GUICtrlRead($TelPhone1);;<<++++++加密ENC
        $a=StringSplit($ReadTelPhone1,"",2)
        For $i=0 To UBound($a)-1
                $a[$i]=AscW($a[$i])
        Next
        $b=""
        For $i=0 To UBound($a)-1
                $b=$b&$a[$i]&"|"
        Next
        $UserPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC
        $ReadFaxPhone1 = GUICtrlRead($FaxPhone1)
        $RWID = GUICtrlRead($WID)

        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin=StringSplit($Strn,"|")
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        If StringIsDigit($RWID) = 1 Then;;$WID= 指定写入ID，=1 >>> 有数字 非空白
                $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$ReadEnterprise&"',userid='"&$ReadPrincipal&"',pass='"&$UserPass&"',deputation='"&$ReadFaxPhone1&"' WHERE id" & " = " & $RWID)
        ElseIf $EID <> Null Then
                $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$ReadEnterprise&"',userid='"&$ReadPrincipal&"',pass='"&$UserPass&"',deputation='"&$ReadFaxPhone1&"' WHERE id" & " = " & $EID)
        ElseIf $EID = Null Then
                $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$ReadEnterprise&"',userid='"&$ReadPrincipal&"',pass='"&$UserPass&"',deputation='"&$ReadFaxPhone1&"' WHERE id" & " = " & $Strnspin[1])
        Else
                $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$ReadEnterprise&"',userid='"&$ReadPrincipal&"',pass='"&$UserPass&"',deputation='"&$ReadFaxPhone1&"' WHERE id" & " = " & $Strnspin[1])
        EndIf

        $addfld.close
        GUICtrlSetData($Enterprise,'')
        GUICtrlSetData($Principal,'')
        GUICtrlSetData($TelPhone1,'')
        GUICtrlSetData($FaxPhone1,'')
        GUICtrlSetData($WID,'')
        _Range()
EndFunc


Func Serch();;搜索（支援模煳搜索）
        $ReadFaxPhone1 = GUICtrlRead($FaxPhone1);;备注
        $ReadEnterprise = GUICtrlRead($Enterprise);;主人
        $ReadPrincipal = GUICtrlRead($Principal);;帐号

        ;;SQL万用字元查询，将单独的特殊字元[]起来，才能不出错，新增*查询。用法：**  %%  __
        If StringLen($ReadEnterprise) = 1 And $ReadEnterprise = '[' Then $ReadEnterprise = '[[]'
        If StringLen($ReadEnterprise) = 1 And $ReadEnterprise = '_' Then $ReadEnterprise = '[_]'
        If StringLen($ReadEnterprise) = 1 And $ReadEnterprise = '%' Then $ReadEnterprise = '[%]'
        If StringLen($ReadEnterprise) = 1 And $ReadEnterprise = '*' Then $ReadEnterprise = '[%]'
        If StringLen($ReadPrincipal) = 1 And $ReadPrincipal = '[' Then $ReadPrincipal = '[[]'
        If StringLen($ReadPrincipal) = 1 And $ReadPrincipal = '_' Then $ReadPrincipal = '[_]'
        If StringLen($ReadPrincipal) = 1 And $ReadPrincipal = '%' Then $ReadPrincipal = '[%]'
        If StringLen($ReadPrincipal) = 1 And $ReadPrincipal = '*' Then $ReadPrincipal = '[%]'

        ;;文字内包含万用字元查询，字串裡含有万用字元，且长度不等于1，进行替换
        If StringRegExp($ReadEnterprise,'[') = 0 And StringLen($ReadEnterprise) <> 1 Then $ReadEnterprise = StringReplace($ReadEnterprise,'[','[[]')
        If StringRegExp($ReadEnterprise,'*') = 0 And StringLen($ReadEnterprise) <> 1 Then $ReadEnterprise = StringReplace($ReadEnterprise,'*','%')
        If StringRegExp($ReadPrincipal,'[') = 0 And StringLen($ReadPrincipal) <> 1 Then $ReadPrincipal = StringReplace($ReadPrincipal,'[','[[]')
        If StringRegExp($ReadPrincipal,'*') = 0 And StringLen($ReadPrincipal) <> 1 Then $ReadPrincipal = StringReplace($ReadPrincipal,'*','%')

        If $ReadFaxPhone1 = "" And $ReadEnterprise = "" And $ReadPrincipal = "" Then
                MsgBox( 48 , "错误" , "您无输入搜寻条件！" )
                Return
        ElseIf $ReadEnterprise = "" And $ReadPrincipal = "" Then
                $SerchItem = "deputation"
                $InputItem = $ReadFaxPhone1
        ElseIf $ReadFaxPhone1 = "" And $ReadPrincipal = "" Then
                $SerchItem = "whos"
                $InputItem = $ReadEnterprise
        ElseIf $ReadFaxPhone1 = "" And $ReadEnterprise = "" Then
                $SerchItem = "userid"
                $InputItem = $ReadPrincipal
        Else
                MsgBox( 48 , "错误" , "搜寻条件一次只能为一个！" )
                Return
        EndIf

        GUICtrlSendMsg($ListView1,$LVM_DELETEALLITEMS,0,0)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $RS =ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection =$addfld
        $RS.Open ("Select * From "& $DBEnterpriseTable & " WHERE " & $SerchItem & " like'%"&$InputItem&"%'") ;;模煳查询语法
        GUISetState(@SW_LOCK,$Form1);;锁定，可让TAB裡的LIST读取较快较不闪烁
        while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                GUICtrlCreateListViewItem($RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value&"|"& $RS.Fields (4).value,$ListView1)
                $rs.movenext
        WEnd
        GUISetState(@SW_UNLOCK,$Form1);;解除锁定
        $rs.close
        $addfld.Close
EndFunc


Func Clear();;清空列表
        GUICtrlSendMsg($ListView1,$LVM_DeleteALLITEMS,0,0) ;;清空列表
EndFunc


Func DeleteWorkerTable();;删除并重建帐号资料表
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.Execute("DROP TABLE " & $DBEnterpriseTable);;删除帐号记录的表

        $addtbl = ObjCreate("ADODB.Connection")
        $addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        ;;建立 "表"
        $addTbl.Execute("CREATE TABLE " & $DBEnterpriseTable);;建立帐号记录的表

        ;;建立 "栏（位）名"
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
        $addfld.Execute("ALTER TABLE " & $DBEnterpriseTable & " ADD id identity(1, 1) primary key,whos text(255) ,userid text(255) ,pass text(255) ,deputation text(255)" )
        $addfld.Close

        read()
        MsgBox(64,"完成","已成功删除并重建帐号资料表！")
        Return
EndFunc


Func Button2Click() ;;将资料写入（新增进）资料库
        $ReadPrincipal = GUICtrlRead($Principal)
        $ReadTelPhone1 = GUICtrlRead($TelPhone1)

        GUICtrlSetState($Button2,$GUI_DISABLE)
        ;;读取输入的值
        $ReadEnterprise = GUICtrlRead($Enterprise)
        If $ReadEnterprise = '' Then $ReadEnterprise = 'N/A'

        $ReadFaxPhone1 = GUICtrlRead($FaxPhone1)
        $RWID = GUICtrlRead($WID)

        $a=StringSplit($ReadTelPhone1,"",2);;<<++++++加密ENC
        For $i=0 To UBound($a)-1
                $a[$i]=AscW($a[$i])
        Next
        $b=""
        For $i=0 To UBound($a)-1
                $b=$b&$a[$i]&"|"
        Next
        $UserPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC

        ;;输出资料至DB
        If $ReadPrincipal <> '' Then ;;判断"范围"是否为空
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                If $RWID = '' Then $addfld.Execute("insert into "&$DBEnterpriseTable&" (whos,userid,pass,deputation) values('"&$ReadEnterprise&"','"&$ReadPrincipal&"','"&$UserPass&"','"&$ReadFaxPhone1&"')")
                If $RWID <> '' Then
                        $MSGCheck = MsgBox(32+4,'警告','您确定要新增该笔资料至 索引号：' & $RWID & ' 吗？')
                        If $MSGCheck = 6 Then
                                $addfld.execute("update " & $DBEnterpriseTable & " set  whos='"&$ReadEnterprise&"',userid='"&$ReadPrincipal&"',pass='"&$UserPass&"',deputation='"&$ReadFaxPhone1&"' WHERE id" & " = " & $RWID)
                        Else
                                GUICtrlSetState($Button2,@SW_ENABLE)
                                Return
                        EndIf
                EndIf
                $addfld.close
                _whos()
                _Range()
                GUICtrlSetData($Enterprise,'')
                GUICtrlSetData($Principal,'')
                GUICtrlSetData($TelPhone1,'')
                GUICtrlSetData($FaxPhone1,'')
                GUICtrlSetState($Enterprise,$GUI_FOCUS) ;;预设光标所在位置
        Else
                MsgBox(48,'错误','范围为必填项目！')
                GUICtrlSetState($Enterprise,$GUI_FOCUS)
        EndIf
        GUICtrlSetState($Button2,@SW_ENABLE)
EndFunc


;登录选项窗体（by Flyself）
Func _login()
        Local $errorNumber = 0, $dbuserName, $dbuserPass
                Global $NONEAACTIVECOLOR = 0x9898f8
                Global $MARK_1 = 0
                ;登录窗体
        Local $Form_login = GUICreate("登入介面", 300, 195,-1,-1,$WS_CAPTION + $WS_POPUP + $WS_SYSMENU)
        GUICtrlCreateLabel('欢迎使用 '&$Title, 0, 15, 300, 25, $SS_CENTER)
                GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
                GUICtrlSetFont(-1,$fontsize+1,$font_xing,$font_var,$font_name)
                GUICtrlSetColor(-1,0x1260FF)
        Local $login_Label1 = GUICtrlCreateLabel("帐号", 20, 55, 55, 20, $SS_RIGHT)
        GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
        Local $login_Input1 = GUICtrlCreateInput("admin", 85, 50, 115, 24)
        GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
        Local $login_Label2 = GUICtrlCreateLabel("密码", 20, 100, 55, 20, $SS_RIGHT)
        GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
        Local $login_Input2 = GUICtrlCreateInput("", 85, 95, 115, 24, $ES_PASSWORD)
                GUICtrlSetState(-1,$GUI_FOCUS) ;;预设光标所在位置
        GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

        Local $login_ok = GUICtrlCreateButton("登入", 50, 145, 75, 25, $BS_DEFPUSHBUTTON)
        Local $login_cancel = GUICtrlCreateButton("取消", 175, 145, 75, 25)
        GUICtrlCreateLabel("预设：admin", 210, 55, 120, 17)
        GUICtrlSetColor(-1, 0x3399FF)
        GUICtrlCreateLabel("预设：空", 210, 100, 120, 17)
        GUICtrlSetColor(-1, 0x3399FF)
        GUISetState(@SW_SHOW, $Form_login)

        Local $nMsg
                While 1
                                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                                Exit
                        Case $login_cancel
                                Exit
                        Case $login_ok ;登录用户进入主窗体
                                $puser = GUICtrlRead($login_Input1)
                                $ppassword = GUICtrlRead($login_Input2)

                                $addfld = ObjCreate("ADODB.Connection")
                                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DBName & ";Jet Oledb:Database Password="&$mdb_data_pwd)
                                $RS =ObjCreate("ADODB.Recordset")
                                $RS.ActiveConnection = $addfld
                                $RS.Open ("Select * From " & $DBData )
                                $a=StringSplit($ppassword,"",2);;<<++++++加密ENC
                                For $i=0 To UBound($a)-1
                                        $a[$i]=AscW($a[$i])
                                Next
                                $b=""
                                For $i=0 To UBound($a)-1
                                        $b=$b&$a[$i]&"|"
                                Next
                                $ENCPass = _AES128(0,$CALG_AES_128,$b,$AES_pwd);;<<++++++加密ENC
                                $dbuserName = $RS.Fields(1).value
                                                                $dbuserPass = $RS.Fields(2).value
                                                                $rs.close
                                $addfld.Close

                                If $puser = '' Then
                                        $dbuserName = Null
                                                                        $dbuserPass = Null
                                                                        MsgBox(48,'错误','请输入帐号！',$MB_OK)
                                        GUICtrlSetData($login_Input2, "")
                                                                ElseIf $puser <> $dbuserName And $ENCPass <> $dbuserPass Then
                                        $dbuserName = Null
                                                                        $dbuserPass = Null
                                                                        $errorNumber += 1
                                        GUICtrlSetData($login_Input2, "")
                                                                        If $errorNumber = 3 Then
                                                                                MsgBox(16,'错误','输入的帐号或密码错误次数过多，将关闭本软体！',$MB_OK)
                                                                                Exit
                                                                        Else
                                                                                MsgBox(48,'错误','输入的帐号或密码错误！请重新再试一次。',$MB_OK)
                                                                        EndIf
                                                                ElseIf $puser = $dbuserName And $ENCPass = $dbuserPass Then
                                        $dbuserName = Null
                                                                        $dbuserPass = Null
                                                                        GUISetState(@SW_HIDE, $Form_login)
                                                                        Return 1
                                Else
                                        $dbuserName = Null
                                                                        $dbuserPass = Null
                                                                        $errorNumber += 1
                                        GUICtrlSetData($login_Input2, "")
                                                                        If $errorNumber = 3 Then
                                                                                MsgBox(16,'错误','输入的帐号或密码错误次数过多，将关闭本软体！',$MB_OK)
                                                                                Exit
                                                                        Else
                                                                                MsgBox(48,'错误','输入的帐号或密码错误！请重新再试一次。',$MB_OK)
                                                                        EndIf
                                EndIf
                EndSwitch
        WEnd
EndFunc   ;==>_login


Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam);<<<<<<<<<+++LISTVIEW
        ;;右键菜单
        Local $hWndFrom, $iCode, $tNMHDR, $hWndListView1,$hWndListView2, $SelectedID, $hWndTab
        $hWndListView1 = $ListView1
        If Not IsHWnd($ListView1) Then $hWndListView1 = GUICtrlGetHandle($ListView1)

        #forceref $hWnd, $iMsg, $iwParam
        Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
        $hWndListView = $ListView1
        If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

        $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
        $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
        $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
        $iCode = DllStructGetData($tNMHDR, "Code")
        Switch $hWndFrom
                Case $hWndListView
                Switch $iCode
                ;;双击判断，感谢 "漠北雪~狼"
                Case $NM_CLICK ; 左击
                                ;;
                Case $NM_DBLCLK ; 双击
                                $Index = _GUICtrlListView_GetSelectedIndices($ListView1)
                                If Not StringLen($Index) Then; 这里用以判断是否选定了ListViewItem
                                ;;MsgBox(0, "", "未选定")
                                Return
                                EndIf
                                _runL2()
                Case $NM_RCLICK ; 右击
                                If _GUICtrlListView_GetSelectedIndices($hWndListView1) = "" Then
                            _GUICtrlMenu_SetItemDisabled($Menu1, 1)
                            _GUICtrlMenu_SetItemDisabled($Menu1, 2)
                    Else
                            _GUICtrlMenu_SetItemEnabled($Menu1, 1)
                            _GUICtrlMenu_SetItemEnabled($Menu1, 2)
                    EndIf
                                $SelectedID = _GUICtrlMenu_TrackPopupMenu($Menu1, $hWndListView1, -1, -1, 1, 1, 2)
                    If $SelectedID = $MenuAdd Then;;新增
                                        If GUICtrlRead($Button9) = '开启编辑窗>' Then
                                                sAdditem()
                                                If GUICtrlRead($Principal) = '' Then Return
                                        EndIf
                                        Button2Click()
                    EndIf
                    If $SelectedID = $MenuEdit Then;;编辑
                                        If GUICtrlRead($Button9) = '开启编辑窗>' Then
                                                sAdditem()
                                        EndIf
                                        $Strn=GUICtrlRead(GUICtrlRead($ListView1))
                                        $Strnspin=StringSplit($Strn,"|")
                                        $EID = $Strnspin[1]
                                        dataup();;复製资料到编辑框
                    EndIf
                    If $SelectedID = $MenuDel Then;;删除
                                        Button11Click()
                    EndIf
        Case $LVN_HOTTRACK ;;滑鼠经过事件
                $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
                Local $HotItem = _GUICtrlListView_GetHotItem($ListView1) ;;列
                If  $HotItem <>-1 Then
                        $SubItem=DllStructGetData($tInfo, "SubItem")
                                                If $SubItem = 3 Then
                                                        ToolTip(_GUICtrlListView_GetItemText ($ListView1,$HotItem,$SubItem))
                                                        $MouseNotInListView = 0
                                                Else
                                                        If $MouseNotInListView = 0 Then ToolTip("")
                                                        $MouseNotInListView = 1
                                                EndIf
                Else
                                                If $MouseNotInListView = 0 Then ToolTip("")
                                                $MouseNotInListView = 1
                EndIf
            Case $NM_DBLCLK
                    If _GUICtrlListView_GetSelectedIndices($hWndListView1) <> "" Then MsgBox(0,"","您点击了编辑")
            Case $LVN_COLUMNCLICK ; A column was clicked
                            $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
                            _DebugPrint("$LVN_COLUMNCLICK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->Item:" & @TAB & DllStructGetData($tInfo, "Item") & @LF & _
                                    "-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
                                    "-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
                                    "-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
                                    "-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
                                    "-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
                                    "-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
                                    "-->Param:" & @TAB & DllStructGetData($tInfo, "Param"))
                            _GUICtrlListView_SimpleSort($hWndListView, $B_DESCENDING, DllStructGetData($tInfo, "SubItem"))
                            ; No return value
            Case $LVN_KEYDOWN ; A key has been pressed
                            $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
                            _DebugPrint("$LVN_KEYDOWN" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->VKey:" & @TAB & DllStructGetData($tInfo, "VKey") & @LF & _
                                    "-->Flags:" & @TAB & DllStructGetData($tInfo, "Flags"))
                            ; No return value
            Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
                            $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                            _DebugPrint("$NM_CLICK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
                                    "-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
                                    "-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
                                    "-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
                                    "-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
                                    "-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
                                    "-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
                                    "-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
                                    "-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
                            ; No return value
            Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
                            $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                            _DebugPrint("$NM_DBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
                                    "-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
                                    "-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
                                    "-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
                                    "-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
                                    "-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
                                    "-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
                                    "-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
                                    "-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
                            ; No return value
            Case $NM_KILLFOCUS ; The control has lost the input focus
                            _DebugPrint("$NM_KILLFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode)
                            ; No return value
            Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
                            $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                            _DebugPrint("$NM_RCLICK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
                                    "-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
                                    "-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
                                    "-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
                                    "-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
                                    "-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
                                    "-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
                                    "-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
                                    "-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
                            ;Return 1 ; not to allow the default processing
                             Return 0 ; allow the default processing
            Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
                            $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                            _DebugPrint("$NM_RDBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode & @LF & _
                                    "-->Index:" & @TAB & DllStructGetData($tInfo, "Index") & @LF & _
                                    "-->SubItem:" & @TAB & DllStructGetData($tInfo, "SubItem") & @LF & _
                                    "-->NewState:" & @TAB & DllStructGetData($tInfo, "NewState") & @LF & _
                                    "-->OldState:" & @TAB & DllStructGetData($tInfo, "OldState") & @LF & _
                                    "-->Changed:" & @TAB & DllStructGetData($tInfo, "Changed") & @LF & _
                                    "-->ActionX:" & @TAB & DllStructGetData($tInfo, "ActionX") & @LF & _
                                    "-->ActionY:" & @TAB & DllStructGetData($tInfo, "ActionY") & @LF & _
                                    "-->lParam:" & @TAB & DllStructGetData($tInfo, "lParam") & @LF & _
                                    "-->KeyFlags:" & @TAB & DllStructGetData($tInfo, "KeyFlags"))
                            ; No return value
            Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
                            _DebugPrint("$NM_RETURN" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode)
                            ; No return value
            Case $NM_SETFOCUS ; The control has received the input focus
                            _DebugPrint("$NM_SETFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                                    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                                    "-->Code:" & @TAB & $iCode)
                            ; No return value
            EndSwitch
        EndSwitch
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY


Func _DebugPrint($s_text, $line = @ScriptLineNumber)
ConsoleWrite( _
    "!===========================================================" & @LF & _
    "+======================================================" & @LF & _
    "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
    "+======================================================" & @LF)
EndFunc   ;==>_DebugPrint


;;----------Start 程式下方的资讯列所用涵式，出自作者：钟隐（mysql查询） ----------
Func CreateSystemMenuItem($hWin, $sText, $hMenu = -1, $bIsPopup = False, $nPos = 0xFFFFFFFF); 0xFFFFFFFF means "insert at the end"
    If $hMenu = -1 Then $hMenu = GetSystemMenu($hWin, 0)
    Local $nID = GUICtrlCreateDummy()
    Local $nFlags = 0
    If $sText = "" Then
        $nFlags = $MF_SEPARATOR
    ElseIf $bIsPopup Then
        $nID = CreatePopupMenu()
        $nFlags = $MF_POPUP
    EndIf
    $nFlags = BitOR($MF_BYPOSITION, $nFlags)
    $nResult = InsertMenu($hMenu, $nPos, $nFlags, $nID, $sText)
    Return $nID
EndFunc   ;==>CreateSystemMenuItem

Func RemoveMenu($hWin, $SYSCOMMAND)
        $dSysMenu = DllCall("User32.dll", "hwnd", "GetSystemMenu", "hwnd", $hWin, "int", 0)
        $hSysMenu = $dSysMenu[0]
        DllCall("User32.dll", "int", "RemoveMenu", "hwnd", $hSysMenu, "int", $SYSCOMMAND, "int", 0)
        DllCall("User32.dll", "int", "DrawMenuBar", "hwnd", $hWin)
EndFunc

Func CreatePopupMenu()
    Local $hMenu = DllCall("user32.dll", "hwnd", "CreatePopupMenu")
    Return $hMenu[0]
EndFunc   ;==>CreatePopupMenu

Func CheckMenuItem($hMenu, $nID, $nFlags)
    DllCall("user32.dll", "int", "CheckMenuItem", _
            "hwnd", $hMenu, _
            "int", $nID, _
            "int", $nFlags)
EndFunc   ;==>CheckMenuItem

Func GetSystemMenu($hWnd, $bRevert)
    Local $hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", _
            "hwnd", $hWnd, _
            "int", $bRevert)
    Return $hMenu[0]
EndFunc   ;==>GetSystemMenu

Func InsertMenu($hMenu, $nPosition, $nFlags, $nIDNewItem, $lpNewItem)
    Local $nResult = DllCall("user32.dll", "int", "InsertMenu", _
            "hwnd", $hMenu, _
            "int", $nPosition, _
            "int", $nFlags, _
            "int", $nIDNewItem, _
            "str", $lpNewItem)
    Return $nResult[0]
EndFunc   ;==>InsertMenu


Func _newuseLogin()
        ;登录窗体
        Local $Form_newuseLogin = GUICreate("密码设定", 470, 260,-1, -1)
                GUISetBkColor(0xFFF0F5)
        GUICtrlCreateLabel('密码预设为空，建议设定密码，以保护资料安全', 20, 35, 430, 25, $SS_CENTER)
                GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
                GUICtrlSetFont(-1,$fontsize+1,$font_xing,$font_var,$font_name)
                GUICtrlSetColor(-1,0x1260FF)
                GUICtrlCreateLabel('新用户密码：',40,95,115,25)
                $NewPassword = GUICtrlCreateInput('',155,88,250,25,$ES_PASSWORD)
                If $FirstUse = 1 Then GUICtrlSetState($NewPassword,$GUI_FOCUS) ;;预设光标所在位置
                ;;GUICtrlSetBkColor(-1,0x00FFFFF5)
                GUICtrlCreateLabel('确认用户密码：',40,140,115,25)
                $ConfirmPasswordAgain = GUICtrlCreateInput('',155,133,250,25,$ES_PASSWORD)
                ;;GUICtrlSetBkColor(-1,0x00FFFFF5)
                $login_ok = GUICtrlCreateButton('设定新密码',185,190,100,30,$BS_DEFPUSHBUTTON)
                GUICtrlCreateGroup('',-99,-99,1,1)
                GUICtrlCreateLabel("", 0, 0, 470, 280, 0x04000000, 0x00100000)
        GUISetState(@SW_SHOW, $Form_newuseLogin)

        Local $nMsg
                While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                                                                GUIDelete($Form_newuseLogin)
                                                                Return 1
                        Case $login_ok
                                                                _Password()
                                                                GUIDelete($Form_newuseLogin)
                                                                Return 1
                EndSwitch
        WEnd
EndFunc


Func _cPass()
        If BitAND(WinGetState($cPass_gui, ""), 2) And IsHWnd($cPass_gui) Then
                GUIDelete($cPass_gui)
                Return 0
        EndIf
        $XY=WinGetPos($Form1) ;;取得Form1大小
        If BitAND(WinGetState($Form1), 2) Then
                $size = WinGetPos($Form1)
                $cPass_gui = GUICreate("密码设定", 470, 260, ($XY[2]-470)/2, ($XY[3]-260)/5, -1, 0x00000040 + 0x00000010 + 0x00000080, $Form1)
                GUISetBkColor(0xFFF0F5)
                        GUISetFont($fontsize,$font_xing,$font_var,$font_name) ;;全局字型
        Else
                $cPass_gui = GUICreate("密码设定", 470, 260, ($XY[2]-470)/2, ($XY[3]-260)/5, -1, 0x00000040 + 0x00000010 + 0x00000080)
                        GUISetBkColor(0xFFF0F5)
                        GUISetFont($fontsize,$font_xing,$font_var,$font_name) ;;全局字型
        EndIf
        GUISetOnEvent(-3, "main")

        GUICtrlCreateGroup('密码设定',20,20,430,200)
        GUICtrlCreateLabel('旧用户密码：',40,50,125,25)
        $OldPassword = GUICtrlCreateInput('',180,48,250,25,$ES_PASSWORD)
        GUICtrlSetState(-1,$GUI_FOCUS) ;;预设光标所在位置
        ;;GUICtrlSetBkColor(-1,0x00FFFFF5)
        If $FirstUse = 1 Then GUICtrlSetState($OldPassword,@SW_DISABLE)
        GUICtrlCreateLabel('新用户密码：',40,90,125,25)
        $NewPassword = GUICtrlCreateInput('',180,88,250,25,$ES_PASSWORD)
        If $FirstUse = 1 Then GUICtrlSetState($NewPassword,$GUI_FOCUS) ;;预设光标所在位置
        ;;GUICtrlSetBkColor(-1,0x00FFFFF5)
        GUICtrlCreateLabel('确认用户密码：',40,130,125,25)
        $ConfirmPasswordAgain = GUICtrlCreateInput('',180,128,250,25,$ES_PASSWORD)
        ;;GUICtrlSetBkColor(-1,0x00FFFFF5)
        GUICtrlCreateButton('变更密码',40,170,100,30,$BS_DEFPUSHBUTTON)
        GUICtrlSetOnEvent(-1,'_Password')
        GUICtrlCreateGroup('',-99,-99,1,1)
        GUICtrlCreateLabel("", 0, 0, 470, 280, 0x04000000, 0x00100000)
        GUISetState(@SW_SHOWNOACTIVATE, $cPass_gui)
EndFunc


Func about();关于窗口
        If BitAND(WinGetState($About_gui, ""), 2) And IsHWnd($About_gui) Then
                GUIDelete($About_gui)
                Return 0
        EndIf
                $XY=WinGetPos($Form1) ;;取得Form1大小
        If BitAND(WinGetState($Form1), 2) Then
                $size = WinGetPos($Form1)
                $About_gui = GUICreate("关于 "&$Title & ' v' & $ver, 670, 220, ($XY[2]-670)/2, ($XY[3]-220)/5, -1, 0x00000040 + 0x00000010 + 0x00000080, $Form1)
                                GUISetFont($fontsize,$font_xing,$font_var,$font_name) ;;全局字型
                                GUISetBkColor(0xFFF0F5)
        Else
                $About_gui = GUICreate("关于 "&$Title & ' v' & $ver, 670, 220, ($XY[2]-670)/2, ($XY[3]-220)/5, -1, 0x00000040 + 0x00000010 + 0x00000080)
                                GUISetFont($fontsize,$font_xing,$font_var,$font_name) ;;全局字型
                                GUISetBkColor(0xFFF0F5)
        EndIf
        GUISetOnEvent(-3, "main")

                Global $guitext6 = GUICtrlCreateLabel("软体名称："&$Title, 160, 50, 390, 30)
                GUICtrlSetFont(-1, 16, 600)
                GUICtrlSetColor(-1, 0x800080)
                Global $guitext7 = GUICtrlCreateLabel("作者："&$Author, 160, 90, 390, 20)
                GUICtrlSetFont(-1, 10, 300)
                GUICtrlSetColor(-1, 0xFF00FF)
                Global $guitext8 = GUICtrlCreateLabel("版本：" & $ver, 160, 110, 390, 20)
                GUICtrlSetFont(-1, 10, 300)
                GUICtrlSetColor(-1, 0x808080)
                GUICtrlCreateLabel($Copyright, 160, 130, 505, 20)
                GUICtrlSetFont(-1, 10, 300)
                GUICtrlSetColor(-1, 0x808080)
        GUISetState(@SW_SHOWNOACTIVATE, $About_gui)
EndFunc   ;==>about

Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    $nID = BitAND($wParam, 0x0000FFFF)
    Switch $nID
        Case $nItem1
            about()
    EndSwitch
EndFunc   ;==>WM_SYSCOMMAND

Func main()
        Switch @GUI_CtrlId
                Case -3
                        Switch @GUI_WinHandle
                                Case $about_gui
                                        GUIDelete($about_gui)
                                Case $cPass_gui
                                        GUIDelete($cPass_gui)
                        EndSwitch
        EndSwitch
EndFunc
;;----------End 程式下方的资讯列所用涵式，出自作者：钟隐（mysql查询） ----------


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                            Input浮水说明文字                            |
;;| 作者：钟隐（mysql查询）                                                 |
;;| 网址：                                                                 |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Func _CheckInput($hWnd, $ID, $InputDefText, ByRef $DefaultInputData, ByRef $Mark)
        If $Mark = 0 And _IsFocused($hWnd, $ID) And $DefaultInputData = $InputDefText Then
                $Mark = 1
                GUICtrlSetData($ID, "")
                GUICtrlSetColor($ID, 0x000000)
                $DefaultInputData = ""
        ElseIf $Mark = 1 And Not _IsFocused($hWnd, $ID) And $DefaultInputData = "" And GUICtrlRead($ID) = "" Then
                $Mark = 0
                $DefaultInputData = $InputDefText
                GUICtrlSetData($ID, $DefaultInputData)
                GUICtrlSetColor($ID, $NONEAACTIVECOLOR)
        EndIf
EndFunc   ;==>_CheckInput

Func _IsFocused($hWnd, $nCID)
        Return ControlGetHandle($hWnd, '', $nCID) = ControlGetHandle($hWnd, '', ControlGetFocus($hWnd))
EndFunc   ;==>_IsFocused


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                          使用API将窗体保持最前                          |
;;| 作者：健啖客WTohrV                                                      |
;;| 网址：http://www.manew.com/blog-166183-23254.html                      |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Func _SetWindowPos($hWnd,$x,$y,$cX,$cY,$hWndInsertAfter = -1,$wFlags = 1)
;使用API将窗体保持最前 x,y -->>座标 $hWndInsertAfter >> Z位置、深度（3D）
        DllCall("user32.dll","long","SetWindowPos","long",$hWnd,"long",$hWndInsertAfter,"long",$x,"long",$y,"long",$cX,"long",$cY,"long",$wFlags)
EndFunc;==>_SetWindowPos


;;Yashied
;;https://www.autoitscript.com/forum/topic/97365-how-to-convert-a-hicon-to-a-32-bit-hbitmap/?do=findComment&comment=700670
Func _CreateBitmapFromIcon($iBackground, $sIcon, $iIndex, $iWidth, $iHeight)

    Local $hDC, $hBackDC, $hBackSv, $hIcon, $hBitmap

    $hDC = _WinAPI_GetDC(0)
    $hBackDC = _WinAPI_CreateCompatibleDC($hDC)
    $hBitmap = _WinAPI_CreateSolidBitmap(0, $iBackground, $iWidth, $iHeight)
    $hBackSv = _WinAPI_SelectObject($hBackDC, $hBitmap)
    $hIcon = _WinAPI_PrivateExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)
    If Not @error Then
        _WinAPI_DrawIconEx($hBackDC, 0, 0, $hIcon, 0, 0, 0, 0, $DI_NORMAL)
        _WinAPI_DestroyIcon($hIcon)
    EndIf
    _WinAPI_SelectObject($hBackDC, $hBackSv)
    _WinAPI_ReleaseDC(0, $hDC)
    _WinAPI_DeleteDC($hBackDC)
    Return $hBitmap
EndFunc   ;==>_CreateBitmapFromIcon

Func _WinAPI_PrivateExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)

    Local $hIcon, $tIcon = DllStructCreate('hwnd'), $tID = DllStructCreate('hwnd')
    Local $Ret = DllCall('user32.dll', 'int', 'PrivateExtractIcons', 'str', $sIcon, 'int', $iIndex, 'int', $iWidth, 'int', $iHeight, 'ptr', DllStructGetPtr($tIcon), 'ptr', DllStructGetPtr($tID), 'int', 1, 'int', 0)

    If (@error) Or ($Ret[0] = 0) Then
        Return SetError(1, 0, 0)
    EndIf
    $hIcon = DllStructGetData($tIcon, 1)
    If ($hIcon = Ptr(0)) Or (Not IsPtr($hIcon)) Then
        Return SetError(1, 0, 0)
    EndIf
    Return $hIcon
EndFunc   ;==>_WinAPI_PrivateExtractIcon


Func SaveCurrentWorkerTable();;汇出当前资料（感谢autoit3.cn上的chzj589大大）
        MsgBox(0,0,'汇出')
EndFunc

Func ImportWorkerTable();;汇入资料
        MsgBox(0,0,'汇入')
EndFunc


;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;;|                               API视窗置顶                               |
;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Func _Topping()
        If GUICtrlRead($menu2item1) = 65 Then ;;65 = 选中置顶，ini裡的1 = 启用置顶，0则否
                _SetWindowPos($Form1,-1,-1,-1,-1,$HWND_TOPMOST,$SWP_NOMOVE+$SWP_NOSIZE);;置顶
        EndIf
        If GUICtrlRead($menu2item1) = 68 Then ;;68 = 未选中
                _SetWindowPos($Form1,-1,-1,-1,-1,$HWND_NOTOPMOST,$SWP_NOMOVE+$SWP_NOSIZE);;取消置顶
        EndIf
EndFunc

redapple2008

好长的代码，支持一下。

zch11230

#AutoIt3Wrapper_UseX64=n
需要禁用64位模式

ak47gglllk

学习一下，感谢。感谢。

左手2018

w60711 发表于 2019-5-28 01:16
我Win10
可以使用mdb的 建立 新增 修改 查询(范围列出) 删除
代码很乱，因为是临时修改手上的一份code ...

你的office是什么版本的. 我的office是2016的64位版. 我现在感觉很大的问题是access本身是64位

左手2018

左手2018 发表于 2019-5-28 11:22
你的office是什么版本的. 我的office是2016的64位版. 我现在感觉很大的问题是access本身是64位

不用装office吗?  access不是在office套件里吗???

w60711

左手2018 发表于 2019-5-28 12:23
不用装office吗?  access不是在office套件里吗???

Access是Office的套件没错
但是此范例（使用adox）并不需要安装Access
即可直接操作*.mdb

左手2018

w60711 发表于 2019-5-28 12:54
Access是Office的套件没错
但是此范例（使用adox）并不需要安装Access
即可直接操作*.mdb

但是,有一个弹出框告诉我没有access的权限. 我为此昨天还特地重装了整个office

w60711

左手2018 发表于 2019-5-28 13:00
但是,有一个弹出框告诉我没有access的权限. 我为此昨天还特地重装了整个office

你是用這個代碼嗎？
如果有錯誤訊息麻煩截個圖片
我在Win7 虛擬機上執行（Admin帳戶）
並沒有遇到此情形...

左手2018

w60711 发表于 2019-5-28 13:07
你是用這個代碼嗎？
如果有錯誤訊息麻煩截個圖片
我在Win7 虛擬機上執行（Admin帳戶）

是不是先在win7上配置好access的odbc?

左手2018

左手2018 发表于 2019-5-28 13:19
是不是先在win7上配置好access的odbc?

好像也不对啊, 我看配置odbc的话要针对某一个access文件

w60711

左手2018 发表于 2019-5-28 13:22
好像也不对啊, 我看配置odbc的话要针对某一个access文件

我只有全新安装好
装个AU3、SoftMaker FreeOffice 2018
就没有动其他的了

你先试一下我给的附件吧...
看有甚麽提示讯息还是错误情况再来说
隔空抓药也不是办法...

左手2018

w60711 发表于 2019-5-28 13:30
我只有全新安装好
装个AU3、SoftMaker FreeOffice 2018
就没有动其他的了

你的示范au3成功了!!!!

我知道是怎么回事了.   office里的access软件只是一个数据器管理软件(也就是sql查询器). 确实装不装是无所谓的