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

代码


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


更多相关文档:

农行省市代码

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

重庆市行政区划代码

重庆市行政区划代码 500000 重庆市 500100 市辖区 500101 万州区 500102 涪陵区 500103 渝中区 500104 大渡口区 500105 江北区 500106 沙坪坝区 500107 九龙坡区...

学生来源代码完整版本

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

规划数据库类型代码

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

源代码是什么

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

四川省行政区划代码_图文

四川省行政区划代码_计算机软件及应用_IT/计算机_专业资料。四川省行政区划代码表(一)行政区域代码:510000 成都 代码 510101 地区名称 29 市辖区 锦江区 青羊区 ...

随意修改网页内容的代码

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

国家名称代码

国家名称代码_公共/行政管理_经管营销_专业资料 暂无评价|0人阅读|0次下载|举报文档 国家名称代码_公共/行政管理_经管营销_专业资料。国家代码 国家名称 ALB ...

美国国家代码

美国国家代码、 美国国家代码、地区号码表省份 中文名称 阿拉巴马 阿拉斯加 亚利桑那 阿肯色 加利福尼亚 科罗拉多 康涅狄格 特拉华 哥伦比亚特区 佛罗里达 佐治亚 夏威夷 ...

国家代码

国家代码_英语学习_外语学习_教育专区 暂无评价|0人阅读|0次下载|举报文档国家代码_英语学习_外语学习_教育专区。UA:乌克兰 Ukraine DE:德国 Germany U.K.:...
更多相关标签:
代码大全 | 代码编辑器 | 源代码 | 网页代码 | 淘宝代码 | 代码生成器 | html代码 | 神秘代码 |
网站地图

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