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

代码


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


更多相关文档:

HTML 常用代码大全

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

G代码与M代码

G 代码 内容 G00 G01 G02 G03 G04 G05 G06 G07 G08 G09 G10 G11 G12 G13 刀架选择:刀架 A G14 刀架选择:刀架 B G15 G16 G17 刀具半径补偿:X-Y ...

html常用代码大全

html常用代码大全_建筑/土木_工程科技_专业资料。html常用代码大全 1.结构性定义 文件类型 <HTML></HTML> (放在档案的开头与结尾) 文件主题 <TITLE></TITLE> ...

疾病分类代码

疾病分类代码_医学_高等教育_教育专区。疾病分类与代码 (修订版) 修订版) 中华人民共和国卫生部 中华人民共和国卫生部 目 录 前言……… 1 1 2 3. 4 5 6...

单位代码

单位代码_表格/模板_实用文档。单位代码 001、市委办 002、市政办 003、市卫生局 004、市防疫站 005、市妇幼保健院 006、市药监局 007、市计生委 008、市药材...

HTTP代码大全

也会出现这类的现象,所以大家就要好好了解下,到底代 码所代表的意思了,HTTP 状态码(HTTP Status Code)是用以表示网页服务器 HTTP 响 应状态的 3 位数字代码...

各种代码

基士得也 5323 一体机自诊码及维修代码自诊代码 E01 蜡版切纸部分故障 驱动部分故障,无电源 E02 送纸台驱动故障 送纸驱动故障,无电源 E03 存储器程序故障 ...

字体颜色代码大全

字体颜色代码大全_设计/艺术_人文社科_专业资料。字体颜色代码大全 HTML 颜色代码表 #000000 #272727 #3C3C3C #4F4F4F #5B5B5B #6C6C6C #7B7B7B #8E8E8...

CNC代码

CNC代码_机械/仪表_工程科技_专业资料。重要的 G/M 代码 1、G00 与 G01 G00 运动轨迹有直线和折线两种,该指令只是用于点定位,不能用于切削加工 G01 按指定进给...

M 、G代码

M 、G代码_电脑基础知识_IT/计算机_专业资料。数控M、G代码 常用M 代码代码及其含义 辅助功能包括各种支持机床操作的功能,像主轴的启停、程序停止和切削液节门...
更多相关标签:
网站地图

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