|
|
本帖最后由 oceanwind 于 2014-1-6 07:48 编辑
如图,表中字段"单位"有两个"55"的记录.
但是搜索时只显了一个出来(如只有一个,就显示不出来)
#include <SQLite.au3>
#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <GUIComboBox.au3>
#Include <GuiTab.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <DateTimeConstants.au3>
#include <GDIPlus.au3>
#include <Date.au3>
#include <WinAPI.au3>
#include <Misc.au3>
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Opt('MustDeclareVars', 1);必须声明变量
Opt("GUICloseOnESC", 0);取消esc退出
Opt("TrayOnEventMode", 1);托盘事件模式
Opt("TrayMenuMode", 1 + 2);托盘菜单点击方式
Global $sqlite_dll = @ScriptDir & "\lib\sqlite3.dll"
Global $data_base_file = @ScriptDir & "\Db\hnfilesys.db"
Global $hDb
Global $sTitle = "hn文件管理",$main_Form,$ListView1
Global $sn_input,$project_input,$department_input
Global $query_button,$export_button,$read_button,$add_button,$revise_button,$del_button
Global $clear_screen_button
Local $B_DESCENDING
Global $mainfunc_msg
_Initdata()
;;;;;;;;;;;;;;;;;;;
$main_Form = GUICreate($sTitle, 600,400,100, 60,BitOR($WS_MINIMIZEBOX,$WS_MAXIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU,$WS_SIZEBOX))
$ListView1 = GUICtrlCreateListView("", 0, 0, 600, 300,BitOR($LVS_SORTDESCENDING, $LVS_REPORT),BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT ));扩展样式需与SQLite查询格式升降一致
Local $Label4,$Label5,$Label6,$Label7,$Label8,$Label9,$Label10,$Label11,$Label12,$Label13,$Label14,$Label15,$department_label
$Label4=GUICtrlCreateLabel("sn",12,304,25,17)
$Label5=GUICtrlCreateLabel("项目",40,304,43,17)
$Label6=GUICtrlCreateLabel("单位",100,304,43,17)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
_GUICtrlListView_AddColumn ($ListView1,"sn",30)
_GUICtrlListView_AddColumn ($ListView1,"项目",60)
_GUICtrlListView_AddColumn ($ListView1,"单位",60)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$sn_input = GUICtrlCreateInput("", 4, 330, 25.5, 20)
$project_input = GUICtrlCreateInput("", 30.5, 330, 59.5, 20)
$department_input = GUICtrlCreateInput("", 90.5,330, 59.5, 20)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$query_button = GUICtrlCreateButton("搜 索",4, 355, 60, 30)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$del_button = GUICtrlCreateButton("删 除", 70, 355, 60, 30)
$add_button = GUICtrlCreateButton("新 增", 138, 355, 60, 30)
$read_button = GUICtrlCreateButton("读 取", 210, 355, 60, 30)
$revise_button = GUICtrlCreateButton("修 改", 280, 355, 60, 30)
$clear_screen_button = GUICtrlCreateButton("清 屏",350, 355, 60, 30)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUISetState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
$mainfunc_msg = GUIGetMsg()
_deal_gen_msg($mainfunc_msg)
WEnd
Func _Initdata()
_SQLite_Startup($sqlite_dll)
If @error Then Exit (MsgBox(16, "SQLite Error", "SQLite3.dll Can't be Loaded!"))
$hDb = _SQLite_Open($data_base_file)
If @error Then Exit (MsgBox(16, "SQLite Error", "Can't Load Database!"))
;_SQLite_Exec($hDb, "DROP TABLE T_hn_file;")
If Not FileExists($data_base_file) Or FileGetSize($data_base_file) = 0 Then
_SQLite_Exec($hDb, "CREATE TABLE IF NOT EXISTS Test_table (F_id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, F_project NVARCHAR(30), F_department NVARCHAR(30));")
EndIf
EndFunc ;==>_Initdata
Func _deal_gen_msg($mainfunc_msg)
Switch $mainfunc_msg
Case -3
_SQLite_Open($data_base_file)
_SQLite_Shutdown()
Exit
Case $read_button
_SQLiteRead_all()
Case $query_button
_SQLite_Select()
Case $del_button
Local $temp_sn = _SQLiteDelete()
_SQLiteRead_all()
Case $add_button
_SQLiteInsert()
_SQLiteRead_all()
Case $revise_button
_SQLite_update()
_SQLiteRead_all()
Case $clear_screen_button
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
EndSwitch
EndFunc
Func _SQLiteRead_all()
Local $temp_hQuery, $temp_aRow
_GUICtrlListView_DeleteAllItems ( GUICtrlGetHandle($ListView1) )
_SQLite_Query(-1, "SELECT * FROM Test_table ORDER BY F_id ASC limit 200;",$temp_hQuery)
Local $temp_si,$temp_sqlstr
While _SQLite_FetchData ($temp_hQuery, $temp_aRow) = $SQLITE_OK
For $temp_si = 0 To 2
$temp_sqlstr &= $temp_aRow[$temp_si] &"|"
Next
$temp_sqlstr = StringTrimRight($temp_sqlstr,1)
GUICtrlCreateListViewItem ($temp_sqlstr,$ListView1)
$temp_sqlstr = ""
WEnd
EndFunc
Func _SQLiteInsert()
Local $xiangmu = StringStripWS(GUICtrlRead($project_input), 3),$danwei = StringStripWS(GUICtrlRead($department_input), 3)
Local $insert_str_temp = "Insert into Test_table (F_project,F_department) values ('" & $xiangmu & "' ,'" & $danwei & "');"
_SQLite_Exec(-1, $insert_str_temp)
EndFunc
Func _SQLite_Select()
Local $temp_hQuery, $temp_aRow
Local $hn_searchstr_temp = StringStripWS(GUICtrlRead($department_input), 3)
Local $temp_si,$temp_sqlstr
_SQLite_Query(-1, "SELECT * FROM Test_table where F_department LIKE '" & "%" & $hn_searchstr_temp & "%" & "';",$temp_hQuery)
Local $Temp_received = False
While _SQLite_FetchData ($temp_hQuery, $temp_aRow) = $SQLITE_OK
$Temp_received = True
ExitLoop
WEnd
If $Temp_received = False Then
MsgBox(262208, "查询不到...", " [" & $hn_searchstr_temp & "] 的记录！",5)
Else
_GUICtrlListView_DeleteAllItems (GUICtrlGetHandle($ListView1))
While _SQLite_FetchData ($temp_hQuery, $temp_aRow) = $SQLITE_OK
For $temp_si = 0 To 2
$temp_sqlstr &= $temp_aRow[$temp_si] &"|"
Next
$temp_sqlstr = StringTrimRight($temp_sqlstr,1)
GUICtrlCreateListViewItem ($temp_sqlstr,$ListView1)
$temp_sqlstr = ""
WEnd
EndIf
EndFunc
Func _SQLite_update()
Local $sn = StringStripWS(GUICtrlRead($sn_input), 3), _
$xiangmu = StringStripWS(GUICtrlRead($project_input), 3), _
$danwei = StringStripWS(GUICtrlRead($department_input), 3)
Local $temp_sSql = "UPDATE Test_table SET F_project = '" & $xiangmu & "', F_department = '" & $danwei & "' WHERE F_id = " & $sn & ";"
_SQLite_Exec(-1, $temp_sSql)
EndFunc ;==>_KehuInfoEdit
Func _SQLiteDelete()
Local $sn = StringStripWS(GUICtrlRead($sn_input), 3)
_SQLite_Exec(-1, "DELETE FROM Test_table WHERE F_id = '" & $sn & "';")
Return $sn
EndFunc
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2014-1-5 20:16:55
发表于 2014-1-5 21:11:28
