关于(文字写入后 保存 修改)的问题,请各位帮个忙看看!我不知道要怎么下手了!
本帖最后由 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的!替换成其他信息,不知道这要怎么来写呢!麻烦各位帮忙一些咯!谢谢了!!! 回复 1# qiziyun7410
建议整理下你的代码,让它先可以运行
刚刚F5了一下,一大堆没有声明的乱八九糟的变量~~不想看 好了我添加完了!!可以运行了!!!麻烦你咯annybaby 回复 2# annybaby
我是想把那几个按钮全用上!一个按钮负责一添加每一行里的姓名和联系方式!需要修改的话只用修改框里的信息!然后点按钮就可以替换原来信息! 代码很长 很像小弟
不过小弟曾得过 A大指点 使用FOR 和INI读写
基本可以实现楼主的需求 忘记了,应该详细一些:
http://www.autoitx.com/thread-33544-1-1.html FOR 按钮或您的输入
INI :(您应该使用过的)帮助文档收一下INI就好了 回复 4# qiziyun7410
在另外一个帖子已经回复你了~~
看看如何~ 嗯谢谢我过去看看!!!!!!! 回复 1# qiziyun7410
像这个可以用数据库形式的比较好操作 EDIT控件换成LISTVIEW
下面那么多INPUT控件不如换成COMBOBOX控件,既方便读写,也避免代码臃肿 刚到源码区去看了下,楼主发出来的源码不少啊。
如果楼主能把自己发出的源码都老老实实的啃一遍,以上的问题自己都可以解决掉了。 楼主搞的程序好像一个通讯录啊。之前我写过一个XML通讯录的程序,数据不多的话还是蛮合适你的,可参考一下。http://www.autoitx.com/forum.php?mod=viewthread&tid=32558&highlight=%2B%2Bshqf 回复 10# 3mile
COMBOBOX控件 我要怎么写才能达到你说的效果呢?3MILE你祝我一臂之力啊! 回复 13# qiziyun7410
大家都“祝”你一臂之力。呵呵,去搜索帮助啊,这基本控件帮助里面都找得到。 啊哦!!搜了!改了整了!!技术有限就等你们帮我扩展一下了!!!
页:
[1]