📄 main.prg
字号:
**************************************************
* 类: main
* 父类: form
* 基类: form
*
DEFINE CLASS main AS form
Top = 0
Left = 0
Height = 581
Width = 802
DoCreate = .T.
Caption = ""
TitleBar = 0
WindowType = 1
WindowState = 2
Name = "Form1"
jls = .F.
deljls = .F.
ADD OBJECT pageframe1 AS pageframe WITH ;
ErasePage = .T., ;
PageCount = 3, ;
Top = 0, ;
Left = 0, ;
Width = 780, ;
Height = 576, ;
MousePointer = 1, ;
Name = "Pageframe1", ;
Page1.FontBold = .T., ;
Page1.FontName = "楷体_GB2312", ;
Page1.FontSize = 14, ;
Page1.Caption = "客户信息录入(F2)", ;
Page1.ForeColor = RGB(0,0,255), ;
Page1.Name = "Page1", ;
Page2.FontBold = .T., ;
Page2.FontName = "楷体_GB2312", ;
Page2.FontSize = 14, ;
Page2.Caption = "客户信息查询(F3)", ;
Page2.ForeColor = RGB(0,0,255), ;
Page2.Name = "Page2", ;
Page3.FontBold = .T., ;
Page3.FontName = "楷体_GB2312", ;
Page3.FontSize = 14, ;
Page3.Caption = "系统维护(F4)", ;
Page3.ForeColor = RGB(0,0,255), ;
Page3.Name = "Page3"
ADD OBJECT main.pageframe1.page1.container2 AS container WITH ;
Top = 207, ;
Left = 31, ;
Width = 721, ;
Height = 168, ;
BackStyle = 0, ;
SpecialEffect = 1, ;
TabIndex = 23, ;
Name = "Container2"
ADD OBJECT main.pageframe1.page1.txtzzth AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.zzth", ;
Height = 25, ;
Left = 117, ;
TabIndex = 11, ;
Top = 223, ;
Width = 92, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtZzth"
ADD OBJECT main.pageframe1.page1.lblzzth AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "住宅电话", ;
Height = 19, ;
Left = 50, ;
Top = 226, ;
Width = 65, ;
TabIndex = 34, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblZzth"
ADD OBJECT main.pageframe1.page1.txtbj AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.bj", ;
Height = 25, ;
Left = 117, ;
TabIndex = 14, ;
Top = 257, ;
Width = 608, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtBj"
ADD OBJECT main.pageframe1.page1.lblbj AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "背景", ;
Height = 19, ;
Left = 77, ;
Top = 261, ;
Width = 33, ;
TabIndex = 35, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblBj"
ADD OBJECT main.pageframe1.page1.txtrq AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.rq", ;
Height = 25, ;
Left = 334, ;
TabIndex = 12, ;
Top = 223, ;
Width = 92, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtRq"
ADD OBJECT main.pageframe1.page1.lblrq AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "出生日期", ;
Height = 19, ;
Left = 264, ;
Top = 228, ;
Width = 65, ;
TabIndex = 36, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblRq"
ADD OBJECT main.pageframe1.page1.txtjtzz AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.jtzz", ;
Height = 25, ;
Left = 537, ;
TabIndex = 13, ;
Top = 223, ;
Width = 188, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtJtzz"
ADD OBJECT main.pageframe1.page1.lbljtzz AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "家庭住址", ;
Height = 19, ;
Left = 470, ;
Top = 228, ;
Width = 65, ;
TabIndex = 37, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblJtzz"
ADD OBJECT main.pageframe1.page1.txtrh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.rh", ;
Height = 25, ;
Left = 116, ;
TabIndex = 15, ;
Top = 294, ;
Width = 188, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtRh"
ADD OBJECT main.pageframe1.page1.lblrh AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "爱好", ;
Height = 19, ;
Left = 78, ;
Top = 297, ;
Width = 33, ;
TabIndex = 38, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblRh"
ADD OBJECT main.pageframe1.page1.txtrrxm AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.rrxm", ;
Height = 25, ;
Left = 380, ;
TabIndex = 16, ;
Top = 294, ;
Width = 74, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtRrxm"
ADD OBJECT main.pageframe1.page1.txtrrdw AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.rrdw", ;
Height = 25, ;
Left = 536, ;
TabIndex = 17, ;
Top = 295, ;
Width = 188, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtRrdw"
ADD OBJECT main.pageframe1.page1.lblrrdw AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "爱人单位", ;
Height = 19, ;
Left = 468, ;
Top = 300, ;
Width = 65, ;
TabIndex = 40, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblRrdw"
ADD OBJECT main.pageframe1.page1.lblzy AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "子或女", ;
Height = 19, ;
Left = 62, ;
Top = 331, ;
Width = 49, ;
TabIndex = 41, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "lblZy"
ADD OBJECT main.pageframe1.page1.txtzyxm AS textbox WITH ;
Comment = "", ;
ControlSource = "kh.zyxm", ;
Height = 25, ;
Left = 380, ;
TabIndex = 19, ;
Top = 335, ;
Width = 74, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtZyxm"
ADD OBJECT main.pageframe1.page1.label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "爱人姓名", ;
Height = 19, ;
Left = 314, ;
Top = 299, ;
Width = 65, ;
TabIndex = 39, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(255,128,128), ;
Name = "Label1"
ADD OBJECT main.pageframe1.page1.lblzyxm AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "子女姓名", ;
Height = 19, ;
Left = 313, ;
Top = 340, ;
Width = 67, ;
TabIndex = 42, ;
ForeColor = RGB(255,0,0), ;
Name = "lblzyxm"
ADD OBJECT main.pageframe1.page1.lblzydw AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "子女单位", ;
Height = 19, ;
Left = 469, ;
Top = 339, ;
Width = 67, ;
TabIndex = 20, ;
ForeColor = RGB(255,0,0), ;
BackColor = RGB(192,192,192), ;
Name = "lblzydw"
ADD OBJECT main.pageframe1.page1.txtzydw AS textbox WITH ;
FontSize = 11, ;
ControlSource = "kh.zydw", ;
Height = 25, ;
Left = 537, ;
TabIndex = 21, ;
Top = 335, ;
Width = 185, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
Name = "txtZydw"
ADD OBJECT main.pageframe1.page1.commandgroup1 AS commandgroup WITH ;
ButtonCount = 7, ;
Value = 1, ;
Height = 50, ;
Left = 107, ;
Top = 395, ;
Width = 476, ;
TabIndex = 43, ;
Name = "Commandgroup1", ;
Command1.Top = 10, ;
Command1.Left = 13, ;
Command1.Height = 30, ;
Command1.Width = 65, ;
Command1.FontBold = .T., ;
Command1.FontName = "黑体", ;
Command1.FontSize = 14, ;
Command1.Caption = "|<-", ;
Command1.ForeColor = RGB(0,0,255), ;
Command1.Name = "Command1", ;
Command2.Top = 10, ;
Command2.Left = 77, ;
Command2.Height = 30, ;
Command2.Width = 65, ;
Command2.FontBold = .T., ;
Command2.FontName = "黑体", ;
Command2.FontSize = 14, ;
Command2.Caption = "<-", ;
Command2.ForeColor = RGB(0,0,255), ;
Command2.Name = "Command2", ;
Command3.Top = 10, ;
Command3.Left = 141, ;
Command3.Height = 30, ;
Command3.Width = 65, ;
Command3.FontBold = .T., ;
Command3.FontName = "黑体", ;
Command3.FontSize = 14, ;
Command3.Caption = "->", ;
Command3.ForeColor = RGB(0,0,255), ;
Command3.Name = "Command3", ;
Command4.Top = 10, ;
Command4.Left = 205, ;
Command4.Height = 30, ;
Command4.Width = 65, ;
Command4.FontBold = .T., ;
Command4.FontName = "黑体", ;
Command4.FontSize = 14, ;
Command4.Caption = "->|", ;
Command4.ForeColor = RGB(0,0,255), ;
Command4.Name = "Command4", ;
Command5.Top = 10, ;
Command5.Left = 269, ;
Command5.Height = 30, ;
Command5.Width = 65, ;
Command5.FontBold = .T., ;
Command5.FontName = "黑体", ;
Command5.FontSize = 14, ;
Command5.Caption = "新 增", ;
Command5.ForeColor = RGB(0,0,255), ;
Command5.Name = "Command5", ;
Command6.Top = 10, ;
Command6.Left = 333, ;
Command6.Height = 30, ;
Command6.Width = 65, ;
Command6.FontBold = .T., ;
Command6.FontName = "黑体", ;
Command6.FontSize = 14, ;
Command6.Caption = "删 除", ;
Command6.ForeColor = RGB(0,0,255), ;
Command6.Name = "Command6", ;
Command7.Top = 10, ;
Command7.Left = 397, ;
Command7.Height = 30, ;
Command7.Width = 65, ;
Command7.FontBold = .T., ;
Command7.FontName = "黑体", ;
Command7.FontSize = 14, ;
Command7.Caption = "恢 复", ;
Command7.ForeColor = RGB(0,0,255), ;
Command7.Name = "Command7"
ADD OBJECT main.pageframe1.page1.image1 AS image WITH ;
Picture = "..\vfpex\lcb\home.ico", ;
Height = 36, ;
Left = 181, ;
Top = 63, ;
Width = 32, ;
Name = "Image1"
ADD OBJECT main.pageframe1.page1.container1 AS container WITH ;
Top = 52, ;
Left = 28, ;
Width = 728, ;
Height = 132, ;
BackStyle = 0, ;
SpecialEffect = 1, ;
TabIndex = 22, ;
Name = "Container1"
ADD OBJECT main.pageframe1.page1.txtbh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.bh", ;
Height = 25, ;
Left = 79, ;
TabIndex = 1, ;
Top = 67, ;
Width = 84, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
BorderColor = RGB(255,128,128), ;
Name = "txtBh"
ADD OBJECT main.pageframe1.page1.lblbh AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontName = "宋体", ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "编号", ;
Height = 19, ;
Left = 44, ;
Top = 72, ;
Width = 33, ;
TabIndex = 24, ;
ForeColor = RGB(255,0,0), ;
Name = "lblBh"
ADD OBJECT main.pageframe1.page1.txtxm AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.xm", ;
Height = 25, ;
Left = 274, ;
TabIndex = 2, ;
Top = 67, ;
Width = 64, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,128,128), ;
BorderColor = RGB(255,128,128), ;
Name = "txtXm"
ADD OBJECT main.pageframe1.page1.lblxm AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontName = "宋体", ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "姓名", ;
Height = 19, ;
Left = 236, ;
Top = 71, ;
Width = 33, ;
TabIndex = 25, ;
ForeColor = RGB(255,0,0), ;
Name = "lblXm"
ADD OBJECT main.pageframe1.page1.txtdw AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "kh.dw", ;
Height = 25, ;
Left = 551, ;
TabIndex = 4, ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -