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

代码


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


赞助商链接
更多相关文档:

G代码大全

G代码大全 - G 代码大全 G00 快速定位 G01 主轴直线切削 G02 主轴顺时针圆弧切削 G03 主轴逆时针圆弧切削 G04 暂停 G10 数据设置 模态 G11 数据设置取消 模态...

HTML代码大全

HTML代码大全_互联网_IT/计算机_专业资料。HTML 代码大全结构性定义 <HTML></HTML>(放在档案的开头与结尾) <TITLE></TITLE>(必须放在「文头」区块内) <HEAD>...

G代码

G代码_机械/仪表_工程科技_专业资料。1 G 代码组及其含义 “模态代码” 的功能在它被执行后会继续维持,而 “一般代码” 仅仅在收到该命令 时起作用。定义移动...

G代码一览表

G代码一览表_互联网_IT/计算机_专业资料。地址代码的意义 功能 程序号 顺序号 准备功能 地址 O(EIA) N G X、Y、Z 尺寸字 A、B、C、U、V、W R I、J...

手机基本代码

基本代码 *#*#4636#*#* — 显示手机信息、电池信息、电池记录、使用统计数据、WiFi 信息 *#*#7780#*#* –重设为原厂设定,不会删除预设程序,及 SD 卡档案...

国家缩写代码大全

国家缩写代码大全 - .AC 国家代码 阿森松岛屿 .AD 国家代码 安道尔共和国 .AE 国家代码 阿拉伯联合酋长国 .AERO 赞助的 为空运业成员所保留的 .AF 国家代码 ...

法兰克G代码和M代码

车削:采用 A 组 G 代码(X Z R 用于绝对、U W C 用于增量输入) G10 P_ X_ Y_ Z_ R_ Q_ 绝对模式编程 G10 P_ U_ V_ W_ C_ Q_ 增量模式...

代码大全之必备

20110103145229469.mp3 七、音乐播放器调整位置代码: ***<DIV style="MARGIN: -12px 0px 0px 2px"> 你把这组代码放在播放器代码的上面,调第一个和第四个...

网页html代码大全

常用HTML 代码解释 一、文字 1.标题文字 <h#>...</h#> #=1~6;h1为最大字,h6为最小字 2.字体变化 ... 【1】字体大小 ... #=1~7;数字愈大字也...

源代码是什么

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

更多相关标签:
网站地图

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