开发工具:
文件大小: 403kb
下载次数: 0
上传时间: 2009-01-06
详细说明: BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 2 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":0442 Key = "class" Object.Tag = "class" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":0772 Key = "cla2" EndProperty EndProperty End End Begin VB.Frame Frame1 Caption = "浏览数据" Height = 4695 Left = 0 TabIndex = 2 Top = 960 Width = 3015 Begin MSComctlLib.TreeView TreeView1 Height = 4335 Left = 120 TabIndex = 3 Top = 240 Width = 2775 _ExtentX = 4895 _ExtentY = 7646 _Version = 393217 HideSelection = 0 'False LineStyle = 1 Style = 7 HotTracking = -1 'True ImageList = "ImageList2" Appearance = 1 End End Begin VB.Frame Frame3 Height = 940 Left = 0 TabIndex = 0 Top = 0 Width = 3040 Begin MSComctlLib.Toolbar Toolbar1 Height = 765 Left = 120 TabIndex = 1 Top = 120 Width = 2895 _ExtentX = 5106 _ExtentY = 1349 ButtonWidth = 1032 ButtonHeight = 1349 Style = 1 ImageList = "ImageList1" _Version = 393216 BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} NumButtons = 7 BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "查找" Key = "find" Object.Tag = "find" ImageKey = "find" EndProperty BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "修改" Key = "modi" Object.Tag = "modi" ImageKey = "modi" EndProperty BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "删除" Key = "del" Object.Tag = "del" ImageKey = "del" EndProperty BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3 EndProperty BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "打印" Key = "print" Object.Tag = "print" ImageKey = "print" Style = 5 BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} NumButtonMenus = 2 BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} Key = "dang" Text = "打印当前记录" EndProperty BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} Key = "all" Text = "打印全部记录" EndProperty EndProperty EndProperty EndProperty End End Begin MSComctlLib.ImageList ImageList1 Left = 2880 Top = 2400 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 32 ImageHeight = 32 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 5 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":0BC6 Key = "del" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":101E Key = "print" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":169A Key = "find" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":1AEE Key = "modi" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "Formclass2.frx":1F42 Key = "class" Object.Tag = "class" EndProperty EndProperty End End Attribute VB_Name = "Formclass2" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public printstr As String Public Sub classshowtitle() Dim i As Integer MSF1.Clear With MSF1 .Cols = 8 .TextMatrix(0, 1) = "年级" .TextMatrix(0, 2) = "班级" .TextMatrix(0, 3) = "教室" .TextMatrix(0, 4) = "年制" .TextMatrix(0, 5) = "专业" .TextMatrix(0, 6) = "班主任" .TextMatrix(0, 7) = "备注" .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim mrc1 As ADODB.Recordset Set mrc1 = ExecuteSQL(Trim(txtsql)) If mrc1.EOF = False Then mrc1.MoveFirst With MSF1 .Rows = 1 Do While Not mrc1.EOF .Rows = .Rows + 1 For i = 1 To mrc1.Fields.Count .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1) Next i mrc1.MoveNext Loop mrc1.Close End With Else If classfind = True Then Formclass2.Hide Formclass3.Show zzz = MsgBox("对不起,没有此班级的档案记录!", vbOKOnly, "查询") Formclass3.ZOrder (0) Formclass3.Text1(0).SetFocus End If End If End Sub Private Sub Form_Activate() If classfind = True Then Formclass3.ZOrder 0 End If If classfind = True Then Exit Sub ElseIf classmodi = True Then classshowdata ' TreeView1_DblClick classmodi = False Else classtree End If If classfind = True Then Exit Sub Else MDIForm1.clabrowse End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Tag Case "find" Formclass3.Show Case "modi" If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then sssss = MsgBox("你还没有选择记录!", vbOKOnly + vbExclamation, "警告") Exit Sub Else qxstr = Executeqx(2) If qxstr = "readonly" Then ss = MsgBox("对不起,你是只读用户不能修改记录,请与管理员联系!", vbInformation + vbOKOnly, " 警告") Exit Sub End If classmodi = True Formclass1.Show Formclass1.classload ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.