[总算解决了]日期框可以实现可选和手动输入两种输入方式吗?(带源码)

superpangya · 发表于 2010-4-6 19:14:56

本帖最后由 superpangya 于 2010-4-12 13:59 编辑

1.日期框的扩展风格里有这种功能吗?
2.我下面的这个功能怎么实现?

虽然有点太难看了.但想实现这个功能,或者有更简单的办法?

我的输入框名称都是变量,这个比较麻烦.搞得头大了.

修改后的代码上传到#22,大家帮忙看看,CASE那里用不用再修改..

superpangya · 发表于 2010-4-7 08:14:43

大家帮帮忙...

C.L · 发表于 2010-4-7 08:17:23

不知道你要这个来做什么，你要添加数据时，写入的是那个？

netegg · 发表于 2010-4-7 08:38:32

楼主要干什么，没说明白呀

superpangya · 发表于 2010-4-7 08:41:05

原来做的那个,做查询的时候日期项一直存在,我的本意只是想让这一项在必要的时候可以为空而已, 但是想想,软件做得太简单了,还是做得更好一点吧.
所以现在的想法是,这个日期框可以为空,然后自己手动输入,或者可以利用日期控件选择输入... 上面的那个输入,日期,和按钮的组合是我的初步构想(简单的笨办法),问题是,我的输入框,日期框都是变量,这个功能要实现就复杂了(至少我不会),在 while.... case button 那里的代码应该怎么写?

或者说,日期控件本身允许为空么? 就是实现手动输入?

C.L · 发表于 2010-4-7 08:57:15

你那个输入的按钮是做什么用的？取代下面的添加数据按钮吗
或者你的意思是说，按下这个输入按钮后，希望日期框变这空，不希望里面有数据？

superpangya · 发表于 2010-4-7 09:17:34

日期和输入控件搭配,
第一种情况是我对日期控件的操作结果会实时显示在输入框中,
第二种情况是,只有我按下输入按钮,日期控件的日期才会在输入框中显示,(不知道我说明白没有?), 我要这种.

superpangya · 发表于 2010-4-7 09:30:01

#include <GUIConstants.au3>
Global $input,$date,$Button0

GUICreate ( "我的 GUI 之日期控件", 500,200,200,200)
$input = GUICtrlCreateInput("", 10, 10, 90, 20)
$date = GUICtrlCreateDate ("", 100,10,120,20 )
$Button0 = GUICtrlCreateButton("输入", 220, 10,30, 20, 0)
GUISetState ()




While 1
        

        

        $nMsg = GUIGetMsg()

        Switch $nMsg

                Case $GUI_EVENT_CLOSE

                        GUIDelete()


                Case $Button0 ;输入
                                        GUICtrlSetData($input,GUICtrlRead($date))
                        EndSwitch
WEnd

就是要这种效果

superpangya · 发表于 2010-4-7 09:36:57

$ninput[$i]输入框
$data[$i]日期控件
$button[$i] 按钮
这三个都是根据表的字段(datatime)产生的,是个变量,要实现上面的功能,这个在while case那里应该怎么写?

或者有什么简单的办法能实现上面的功能?

C.L · 发表于 2010-4-7 09:44:13

帮你改了一下，你看看是不是你要的效果

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListView.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
Global $databutton,$DataTemp
Global $nLabel[11] ;定义Label数量
Global $ninput[11] ;定义input数量
Global $data[11] ;定义input数量
Global $button[11] ;定义input数量
Global $tabmain = "tabmain"
Global $Dll, $name_1, $pass_1, $qq_1, $w, $arr, $tblname,$e = 0,$T = "*",$mdb_data_path = "BB.mdb",$mdb_data_pwd = "",$linshi,$z,$a="",$b,$k,$j
                        
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("***XXXX报备系统***", 800, 600, 100, 50)
;查看是否有皮肤
If FileExists("SkinCrafterDll.dll") Then
        $search = FileFindFirstFile("*.skf")
        If $search <> -1 Then
                _SkinGUI("SkinCrafterDll.dll", "BlackPearl.skf", $Form1);Crimson.skf,DarkRed.skf,Stylish.skf,strait.skf
        EndIf
EndIf
GUICtrlCreateGroup("", 5, 0, 790, 325)
$ListView0 = GUICtrlCreateListView("ID |   表名   ", 10, 15, 142, 300)
$ListView1 = GUICtrlCreateListView("  |     |     |     |     |     |     |     |     |     |", 155, 15, 635, 300)  ;返回控件标识符(控件ID). 
GUICtrlCreateGroup("", 5, 325, 790, 265)
GUICtrlCreateGroup("1、创建数据库", 5, 335, 260, 50)
GUICtrlCreateGroup("2、创建表及字段", 5, 390, 260, 190)
GUICtrlCreateGroup("3、添加、修改、删除数据", 270, 335, 525, 245)
$Button0 = GUICtrlCreateButton("创建数据库", 35, 355, 200, 25, 0)
$Button5 = GUICtrlCreateButton("添加数据", 280, 550, 100, 25, 0)
$Button2 = GUICtrlCreateButton("修改数据", 400, 550, 100, 25, 0)
$Button3 = GUICtrlCreateButton("删除数据", 520, 550, 100, 25, 0)
$Button7 = GUICtrlCreateButton("查询", 640, 550, 100, 25, 0)
$Button8 = GUICtrlCreateButton("临时", 640, 520, 100, 25, 0)
GUICtrlCreateLabel("输入表名：", 10, 410, 100, 20)
$tblname_1 = GUICtrlCreateInput("", 110, 410, 150, 20)
GUICtrlCreateLabel("输入字段及类型：", 10, 440, 100, 20)
$zdnameandtype_1 = GUICtrlCreateInput("", 10, 465, 250, 80,$ES_MULTILINE)
$Tips = GUICtrlCreateLabel("例如：name char,age int", 110, 440, 150, 20)
GUICtrlSetState($Tips, $GUI_DISABLE)
$Button6 = GUICtrlCreateButton("创建表及定段", 35, 550, 200, 25, 0)
If FileExists($mdb_data_path) Then
        read_tabmain()
EndIf
;AdlibEnable("sendmsg",50)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")  ;为已知的Windows 消息代码(WM_MSG)注册一个用户自定义的函数
Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
        Local $tagNMHDR, $Event, $hWndFrom, $IDFrom
        Local $tagNMHDR = DllStructCreate("int;int;int", $LParam)
        If @error Then Return $GUI_RUNDEFMSG
        $IDFrom = DllStructGetData($tagNMHDR, 2)  ;返回数据结构(struct)元素的数据
        $Event = DllStructGetData($tagNMHDR, 3)
        $tagNMHDR = 0
        Switch $IDFrom;选择产生事件的控件
                Case $ListView1
                        Switch $Event; 选择产生的事件
                                Case $NM_CLICK ; 左击
                                Case $NM_DBLCLK ; 双击
                                        $Strn = GUICtrlRead(GUICtrlRead($ListView1))  ;列表视图数据
                                                        
                                        $Strnspin = StringSplit($Strn, "|")  ;以指定分隔符把字符串拆分成若干子串
                                        If $Strnspin[1] > 0 Then
                                                                
                                                                                        For $i = 0 To $w-1
                                                                                                GUICtrlSetData($ninput[$i], StringStripWS($Strnspin[$i+2], 2))
                                                                                        Next
                                                ;GUICtrlSetData($ninput[0], StringStripWS($Strnspin[2], 2))  ;StringStripWS()删去字符串中的"空白符". 
                                                ;GUICtrlSetData($ninput[1], StringStripWS($Strnspin[3], 2))
                                                ;GUICtrlSetData($ninput[2], StringStripWS($Strnspin[4], 2))
                                                ;GUICtrlSetData($ninput[3], StringStripWS($Strnspin[5], 2))
                                                ;GUICtrlSetData($ninput[4], StringStripWS($Strnspin[6], 2))
                                                ;GUICtrlSetData($ninput[5], StringStripWS($Strnspin[7], 2))
                                                ;GUICtrlSetData($ninput[6], StringStripWS($Strnspin[8], 2))
                                                ;GUICtrlSetData($ninput[7], StringStripWS($Strnspin[9], 2))
                                                ;GUICtrlSetData($ninput[8], StringStripWS($Strnspin[10], 2))
                                                ;GUICtrlSetData($ninput[9], StringStripWS($Strnspin[11], 2))
                                                                                Else 
                                                                                        MsgBox(0, "提示", "请选择相应的数据！")
                                        EndIf
                                Case $NM_RCLICK ; 右击
                                                                        MsgBox(0, "注意", "那个人比较懒，还没有建立右键！")
                        EndSwitch
                Case $ListView0
                        Switch $Event; 选择产生的事件
                                Case $NM_CLICK ; 左击
                              
                                        $Strn = GUICtrlRead(GUICtrlRead($ListView0))
                                                                
                                        $Strnspin = StringSplit($Strn, "|")
                                                                                
                                                                                
                                        If $Strnspin[1] > 0 Then
                                                $tabname = $Strnspin[2]
                                                du($tabname)
                                                If $e = 0 Then
                                                        adds($w, $arr)
                                                        $e = $w
                                                Else
                                                        dels($e)
                                                        adds($w, $arr)
                                                        $e = $w
                                                EndIf
                                        EndIf
                                                                Case $NM_DBLCLK ; 双击
                                Case $NM_RCLICK ; 右击
                                                                        MsgBox(0, "嘿嘿", "NO右键！")
                        EndSwitch
        EndSwitch
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY
Func sendmsg()
        $Strn = GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin = StringSplit($Strn, "|")
        If $Strnspin[1] > 0 Then
                GUICtrlSetData($name_1, StringStripWS($Strnspin[2], 2))
                GUICtrlSetData($pass_1, StringStripWS($Strnspin[3], 2))
                GUICtrlSetData($qq_1, StringStripWS($Strnspin[4], 2))
        EndIf
EndFunc   ;==>sendmsg
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        
        Dim $tabname
        $Strn = GUICtrlRead(GUICtrlRead($ListView0))
        $Strnspin = StringSplit($Strn, "|")
        If $Strnspin[1] > 0 Then
                $tabname = $Strnspin[2]
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Quit()
                Case $Button0 ;创建数据库
                        data($mdb_data_path, $tabmain)
                Case $Button5;添加数据
                        If $Strnspin[1] > 0 Then
                                sx($tabname)
                                du($tabname)
                        Else
                                MsgBox(0, "提示", "请输入相应的数据！")
                        EndIf
                Case $Button2 ;更新，修改
                        If $Strnspin[1] > 0 Then
                                up($tabname)
                                du($tabname)
                        Else
                                MsgBox(0, "提示", "请选择要更新的数据！")
                        EndIf
                Case $Button3 ;删除
                        If $Strnspin[1] > 0 Then
                                del($tabname)
                                du($tabname)
                        Else
                                MsgBox(0, "提示", "请选择要删除的数据！")
                        EndIf
                Case $Button6 ;创建表及字段
                        $tblname = GUICtrlRead($tblname_1) ;读取输入的表名
                        $zdnameandtype = GUICtrlRead($zdnameandtype_1) ;读取输入的字段
                        If $tblname <> "" Then
                                If $zdnameandtype <> "" Then
                                        newtable($mdb_data_path, $tblname, $zdnameandtype)
                                        read_tabmain()
                                Else
                                        MsgBox(0, "提示", "请输入要创建表的字段及类型！")
                                EndIf
                        Else
                                MsgBox(0, "提示", "请输入要创建表的名称！")
                        EndIf
                                Case $Button7                                        
                                                chaxun()
                                ;Case $button[$a]
                                                ;GUICtrlSetData($ninput[$a],GUICtrlRead($data[$a]))
                                Case $databutton
                                                GUICtrlSetData ($ninput[$datatemp],GUICtrlRead ($data[$datatemp]))                                                
        EndSwitch
WEnd
Func chaxun()
        Dim $v ,$h =''
        For $v = 0 To $w-1
                
           $h = $h& GUICtrlRead($ninput[$v])
   Next 
     MsgBox(0, "提示", $h)
                If  Not $h = "" Then        
                        GUICtrlDelete($ListView1)
                        Dim $k, $m,$s ='',$c
             For $c = 0 To $w-1
                $y = StringSplit($arr[$c+1], " ")
                $k = $k & $y[1] & ","                                
                                $s =$s & $y[1] & "|"
                                If Not GUICtrlRead($ninput[$c]) = "" Then
                 $m = $m &$y[1]&"='"& GUICtrlRead($ninput[$c]) & "' and "
                                 EndIf                         
             Next                         
                         ;$ListView1 = GUICtrlCreateListView("序号|车次", 200, 88, 409, 313)                         
                         ;GUICtrlCreateListView("  |     |     |     |     |     |     |     |     |     |", 155, 15, 635, 300)
                        $ListView1 = GUICtrlCreateListView("id|"&$s&"|     |     |     |     |", 155, 15, 635, 300)                        
                        $s=""
                        GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)                                                
                        $conn = ObjCreate("ADODB.Connection")
                        $RS = ObjCreate("ADODB.Recordset")
                        $conn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                        $RS.ActiveConnection = $conn                        
                        ;$RS.open("select * from 设备档案 where 设备编号='" & GUICtrlRead($Input2) & "'")
                        MsgBox(0, "提示", StringTrimRight($m, 4))
                        ;$RS.open("select * from 设备维护 where '& StringTrimRight($m, 4) & ' ")
                        MsgBox(0, "提示", $tabname)
                        $RS.open("Select " & $T & " From "& $tabname &"  where "& StringTrimRight($m, 4) )
                        ;$RS.open("select * from 约会 where 时间='20100330000000'  ")
                        ;$RS.open("select * from 设备档案 where " & GUICtrlRead($Input2) & "='" & GUICtrlRead($Input1) & "'")
                        ;$RS.open("select * from 设备档案 where 设备编号='B001' And 使用部门='ABC' ")
                        ;$RS.open("select * from 1 where 1='1'  ")
                        ;$RS.Open("Select " & $T & " From " & $tabmain & " where name = '" & $tabname & "'")
                        $i = 0                        
                        While (Not $RS.eof And Not $RS.bof)
                                Dim $o='',$p
                                For $p = 1 To $w
                                ;$o=$o&$RS.Fields($p).value&"|"                                
                                $o=$o&StringStripWS($RS.Fields($p).value, 2)&"|"
                                Next
                                ;$data = $RS.Fields(0).value
                                ;GUICtrlCreateListViewItem($i + 1 & "|" & $data, $ListView1)
                                GUICtrlCreateListViewItem($i + 1 & "|" & $o, $ListView1)
                                $RS.movenext
                                $i = $i + 1                                
                        WEnd
                        ;$linshi = $o
                        If $i = 0 Then
                                MsgBox(0, "提示", "没有找到相关数据")
                                ;GUICtrlSetData($Label7, "没有找相关到数据")
                        EndIf
                        $RS.close
                        $conn.close
                        $ischeci = 1
                    ;GUICtrlSetData($Label7, "共找到" & $i & "个和 " & GUICtrlRead($Input1) & " 相关的记录,点击车次可查看详细信息，双击查看该车次过站情况")
                Else
                        MsgBox(0, "提示", "请输入查询内容")
                EndIf
EndFunc
Func du_table($tblname)
        GUICtrlSendMsg($ListView0, $LVM_DELETEALLITEMS, 0, 0)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select " & $T & " From " & $tblname)
        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(3).value, $ListView1)
                ; MsgBox(0, "", $RS.Fields (1).value);显示表第一个数据
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close
EndFunc   ;==>du_table
Func adds($w, $arr) ;建立Label(数量)
        For $i = 0 To $w - 1
                        ;$a = $i 
                $y = StringSplit($arr[$i + 1], " ") ;以指定分隔符把字符串拆分成若干子串,返回一个数组,第一个元素($array[0])保存拆分后子串的数量,其余元素($array[1],$array[2] 等等)则保存着拆分后的每个字符串
                                $linshi =StringRight($arr[$i + 1],8)
                                If $linshi = 'datetime' Then                                         
                                        Local $DTM_SETFORMAT_, $style
                                        $ninput[$i]=GUICtrlCreateInput("", 340, 355 + 20 * $i, 250, 20)
                                                    $data[$i] = GUICtrlCreateDate ("", 590,355 + 20 * $i,150,20 )
                                                                                $databutton = GUICtrlCreateButton("输入",740,355 + 20 * $i,50,20 )
                                                                                $DataTemp = $i                                                                                

                                        $DTM_SETFORMAT_ = 0x1032        ; $DTM_SETFORMATW
                                        $style = "yyyy/MM/dd HH:mm:ss"
                                        GUICtrlSendMsg($ninput[$i], $DTM_SETFORMAT_, 0, $style)
;~                                 $ninput[$i]=GUICtrlCreateDate("", 340, 355 + 20 * $i, 450, 20)
                            Else
                                $ninput[$i] = GUICtrlCreateInput("", 340, 355 + 20 * $i, 450, 20)
                                EndIf
                $nLabel[$i] = GUICtrlCreateLabel($y[1], 280, 355 + 20 * $i, 60, 20)
        Next
                ;$b = StringSplit($a, ",") ;以指定分隔符把字符串拆分成若干子串
                
EndFunc   ;==>adds
Func dels($w) ;清除Label(数量)
        For $i = 0 To $w - 1
                GUICtrlDelete($nLabel[$i])
                GUICtrlDelete($ninput[$i])
        Next
EndFunc   ;==>dels
Func du($tabname)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select " & $T & " From " & $tabmain & " where name = '" & $tabname & "'")
        $temp = StringStripWS($RS.Fields(2).value, 2) ;删去字符串中的所有"空白符" 1 char,2 char,3 int,4 char
                
        $arr = StringSplit($temp, ",") ;以指定分隔符把字符串拆分成若干子串
        $w = $arr[0]
                
        GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select " & $T & " From " & $tabname)
        Dim $n
                
        While Not $RS.eof And Not $RS.bof
                If @error = 1 Then ExitLoop
                For $i = 0 To $w
                        ;MsgBox(0,"",StringStripWS($RS.Fields ($i).value,2))
                        $n = $n & StringStripWS($RS.Fields($i).value, 2) & "|"
                Next
                ;MsgBox(0,"",StringTrimRight ($n, 1))
                                
                                
                GUICtrlCreateListViewItem(StringTrimRight($n, 1), $ListView1)
                $RS.movenext
                $n = ""
        WEnd
        $RS.close
        $addfld.Close
        Dim $strs = "ID|"
        For $x = 1 To $w
                $y = StringSplit($arr[$x], " ")
                $strs = $strs & $y[1] & "|"
        Next
                
        GUICtrlSetData($ListView1, "  |     |     |     |     |     |     |     |     |     |")
        GUICtrlSetData($ListView1, $strs)
EndFunc   ;==>du
Func del($tabname)
        $Strn = GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin = StringSplit($Strn, "|")
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $sQuery = "DELETE FROM " & $tabname & " IN '" & $mdb_data_path & "' WHERE id" & " = " & $Strnspin[1]
        ; MsgBox(0,"",$sQuery)
        $addfld.execute($sQuery)
        $addfld.close
        MsgBox(4096, "提示:", $Strnspin[1] & "    删除成功!!!")
EndFunc   ;==>del
Func up($tabname)
        $Strn = GUICtrlRead(GUICtrlRead($ListView1))
        $Strnspin = StringSplit($Strn, "|")
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select " & $T & " From " & $tabmain & " where name = '" & $tabname & "'")
        $temp = StringStripWS($RS.Fields(2).value, 2)
        $arr = StringSplit($temp, ",")
        $w = $arr[0]
        Dim $h
        For $i = 1 To $w
                $arrs = StringSplit($arr[$i], " ")
                $h = $h & $arrs[1] & " = '" & GUICtrlRead($ninput[$i - 1]) & "',"
        Next
        $sQuery = "update " & $tabname & " set " & StringTrimRight($h, 2) & "' WHERE id" & " = " & $Strnspin[1]
        ;MsgBox(0,"",$sQuery)
        $addfld.execute($sQuery)
        $addfld.close
        MsgBox(4096, "提示:", $Strnspin[1] & "    更新成功!!!")
EndFunc   ;==>up
Func sx($tabname)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select " & $T & " From " & $tabmain & " where name = '" & $tabname & "'")
        $temp = StringStripWS($RS.Fields(2).value, 2)
        $arr = StringSplit($temp, ",")
        $w = $arr[0]
        Dim $k, $m
        For $i = 1 To $w
                $y = StringSplit($arr[$i], " ")
                $k = $k & $y[1] & ","
                $m = $m & GUICtrlRead($ninput[$i - 1]) & "','"
                                ;If Not GUICtrlRead($ninput[$i-1]) = "" Then
                 ;$m = $m & GUICtrlRead($ninput[$i - 1]) & "','"
                                ;EndIf 
        Next
                ;MsgBox(0,"",$k)
                ;MsgBox(0,"",$m)
        ;MsgBox(0,"","insert into "& $tabname &"  ("& StringTrimRight ( $k,1) &") values('"& StringTrimRight ( $m,3) &"')")
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
        $addfld.Execute("insert into " & $tabname & "  (" & StringTrimRight($k, 1) & ") values('" & StringTrimRight($m, 3) & "')")
        $addfld.close
        MsgBox(4096, "提示:", " 成功写入数据库！")
EndFunc   ;==>sx
Func read_tabmain()
        GUICtrlSendMsg($ListView0, $LVM_DELETEALLITEMS, 0, 0) ;向指定控件发送消息
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select * from tabmain")
        While Not $RS.eof And Not $RS.bof
                If @error = 1 Then ExitLoop
                GUICtrlCreateListViewItem($RS.Fields(0).value & "|" & StringStripWS($RS.Fields(1).value, 2), $ListView0)
                ; MsgBox(0, "", $RS.Fields (1).value);显示表第一个数据
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close
EndFunc   ;==>read_tabmain
Func data($mdb_data_path, $tabmain)
        If Not FileExists($mdb_data_path) Then
                $newMdb = ObjCreate("ADOX.Catalog")
                $newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                $newMdb.ActiveConnection.Close;建数据库
                $addtbl = ObjCreate("ADODB.Connection")
                $addtbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                $addtbl.Execute("CREATE TABLE " & $tabmain)
                $addtbl.Close;建表
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                $addfld.Execute("ALTER TABLE " & $tabmain & " ADD id identity(1, 1) primary key,name char,zdnameandtype char");id identity(1, 1) primary key为自动编号和主键
                $addfld.Close;建列表名
                MsgBox(64, "提示", "建立数据库成功", 5)
        Else
                MsgBox(64, "提示", "你已经建立了一个数据库了", 5)
        EndIf
EndFunc   ;==>data
Func newtable($mdb_data_path, $tblname, $zdnameandtype)
        $addtbl = ObjCreate("ADODB.Connection")
        $addtbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
        ;添加表之前查一下是否表明存在
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addtbl
        $RS.Open("select * from tabmain where name = '" & $tblname & "'")
        If Not $RS.eof And Not $RS.bof Then
                MsgBox(0, "提示", "新建失败，改表明已存在！")
        Else
                $addtbl.Execute("CREATE TABLE " & $tblname)
                $addtbl.Close;建表
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                $addfld.Execute("ALTER TABLE " & $tblname & " ADD id identity(1, 1) primary key," & $zdnameandtype) ;id identity(1, 1) primary key为自动编号和主键
                $addfld.Close;建列表名
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
                $addfld.Execute("insert into tabmain (name,zdnameandtype) values('" & $tblname & "','" & $zdnameandtype & "')")
                $addfld.close;新建的表放到该表中
        EndIf
EndFunc   ;==>newtable
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
        $Dll = DllOpen($SkincrafterDll)
        DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
        DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
        DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
        DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
        DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc   ;==>_SkinGUI
Func Quit()
        GUISetState(@SW_HIDE)
        DllCall($Dll, "int:cdecl", "DeInitDecoration")
        DllCall($Dll, "int:cdecl", "RemoveSkin")
        DllClose($Dll)
        ;DirRemove(@AppDataDir&"\skin",1)
        Exit
EndFunc   ;==>Quit

superpangya · 发表于 2010-4-7 09:49:08

如果一个表中有两个或更多的日期字段,这个功能就不能实现, $DataTemp = $i , $DataTemp应该是几个值.....

C.L · 发表于 2010-4-7 10:03:56

你的这个日期输入框，是按照数据库类型是否返回有Datetime字段来确定是否建立的，如果有多个日期的字段，具体出现什么情况还真不好说

superpangya · 发表于 2010-4-7 10:18:27

本帖最后由 superpangya 于 2010-4-7 10:21 编辑

If $linshi = 'datetime' Then............

这样的话,只有最后一个输入,日期,按钮的组合能起作用,前面的都无效...

我想加一个
$a=$a&$i
$b = StringSplit($a, ",")
在IF里面,
数组$b就是所有字段为datetime的值, 比如,第3\7两项为日期字段,如果这样的话,以后怎么写?

C.L · 发表于 2010-4-7 11:08:24

本帖最后由 C.L 于 2010-4-7 11:16 编辑

If $linshi = 'datetime' Then............

这样的话,只有最后一个输入,日期,按钮的组合能起作用,前面的 ...
superpangya 发表于 2010-4-7 10:18

不是，我想应该是每一个"Datetime"都会建立一组控件,只是控件会重叠起来,使用的时候,可能会出现莫名其妙的事情

我想加一个
$a=$a&$i
$b = StringSplit($a, ",")
在IF里面,
数组$b就是所有字段为datetime的值, 比如,第3\7两项为日期字段,如果这样的话,以后怎么写?

我想你需要记录Datetime字段的总数,然后按照总数增加日期的控件,每一个字段都应该对应相应的控件吧.还要记录每个控件相对的$i值,以便可以操作控件.
或者干脆日期控件不要变量名,用实名来控制.

superpangya · 发表于 2010-4-7 11:26:25

本帖最后由 superpangya 于 2010-4-7 11:28 编辑

If $linshi = 'datetime' Then 


                       $ninput[$i]=GUICtrlCreateInput("", 340, 355 + 20 * $i, 250, 20)
                         $data[$i] = GUICtrlCreateDate ("", 590,355 + 20 * $i,150,20 )
                          $button[$i] = GUICtrlCreateButton("输入",740,355 + 20 * $i,50,20 )
                                            $a=$a&$i
                                              ..........................
endif
$b = StringSplit($a, ",")

$b[0]-1 就是datetime 字段的数量, $b[1],$b[2].....就是对应的$i的值,
我是这么想的,这个有办法继续往下写吗,最主要是CASE那里,
(因为好多表,每个表里时间字段数量位置不同,所以,输入框,日期,按钮,这几个一定是在变的,实名的话,应该不成吧.)

		自动登录	找回密码
密码			加入

[AU3基础] [总算解决了]日期框可以实现可选和手动输入两种输入方式吗?(带源码)

本帖子中包含更多资源

评分