?? begin.prg
字號:
*********************************************************
* 程序名稱：用電管理系統 版本： 2002 主程序 (BEGIN.PRG) *
* 完成日期：2001年07月 *
* 程序設計：唐國春 *
* 工作單位：廣西興安縣供電公司 *
* 聯系電話：(0)13807833358 *
* 聯系擴機：199(或)198-78083358 *
* 電子信箱：tanggc@sina.com *
*********************************************************
set defa to curdir()
do err_get
On key label F10
On key label F10 do q
On shutdown do form exit
close database
set talk off
set status bar on
set clock on
set clock status
public sysbz,menushow,timebz,timebz1,tcbz,tjbz,fbl_w,fbl_h,helpbz,tm,top1,toolbz,form_num,tool_wz1,totalpages,czy
public err,err_program,err_line,err_info1
helpbz=0
timebz=0
timebz1=0
sysbz=0
menushow=1
tcbz=0
tjbz=0
toolbz=0
form_num=0
totalpages=0
fbl_w=SYSMETRIC(1)
fbl_h=SYSMETRIC(2)
sele 0
use time
time1=rq
tm=subs(rq,1,4)+'年'+subs(rq,5,2)+'月'
use in time
sele 0
use datapath
go top
datapath=sj_path
use in datapath
local ctitle
CT='用電管理系統 (2002標準版)'
ctitle=ct+space(2)+substr(time1,1,4)+'年'+substr(time1,5,2)+'月'
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,ctitle)#0
_screen.windowstate=2
_screen.caption=ctitle
_screen.visible=.f.
??chr(7)
=messagebox("&ct 已經運行，請您看看下面的任務欄！",48,'警告！')
on shutdown
quit
endif
with _screen
.autocenter=.t.
* .alwaysontop=.t.
.caption=ctitle
endwith
*****工具欄*******************************************
close database
do tbsave
clear
PUBL Toolbar
sele 0
use run_cs
tool_wz1=run_cs.tool_wz
use in run_cs
SET CLASS TO MY_TOOLBAR.VCX
Toolbar=CREATEOBJECT('MYTOOLBAR')
Toolbar.dock(tool_wz1)
Toolbar.Visible = .T.
Toolbar.SHOW
toolbz=1
with _screen
.windowstate=1
.visible=.f.
endwith
do form ver name ver1
read events
with _screen
.visible=.t.
.icon='ico\face2.ico'
.maxbutton=.f.
.minbutton=.f.
.closable=.f.
.caption=ct
.backcolor=rgb(128,128,128)
* .backcolor=rgb(0,48,140)
endwith
do begin.mpr
_screen.windowstate=2
if sysmetric(1)>=1024
backimage1='pic\title_1024.jpg'
top1=int((768-100-500)/2)
else
if sysmetric(1)>=800
backimage1='pic\title_800.jpg'
top1=int((600-100-391)/2)
else
backimage1='pic\title_640.jpg'
top1=int((480-100-313)/2)
endif
endif
************************屏幕背景*********************
*_screen.picture="pic\bj.jpg"
_screen.picture="pic\bj1.gif"
_screen.addobject('backimage','image') &&在主窗口中加一個image對象backimage，并設置其各個屬性
with _screen.backimage
.picture=backimage1
.top=top1
endwith
_screen.backimage.visible=.t.
sele 0
use gds
loca for bz='*'
if .not. found()
go top
endif
dw1=allt(gds)
use in gds
dw_cd=int(len(dw1)/2)
xdw=''
for i=1 to dw_cd
dq=substr(dw1,1+(i-1)*2,2)
if i<>dw_cd
xdw=xdw+chr(39)+dq+chr(39)+'+chr(13)+'
else
xdw=xdw+chr(39)+dq+chr(39)
endif
endfor
***********************單位名稱*******************
_screen.addobject('lbl1','label') &&在主窗口中加一個標簽對象lbl1，并設置其各個屬性
with _screen.lbl1
.caption=&xdw &&設置內容
.top=fbl_h/6+3 &&設置位置
.left=fbl_w-fbl_w/8+2
.height=300
.width=50
.forecolor=RGB(0,0,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontbold=.t.
.fontsize=24
.backstyle=0
endwith
_screen.addobject('lbl2','label')
with _screen.lbl2
.caption=&xdw &&設置內容
.top=fbl_h/6+2 &&設置位置
.left=fbl_w-fbl_w/8+1
.height=300
.width=50
.forecolor=RGB(0,128,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontbold=.t.
.fontsize=24
.backstyle=0
endwith
_screen.addobject('lbl3','label')
with _screen.lbl3
.caption=&xdw &&設置內容
.top=fbl_h/6 &&設置位置
.left=fbl_w-fbl_w/8
.height=300
.width=50
.forecolor=RGB(0,255,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontbold=.t.
.fontsize=24
.backstyle=0
endwith
_screen.lbl1.visible=.t.
_screen.lbl2.visible=.t.
_screen.lbl3.visible=.t.
*********************版權標志********************
top_ce=0 &&上下調整額
_screen.addobject('lbl4','label')
with _screen.lbl4
.caption='本產品受版權法保護' &&設置內容
.autosize=.t.
.top=fbl_h-fbl_h/6+1+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,0,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=11
.backstyle=0
endwith
_screen.addobject('lbl5','label')
with _screen.lbl5
.caption='本產品受版權法保護' &&設置內容
.autosize=.t.
.top=fbl_h-fbl_h/6+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,255,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=11
.backstyle=0
endwith
_screen.lbl4.visible=.t.
_screen.lbl5.visible=.t.
_screen.lbl4.left=int((fbl_w-_screen.lbl4.width)*0.618)+1
_screen.lbl5.left=int((fbl_w-_screen.lbl4.width)*0.618)
if sysmetric(1)>=1024
top1=int((768-60-500)/2)+500-8+top_ce
else
if sysmetric(1)>=800
top1=int((600-60-391)/2)+391-8+top_ce
else
top1=int((480-60-313)/2)+313-8+top_ce
endif
endif
_screen.lbl4.top=top1+1
_screen.lbl5.top=top1
_screen.addobject('shape1','shape')
with _screen.shape1
.top=top1-2+1 &&設置位置
.left=_screen.lbl4.left-7+1
.height=_screen.lbl4.height
.width=_screen.lbl4.width+9
.bordercolor=RGB(0,0,0) &&設置框線色
.backstyle=0
endwith
_screen.addobject('shape2','shape')
with _screen.shape2
.top=top1-2 &&設置位置
.left=_screen.lbl4.left-7
.height=_screen.lbl4.height
.width=_screen.lbl4.width+9
.bordercolor=RGB(0,255,0) &&設置框線色
.backstyle=0
endwith
_screen.shape1.visible=.t.
_screen.shape2.visible=.t.
*********************數據路徑********************
_screen.addobject('mpath','label') &&數據路徑顯示
with _screen.mpath
.caption="數據路徑："+allt(datapath)
.autosize=.t.
.top=fbl_h-fbl_h/6+1+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,0,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=9
.backstyle=0
endwith
_screen.addobject('mpath1','label') &&數據路徑顯示
with _screen.mpath1
.caption=_screen.mpath.caption
.autosize=.t.
.top=fbl_h-fbl_h/6+1+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,255,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=9
.backstyle=0
endwith
with _screen
.mpath.visible=.t.
.mpath1.visible=.t.
.mpath.left=int((fbl_w-.mpath.width))-20
.mpath1.left=.mpath.left-1
if sysmetric(1)>=1024
top1=int((768-60-500)/3)+500-15+top_ce
else
if sysmetric(1)>=800
top1=int((600-60-391)/3)+391-15+top_ce
else
top1=int((480-60-313)/3)+313-15+top_ce
endif
endif
.mpath.top=top1+1
.mpath1.top=top1
endwith
release datapath
*********************操作員********************
_screen.addobject('mczy','label')
with _screen.mczy
.caption="操作員：XXX"
.autosize=.t.
.top=fbl_h-fbl_h/6+1+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,0,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=9
.backstyle=0
endwith
_screen.addobject('mczy1','label')
with _screen.mczy1
.caption=_screen.mczy.caption
.autosize=.t.
.top=fbl_h-fbl_h/6+1+top_ce &&設置位置
.left=fbl_w
.forecolor=RGB(0,255,0) &&設置前景色
.fontname='宋體' &&設置字體
.fontsize=9
.backstyle=0
endwith
************************************************
=INKEY(0.2,'m')
do jm.prg with 'password',0
do kl
=INKEY(0.01,'m')
do time.prg
close database
with _screen
.minbutton=.t.
.closable=.t.
endwith
read events
****************************************************************************************
PROCEDURE Q
set sysm to defa
on shutdown
set status bar on
do tbrest
with _screen
.minbutton=.t.
.maxbutton=.t.
.closable=.t.
.icon=''
.caption='Microsoft Visual Foxpro 6.0'
.removeobject('lbl1')
.removeobject('lbl2')
.removeobject('lbl3')
.removeobject('backimage')
.removeobject('lbl4')
.removeobject('lbl5')
.removeobject('shape1')
.removeobject('shape2')
.removeobject('mpath')
.removeobject('mpath1')
.removeobject('mczy')
.removeobject('mczy1')
.backcolor=rgb(255,255,255)
.picture=""
endwith
clea all
close database
do jm with 'password',1
cancel
return
endproc
****************************************************************************************
PROCEDURE TBSAVE && 保存工具條
PRIVATE TbGs,Gs
Gs=11
PUBLIC Tb[Gs,2]
*DIMENSION Tb[Gs,2] &&定義二維數組
Tb[1,1] ='調色板'
Tb[2,1] ='數據庫設計器'
Tb[3,1] ='表單控件'
Tb[4,1] ='表單設計器'
Tb[5,1] ='布局'
Tb[6,1] ='打印預覽'
Tb[7,1] ='查詢設計器'
Tb[8,1] ='報表控件'
Tb[9,1] ='報表設計器'
Tb[10,1]='常用'
Tb[11,1]='視圖設計器'
FOR TbGs=1 TO Gs
IF WEXIST(Tb(TbGs,1))
Tb(TbGs,2)=.T.
Hide Window(Tb(TbGs,1))
ELSE
Tb(TbGs,2)=.F.
ENDIF
ENDFOR
RETURN
endproc
*****************************************************************************************
PROCEDURE TBREST && 恢復工具條
PRIVATE TbGs
FOR TbGs=1 TO ALEN(Tb,1)
IF Tb(TbGs,2)
Show WINDOW (Tb(TbGs,1))
ENDIF
ENDFOR
RETURN
endproc
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -