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

代码


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


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

国家缩写代码大全

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

CNC G代码大全

CNC G代码大全_机械/仪表_工程科技_专业资料。cncCNC G 代码大全 (2010-03-08 04:51:34) 转载 ▼ 标签:模态 坐标系 参考点 cnc 工件 杂谈 G 代码 分组 ...

源代码是什么

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

学生来源代码完整版本

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

汇编源代码

‘N$’ DSEG ENDS ;数据段结束 CSEG SEGMENT ;定义代码段 ASSUME DS:DSEG,CS:CSEG ASSUME SS:SSEG,ES:ESEG START: MOV AX,DSEG ;建立 DS 段地址 MOV ...

G代码大全

G 代码 G00 G01 功能说明快速定位 直线插补 G00 X__ Y__ Z__ 指令格式 G01 X __ Y __ Z__;一般直线插补模式 N100 G01 X__ Y__, C__ N105 ...

Discuz代码大全

Discuz代码大全_IT/计算机_专业资料。Discuz代码大全,经过整理编辑Discuz!代码大全 代码大全 代码大家在论坛发表主题或回帖时,经常要用到 Discuz!代码,本文就常用的 ...

HTML标签代码大全(DIV+CSS前端开发者的福音)

HTML标签代码大全(DIV+CSS前端开发者的福音)_IT/计算机_专业资料。所有HTML标签名称以及详细的注解,为DIV+CSS前端开发者提供参考。这里有你想要的!HTML...

G代码与M代码

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

淘宝装修代码大全(完整版)

进“我的淘宝”点击“管理我的店铺”进入“基本设置” 先贴代码, 再写你的公告文字 <bgsound src="你的背景音乐地址" loop=-1> 4.浮动的图片的代码: ;<img...

更多相关标签:
网站地图

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