qiziyun7410 发表于 2012-12-30 11:09:03

关于(文字写入后 保存 修改)的问题,请各位帮个忙看看!我不知道要怎么下手了!

本帖最后由 qiziyun7410 于 2012-12-30 12:24 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Global $Label1, $Label2, $Label3, $Label4
Global $caput_text = False, $Title, $Name0, $Name1, $Name2
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("信息备份", 901, 701, (@DesktopWidth - 258) / 2, @DesktopHeight - 118)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 10, 17, 530, 320, BitOR($ES_AUTOVSCROLL, $WS_HSCROLL, $WS_VSCROLL), _
                BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "")
GUICtrlSetOnEvent(-1, "Edit1Change")
$Input1 = GUICtrlCreateInput("姓 名", 8, 368, 170, 21)
$Input2 = GUICtrlCreateInput("联系方式", 192, 368, 185, 21)

$Label1 = GUICtrlCreateLabel("备份总表", 13, 2, 518, 15, $SS_CENTER)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("邮编:", 392, 372, 31, 17)
GUICtrlCreateLabel("邮编:", 392, 406, 31, 17)
$Input3 = GUICtrlCreateInput("555555", 424, 368, 50, 21)
$Input4 = GUICtrlCreateInput("666666", 424, 402, 50, 21)
;**** 新+文本框 ****姓 名
$Input5 = GUICtrlCreateInput("姓 名", 8, 400, 170, 21)
$Input6 = GUICtrlCreateInput("联系方式", 192, 401, 185, 21)
$Input7 = GUICtrlCreateInput("姓 名", 8, 430, 170, 21)
$Input8 = GUICtrlCreateInput("联系方式", 192, 434, 185, 21)
$Input9 = GUICtrlCreateInput("姓 名", 8, 464, 170, 21)
$Input10 = GUICtrlCreateInput("联系方式", 192, 466, 185, 21)
$Input11 = GUICtrlCreateInput("姓 名", 8, 496, 170, 21)
$Input12 = GUICtrlCreateInput("联系方式", 192, 497, 185, 21)
$Input13 = GUICtrlCreateInput("姓 名", 8, 527, 170, 21)
$Input14 = GUICtrlCreateInput("联系方式", 192, 529, 185, 21)
;**** 新+文本框 ****
$Button1 = GUICtrlCreateButton("保 存", 488, 371, 50, 20)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("清 除", 488, 400, 50, 20)
GUICtrlSetOnEvent(-1, "Button2Click")
;**** 新+按钮 ****
$Button3 = GUICtrlCreateButton("写 入", 488, 430, 50, 20)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("写 入", 488, 459, 50, 20)
GUICtrlSetOnEvent(-1, "Button4Click")
$Button5 = GUICtrlCreateButton("写 入", 488, 488, 50, 20)
GUICtrlSetOnEvent(-1, "Button5Click")
$Button6 = GUICtrlCreateButton("写 入", 488, 518, 50, 20)
GUICtrlSetOnEvent(-1, "Button6Click")
$Button7 = GUICtrlCreateButton("写 入", 488, 547, 50, 20)
GUICtrlSetOnEvent(-1, "Button7Click")
$Button8 = GUICtrlCreateButton("写 入", 488, 576, 50, 20)
GUICtrlSetOnEvent(-1, "Button8Click")
$Button9 = GUICtrlCreateButton("写 入", 488, 605, 50, 20)
GUICtrlSetOnEvent(-1, "Button9Click")
$Button10 = GUICtrlCreateButton("写 入", 488, 635, 50, 20)
GUICtrlSetOnEvent(-1, "Button10Click")
$Button11 = GUICtrlCreateButton("写 入", 488, 664, 50, 20)
GUICtrlSetOnEvent(-1, "Button11Click")
;**** 新+按钮 ****
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      Sleep(100)
WEnd

Func Edit1Change()

EndFunc   ;==>Edit1Change
Func Form1Close()
      Exit
EndFunc   ;==>Form1Close
Func Button1Click() ; 保存+显示到备份总表
      If $caput_text = False Then _caput_text()
      $Title = GUICtrlRead($Input1);读取第一个姓名输入框里的类容
      $Name0 = GUICtrlRead($Input2);读取第一个联系方式输入框里的类容
      # 读取 $Button1 按钮文本, 确定后续操作
      Local $GetText = ControlGetText("信息备份", "", $Button1)
      If $GetText = '保 存' Then
                $X = GUICtrlRead($Input3)
                $Y = GUICtrlRead($Input4)
                _enquiry_Ok();转到 调试询问
        ElseIf $GetText = '未点中' Then
                _enquiry_Nay();转到 调试询问
        ElseIf $GetText = '没有了' Then
                WinClose("信息备份");关闭向导窗口
        EndIf
EndFunc   

Func Button2Click() ;
        # 读取 $Button2 按钮文本, 确定后续操作
        Local $GetText02 = ControlGetText("信息备份", "", $Button2)
        If $GetText02 = '清 除' Then

        ElseIf $GetText02 = '全 写 入' Then
                $yszb = GUICtrlRead($Input5)
                $sz = GUICtrlRead($Input6)
                $tpqy = GUICtrlRead($Input7)
                $tp = GUICtrlRead($Input8)
                $xra = GUICtrlRead($Input9)
                $xrb = GUICtrlRead($Input10)
                $xrc = GUICtrlRead($Input11)
                $xrd= GUICtrlRead($Input12)
                $xre= GUICtrlRead($Input13)
                $xrf= GUICtrlRead($Input14)
                _GUICtrlEdit_AppendText($Edit1, '姓 名(' & $yszb & ')联系方式(' & $sz & ')' & @CRLF);写入主窗编辑框
                _GUICtrlEdit_AppendText($Edit1, '姓 名(' & $tpqy & ')联系方式(' & $tp & ')' & @CRLF);写入主窗编辑框
                _GUICtrlEdit_AppendText($Edit1, '姓 名(' & $xra & ')联系方式(' & $xrb & ')' & @CRLF);写入主窗编辑框
                _GUICtrlEdit_AppendText($Edit1, '姓 名(' & $xrc & ')联系方式(' & $xrd & ')' & @CRLF);写入主窗编辑框
                _GUICtrlEdit_AppendText($Edit1, '姓 名(' & $xre & ')联系方式(' & $xrf & ')' & @CRLF);写入主窗编辑框
        EndIf
EndFunc   ;==>Button2Click
Func Button3Click() ; 输入代码



EndFunc   ;==>Button3Click
Func Button4Click() ; 输入代码



EndFunc   ;==>Button4Click
Func Button5Click() ; 输入代码



EndFunc   ;==>Button5Click
Func Button6Click() ; 输入代码



EndFunc   ;==>Button6Click
Func Button7Click() ; 输入代码



EndFunc   ;==>Button7Click
Func Button8Click() ; 输入代码



EndFunc   ;==>Button8Click
Func Button9Click() ; 输入代码



EndFunc   ;==>Button9Click
Func Button10Click() ; 输入代码



EndFunc   ;==>Button10Click
Func Button11Click() ; 输入代码



EndFunc   ;==>Button11Click


Func _enquiry_Ok() ;按钮文本 = 调试 的调试询问
        # 修改 '保 存' 按钮文本
        ControlSetText("信息备份", "", $Button1, "写 入")
        # 显示 '确认' 按钮
        GUICtrlSetState($Button2, $GUI_SHOW)
        ControlSetText("信息备份", "", $Button2, "全 写 入")
EndFunc   ;==>_enquiry_Ok
Func _enquiry_Nay() ;按钮文本 = 没有 的调试询问
        # 修改 '清 除' 按钮文本
        ControlSetText("信息备份", "", $Button1, "保 存")
        # 显示 $Button2 按钮
        GUICtrlSetState($Button2, $GUI_HIDE)
EndFunc   ;==>_enquiry_Nay

Func _caput_text()
        $Title = GUICtrlRead($Input1);读取窗口标题
        $Name0 = GUICtrlRead($Input2);读取控件 ID
        $caput_text = True
        ;Button1Click()
EndFunc   现在的问题是!填写在输入框内一点保存按钮就全保存了!!不可以正对性的修改!比如(姓名1)和(联系方式1)(姓名2)和(联系方式2)填写完毕以后,点 保存就全保存了,但是我想修改)(姓名2)和(联系方式2)的信息就修改了了!!我想填写进入以后点击右边的单个写入按钮又在把(姓名2)和(联系方式2)修改成另一个信息,也就是删除这个2的!替换成其他信息,不知道这要怎么来写呢!麻烦各位帮忙一些咯!谢谢了!!!

annybaby 发表于 2012-12-30 11:26:59

回复 1# qiziyun7410


建议整理下你的代码,让它先可以运行
刚刚F5了一下,一大堆没有声明的乱八九糟的变量~~不想看

qiziyun7410 发表于 2012-12-30 12:25:06

好了我添加完了!!可以运行了!!!麻烦你咯annybaby

qiziyun7410 发表于 2012-12-30 12:27:40

回复 2# annybaby


    我是想把那几个按钮全用上!一个按钮负责一添加每一行里的姓名和联系方式!需要修改的话只用修改框里的信息!然后点按钮就可以替换原来信息!

魔导 发表于 2012-12-30 17:48:35

代码很长   很像小弟
不过小弟曾得过   A大指点   使用FOR   和INI读写
基本可以实现楼主的需求

魔导 发表于 2012-12-30 17:52:04

忘记了,应该详细一些:
http://www.autoitx.com/thread-33544-1-1.html    FOR   按钮或您的输入

INI   :(您应该使用过的)帮助文档收一下INI就好了

annybaby 发表于 2012-12-30 18:11:43

回复 4# qiziyun7410


    在另外一个帖子已经回复你了~~
看看如何~

qiziyun7410 发表于 2012-12-30 19:58:10

嗯谢谢我过去看看!!!!!!!

xms77 发表于 2012-12-31 12:13:52

回复 1# qiziyun7410
像这个可以用数据库形式的比较好操作

3mile 发表于 2013-1-1 21:51:11

EDIT控件换成LISTVIEW
下面那么多INPUT控件不如换成COMBOBOX控件,既方便读写,也避免代码臃肿

3mile 发表于 2013-1-1 21:56:36

刚到源码区去看了下,楼主发出来的源码不少啊。
如果楼主能把自己发出的源码都老老实实的啃一遍,以上的问题自己都可以解决掉了。

shqf 发表于 2013-1-1 22:50:53

楼主搞的程序好像一个通讯录啊。之前我写过一个XML通讯录的程序,数据不多的话还是蛮合适你的,可参考一下。http://www.autoitx.com/forum.php?mod=viewthread&tid=32558&highlight=%2B%2Bshqf

qiziyun7410 发表于 2013-1-3 00:24:52

回复 10# 3mile


    COMBOBOX控件 我要怎么写才能达到你说的效果呢?3MILE你祝我一臂之力啊!

haijie1223 发表于 2013-1-3 07:29:04

回复 13# qiziyun7410


    大家都“祝”你一臂之力。呵呵,去搜索帮助啊,这基本控件帮助里面都找得到。

qiziyun7410 发表于 2013-1-3 22:40:33

啊哦!!搜了!改了整了!!技术有限就等你们帮我扩展一下了!!!
页: [1]
查看完整版本: 关于(文字写入后 保存 修改)的问题,请各位帮个忙看看!我不知道要怎么下手了!