当前位置:首页 >> 高中作文 >> 代码

代码


Private Sub Command1_Click() Select Case intCP Case 0 main_scgl_sczs.cp = Text1(1) Load main_scgl_sczs main_scgl_sczs.Show 1 Unload Me Case 1 main_scgl_scgzgl_lr.Text1(0) = Text1(1) Unload Me Case 2 main_xsyw_xsyc.Text1(1) = Text1(1) Unload Me End Select End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocus End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) With Adodc1.Recordset If .RecordCount > 0 Then Text1(0) = .Fields("产品编号") Text1(1) = .Fields("品名规格") End If End With End Sub Private Sub Form_Activate() DataGrid1.SetFocus End Sub Private Sub Form_Load() DataGrid1_RowColChange 0, 0 End Sub Dim rs1 As New ADODB.Recordset Private Sub Form_Load() Dim mNode As Node rs1.Open "select * from 区 域 表 order by 区 域 编 号 , 编 码 级次 ", Cnn, adOpenKeyset, adLockOptimistic

If rs1.RecordCount > 0 Then rs1.MoveFirst Do While rs1.EOF = False Select Case rs1.Fields("编码级次") Case 1 Set mNode = TreeView1.Nodes.Add() mNode.text = "(" & rs1.Fields("本级编号") & ")" & rs1.Fields("区域名称") mNode.Key = rs1.Fields("区域全称") Case 2 Set mNode1 = TreeView1.Nodes.Add(mNode.Index, tvwChild) mNode1.text = "(" & rs1.Fields("本级编号") & ")" & rs1.Fields("区域名称") mNode1.Key = rs1.Fields("区域全称") Case 3 Set mNode2 = TreeView1.Nodes.Add(mNode1.Index, tvwChild) mNode2.text = "(" & rs1.Fields("本级编号") & ")" & rs1.Fields("区域名称") mNode2.Key = rs1.Fields("区域全称") Case 4 Set mNode3 = TreeView1.Nodes.Add(mNode2.Index, tvwChild) mNode3.text = "(" & rs1.Fields("本级编号") & ")" & rs1.Fields("区域名称") mNode3.Key = rs1.Fields("区域全称") Case 5 Set mNode4 = TreeView1.Nodes.Add(mNode3.Index, tvwChild) mNode4.text = "(" & rs1.Fields("本级编号") & ")" & rs1.Fields("区域名称") mNode4.Key = rs1.Fields("区域全称") End Select rs1.MoveNext Loop End If rs1.Close For i = 1 To TreeView1.Nodes.Count TreeView1.Nodes(i).Expanded = True Next i End Sub Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case IntLoadDataTree Case 1 If KeyCode = vbKeyReturn Then main_xszz_xszzgl_lr.Text1(3) = TreeView1.SelectedItem.Key Unload Me End If Case 2 If KeyCode = vbKeyReturn Then main_xsyw_xsyc.Text1(2) = TreeView1.SelectedItem.Key Unload Me

End If Case 3 If KeyCode = vbKeyReturn Then main_xsyw_xsjh.Text1(0) = TreeView1.SelectedItem.Key Unload Me End If Case 4 If KeyCode = vbKeyReturn Then main_scgl_scfkgl_lr.Text1(3) = TreeView1.SelectedItem.Key Unload Me End If End Select End Sub


更多相关文档:

中国天气预报代码大全

中国天气预报代码大全阿巴嘎旗 CHXX0243 阿城 CHXX0001 爱辉 CHXX0174 阿合奇 CHXX0210 阿拉尔 CHXX0212 阿勒泰 CHXX0196 安达 CHXX0187 敖汉旗 CHXX0002 安康 CHXX...

G代码一览表

CNC 代码一览表 M 代码一览表 M 代码一览表 M 代码 M00 M01 M02 M03 M04 M05 M06 M08 M09 M12 M13 M15 M16 M19 M23 M24 M30 M35 程序停止 选择停止 ...

代码

世界港口 世界港口代码 .欧洲地区(EUROPE) 1.意大利(ITALY) 目的港 比萨 波伦那 杜林 佛洛伦萨 罗马 米兰 那不勒斯 热那瓦 威尼斯 三字代码 PSA BLQ TRN FLR ...

完整M代码

M 代码 内容 M00 程序停止 M01 任选停止 M02 程序结束 M03 工作主轴起动 (正转) M04 工作主轴起动 (反转) M05 主轴停止 M06 刀具交换 M07 M08 冷却液开 ...

质量审核员专业代码

质量审核员专业代码 15页 免费 ISO9001:2008质量管理体... 10页 1下载券 质量管理体系认证业务范... 35页 免费 质量管理体系审核员专业... 1页 免费 附表2...

5. 省份代码对照表

5. 省份代码对照表_计算机软件及应用_IT/计算机_专业资料。附件 5 省份代码对照表 代码 11 12 13 14 15 21 22 23 31 32 33 34 35 36 37 41 42 43 ...

参考文献代码

参考文献类型、电子文献载体类型及其标志代码项目 1.参考文献类型及其标志代码 计学数算汇报期位报标专据机编纸刊论告准利库程文序 D G N J D R S P CP ...

源代码是什么

源代码是什么_计算机软件及应用_IT/计算机_专业资料。介绍源代码是什么,可供初学者解读源代码:一系列人类可读的计算机语言指令 源程序(source code)是指未编译的按...

用地分类和代码_图文

1 城乡用地分类 用地分类 表 3.2.2 城乡用地分类和代码 类别代码 大类 H 中类 小类 类别名称 内容 包括城乡居民点建设用地、 区域交通设施用地、 区域公用...

海关代码

上海海关代码: 2200 上海海关 2203 沪机场海关 2206 沪邮局办 2209 龙吴海关 2212 奉贤海关 2215 虹桥开发区海关 2218 外高桥海关 2221 松江海关 2224 崇明海关 ...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com