|
|
发表于 2016-7-23 02:45:06
|
显示全部楼层
var CONNECT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\\sv.mdb"
var n_cd=1//主菜单序号
var i_yyyy,i_mm,i_dd,q_d,q_jl,a_jl=array()// 年,月,日,天数,记录数量,记录内容
function WorkNotes_init()
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
i_dd=timeday(timenow())
var error,command="SELECT 内容,年,月,日,周 FROM sv WHERE (年<"&i_yyyy&" OR (年="&i_yyyy&" AND (月<"&i_mm&" OR (月="&i_mm&" AND 日<"&i_dd&")))) AND 状态=1"
database(CONNECT,command,q_jl,a_jl,error)
if(error=="执行成功")
if(q_jl)
controldomodal("tip")
end
else
messagebox(error&"。\r\n\r\n请检查问题，然后重新启动。")
exit()
end
y3()
y2()
y1()
x1()
end
function WorkNotes_pretranslatemessage(hwnd,message,wParam,lParam,time,x,y)
if(message==256&&hwnd==controlgethandle("adding")&&wParam==13)//添加新纪录
controlenable("adding",false)
var error,command="INSERT INTO sv (内容,年,月,日,周,状态) VALUES ('"&editgettext("adding")&"',"&timeyear(timenow())&","&timemonth(timenow())&","&timeday(timenow())&","&timeweek(timenow())&",1)"
database(CONNECT,command,0,0,error)
if(error=="执行成功")
editsettext("adding","")
end
controlenable("adding",true)
windowsetfocus(controlgethandle("adding"))
return true
end
if(message==513)//单击日期
for(var i = 1; i <= q_d; i++)
if(hwnd==controlgethandle("d"&i))
select(n_cd)
case 1
y1()
case 2
y2()
case 3
y3()
end
i_yyyy=staticgettext("yy")
i_mm=staticgettext("mm")
i_dd=i
x1()//今日
return true
end
end
end
if(message==515)//双击事件
for(var i = 1; i <= q_jl; i++)
if(hwnd==controlgethandle("t"&i)&&a_jl[i-1]["状态"]==1)///////////////////////今日菜单项目双击
var i_c_t=confirmationbox(" 已完成请点击是，\r\n 未完成请点击否，\r\n 撤销请点击取消 。","处理",3,true)
select(i_c_t)
case 7
a_jl[i-1]["状态"]=2
staticsetcolor("t"&i,#00a000,1)
case 1
a_jl[i-1]["状态"]=0
staticsetcolor("t"&i,#ff0000,1)
end
var error,command="UPDATE sv SET 状态="&a_jl[i-1]["状态"]&" WHERE 内容='"&strcut(staticgettext("t"&i),2,true)&"' AND 年="&i_yyyy&" AND 月="&i_mm&" AND 日="&i_dd&" AND 状态=1"
database(CONNECT,command,0,0,error)
return true
end
end
end
return false
end
function today_click()
select(n_cd)
case 1
y1()
case 2
y2()
case 3
y3()
end
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
i_dd=timeday(timenow())
x1()//今日
end
function x1()//显示 今日菜单
n_cd=1
var error,command="SELECT 内容,状态 FROM sv WHERE 年="&i_yyyy&" AND 月="&i_mm&" AND 日="&i_dd
arrayclear(a_jl)
database(CONNECT,command,q_jl,a_jl,error)
windowsetsize(windowgetmyhwnd(),397,145+50*q_jl)
for(var i = 1; i <= q_jl; i++)
controlenable("t"&i,true)
controlsetpos("t"&i,21,65+50*(i-1),0,0,1)
staticsettext("t"&i,i&"."&a_jl[i-1]["内容"])
select(a_jl[i-1]["状态"])
case 0
staticsetcolor("t"&i,#ff0000,1)
case 1
staticsetcolor("t"&i,#ffffa0,1)
case 2
staticsetcolor("t"&i,#00a000,1)
end
controlshow("t"&i,true)
end
controlenable("last",true)
controlsetpos("last",55,65+50*q_jl,0,0,1)
controlshow("last",true)
controlenable("search",true)
controlsetpos("search",161,65+50*q_jl,0,0,1)
controlshow("search",true)
controlenable("next",true)
controlsetpos("next",267,65+50*q_jl,0,0,1)
controlshow("next",true)
end
function y1()//隐藏 今日菜单
controlshow("last",false)
controlenable("last",false)
controlshow("search",false)
controlenable("search",false)
controlshow("next",false)
controlenable("next",false)
for(var i = 1; i <= 10; i++)
controlshow("t"&i,false)
controlenable("t"&i,false)
staticsetcolor("t"&i,#f0f0f0,1)
end
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function last_click()
y1()
var i_ld_t=timeadd("d",-1,i_yyyy&"/"&i_mm&"/"&i_dd)
i_yyyy=timeyear(i_ld_t)
i_mm=timemonth(i_ld_t)
i_dd=timeday(i_ld_t)
x1()
end
function next_click()
y1()
var i_nd_t=timeadd("d",1,i_yyyy&"/"&i_mm&"/"&i_dd)
i_yyyy=timeyear(i_nd_t)
i_mm=timemonth(i_nd_t)
i_dd=timeday(i_nd_t)
x1()
end
function calendar_click()
select(n_cd)
case 1
y1()
case 2
y2()
case 3
y3()
end
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
x2()//日历
end
function x2()//显示 日历菜单
n_cd=2
select(i_mm)
case 1
q_d=31
case 2
if((i_yyyy%4==0&&i_yyyy%100!=0)||i_yyyy%400==0)
q_d=29
else
q_d=28
end
case 3
q_d=31
case 4
q_d=30
case 5
q_d=31
case 6
q_d=30
case 7
q_d=31
case 8
q_d=31
case 9
q_d=30
case 10
q_d=31
case 11
q_d=30
case 12
q_d=31
end
var i_w_t=timeweek(i_yyyy&"/"&i_mm&"/1")//显示月份1号的星期数
windowsetsize(windowgetmyhwnd(),397,200+40*(q_d+i_w_t-1)/7)
controlenable("yi",true)
controlshow("yi",true)
staticsettext("yy",i_yyyy)
controlenable("yy",true)
controlshow("yy",true)
controlenable("yd",true)
controlshow("yd",true)
controlshow("year",true)
controlenable("mi",true)
controlshow("mi",true)
staticsettext("mm",i_mm)
controlenable("mm",true)
controlshow("mm",true)
controlenable("md",true)
controlshow("md",true)
controlshow("month",true)
controlshow("w1",true)
controlshow("w2",true)
controlshow("w3",true)
controlshow("w4",true)
controlshow("w5",true)
controlshow("w6",true)
controlshow("w7",true)
for(var i = 1; i <= q_d; i++)
controlsetpos("d"&i,61+40*((i+i_w_t-1)%7),130+40*int((i+i_w_t-1)/7),0,0,1)
controlenable("d"&i,true)
controlshow("d"&i,true)
end
if(i_yyyy==timeyear(timenow())&&i_mm==timemonth(timenow()))
staticsetcolor("d"&timeday(timenow()),#c0dcc0,1)
end
end
function y2()//隐藏 日历菜单
controlshow("yi",false)
controlenable("yi",false)
controlshow("yy",false)
controlenable("yy",false)
controlshow("yd",false)
controlenable("yd",false)
controlshow("year",false)
controlshow("mi",false)
controlenable("mi",false)
controlshow("mm",false)
controlenable("mm",false)
controlshow("md",false)
controlenable("md",false)
controlshow("month",false)
controlshow("w1",false)
controlshow("w2",false)
controlshow("w3",false)
controlshow("w4",false)
controlshow("w5",false)
controlshow("w6",false)
controlshow("w7",false)
for(var i = 1; i <= 31; i++)
controlshow("d"&i,false)
controlenable("d"&i,false)
staticsetcolor("d"&i,#f0f0f0,1)
end
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function yi_click()//年份增加
if(int(staticgettext("yy"))<timeyear(timenow())+1)
staticsettext("yy",int(staticgettext("yy"))+1)
mc()
end
end
function yy_click()//年份
controlshow("yy",false)
controlenable("yy",false)
controlenable("cyy",true)
controlshow("cyy",true)
combodeleteall("cyy")
for(var i = 0; i < 8; i++)
comboaddtext("cyy",timeyear(timenow())+1-i)
end
combosetcursel("cyy",1)
end
function cyy_selectchange()
staticsettext("yy",combogettext("cyy"))
controlshow("cyy",false)
controlenable("cyy",false)
controlenable("yy",true)
controlshow("yy",true)
mc()
end
function yd_click()//年份减少
if(int(staticgettext("yy"))>timeyear(timenow())-6)
staticsettext("yy",int(staticgettext("yy"))-1)
mc()
end
end
function mi_click()//月份增加
if(int(staticgettext("mm"))==12)
staticsettext("mm",1)
else
staticsettext("mm",int(staticgettext("mm"))+1)
end
mc()
end
function mm_click()//月份
controlshow("mm",false)
controlenable("mm",false)
controlenable("cmm",true)
controlshow("cmm",true)
combosetcursel("cyy",timemonth(timenow())-1)
end
function cmm_selectchange()
staticsettext("mm",combogettext("cmm"))
controlshow("cmm",false)
controlenable("cmm",false)
controlenable("mm",true)
controlshow("mm",true)
mc()
end
function md_click()//月份减少
if(int(staticgettext("mm"))==1)
staticsettext("mm",12)
else
staticsettext("mm",int(staticgettext("mm"))-1)
end
mc()
end
function mc()//月份变化
y2()
i_yyyy=staticgettext("yy")
i_mm=staticgettext("mm")
x2()
end
function add_click()
select(n_cd)
case 1
y1()
case 2
y2()
case 3
y3()
end
x3()//添加
end
function x3()//显示 添加菜单
n_cd=3
windowsetsize(windowgetmyhwnd(),397,250)
controlenable("adding",true)
controlshow("adding",true)
windowsetfocus(controlgethandle("adding"))
end
function y3()//隐藏 添加菜单
controlshow("adding",false)
controlenable("adding",false)
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function search_click()
controlopenwindow("result")
end |
|
[复制链接]
/2 
