📄 zb.prg
字号:
**************************************************
*-- 类: zb (e:\jcxt\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS zb AS form
Top = 0
Left = 0
Height = 574
Width = 793
DoCreate = .T.
Caption = "本系统版权所有,不得非法拷贝！ ＪＣＸＴ Ｖｅｒ ２.０ ２０００年０６月"
Closable = .F.
WindowState = 2
Name = "Form1"
ADD OBJECT pageframe1 AS pageframe WITH ;
ErasePage = .T., ;
PageCount = 2, ;
Top = 0, ;
Left = 0, ;
Width = 780, ;
Height = 504, ;
Tabs = .F., ;
Name = "Pageframe1", ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
ADD OBJECT zb.pageframe1.page1.grid1 AS grid WITH ;
ColumnCount = 16, ;
FontBold = .T., ;
FontSize = 10, ;
DeleteMark = .F., ;
Height = 324, ;
Left = -1, ;
Panel = 1, ;
RecordSource = "zb1", ;
RowHeight = 18, ;
Top = 109, ;
Width = 779, ;
Name = "Grid1", ;
Column1.FontBold = .T., ;
Column1.FontSize = 10, ;
Column1.ControlSource = "zb1.mc", ;
Column1.Width = 156, ;
Column1.Name = "Column1", ;
Column2.FontBold = .T., ;
Column2.FontSize = 10, ;
Column2.ControlSource = "zb1.sz1", ;
Column2.Width = 61, ;
Column2.Name = "Column2", ;
Column3.FontBold = .T., ;
Column3.FontSize = 10, ;
Column3.ControlSource = "zb1.sz2", ;
Column3.Width = 58, ;
Column3.Name = "Column3", ;
Column4.FontBold = .T., ;
Column4.FontSize = 10, ;
Column4.ControlSource = "zb1.sz3", ;
Column4.Width = 60, ;
Column4.Name = "Column4", ;
Column5.FontBold = .T., ;
Column5.FontSize = 10, ;
Column5.ControlSource = "zb1.sz4", ;
Column5.Width = 65, ;
Column5.Name = "Column5", ;
Column6.FontBold = .T., ;
Column6.FontSize = 10, ;
Column6.ControlSource = "zb1.sz5", ;
Column6.Width = 60, ;
Column6.Name = "Column6", ;
Column7.FontBold = .T., ;
Column7.FontSize = 10, ;
Column7.ControlSource = "zb1.sz6", ;
Column7.Width = 64, ;
Column7.Name = "Column7", ;
Column8.FontBold = .T., ;
Column8.FontSize = 10, ;
Column8.ControlSource = "zb1.sz7", ;
Column8.Width = 57, ;
Column8.Name = "Column8", ;
Column9.FontBold = .T., ;
Column9.FontSize = 10, ;
Column9.ControlSource = "zb1.sz8", ;
Column9.Width = 61, ;
Column9.Name = "Column9", ;
Column10.FontBold = .T., ;
Column10.FontSize = 10, ;
Column10.ControlSource = "zb1.sz9", ;
Column10.Width = 63, ;
Column10.Name = "Column10", ;
Column11.FontBold = .T., ;
Column11.FontSize = 10, ;
Column11.ControlSource = "zb1.sz10", ;
Column11.Width = 60, ;
Column11.Name = "Column11", ;
Column12.FontBold = .T., ;
Column12.FontSize = 10, ;
Column12.ControlSource = "zb1.sz11", ;
Column12.Width = 60, ;
Column12.Name = "Column12", ;
Column13.FontBold = .T., ;
Column13.FontSize = 10, ;
Column13.ControlSource = "zb1.sz12", ;
Column13.Width = 60, ;
Column13.Name = "Column13", ;
Column14.FontBold = .T., ;
Column14.FontSize = 10, ;
Column14.ControlSource = "zb1.sz13", ;
Column14.Width = 60, ;
Column14.Name = "Column14", ;
Column15.FontBold = .T., ;
Column15.FontSize = 10, ;
Column15.ControlSource = "zb1.sz14", ;
Column15.Width = 60, ;
Column15.Name = "Column15", ;
Column16.FontBold = .T., ;
Column16.FontSize = 10, ;
Column16.ControlSource = "zb1.sz15", ;
Column16.Width = 60, ;
Column16.Name = "Column16"
ADD OBJECT zb.pageframe1.page1.grid1.column1.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "企业名称", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column1.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column2.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column2.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column3.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column3.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column4.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column4.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column5.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column5.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column6.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column6.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column7.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column7.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column8.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column8.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column9.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column9.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column10.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "罚款", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column10.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column11.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "行政处理", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column11.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column12.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "党纪处理", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column12.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column13.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "司法处理", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column13.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column14.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "取消资格", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column14.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column15.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "吊销会证", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column15.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.grid1.column16.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "提出建议", ;
Name = "Header1"
ADD OBJECT zb.pageframe1.page1.grid1.column16.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT zb.pageframe1.page1.commandgroup1 AS commandgroup WITH ;
ButtonCount = 3, ;
Value = 1, ;
Height = 44, ;
Left = 128, ;
Top = 437, ;
Width = 204, ;
Name = "Commandgroup1", ;
Command1.Top = 7, ;
Command1.Left = 6, ;
Command1.Height = 32, ;
Command1.Width = 60, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "输 入", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 7, ;
Command2.Left = 72, ;
Command2.Height = 32, ;
Command2.Width = 60, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "添 加", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2", ;
Command3.Top = 7, ;
Command3.Left = 138, ;
Command3.Height = 32, ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -