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

代码


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


更多相关文档:

键盘键对应代码

键盘键对应代码_电脑基础知识_IT/计算机_专业资料。键盘键对应代码 VK_BACK: VK_TAB: VK_PAUSE: VK_SPACE: VK_END: VK_HOME: VK_INSERT: VK_DELETE: VK_...

美国国家代码

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

饥荒代码大全

饥荒代码大全_计算机软件及应用_IT/计算机_专业资料。游戏 [Don't Starve ]饥荒的游戏物品代码及一些简单的指令 使用说明: 1.游戏中按 “~”键 开启控制台,...

HTML颜色代码表

颜色代码表 1. 颜色具体如下: 棕色 brown 红色 red 橙色 orange 紫色 purple 灰色 gray 白色 white 黄色 yellow 绿色 green 蓝色 blue 黑色 black 橄榄色 ...

CAD%%代码

代码 字符 %%130 α %%131 β %%132 δ %%133 φ %%134 γ %%135 η %%136 π %%141 ⅰ %%142 ⅱ %%143 ⅲ %%144 ⅳ %%145 ⅴ %%146 ⅵ %%147 ...

期刊代号

J——期刊文章 M——专著(含古籍中的史、志论著) 参考文献的类型 根据 GB3469-83《文献类型与文献载体代码》规定,以单字母标识: M——专著(含古籍中的史、...

国家代码

国家代码_英语学习_外语学习_教育专区 暂无评价|0人阅读|0次下载|举报文档国家代码_英语学习_外语学习_教育专区。UA:乌克兰 Ukraine DE:德国 Germany U.K.:...

全国车牌代码

全国车牌代码北京市( 北京市(京) 京A 京C 京E 京 G 北京市(远郊区) 京 B 出租车 天津市( 天津市(津) 津A 津B 津C 津 E 出租车 京 F 北京市(...

颜色代码对照表

颜色代码对照表_信息与通信_工程科技_专业资料。颜色代码对照表颜色名称黑色 象牙黑 灰色 冷灰 石板灰 暖灰色 白色 古董白 天蓝色 白烟 白杏仁 米绸色 蛋壳色 ...

北京市行政区划代码

北京市行政区划代码_电力/水利_工程科技_专业资料。本标准是为适应信息技术需要而制订。本标准所给出的行政区划以北京市民政局所提供的北京市人民政府关于行政区划...
更多相关标签:
代码大全 | 代码编辑器 | 源代码 | 网页代码 | 淘宝代码 | 代码生成器 | html代码 | 神秘代码 |
网站地图

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