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

代码


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


更多相关文档:

5. 省份代码对照表

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

氨基酸缩写代码

氨基酸缩写代码_物理_自然科学_专业资料。附录 C 氨基酸缩写代码 以下是氨基酸的单字母记号和三字母记号 单字母记号 三字母记号 英文名称 A Ala Alanine C Cys ...

HTML 常用代码大全

HTML 常用代码大全_互联网_IT/计算机_专业资料。HTML 常用代码大全。益阳网站设计,益阳益阳网站设计,益阳VIS设计,益阳包装设计,益阳画册设计,益阳SEO ...

随意修改网页内容的代码

随意修改网页内容的代码先把这段代码输入到地址栏: javascript:document.body.contentEditable='true'; document.designMode='on'; void 0 然后按 enter,之后就...

中华人民共和国行政区划代码标准

中华人民共和国行政区划代码标准_军事/政治_人文社科_专业资料。中华人民共和国行政区划代码标准 GB/T 2260—1999 前 言 GB/T 2260《中华人民共和国行政区划代码...

规划数据库类型代码

规划数据库类型代码_建筑/土木_工程科技_专业资料。土地规划 乡级规划数据库主要图层命名及类型代码表 一、 主要图层命名对照表: CZJSKZQ JSYDGZQ TDYTQ JQDLTB ...

学生来源代码完整版本

学生来源代码完整版本_英语考试_外语学习_教育专区。附件二 民族代码代码 01 02 03 04 05 06 07 08 09 10 11 12 13 14 民族 汉族 蒙古族 回族 藏族 ...

行业代码

行业代码_经济/市场_经管营销_专业资料。行业代 码 C 13 制造业 农副食品加工业 1461 1462 1469 1491 1492 味精制造 酱油、食醋及类似制品制造 其他调味品、...

农行省市代码

农行省市代码_人文社科_专业资料。农行省市代码: 01 总行;02 07 吉林省;08 13 福建省;14 19 浙江省;20 25 西藏区;26 31 重庆市;34 44 广东省;45 83 ...

四川省行政区划代码

四川省行政区划代码_计算机软件及应用_IT/计算机_专业资料。四川省行政区划代码表(一)行政区域代码:510000 成都 代码 510101 地区名称 29 市辖区 锦江区 青羊区 ...
更多相关标签:
代码大全 | 代码编辑器 | 源代码 | 网页代码 | 淘宝代码 | 代码生成器 | html代码 | 神秘代码 |
网站地图

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