main.prg

一个很优秀的企业人事管理系统。本软件免费

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


	Top = 0
	Left = 0
	Height = 574
	Width = 802
	DoCreate = .T.
	Caption = "路桥收费管理系统"
	TitleBar = 0
	WindowState = 2
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 4, ;
		Top = 17, ;
		Left = 24, ;
		Width = 733, ;
		Height = 454, ;
		Name = "Pageframe1", ;
		Page1.FontBold = .T., ;
		Page1.FontSize = 14, ;
		Page1.Caption = "收费查询", ;
		Page1.ForeColor = RGB(255,0,0), ;
		Page1.Name = "Page1", ;
		Page2.FontBold = .T., ;
		Page2.FontSize = 14, ;
		Page2.Caption = "打印报表", ;
		Page2.ForeColor = RGB(255,0,0), ;
		Page2.Name = "Page2", ;
		Page3.FontBold = .T., ;
		Page3.FontSize = 14, ;
		Page3.Caption = "系统设置", ;
		Page3.ForeColor = RGB(255,0,0), ;
		Page3.Name = "Page3", ;
		Page4.FontBold = .T., ;
		Page4.FontSize = 14, ;
		Page4.Caption = "数据维护", ;
		Page4.ForeColor = RGB(255,0,0), ;
		Page4.Name = "Page4"


	ADD OBJECT main.pageframe1.page1.grid1 AS grid WITH ;
		ColumnCount = 8, ;
		DeleteMark = .F., ;
		Height = 273, ;
		Left = 72, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "sfjl", ;
		ScrollBars = 2, ;
		Top = 22, ;
		Width = 594, ;
		Name = "Grid1", ;
		Column1.ControlSource = "sfjl.序号", ;
		Column1.Width = 68, ;
		Column1.ReadOnly = .T., ;
		Column1.Name = "Column1", ;
		Column2.ControlSource = "sfjl.日期", ;
		Column2.Width = 80, ;
		Column2.ReadOnly = .T., ;
		Column2.Name = "Column2", ;
		Column3.ControlSource = "sfjl.计算日期", ;
		Column3.Width = 83, ;
		Column3.ReadOnly = .T., ;
		Column3.Name = "Column3", ;
		Column4.ControlSource = "sfjl.时间", ;
		Column4.Width = 80, ;
		Column4.ReadOnly = .T., ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "sfjl.收费编号", ;
		Column5.Width = 65, ;
		Column5.ReadOnly = .T., ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "sfjl.收费", ;
		Column6.Width = 65, ;
		Column6.ReadOnly = .T., ;
		Column6.Name = "Column6", ;
		Column7.ControlSource = "sfjl.站台", ;
		Column7.Width = 52, ;
		Column7.ReadOnly = .T., ;
		Column7.Name = "Column7", ;
		Column8.ControlSource = "sfjl.操作员", ;
		Column8.Width = 66, ;
		Column8.ReadOnly = .T., ;
		Column8.Name = "Column8"


	ADD OBJECT main.pageframe1.page1.grid1.column1.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "序号", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column1.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "日期", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column2.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "计算日期", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column3.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "时间", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column4.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "收费编号", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column5.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "收费", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column6.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column7.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "站台", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column7.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.grid1.column8.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "操作员", ;
		Name = "Header1"


	ADD OBJECT main.pageframe1.page1.grid1.column8.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.command1 AS commandbutton WITH ;
		Top = 352, ;
		Left = 239, ;
		Height = 36, ;
		Width = 85, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "查找", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT main.pageframe1.page1.label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "车辆数目:", ;
		Height = 20, ;
		Left = 169, ;
		Top = 307, ;
		Width = 80, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT main.pageframe1.page1.text1 AS textbox WITH ;
		FontSize = 11, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 247, ;
		Top = 303, ;
		Width = 66, ;
		DisabledBackColor = RGB(156,226,193), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page1.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		Caption = "收费合计", ;
		Height = 20, ;
		Left = 371, ;
		Top = 308, ;
		Width = 71, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT main.pageframe1.page1.text2 AS textbox WITH ;
		FontSize = 11, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 445, ;
		Top = 303, ;
		Width = 97, ;
		DisabledBackColor = RGB(156,226,193), ;
		DisabledForeColor = RGB(255,0,0), ;
		Name = "Text2"


	ADD OBJECT main.pageframe1.page1.command2 AS commandbutton WITH ;
		Top = 351, ;
		Left = 394, ;
		Height = 36, ;
		Width = 85, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "打印", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT main.pageframe1.page2.command2 AS commandbutton WITH ;
		Top = 81, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 12, ;
		Caption = "日报表[操作员]", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT main.pageframe1.page2.command3 AS commandbutton WITH ;
		Top = 124, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "日 报 表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command3"


	ADD OBJECT main.pageframe1.page2.command4 AS commandbutton WITH ;
		Top = 165, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "月 报 表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command4"


	ADD OBJECT main.pageframe1.page2.command5 AS commandbutton WITH ;
		Top = 207, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "季 报 表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command5"


	ADD OBJECT main.pageframe1.page2.command6 AS commandbutton WITH ;
		Top = 249, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "半年报表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command6"


	ADD OBJECT main.pageframe1.page2.command7 AS commandbutton WITH ;
		Top = 291, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "年 报 表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command7"


	ADD OBJECT main.pageframe1.page2.command1 AS commandbutton WITH ;
		Top = 38, ;
		Left = 29, ;
		Height = 37, ;
		Width = 127, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 14, ;
		Caption = "操作员报表", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT main.pageframe1.page2.image1 AS image WITH ;
		Picture = "ocean.jpg", ;
		Height = 320, ;
		Left = 177, ;
		Top = 15, ;
		Width = 510, ;
		Name = "Image1"


	ADD OBJECT main.pageframe1.page2.container1 AS container WITH ;
		Top = 97, ;
		Left = 287, ;
		Width = 335, ;
		Height = 177, ;
		BackStyle = 1, ;
		SpecialEffect = 0, ;
		Name = "Container1"


	ADD OBJECT main.pageframe1.page2.container1.label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "操作员", ;
		Height = 24, ;
		Left = 70, ;
		Top = 44, ;
		Width = 63, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT main.pageframe1.page2.container1.text1 AS textbox WITH ;
		FontSize = 11, ;
		ControlSource = "op", ;
		Height = 25, ;
		Left = 143, ;
		Top = 42, ;
		Width = 97, ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page2.container1.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "收费日期", ;
		Height = 24, ;
		Left = 51, ;
		Top = 83, ;
		Width = 83, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT main.pageframe1.page2.container1.text2 AS textbox WITH ;
		FontSize = 11, ;
		Alignment = 3, ;
		Value = {}, ;
		ControlSource = "rq", ;
		Format = "", ;
		Height = 25, ;
		InputMask = "", ;
		Left = 144, ;
		Top = 77, ;
		Width = 115, ;
		Name = "Text2"


	ADD OBJECT main.pageframe1.page2.container1.command1 AS commandbutton WITH ;
		Top = 123, ;
		Left = 76, ;
		Height = 31, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确定", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT main.pageframe1.page2.container1.command2 AS commandbutton WITH ;
		Top = 122, ;
		Left = 182, ;
		Height = 31, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "取消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT main.pageframe1.page2.container1.label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "隶书", ;
		FontSize = 14, ;
		FontUnderline = .T., ;
		Caption = "操作员报表", ;
		Height = 24, ;
		Left = 36, ;
		Top = 8, ;
		Width = 108, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label3"


	ADD OBJECT main.pageframe1.page2.container2 AS container WITH ;
		Top = 97, ;
		Left = 287, ;
		Width = 335, ;
		Height = 177, ;
		BackStyle = 1, ;
		SpecialEffect = 0, ;
		Name = "Container2"


	ADD OBJECT main.pageframe1.page2.container2.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 14, ;
		Caption = "收费日期", ;
		Height = 24, ;
		Left = 53, ;
		Top = 64, ;
		Width = 83, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT main.pageframe1.page2.container2.text1 AS textbox WITH ;
		FontSize = 11, ;
		Alignment = 3, ;
		Value = {}, ;
		ControlSource = "rq", ;
		Format = "", ;
		Height = 25, ;
		InputMask = "", ;
		Left = 146, ;
		Top = 58, ;
		Width = 115, ;
		Name = "Text1"


	ADD OBJECT main.pageframe1.page2.container2.command1 AS commandbutton WITH ;
		Top = 123, ;
		Left = 76, ;
		Height = 31, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确定", ;
		ForeColor = RGB(255,0,0), ;