Form3.frm
上传用户:bubble
上传日期:2007-03-02
资源大小:403k
文件大小:14k
源码类别:

教育系统应用

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
  4. Begin VB.Form Form3 
  5.    BackColor       =   &H00C0C0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "浏览学生档案"
  8.    ClientHeight    =   6255
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   11910
  12.    Icon            =   "Form3.frx":0000
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   6255
  18.    ScaleWidth      =   11910
  19.    Begin VB.Frame Frame3 
  20.       Height          =   940
  21.       Left            =   0
  22.       TabIndex        =   3
  23.       Top             =   0
  24.       Width           =   3040
  25.       Begin MSComctlLib.Toolbar Toolbar1 
  26.          Height          =   765
  27.          Left            =   120
  28.          TabIndex        =   4
  29.          Top             =   120
  30.          Width           =   2895
  31.          _ExtentX        =   5106
  32.          _ExtentY        =   1349
  33.          ButtonWidth     =   1032
  34.          ButtonHeight    =   1349
  35.          Style           =   1
  36.          ImageList       =   "ImageList1"
  37.          _Version        =   393216
  38.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  39.             NumButtons      =   7
  40.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.                Caption         =   "查找"
  42.                Object.Tag             =   "find"
  43.                ImageKey        =   "find"
  44.             EndProperty
  45.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.                Style           =   3
  47.             EndProperty
  48.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  49.                Caption         =   "修改"
  50.                Key             =   "modi"
  51.                Object.Tag             =   "modi"
  52.                ImageKey        =   "modi"
  53.             EndProperty
  54.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  55.                Style           =   3
  56.             EndProperty
  57.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.                Caption         =   "删除"
  59.                Object.Tag             =   "del"
  60.                ImageKey        =   "del"
  61.             EndProperty
  62.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  63.                Style           =   3
  64.             EndProperty
  65.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  66.                Caption         =   "打印"
  67.                Object.Tag             =   "print"
  68.                ImageKey        =   "print"
  69.                Style           =   5
  70.                BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  71.                   NumButtonMenus  =   2
  72.                   BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  73.                      Key             =   "dang"
  74.                      Text            =   "打印当前记录"
  75.                   EndProperty
  76.                   BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  77.                      Key             =   "all"
  78.                      Text            =   "打印全部记录"
  79.                   EndProperty
  80.                EndProperty
  81.             EndProperty
  82.          EndProperty
  83.       End
  84.    End
  85.    Begin VB.Frame Frame2 
  86.       BackColor       =   &H80000013&
  87.       Height          =   6135
  88.       Left            =   3120
  89.       TabIndex        =   2
  90.       Top             =   0
  91.       Width           =   8775
  92.       Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSF1 
  93.          Height          =   5775
  94.          Left            =   0
  95.          TabIndex        =   5
  96.          Top             =   240
  97.          Width           =   8535
  98.          _ExtentX        =   15055
  99.          _ExtentY        =   10186
  100.          _Version        =   393216
  101.          BackColor       =   -2147483624
  102.          BackColorSel    =   16777215
  103.          ForeColorSel    =   255
  104.          BackColorBkg    =   -2147483624
  105.          GridColor       =   12632256
  106.          GridColorFixed  =   4210752
  107.          SelectionMode   =   1
  108.          AllowUserResizing=   3
  109.          _NumberOfBands  =   1
  110.          _Band(0).Cols   =   2
  111.       End
  112.       Begin MSComctlLib.ImageList ImageList2 
  113.          Left            =   0
  114.          Top             =   0
  115.          _ExtentX        =   1005
  116.          _ExtentY        =   1005
  117.          BackColor       =   -2147483643
  118.          ImageWidth      =   16
  119.          ImageHeight     =   16
  120.          MaskColor       =   12632256
  121.          _Version        =   393216
  122.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  123.             NumListImages   =   2
  124.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.                Picture         =   "Form3.frx":0442
  126.                Key             =   "class"
  127.                Object.Tag             =   "class"
  128.             EndProperty
  129.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.                Picture         =   "Form3.frx":0772
  131.                Key             =   "cla2"
  132.             EndProperty
  133.          EndProperty
  134.       End
  135.    End
  136.    Begin VB.Frame Frame1 
  137.       Caption         =   "浏览数据"
  138.       Height          =   5175
  139.       Left            =   120
  140.       TabIndex        =   0
  141.       Top             =   960
  142.       Width           =   2895
  143.       Begin MSComctlLib.TreeView TreeView1 
  144.          Height          =   4815
  145.          Left            =   120
  146.          TabIndex        =   1
  147.          Top             =   240
  148.          Width           =   2655
  149.          _ExtentX        =   4683
  150.          _ExtentY        =   8493
  151.          _Version        =   393217
  152.          HideSelection   =   0   'False
  153.          LineStyle       =   1
  154.          Style           =   7
  155.          FullRowSelect   =   -1  'True
  156.          HotTracking     =   -1  'True
  157.          ImageList       =   "ImageList2"
  158.          BorderStyle     =   1
  159.          Appearance      =   1
  160.       End
  161.    End
  162.    Begin MSComctlLib.ImageList ImageList1 
  163.       Left            =   2760
  164.       Top             =   3480
  165.       _ExtentX        =   1005
  166.       _ExtentY        =   1005
  167.       BackColor       =   -2147483643
  168.       ImageWidth      =   32
  169.       ImageHeight     =   32
  170.       MaskColor       =   12632256
  171.       _Version        =   393216
  172.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  173.          NumListImages   =   4
  174.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  175.             Picture         =   "Form3.frx":0BC6
  176.             Key             =   "del"
  177.          EndProperty
  178.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  179.             Picture         =   "Form3.frx":101E
  180.             Key             =   "print"
  181.          EndProperty
  182.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  183.             Picture         =   "Form3.frx":169A
  184.             Key             =   "find"
  185.          EndProperty
  186.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  187.             Picture         =   "Form3.frx":1AEE
  188.             Key             =   "modi"
  189.          EndProperty
  190.       EndProperty
  191.    End
  192. End
  193. Attribute VB_Name = "Form3"
  194. Attribute VB_GlobalNameSpace = False
  195. Attribute VB_Creatable = False
  196. Attribute VB_PredeclaredId = True
  197. Attribute VB_Exposed = False
  198. Public printstr As String
  199. 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
  200. Public Sub showtitle()
  201.  MSF1.Clear
  202.   Dim i As Integer
  203.   With MSF1
  204.     .Cols = 14
  205.     .TextMatrix(0, 1) = "学号"
  206.     .TextMatrix(0, 2) = "姓名"
  207.     .TextMatrix(0, 3) = "性别"
  208.     .TextMatrix(0, 4) = "年级"
  209.     .TextMatrix(0, 5) = "班级"
  210.     .TextMatrix(0, 6) = "专业"
  211.     .TextMatrix(0, 7) = "年制"
  212.     .TextMatrix(0, 8) = "出生年月"
  213.     .TextMatrix(0, 9) = "家庭住址"
  214.     .TextMatrix(0, 10) = "邮政编码"
  215.     .TextMatrix(0, 11) = "联系电话"
  216.     .TextMatrix(0, 12) = "入学时间"
  217.     .TextMatrix(0, 13) = "备注"
  218.     .ColWidth(0) = 200
  219.     .ColWidth(1) = 500
  220.     .ColWidth(2) = 700
  221.     .ColWidth(3) = 500
  222.     .ColWidth(4) = 1000
  223.     .ColWidth(5) = 800
  224.     .ColWidth(6) = 700
  225.     .ColWidth(7) = 800
  226.     .ColWidth(8) = 800
  227.     .ColWidth(9) = 3000
  228.     .ColWidth(10) = 800
  229.     .ColWidth(11) = 1000
  230.     .ColWidth(12) = 800
  231.     .ColWidth(13) = 6000
  232.     .FixedRows = 1
  233.     For i = 1 To 13
  234.       .ColAlignment(i) = 0
  235.     Next i
  236.     .FillStyle = flexFillSingle
  237.     .Col = 0
  238.     .Row = 0
  239.     .RowSel = 1
  240.     .ColSel = .Cols - 1
  241.     .CellAlignment = 4
  242.     .Row = 1
  243.     End With
  244. End Sub
  245. Private Sub Form_Activate()
  246. If find = True Then
  247. Form4.ZOrder
  248. End If
  249. If find = True Then
  250.   Exit Sub
  251. ElseIf modi = True Then
  252. showdata
  253.  ' TreeView1_DblClick
  254.   modi = False
  255. Else
  256.   tree
  257. End If
  258. End Sub
  259. Public Sub showdata()
  260. Dim j As Integer
  261. Dim i As Integer
  262. Dim mrc As ADODB.Recordset
  263. Set mrc = New ADODB.Recordset
  264.  Set mrc = ExecuteSQL(txtsql)
  265.  If mrc.EOF = False Then
  266.    mrc.MoveFirst
  267.    With MSF1
  268.     .Rows = 50
  269.     .Row = 1
  270.     Do While Not mrc.EOF
  271.      .Rows = .Rows + 1
  272.      For i = 1 To mrc.Fields.Count
  273.       .TextMatrix(.Row, i) = mrc.Fields(i - 1)
  274.      Next i
  275.       .Row = .Row + 1
  276.      mrc.MoveNext
  277.     Loop
  278.  End With
  279.  Else
  280.    If find = True Then
  281.    Form3.Hide
  282.    Form4.Show
  283.    zzz = MsgBox("对不起,没有此学生的档案记录!", vbOKOnly, "查询")
  284.    Form4.ZOrder (0)
  285.    Form4.Text1(0).SetFocus
  286.    
  287.    End If
  288.  End If
  289.   Set mrc = Nothing
  290. End Sub
  291. Private Sub Form_Unload(Cancel As Integer)
  292. If find = True Then
  293.   find = False
  294.   Form4.Text1(0).SetFocus
  295. End If
  296. End Sub
  297. Public Sub tree()
  298. TreeView1.Nodes.Clear
  299. Dim nodex As Node
  300. Dim mrc As ADODB.Recordset
  301. Dim mrc1 As ADODB.Recordset
  302. Dim str As String
  303. Dim a As String
  304. a = "年级"
  305. 'TreeView1.LineStyle = tvwRootLines
  306. str = "select distinct 年级 from class order by 年级"
  307. Set mrc = ExecuteSQL(str)
  308. str = "select distinct 年级,班级 from class order by 年级,班级"
  309. Set mrc1 = ExecuteSQL(str)
  310. mrc.MoveFirst
  311. Do Until mrc.EOF
  312.   mrc1.MoveFirst
  313.   Set nodex = TreeView1.Nodes.add(, , a, mrc.Fields(0), 1, 1)
  314.   Do While Not mrc1.EOF
  315.    If mrc1.Fields(0) = mrc.Fields(0) Then
  316.      Set nodex = TreeView1.Nodes.add(a, tvwChild, , mrc1.Fields(1), 2, 2)
  317.    End If
  318.    mrc1.MoveNext
  319.   Loop
  320.   a = a & "1"
  321.   mrc.MoveNext
  322. Loop
  323.  mrc1.Close
  324.  mrc.Close
  325.  Set mrc = Nothing
  326.   Set mrc1 = Nothing
  327. End Sub
  328. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  329. Select Case Button.Tag
  330.         Case "find"
  331.         Form4.Show
  332.         Case "modi"
  333.                 If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
  334.                   sssss = MsgBox("你还没有选择记录!", vbOKOnly + vbExclamation, "警告")
  335.                 Exit Sub
  336.                Else
  337.                qxstr = Executeqx(2)
  338.               If qxstr = "readonly" Then
  339.               ss = MsgBox("对不起,你是只读用户不能修改记录,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
  340.               Exit Sub
  341.               End If
  342.                modi = True
  343.                Form1.Show
  344.                Form1.ZOrder 0
  345.                End If
  346.         Case "del"
  347.                Dim mrc As ADODB.Recordset
  348.              Dim intcount As Integer
  349.               If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
  350.               sssss = MsgBox("你还没有选择记录!", vbOKOnly + vbExclamation, "警告")
  351.               Else
  352.               If qxstr = "readonly" Then
  353.               ss = MsgBox("对不起,你是只读用户不能删除记录,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
  354.               Exit Sub
  355.               End If
  356.               If MsgBox("确定要删除学号为 " & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & " 的记录吗?" & Chr(10) & Chr(13) & "该操作会导致该学生交费记录和成绩记录的丢失!确定吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
  357.              intcount = Me.MSF1.Row
  358.             txtsql = "delete * from xj where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
  359.            Set mrc = ExecuteSQL(txtsql)
  360.            txtsql = "delete * from jf where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
  361.            Set mrc = ExecuteSQL(txtsql)
  362.            txtsql = "delete * from cj where 学号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
  363.            Set mrc = ExecuteSQL(txtsql)
  364.              TreeView1_DblClick
  365.              End If
  366.              End If
  367.        ' Case "print"
  368.        ' Form6.Show
  369.        ' Form6.ZOrder 0
  370. End Select
  371. End Sub
  372. Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  373.   Select Case ButtonMenu.Key
  374.   Case "dang"
  375.   If Trim(printstr) = "" Then
  376.     sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
  377.     Exit Sub
  378.   End If
  379.     If DataEnv1.rsCommand1.State = adStateOpen Then
  380.      DataEnv1.rsCommand1.Close
  381.     End If
  382.      DataEnv1.rsCommand1.Open printstr
  383.      If DataEnv1.rsCommand1.EOF = True Then
  384.             sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
  385.       Exit Sub
  386.     End If
  387.     DataReportclass.Show 1
  388.    Case "all"
  389.      If DataEnv1.rsCommand1.State = adStateOpen Then
  390.      DataEnv1.rsCommand1.Close
  391.     End If
  392.      DataEnv1.rsCommand1.Open ("select xj.学号,xj.姓名,xj.性别,xj.班级,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注,class.专业 from xj inner join class on xj.班级=class.班级")
  393.      If DataEnv1.rsCommand1.EOF = True Then
  394.             sssss = MsgBox("没有当前记录!", vbOKOnly + vbExclamation, "警告")
  395.       Exit Sub
  396.     End If
  397.     DataReportclass.Show 1
  398.   End Select
  399. End Sub
  400. Private Sub TreeView1_DblClick()
  401. On Error GoTo ss
  402. If TreeView1.SelectedItem.Index = 0 Then
  403. MSF1.Clear
  404. Exit Sub
  405. End If
  406. txtsql = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
  407.    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.学号 "
  408.    printstr = txtsql
  409. Me.Caption = "浏览学生档案"
  410. Me.showtitle
  411. Me.showdata
  412. Exit Sub
  413. ss:
  414. MSF1.Clear
  415. End Sub