记录号 OBJNAME PROPERTIES METHODS 1 2 Dataenvironment Left = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" 3 Cursor1 Left = 10 Top = 20 Width = 116 Height = 90 Alias = "v109" Database = v109_zsh.dbc CursorSource = "v109" Name = "Cursor1" 4 Form1 Top = 0 Left = 0 Height = 438 Width = 607 DoCreate = .T. ShowTips = .T. Caption = "基础性控件" Name = "Form1" 5 e Top = 48 Left = 144 Width = 421 Height = 144 Name = "e" 6 Label1 AutoSize = .T. Caption = "保定市徐水区职业技术教育中心" Height = 16 Left = 132 Top = 48 Width = 170 Name = "Label1" 7 Label2 FontSize = 12 FontUnderline = .F. Alignment = 0 BackStyle = 1 Caption = "保定市徐水区职业技术教育中心" Height = 20 Left = 36 Top = 80 Width = 332 BackColor = 128,255,0 ToolTipText = "Alignment(左对齐0 右对齐1 居中对齐 2" Name = "Label2" 8 Optiongroup2 AutoSize = .T. PROCEDURE InteractiveChange ButtonCount = 3 s= this.value Value = 0 do case Height = 26 case s=1 Left = 108 this.parent.label2.alignment = 0 Top = 108 case s=2 Width = 212 this.parent.label2.alignment = 2 Name = "Optiongroup2" case s=3 Option1.Caption = "左对齐" this.parent.label2.alignment = 1 Option1.Value = 0 endcase Option1.Height = 16 ENDPROC Option1.Left = 5 Option1.Top = 5 Option1.Width = 63 Option1.Name = "Option1" Option2.Caption = "居中对齐" Option2.Height = 16 Option2.Left = 68 Option2.Top = 5 Option2.Width = 69 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.Caption = "右对齐" Option3.Height = 16 Option3.Left = 144 Option3.Top = 5 Option3.Width = 63 Option3.Name = "Option3" 9 Container2 Top = 216 Left = 144 Width = 421 Height = 145 Name = "Container2" 10 Shape1 Top = 12 Left = 24 Height = 73 Width = 136 Name = "Shape1" 11 Text1 Value = 微机109班 PROCEDURE KeyPress ControlSource = "v109.bj" LPARAMETERS nKeyCode, nShiftAltCtrl Height = 25 if nkeycode=13 InputMask = "" =messagebox("你输入的内容 为:"+ Left = 36 chr(13)+this.value,0,"提示") Top = 17 Width = 109 Name = "Text1" endif ENDPROC 12 Text2 Value = PROCEDURE DblClick Height = 25 thisform.caption = this.value Left = 36 ENDPROC Top = 49 Width = 109 PasswordChar = "*" Name = "Text2" 13 Label1 AutoSize = .F. Caption = "保定市徐水区职业技术教育中心" Height = 16 Left = 276 Top = 72 Width = 120 ToolTipText = "autosize=.f." Name = "Label1" 14 Edit1 Height = 109 PROCEDURE DblClick HideSelection = .T. Left = 336 s1= '　　各市（含定州、辛集市）教育局，有关省属中 ScrollBars = 2 等职业学校： 根据《河北省中等职业学校省级骨干和特 ToolTipText = "双击自动填充内容" 色专业动态管理办法（试行）》（冀教职成[2015]20号） Top = 240 ，' Width = 217 s1=s1+'我厅组织了2017年河北省中等职业学校省级骨干 Name = "Edit1" 专业和特色专业复评和评审工作，经各市教育局初审、省 级骨干和特色专业评审委员会复评和评审，复评通过19个 ' s1=s1+'、撤销5个已认定三年的省级骨干或特色专业（附 件1）；认定10个新申报专业为省级骨干专业，10个新申 报专业为省级特色专业（附件2），现予以公布。至此，' s1=s1+'全省中等职业学校省级骨干专业总数已达到300个 ，省级特色专业总数达到86个。 本次评审和复评发现有 关学校在专业建设方面存在不少问题：一是有的学校办学 方向和专业定位均存在较大偏差' s1=s1+'，以对口升学为主导，忽视以就业为导向、以培 养学生职业能力为主线；二是有的学校校企合作不深入， 没有紧盯企业需求，专业定位不准确，部分课程设置和内 容论证不够；' s1=s1+'三是专业建设的信息化意识不强，信息化建设与 信息化教学普遍薄弱；四是未能认真学习贯彻教育部颁布 的各类专业教学标准。希望各市、校以抓好骨干和特色专 业建设为引领' s1=s1+'，认真研究规划学校的专业布局与结构，依据自 身优势和特点，围绕区域产业和企业需求建设专业，校企 合作深挖专业内涵，培育专业优势和特色，努力创建口碑 好、对用人企业吸引力强的品牌专业。' this.value=s1 ENDPROC 15 Optiongroup1 ButtonCount = 2 PROCEDURE InteractiveChange Value = 0 s = this.value Height = 44 do case Left = 179 case s=1 Top = 305 thisform.edit1.scrollbars=0 Width = 73 case s=2 Name = "Optiongroup1" thisform.edit1.scrollbars=2 Option1.Caption = "无" endcase Option1.Value = 0 Option1.Height = 16 ENDPROC Option1.Left = 5 Option1.Top = 5 Option1.Width = 63 Option1.Name = "Option1" Option2.Caption = "垂直" Option2.Value = 0 Option2.Height = 16 Option2.Left = 5 Option2.Top = 23 Option2.Width = 63 Option2.Name = "Option2" 16 Command1 Top = 384 PROCEDURE Click Left = 192 thisform.edit2.value = thisform.edit1.seltext Height = 25 ENDPROC Width = 60 Caption = "读取1" ToolTipText = "SelText的替代式写入" Name = "Command1" 17 Edit2 Height = 84 Left = 0 Top = 216 Width = 132 Name = "Edit2" 18 Command2 Top = 384 PROCEDURE Click Left = 276 thisform.edit2.value = Height = 25 thisform.edit2.value+thisform.edit1.seltext+chr(13 Width = 60 ) Caption = "读取2" ENDPROC ToolTipText = "SelText的累加式写入" Name = "Command2" 19 Label2 AutoSize = .T. FontSize = 12 FontUnderline = .T. Caption = "" Height = 20 Left = 36 Top = 24 Width = 2 ForeColor = 128,128,255 Name = "Label2" 20 Timer1 Top = 12 PROCEDURE Timer Left = 504 thisform.label2.caption = thisform.edit1.seltext Height = 23 ENDPROC Width = 23 Enabled = .F. Interval = 500 Name = "Timer1" 21 Command3 Top = 384 PROCEDURE Click Left = 360 if this.caption="实时显示" Height = 25 thisform.timer1.enabled = .t. Width = 60 this.caption="关闭实时" Caption = "实时显示" else ToolTipText = "自动时实显示选中文本" this.caption="实时显示" Name = "Command3" thisform.timer1.enabled = .f. thisform.label2.caption="" endif ENDPROC 22 Text1 Height = 20 InputMask = "AA99XX" Left = 12 ToolTipText = "readonly (.T. 只读 .F.读写）" Top = 168 Width = 100 Name = "Text1" 23 Optiongroup2 ButtonCount = 2 PROCEDURE InteractiveChange Value = 0 s = this.value Height = 44 do case Left = 12 case s=1 Top = 108 thisform.text1.readonly =.t. Width = 73 case s=2 Name = "Optiongroup2" thisform.text1.readonly =.f. Option1.Caption = "只读" endcase Option1.Value = 0 Option1.Height = 16 ENDPROC Option1.Left = 5 Option1.Top = 5 Option1.Width = 63 Option1.Name = "Option1" Option2.Caption = "读写" Option2.Value = 0 Option2.Height = 16 Option2.Left = 5 Option2.Top = 23 Option2.Width = 63 Option2.Name = "Option2" 24 Optiongroup3 ButtonCount = 2 PROCEDURE InteractiveChange Value = 0 s = this.value Height = 44 do case Left = 482 case s=1 Top = 372 thisform.edit1.hideselection = .f. Width = 84 case s=2 Name = "Optiongroup3" thisform.edit1.hideselection = .t. Option1.Caption = "显示选中" endcase Option1.Value = 0 Option1.Height = 16 ENDPROC Option1.Left = 5 Option1.Top = 5 Option1.Width = 69 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.Caption = "隐藏选中" Option2.Value = 0 Option2.Height = 16 Option2.Left = 5 Option2.Top = 23 Option2.Width = 69 Option2.AutoSize = .T. Option2.Name = "Option2" 25 Command4 Top = 336 PROCEDURE Click Left = 72 thisform.container2.text2.inputmask="99aaxx" Height = 25 ENDPROC Width = 60 Caption = "动态设置" ToolTipText = "动态设置文本框2的数据格式为99AAXX" Name = "Command4" 26 宋体, 0, 9, 6, 14, 10, 12, 2, 2