Form3.frm
上传用户:bubble
上传日期:2007-03-02
资源大小:403k
文件大小:14k
- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
- Begin VB.Form Form3
- BackColor = &H00C0C0C0&
- BorderStyle = 1 'Fixed Single
- Caption = "浏览学生档案"
- ClientHeight = 6255
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 11910
- Icon = "Form3.frx":0000
- LinkTopic = "Form3"
- MaxButton = 0 'False
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 6255
- ScaleWidth = 11910
- Begin VB.Frame Frame3
- Height = 940
- Left = 0
- TabIndex = 3
- Top = 0
- Width = 3040
- Begin MSComctlLib.Toolbar Toolbar1
- Height = 765
- Left = 120
- TabIndex = 4
- 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 = "查找"
- 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 = "删除"
- Object.Tag = "del"
- ImageKey = "del"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- 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 VB.Frame Frame2
- BackColor = &H80000013&
- Height = 6135
- Left = 3120
- TabIndex = 2
- Top = 0
- Width = 8775
- Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSF1
- Height = 5775
- Left = 0
- TabIndex = 5
- Top = 240
- Width = 8535
- _ExtentX = 15055
- _ExtentY = 10186
- _Version = 393216
- BackColor = -2147483624
- BackColorSel = 16777215
- ForeColorSel = 255
- BackColorBkg = -2147483624
- GridColor = 12632256
- GridColorFixed = 4210752
- SelectionMode = 1
- AllowUserResizing= 3
- _NumberOfBands = 1
- _Band(0).Cols = 2
- End
- Begin MSComctlLib.ImageList ImageList2
- Left = 0
- Top = 0
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 2
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":0442
- Key = "class"
- Object.Tag = "class"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":0772
- Key = "cla2"
- EndProperty
- EndProperty
- End
- End
- Begin VB.Frame Frame1
- Caption = "浏览数据"
- Height = 5175
- Left = 120
- TabIndex = 0
- Top = 960
- Width = 2895
- Begin MSComctlLib.TreeView TreeView1
- Height = 4815
- Left = 120
- TabIndex = 1
- Top = 240
- Width = 2655
- _ExtentX = 4683
- _ExtentY = 8493
- _Version = 393217
- HideSelection = 0 'False
- LineStyle = 1
- Style = 7
- FullRowSelect = -1 'True
- HotTracking = -1 'True
- ImageList = "ImageList2"
- BorderStyle = 1
- Appearance = 1
- End
- End
- Begin MSComctlLib.ImageList ImageList1
- Left = 2760
- Top = 3480
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 32
- ImageHeight = 32
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 4
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":0BC6
- Key = "del"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":101E
- Key = "print"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":169A
- Key = "find"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Form3.frx":1AEE
- Key = "modi"
- EndProperty
- EndProperty
- End
- End
- Attribute VB_Name = "Form3"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Public printstr As String
- Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
- Public Sub showtitle()
- MSF1.Clear
- Dim i As Integer
- With MSF1
- .Cols = 14
- .TextMatrix(0, 1) = "学号"
- .TextMatrix(0, 2) = "姓名"
- .TextMatrix(0, 3) = "性别"
- .TextMatrix(0, 4) = "年级"
- .TextMatrix(0, 5) = "班级"
- .TextMatrix(0, 6) = "专业"
- .TextMatrix(0, 7) = "年制"
- .TextMatrix(0, 8) = "出生年月"
- .TextMatrix(0, 9) = "家庭住址"
- .TextMatrix(0, 10) = "邮政编码"
- .TextMatrix(0, 11) = "联系电话"
- .TextMatrix(0, 12) = "入学时间"
- .TextMatrix(0, 13) = "备注"
- .ColWidth(0) = 200
- .ColWidth(1) = 500
- .ColWidth(2) = 700
- .ColWidth(3) = 500
- .ColWidth(4) = 1000
- .ColWidth(5) = 800
- .ColWidth(6) = 700
- .ColWidth(7) = 800
- .ColWidth(8) = 800
- .ColWidth(9) = 3000
- .ColWidth(10) = 800
- .ColWidth(11) = 1000
- .ColWidth(12) = 800
- .ColWidth(13) = 6000
- .FixedRows = 1
- For i = 1 To 13
- .ColAlignment(i) = 0
- Next i
- .FillStyle = flexFillSingle
- .Col = 0
- .Row = 0
- .RowSel = 1
- .ColSel = .Cols - 1
- .CellAlignment = 4
- .Row = 1
- End With
- End Sub
- Private Sub Form_Activate()
- If find = True Then
- Form4.ZOrder
- End If
- If find = True Then
- Exit Sub
- ElseIf modi = True Then
- showdata
- ' TreeView1_DblClick
- modi = False
- Else
- tree
- End If
- End Sub
- Public Sub showdata()
- Dim j As Integer
- Dim i As Integer
- Dim mrc As ADODB.Recordset
- Set mrc = New ADODB.Recordset
- Set mrc = ExecuteSQL(txtsql)
- If mrc.EOF = False Then
- mrc.MoveFirst
- With MSF1
- .Rows = 50
- .Row = 1
- Do While Not mrc.EOF
- .Rows = .Rows + 1
- For i = 1 To mrc.Fields.Count
- .TextMatrix(.Row, i) = mrc.Fields(i - 1)
- Next i
- .Row = .Row + 1
- mrc.MoveNext
- Loop
- End With
- Else
- If find = True Then
- Form3.Hide
- Form4.Show
- zzz = MsgBox("对不起,没有此学生的档案记录!", vbOKOnly, "查询")
- Form4.ZOrder (0)
- Form4.Text1(0).SetFocus
-
- End If
- End If
- Set mrc = Nothing
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- If find = True Then
- find = False
- Form4.Text1(0).SetFocus
- End If
- End Sub
- Public Sub tree()
- TreeView1.Nodes.Clear
- Dim nodex As Node
- Dim mrc As ADODB.Recordset
- Dim mrc1 As ADODB.Recordset
- Dim str As String
- Dim a As String
- a = "年级"
- 'TreeView1.LineStyle = tvwRootLines
- str = "select distinct 年级 from class order by 年级"
- Set mrc = ExecuteSQL(str)
- str = "select distinct 年级,班级 from class order by 年级,班级"
- Set mrc1 = ExecuteSQL(str)
- mrc.MoveFirst
- Do Until mrc.EOF
- mrc1.MoveFirst
- Set nodex = TreeView1.Nodes.add(, , a, mrc.Fields(0), 1, 1)
- Do While Not mrc1.EOF
- If mrc1.Fields(0) = mrc.Fields(0) Then
- Set nodex = TreeView1.Nodes.add(a, tvwChild, , mrc1.Fields(1), 2, 2)
- End If
- mrc1.MoveNext
- Loop
- a = a & "1"
- mrc.MoveNext
- Loop
- mrc1.Close
- mrc.Close
- Set mrc = Nothing
- Set mrc1 = Nothing
- End Sub
- Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Tag
- Case "find"
- Form4.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
- modi = True
- Form1.Show
- Form1.ZOrder 0
- End If
- Case "del"
- Dim mrc As ADODB.Recordset
- Dim intcount As Integer
- If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
- sssss = MsgBox("你还没有选择记录!", vbOKOnly + vbExclamation, "警告")
- Else
- If qxstr = "readonly" Then
- ss = MsgBox("对不起,你是只读用户不能删除记录,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
- Exit Sub
- End If
- If MsgBox("确定要删除学号为 " & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & " 的记录吗?" & Chr(10) & Chr(13) & "该操作会导致该学生交费记录和成绩记录的丢失!确定吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
- intcount = Me.MSF1.Row
- txtsql = "delete * from xj where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
- Set mrc = ExecuteSQL(txtsql)
- txtsql = "delete * from jf where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
- Set mrc = ExecuteSQL(txtsql)
- txtsql = "delete * from cj where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
- Set mrc = ExecuteSQL(txtsql)
- TreeView1_DblClick
- End If
- End If
- ' Case "print"
- ' Form6.Show
- ' Form6.ZOrder 0
- End Select
- End Sub
- Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
- Select Case ButtonMenu.Key
- Case "dang"
- If Trim(printstr) = "" Then
- sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
- Exit Sub
- End If
- If DataEnv1.rsCommand1.State = adStateOpen Then
- DataEnv1.rsCommand1.Close
- End If
- DataEnv1.rsCommand1.Open printstr
- If DataEnv1.rsCommand1.EOF = True Then
- sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
- Exit Sub
- End If
- DataReportclass.Show 1
- Case "all"
- If DataEnv1.rsCommand1.State = adStateOpen Then
- DataEnv1.rsCommand1.Close
- End If
- DataEnv1.rsCommand1.Open ("select xj.学号,xj.姓名,xj.性别,xj.班级,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注,class.专业 from xj inner join class on xj.班级=class.班级")
- If DataEnv1.rsCommand1.EOF = True Then
- sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
- Exit Sub
- End If
- DataReportclass.Show 1
- End Select
- End Sub
- Private Sub TreeView1_DblClick()
- On Error GoTo ss
- If TreeView1.SelectedItem.Index = 0 Then
- MSF1.Clear
- Exit Sub
- End If
- txtsql = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
- txtsql = "select xj.学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where xj.班级='" & txtsql & "' or 年级='" & txtsql & "' order by class.年级 ,class.班级 ,xj.学号 "
- printstr = txtsql
- Me.Caption = "浏览学生档案"
- Me.showtitle
- Me.showdata
- Exit Sub
- ss:
- MSF1.Clear
- End Sub