找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 麻烦大家给我完善一下
返回列表 发新帖
查看: 1667|回复: 14

麻烦大家给我完善一下

[复制链接]
pizigao
发表于 2009-9-9 09:26:52 | 显示全部楼层 |阅读模式
本帖最后由 pizigao 于 2009-9-9 16:59 编辑

刚学没两天做了这么一个小程序~现在还有两个需求搞不定！请大家指教
1、如果把从数据库字段里面取过来的1或者0赋值成中文？比如取过来的数据是0，前台显示未申报，1的话就是已申报，目前我实现的直接取过来的字段，不知道如何赋值加判断。

2、如果没有申报状态提示一下，加个判断，现在是没提示直接报错。

3、如果把申报日期从数据库日期的字段全部取过来，做成下拉列表！

请大家帮帮忙

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
pizigao
 楼主| 发表于 2009-9-9 09:34:47 | 显示全部楼层
源码如下

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$datename= @ScriptDir & "\data.mdb"
$datepass="GSDKDJV1200Jdls2008"
#Region ### START Koda GUI section ### Form=20090908.kxf
$Form1_1 = GUICreate("申报标志修改工具 FOR1.2", 291, 160, 343, 258)
$Label1 = GUICtrlCreateLabel("申报日期：", 21, 18, 64, 17)
$Label3 = GUICtrlCreateLabel("日期格式：YYYYMM；如：200908", 21, 124, 241, 17)
$Label5 = GUICtrlCreateLabel("状态说明：0 未申报；1 已申报 ", 21, 140, 241, 17)
$sbrq=GUICtrlCreateInput("200908", 97, 15, 105, 21,$ES_NUMBER)
GUICtrlSetLimit(-1, 6)
$Button1 = GUICtrlCreateButton("查询", 225, 13, 43, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 225, 95, 43, 25, 0)
$xgzt=GUICtrlCreateInput("", 97, 97, 105, 21,$ES_NUMBER)
GUICtrlSetLimit(-1, 1)
$Label4 = GUICtrlCreateLabel("修改状态：", 21, 100, 64, 17)
$sbzt=GUICtrlCreateInput("", 97, 56, 105, 21,$ES_NUMBER)
GUICtrlSetLimit(-1, 10)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("申报状态：", 21, 59, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
            cx()
         case $Button2
            xg()
EndSwitch
WEnd

Func cx()
     Global $sbzt
         $Strn=GUICtrlRead($sbrq)
            $addfld = ObjCreate("ADODB.Connection")
             $RS = ObjCreate("ADODB.Recordset")
            $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
         $RS.ActiveConnection = $addfld
                $jy = "select sbbz from sbzb where sbyf= '" & $Strn & "'"
                  $RS.Open ($jy)
               if $rs.eof and $rs.bof then 
               MsgBox(16,"提示","没有这个申报月份",5)
               GUICtrlSetData ( $sbzt,"")
                ControlFocus ( "", "", $sbzt)
           Else
           GUICtrlSetData ( $sbzt,$RS.Fields (0).value) 
           EndIf
                $rs.close
          $addfld.Close
EndFunc

Func xg()
         $Strn=GUICtrlRead($sbrq)
                        $srbz=GUICtrlRead($xgzt)
            $addfld = ObjCreate("ADODB.Connection")
           $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
                        $sQuery ="update sbzb set sbbz=" &$srbz & " where sbyf= '" & $Strn & "'"
                MsgBox(64, "提示","状态更新成功！")
                                                $addfld.execute($sQuery)
           $addfld.close
   
EndFunc
回复

举报

pizigao
 楼主| 发表于 2009-9-9 09:37:06 | 显示全部楼层
数据库下载地址：
http://pizigao.qupan.com/4544593.html

谢谢大家
回复

举报

大绯狼
发表于 2009-9-9 12:10:33 | 显示全部楼层
[au3]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$datename = @ScriptDir & "\data.mdb"
$datepass = "GSDKDJV1200Jdls2008"
#Region ### START Koda GUI section ### Form=20090908.kxf
$Form1_1 = GUICreate("申报标志修改工具 FOR1.2", 291, 160, 343, 258)
$Label1 = GUICtrlCreateLabel("申报日期：", 21, 18, 64, 17)
$Label3 = GUICtrlCreateLabel("日期格式：YYYYMM；如：200908", 21, 124, 241, 17)
$Label5 = GUICtrlCreateLabel("状态说明：0 未申报；1 已申报 ", 21, 140, 241, 17)
$sbrq = GUICtrlCreateCombo("", 97, 15, 105, 21)
GUICtrlSetLimit(-1, 6)
$Button1 = GUICtrlCreateButton("查询", 225, 13, 43, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 225, 95, 43, 25, 0)
$xgzt = GUICtrlCreateInput("", 97, 97, 105, 21, $ES_NUMBER)
GUICtrlSetLimit(-1, 1)
$Label4 = GUICtrlCreateLabel("修改状态：", 21, 100, 64, 17)
$sbzt = GUICtrlCreateInput("", 97, 56, 105, 21, $ES_NUMBER)
GUICtrlSetLimit(-1, 10)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("申报状态：", 21, 59, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
rq()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        cx()
                Case $Button2
                        xg()
        EndSwitch
WEnd

Func rq()
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbyf from sbzb"
        $RS.Open($jy)
        $data=""
        While  (not $RS.eof and Not $RS.bof)
                $data&=$RS.Fields(0).value&"|"
                $rs.movenext
        WEnd
                $RS.close
        $addfld.Close
$temp=StringSplit($data,"|")
        GUICtrlSetData($sbrq,$data,$temp[1])
EndFunc   ;==>rq

Func cx()
        Global $sbzt
        $Strn = GUICtrlRead($sbrq)
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbbz from sbzb where sbyf= '" & $Strn & "'"
        $RS.Open($jy)
        If $RS.eof And $RS.bof Then
                MsgBox(16, "提示", "没有这个申报月份", 5)
                GUICtrlSetData($sbzt, "")
                ControlFocus("", "", $sbzt)
        Else
                Switch $RS.Fields(0).value
                        Case 0
                                GUICtrlSetData($sbzt, "未申报")
                        Case 1
                                GUICtrlSetData($sbzt, "已申报")
                        Case Else
                                GUICtrlSetData($sbzt, "未知状态")
                EndSwitch
        EndIf
        $RS.close
        $addfld.Close
EndFunc   ;==>cx

Func xg()
        $Strn = GUICtrlRead($sbrq)
        $srbz = GUICtrlRead($xgzt)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $sQuery = "update sbzb set sbbz=" & $srbz & " where sbyf= '" & $Strn & "'"
        MsgBox(64, "提示", "状态更新成功！")
        $addfld.execute($sQuery)
        $addfld.close

EndFunc   ;==>xg[/au3]

评分

参与人数 1金钱 +3 收起 理由
pizigao + 3 谢谢大绯狼~

查看全部评分

回复

举报

pizigao
 楼主| 发表于 2009-9-9 14:59:20 | 显示全部楼层
谢谢大绯狼~
回复

举报

pizigao
 楼主| 发表于 2009-9-9 15:04:11 | 显示全部楼层
再次麻烦一下大绯狼~能否最后一个地方“修改状态”加入一个对话框~就是不填数据的时候提示一下~而不是程序本身报错！
回复

举报

afan
发表于 2009-9-9 15:24:52 | 显示全部楼层 
Func xg()
        If GUICtrlRead($xgzt, 1) <> '' Then
                $Strn = GUICtrlRead($sbrq)
                $srbz = GUICtrlRead($xgzt)
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
                $sQuery = "update sbzb set sbbz=" & $srbz & " where sbyf= '" & $Strn & "'"
                MsgBox(64, "提示", "状态更新成功！")
                $addfld.execute($sQuery)
                $addfld.close
        Else
                MsgBox(48, "提示", "请先输入状态值(0或1) ")
        EndIf
EndFunc   ;==>xg
回复

举报

pizigao
 楼主| 发表于 2009-9-9 15:40:38 | 显示全部楼层
谢谢afan~我试试！
回复

举报

pizigao
 楼主| 发表于 2009-9-9 15:52:45 | 显示全部楼层
本帖最后由 pizigao 于 2009-9-9 16:04 编辑

谢谢各位前辈的不吝赐教~刚才测试发现一个新问题！就是填写的时候其实就是0跟1~但是输入全角会报错~我想通过一种简单的方法~就是通过选择0（未申报）和1（已申报）~不能手工填~再次麻烦大家了！最终效果如下~这样方便些！

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

afan
发表于 2009-9-9 16:07:04 | 显示全部楼层
修改了下，且增加了修改后同步申报状态显示~
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
$datename = @ScriptDir & "\data.mdb"
$datepass = "GSDKDJV1200Jdls2008"
#Region ### START Koda GUI section ### Form=20090908.kxf
$Form1_1 = GUICreate("申报标志修改工具 FOR1.2", 291, 160, 343, 258)
$Label1 = GUICtrlCreateLabel("申报日期：", 21, 18, 64, 17)
$Label3 = GUICtrlCreateLabel("日期格式：YYYYMM；如：200908", 21, 124, 241, 17)
$Label5 = GUICtrlCreateLabel("状态说明：0 未申报；1 已申报 ", 21, 140, 241, 17)
$sbrq = GUICtrlCreateCombo("", 97, 15, 105, 21)
GUICtrlSetLimit(-1, 6)
$Button1 = GUICtrlCreateButton("查询", 225, 13, 43, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 225, 95, 43, 25, 0)
$xgzt = GUICtrlCreateCombo("", 97, 97, 105, 21,$CBS_DROPDOWNLIST)
GUICtrlSetData(-1,"1|0","1")
$Label4 = GUICtrlCreateLabel("修改状态：", 21, 100, 64, 17)
$sbzt = GUICtrlCreateInput("", 97, 56, 105, 21, $ES_NUMBER)
GUICtrlSetLimit(-1, 10)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("申报状态：", 21, 59, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
rq()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        cx()
                Case $Button2
                        xg()
        EndSwitch
WEnd

Func rq()
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbyf from sbzb"
        $RS.Open($jy)
        $data = ""
        While (Not $RS.eof And Not $RS.bof)
                $data &= $RS.Fields(0).value & "|"
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close
        $temp = StringSplit($data, "|")
        GUICtrlSetData($sbrq, $data, $temp[1])
EndFunc   ;==>rq

Func cx()
        Global $sbzt
        $Strn = GUICtrlRead($sbrq)
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbbz from sbzb where sbyf= '" & $Strn & "'"
        $RS.Open($jy)
        If $RS.eof And $RS.bof Then
                MsgBox(16, "提示", "没有这个申报月份", 5)
                GUICtrlSetData($sbzt, "")
                ControlFocus("", "", $sbzt)
        Else
                Switch $RS.Fields(0).value
                        Case 0
                                GUICtrlSetData($sbzt, "未申报")
                        Case 1
                                GUICtrlSetData($sbzt, "已申报")
                        Case Else
                                GUICtrlSetData($sbzt, "未知状态")
                EndSwitch
        EndIf
        $RS.close
        $addfld.Close
EndFunc   ;==>cx

Func xg()
        $Strn = GUICtrlRead($sbrq)
        $srbz = GUICtrlRead($xgzt)
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $sQuery = "update sbzb set sbbz=" & $srbz & " where sbyf= '" & $Strn & "'"
        MsgBox(64, "提示", "状态更新成功！")
        $addfld.execute($sQuery)
        $addfld.close
        cx()
EndFunc   ;==>xg
回复

举报

netegg
发表于 2009-9-9 16:10:47 | 显示全部楼层
GUICtrlCreateRadio
if BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED then
   guictrlsetstate（$radio 2，$GUI_UNCHECKED）
elseif BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED then
    guictrlsetstate（$radio1，$GUI_UNCHECKED）
endif

评分

参与人数 1金钱 +1 收起 理由
pizigao + 1 netegg

查看全部评分

回复

举报

pizigao
 楼主| 发表于 2009-9-9 16:10:47 | 显示全部楼层
实在谢谢afan 大哥了~刚刚我编辑了帖子！没想到你这么快~我现在修改了方案~最终效果9楼的图！那样更直观~实在抱歉
回复

举报

pizigao
 楼主| 发表于 2009-9-9 16:12:28 | 显示全部楼层
同步的功能做的不错~开始没想到！
回复

举报

afan
发表于 2009-9-9 16:26:40 | 显示全部楼层
本帖最后由 afan 于 2009-9-9 16:28 编辑

开始我也想用单选，毕竟只有一次点击。只是看你的要求才改的...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$datename = @ScriptDir & "\data.mdb"
$datepass = "GSDKDJV1200Jdls2008"
#Region ### START Koda GUI section ### Form=20090908.kxf
$Form1_1 = GUICreate("申报标志修改工具 FOR1.2", 291, 160, 343, 258)
$Label1 = GUICtrlCreateLabel("申报日期：", 21, 18, 64, 17)
$Label3 = GUICtrlCreateLabel("日期格式：YYYYMM；如：200908", 21, 124, 241, 17)
$sbrq = GUICtrlCreateCombo("", 97, 15, 105, 21)
GUICtrlSetLimit(-1, 6)
$Button1 = GUICtrlCreateButton("查询", 225, 13, 43, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 225, 95, 43, 25, 0)
$xgzt = GUICtrlCreateRadio ( "已申报", 85, 97, 55, 20)
$xgzt1 = GUICtrlCreateRadio ( "未申报", 150, 97, 55, 20)
GUICtrlSetState (-1,$GUI_CHECKED)
$Label4 = GUICtrlCreateLabel("修改状态：", 21, 100, 64, 17)
$sbzt = GUICtrlCreateInput("", 97, 56, 105, 21, $ES_NUMBER)
GUICtrlSetLimit(-1, 10)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("申报状态：", 21, 59, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
rq()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        cx()
                Case $Button2
                        xg()
        EndSwitch
WEnd

Func rq()
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbyf from sbzb"
        $RS.Open($jy)
        $data = ""
        While (Not $RS.eof And Not $RS.bof)
                $data &= $RS.Fields(0).value & "|"
                $RS.movenext
        WEnd
        $RS.close
        $addfld.Close
        $temp = StringSplit($data, "|")
        GUICtrlSetData($sbrq, $data, $temp[1])
EndFunc   ;==>rq

Func cx()
        Global $sbzt
        $Strn = GUICtrlRead($sbrq)
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $RS.ActiveConnection = $addfld
        $jy = "select sbbz from sbzb where sbyf= '" & $Strn & "'"
        $RS.Open($jy)
        If $RS.eof And $RS.bof Then
                MsgBox(16, "提示", "没有这个申报月份", 5)
                GUICtrlSetData($sbzt, "")
                ControlFocus("", "", $sbzt)
        Else
                Switch $RS.Fields(0).value
                        Case 0
                                GUICtrlSetData($sbzt, "未申报")
                        Case 1
                                GUICtrlSetData($sbzt, "已申报")
                        Case Else
                                GUICtrlSetData($sbzt, "未知状态")
                EndSwitch
        EndIf
        $RS.close
        $addfld.Close
EndFunc   ;==>cx

Func xg()
        $Strn = GUICtrlRead($sbrq)
        $srbz = GUICtrlRead($xgzt)
        if BitAND(GUICtrlRead($xgzt), $GUI_CHECKED) = $GUI_CHECKED then $srbz = 1
        if BitAND(GUICtrlRead($xgzt1), $GUI_CHECKED) = $GUI_CHECKED then $srbz = 0
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datename & ";Jet Oledb:Database Password=" & $datepass)
        $sQuery = "update sbzb set sbbz=" & $srbz & " where sbyf= '" & $Strn & "'"
        MsgBox(64, "提示", "状态更新成功！")
        $addfld.execute($sQuery)
        $addfld.close
        cx()
EndFunc   ;==>xg

评分

参与人数 1金钱 +5 收起 理由
pizigao + 5 谢谢大哥

查看全部评分

回复

举报

pizigao
 楼主| 发表于 2009-9-9 16:42:21 | 显示全部楼层
开始我也想用单选，毕竟只有一次点击。只是看你的要求才改的...#include
#include
#include
#include
#include
$datename = @ScriptDir & "\data.mdb"
$datepass = "GSDKDJV1200Jdls2008"
#Region ### S ...
afan 发表于 2009-9-9 16:26


哦也~就是这样的效果！不过你的那种方式我也保留了！以后我研究其他功能~谢谢afan 大哥！！也谢谢大绯狼大哥~感谢你们的细心指导
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-5 13:28 , Processed in 0.104240 second(s), 26 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表