之前帮朋友写的一款数据库软件，草根堂中介数据查询系统

lpxx · 发表于 2011-3-25 20:35:54

需要的就拿去参考

Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=system\Dreamweaver.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=草根堂教师信息查询系统
#AutoIt3Wrapper_Res_Description=草根堂教师信息查询系统
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=梁伟
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <SQLite.au3>
#include <SQLite.dll.au3>
;#include <acn_skin.au3>
#include <GuiListView.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <Constants.au3>
#include <GuiTreeView.au3>
;#include <_dButton.au3>
#include <Date.au3>

Global $Msg, $hQuery, $aRow, $aRow2, $hQuery2, $Msg2
Opt("GUIOnEventMode", 1)
$g_szVersion = "caogentang_data"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion)
;----------------------------------------------------------创建数据库
$SQLdePath = "data\CGT.db"
$SQLdingdanpath = "data\CGTDD.db"


_SQLite_Startup() ;加载 SQLite.dll

If Not FileExists($SQLdePath) Then
        SQLCreate()
EndIf

If Not FileExists($SQLdingdanpath) Then
        SQLDDHCreate()
EndIf

Local $datadir = @ScriptDir & "\data\data.mdb"
Local $acc_pwd = "supervisor9958123"
Local $lsbl1, $lsbl2, $lsbl3;临时变量
Local $jsbzt, $jsbzidaxiao, $yemian1, $yemian2

Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
#Region ### START Koda GUI section ### Form=f:\au3学习\草根堂教师数据查询系统\form1.kxf
;_USkinInit(@ScriptDir & "\system\DiyGreen.msstyles",@ScriptDir&"\system\USkin.dll")


$destination = @ScriptDir & "\system\LOGO.bmp"
SplashImageOn("", $destination, 500, 250, -1, -1, 1)
Sleep(3000)
SplashOff()
TrayTip("提示:", "欢迎使用草根堂家教信息咨询服务中心教师查询系统", 6, 1)
GUISetIcon(@ScriptDir & "\system\Dreamweaver.ico")
TraySetState()
$Form1 = GUICreate("草根堂家教信息咨询服务中心教师查询系统", 789, 497, @DesktopWidth / 2 - 789 / 2, @DesktopHeight / 2 - 497 / 2 - 50)
$ListView2 = GUICtrlCreateListView("订单编号|客户|教师编号|教师|客户电话|教师电话|时间|备注", 8, 8, 770, 190)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 0, 125)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 2, 85)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 3, 50)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 4, 100)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 5, 100)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 6, 180)
GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 7, 75)
GUICtrlSetOnEvent($ListView2, "MenuEvents")
GUICtrlSetState($ListView2, $GUI_HIDE)


$ListView1 = GUICtrlCreateListView("编号|姓名|身份证号|性别|年龄|学科|任教时间|状态|级别|教龄|联系电话|加盟时间", 8, 8, 770, 190)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 2, 120)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 3, 43)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 4, 43)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 5, 50)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 6, 75)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 7, 43)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 8, 43)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 9, 43)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 10, 85)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 11, 70)
$menu1 = GUICtrlCreateContextMenu($ListView1)
$menu_01 = GUICtrlCreateMenuItem("好评", $menu1)
$menu_02 = GUICtrlCreateMenuItem("差评", $menu1)
$menu_02 = GUICtrlCreateMenuItem("取消", $menu1)
;_GUICtrlListView_SetExtendedListViewStyle($ListView1, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
;$ListView1_0 = GUICtrlCreateListViewItem("001|梁伟|220602198303040973|男|26|计算机|8:00-17:00|忙碌|白金|70|13644392881|2009-5-16", $ListView1)
GUICtrlSetOnEvent(-1, "MenuEvents")
;$ListView1 = GUICtrlCreateListView("订单编号|客户名字|教师编号|教师名字|客户电话|教师电话|时间|备注", 8, 8, 770, 190)

$Group1 = GUICtrlCreateGroup("其他信息", 8, 208, 177, 73)
$Edit1 = GUICtrlCreateEdit("", 16, 224, 161, 49, BitOR($ES_AUTOVSCROLL, $ES_NOHIDESEL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
;GUICtrlSetData(-1, StringFormat("精通AU3，汇编，DELPHI,\r\n熟练操作数据库，为人师,表英俊潇洒，风流倜傥，高大威猛，器宇不凡，独此一家，别无分店！"))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[2] = [150, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "草根堂教师数据查询系统", 0)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & "作者梁伟为您打造第一流的办公软件--LiangWeiStudio--Version1.0            ", 1)
$Group2 = GUICtrlCreateGroup("查询", 8, 352, 177, 89)
GUICtrlSetTip(-1, "请输入查询内容")
$Input5 = GUICtrlCreateInput("", 17, 403, 97, 21)
$Button3 = GUICtrlCreateButton("速查", 121, 371, 51, 25, $WS_GROUP)
GUICtrlSetTip(-1, "最快的速度查询完全相匹配的一条内容。" & @CRLF & "主意：在[查看全部]模式中搜索栏不写任何内容代表查看全部的教师信息，在[订单查询]模式中，" & @CRLF & "[搜索栏]中不填写任何内容也是查看全部订单信息，[速查]订单只支持订单号查询。")
GUICtrlSetOnEvent(-1, "MenuEvents")
$Combo3 = GUICtrlCreateCombo("查询类型", 17, 371, 97, 25)
GUICtrlSetData(-1, "查看全部|编号|姓名|身份证号|性别|年龄|学科|任教时间|级别|教龄|状态|联系电话|加盟时间|订单查询")
$Button9 = GUICtrlCreateButton("模糊", 120, 400, 51, 25, $WS_GROUP)
GUICtrlSetTip(-1, "模糊查询，查找的信息比较详细，但是速度相对较慢。")
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("添加教师信息", 192, 208, 361, 265)
$Input1 = GUICtrlCreateInput("", 209, 253, 49, 21)
GUICtrlSetTip(-1, "请输入教师的名字")
$Label1 = GUICtrlCreateLabel("教师姓名", 209, 229, 52, 17)

$Label8 = GUICtrlCreateLabel("身份证号", 273, 229, 52, 17)
$Input6 = GUICtrlCreateInput("", 273, 253, 145, 21)
GUICtrlSetTip(-1, "请输入教师的身份证号")


$Combo1 = GUICtrlCreateCombo("男", 433, 253, 41, 25)
GUICtrlSetData(-1, "女")
$Label2 = GUICtrlCreateLabel("性别", 433, 229, 28, 17)


$Label3 = GUICtrlCreateLabel("年龄", 489, 229, 28, 17)
$Input2 = GUICtrlCreateInput("", 489, 253, 49, 21)
GUICtrlSetTip(-1, "请输入教师的年龄")

$Label4 = GUICtrlCreateLabel("学科", 209, 285, 28, 17)
$Input3 = GUICtrlCreateInput("", 209, 309, 65, 21)
GUICtrlSetTip(-1, "请输入教师能胜任的学科信息")


$Label5 = GUICtrlCreateLabel("级别", 289, 285, 28, 17)
$Combo2 = GUICtrlCreateCombo("普通", 289, 309, 65, 25)
GUICtrlSetData(-1, "白钻|金钻")


$Label6 = GUICtrlCreateLabel("教学教龄", 369, 285, 52, 17)
$Input4 = GUICtrlCreateInput("", 369, 309, 65, 21)
GUICtrlSetTip(-1, "请输入教师的教学教龄")


$Label7 = GUICtrlCreateLabel("备注", 305, 341, 28, 17)
; BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN)


$Label9 = GUICtrlCreateLabel("联系电话", 449, 285, 52, 17)
$Input7 = GUICtrlCreateInput("", 449, 309, 89, 21)
GUICtrlSetTip(-1, "请输入教师的联系电话")


$Label11 = GUICtrlCreateLabel("任教时间", 208, 344, 52, 17)
$Input8 = GUICtrlCreateInput("", 208, 368, 81, 21)
GUICtrlSetTip(-1, "教师可进行任教的时间，例：（8:00-17:00）")

$Edit2 = GUICtrlCreateEdit("", 305, 365, 233, 89, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetTip(-1, "请输入教师的备注信息，如没有可不填")

$Label10 = GUICtrlCreateLabel("加盟日期", 209, 397, 52, 17)
$Date1 = GUICtrlCreateDate("", 209, 421, 90, 21, BitOR($DTS_UPDOWN, $WS_TABSTOP))
;.....
;代码限制，看附件

yupor5 · 发表于 2011-3-26 18:23:20

如果把能把源码放出来就好

lzhzlh · 发表于 2011-3-29 15:01:52

这个东西好，非常支持！

gztf · 发表于 2011-3-29 22:40:58

没有源码！有源码就好了

zouyingj · 发表于 2011-4-2 17:16:43

要是能看到原代码就好了

runanchor · 发表于 2011-4-9 20:23:47

经典之作啊
太牛了

lxz · 发表于 2011-4-10 15:50:58

谢谢代码....

chenbaker · 发表于 2011-4-12 12:58:38

AU3能做出这样的程序，真的服了

xjcsuper · 发表于 2011-4-29 13:15:30

没有源码吗？

clear880213 · 发表于 2011-5-4 09:19:15

好好好好好要是有源码就好了，

jaymin · 发表于 2011-5-4 18:14:39

太牛啦，还放出源码了，谢谢~~~

cbao123 · 发表于 2011-5-5 13:43:30

还真的有模有样!

UID · 发表于 2011-5-6 15:40:11

强势围观一下

yanyi0 · 发表于 2011-5-11 20:50:48

源码能否共享下？
支持楼主

yanjerry9133 · 发表于 2011-5-11 21:56:22

大家一起求源码~~~

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

[原创] 之前帮朋友写的一款数据库软件，草根堂中介数据查询系统

本帖子中包含更多资源