init.prg

财政监督管理系统的所有文件（数据表、表单、报表以及.exe文件等）。

**************************************************
*-- 类:           init (e:\jcxt\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS init AS form


	Top = 101
	Left = 122
	Height = 287
	Width = 481
	DoCreate = .T.
	Caption = "系统设置"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	Movable = .F.
	WindowState = 0
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "检查年度", ;
		Height = 20, ;
		Left = 80, ;
		Top = 90, ;
		Width = 71, ;
		TabIndex = 5, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT text1 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 152, ;
		TabIndex = 2, ;
		Top = 85, ;
		Width = 62, ;
		Name = "Text1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "使用单位", ;
		Height = 20, ;
		Left = 80, ;
		Top = 137, ;
		Width = 71, ;
		TabIndex = 6, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT text2 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 152, ;
		TabIndex = 3, ;
		Top = 133, ;
		Width = 264, ;
		Name = "Text2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "程序密码", ;
		Height = 20, ;
		Left = 80, ;
		Top = 185, ;
		Width = 71, ;
		TabIndex = 7, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT text3 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 152, ;
		TabIndex = 4, ;
		Top = 181, ;
		Width = 98, ;
		Name = "Text3"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 228, ;
		Left = 168, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确 认", ;
		TabIndex = 8, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT text4 AS textbox WITH ;
		FontSize = 11, ;
		Height = 25, ;
		Left = 154, ;
		TabIndex = 1, ;
		Top = 42, ;
		Width = 228, ;
		Name = "Text4"


	ADD OBJECT label4 AS label WITH ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "使用地区", ;
		Height = 25, ;
		Left = 82, ;
		Top = 45, ;
		Width = 67, ;
		TabIndex = 9, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 228, ;
		Left = 288, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "取 消", ;
		TabIndex = 8, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	PROCEDURE Init
		if file("area.mem")
		   rest from area
		   thisform.text1.value=data3
		   thisform.text2.value=data1
		   thisform.text3.value=data2
		   thisform.text4.value=data4
		endif
	ENDPROC


	PROCEDURE command1.Click
		data3=alltrim(thisform.text1.value)
		data1=alltrim(thisform.text2.value)
		data2=alltrim(thisform.text3.value)
		data4=alltrim(thisform.text4.value)
		save to area all like data*
		thisform.release
		clear event
	ENDPROC


	PROCEDURE command2.Click
		thisform.release
		clear event
	ENDPROC


ENDDEFINE
*
*-- 结束定义: init
**************************************************