frmmain.frm

数据库管理系统的实习内容

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "一卡通信息管理系统"
   ClientHeight    =   5010
   ClientLeft      =   60
   ClientTop       =   915
   ClientWidth     =   10455
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":29C12
   StartUpPosition =   2  'CenterScreen
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   4635
      Width           =   10455
      _ExtentX        =   18441
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "status"
            TextSave        =   "status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2004-11-25"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "21:38"
         EndProperty
      EndProperty
   End
   Begin VB.Menu sysmenu 
      Caption         =   "系 统"
      Begin VB.Menu addmenu 
         Caption         =   "添加用户"
      End
      Begin VB.Menu changemenu 
         Caption         =   "修改密码"
      End
      Begin VB.Menu exitmenu 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu cardmenu 
      Caption         =   "一卡通帐户信息管理"
      Begin VB.Menu cardaddmenu 
         Caption         =   "一卡通帐户添加"
      End
      Begin VB.Menu cardchangemenu 
         Caption         =   "一卡通帐户修改"
      End
      Begin VB.Menu menuDelete 
         Caption         =   "一卡通帐户删除"
      End
      Begin VB.Menu cardcheckmenu 
         Caption         =   "一卡通信息查询"
      End
   End
   Begin VB.Menu cardmanagemenu 
      Caption         =   "卡籍信息管理"
      Begin VB.Menu newcardmenu 
         Caption         =   "新卡入库"
      End
      Begin VB.Menu newchangemenu 
         Caption         =   "新卡修改"
      End
   End
   Begin VB.Menu operatemenu 
      Caption         =   "一卡通使用管理"
      Begin VB.Menu addvaluemenu 
         Caption         =   "充值操作"
      End
      Begin VB.Menu offermenu 
         Caption         =   "补助管理"
      End
      Begin VB.Menu valuecheckmenu 
         Caption         =   "卡值查询"
      End
   End
   Begin VB.Menu hangmenu 
      Caption         =   "一卡通挂失处理"
      Begin VB.Menu hangcardmenu 
         Caption         =   "挂失处理"
      End
      Begin VB.Menu unhangmenu 
         Caption         =   "解挂失处理"
      End
      Begin VB.Menu statuemenu 
         Caption         =   "一卡通状态查询"
      End
   End
   Begin VB.Menu departmenu 
      Caption         =   "山东大学院系管理"
      Begin VB.Menu departaddmenu 
         Caption         =   "院系添加"
      End
      Begin VB.Menu changedepmenu 
         Caption         =   "院系修改"
      End
   End
   Begin VB.Menu collegemenu 
      Caption         =   "山东大学校区管理"
      Begin VB.Menu addcolmenu 
         Caption         =   "校区添加"
      End
      Begin VB.Menu changecolmenu 
         Caption         =   "校区修改"
      End
      Begin VB.Menu setcolmenu 
         Caption         =   "校区设置"
      End
   End
   Begin VB.Menu helpmenu 
      Caption         =   "使用帮助"
      Begin VB.Menu aboutmenu 
         Caption         =   "有关一卡通"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub aboutmenu_Click()
frmAbout.Show
End Sub

Private Sub addcolmenu_Click()
frmAddschoolinfo.Show
End Sub

Private Sub addmenu_Click()
frmAdduser.Show

End Sub

Private Sub addvaluemenu_Click()
frmCardaddvalue.Show
End Sub

Private Sub cardaddmenu_Click()
gintMode = 1
frmAddsinfo.Show
frmAddsinfo.ZOrder 0
End Sub

Private Sub cardchangemenu_Click()
Dim intCount As Integer
If flagEdit Then
        gintMode = 2
        If frmModifysinfo.msgList.Rows > 1 Then
            intCount = frmModifysinfo.msgList.Row
            frmAddsinfo.txtSQL = "select * from student_info where student_ID='" & Trim(frmModifysinfo.msgList.TextMatrix(frmModifysinfo.msgList.Row, 1)) & "'"
            frmAddsinfo.Show
        Else
            Call cardaddmenu_Click
        End If
    Else
       MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "提示您"
       frmModifysinfo.txtSQL = "select * from student_info"
       frmModifysinfo.Show
       frmModifysinfo.ZOrder 0
    End If
End Sub

Private Sub changecolmenu_Click()
Modifyschinfo.Show
End Sub

Private Sub changedepmenu_Click()
frmModifydepinfo.Show

End Sub

Private Sub departaddmenu_Click()
frmAdddepartinfo.Show

End Sub

Private Sub hangcardmenu_Click()
frmCardhang.Show
End Sub

Private Sub menuDelete_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmModifysinfo.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示您") = vbOK Then
                intCount = frmModifysinfo.msgList.Row
                txtSQL = "delete from student_Info where student_ID='" & Trim(frmModifysinfo.msgList.TextMatrix(frmModifysinfo.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmModifysinfo.txtSQL = "select * from student_Info"
                flagEdit = True
                frmModifysinfo.ShowTitle
                frmModifysinfo.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "提示您"
       frmModifysinfo.txtSQL = "select * from student_Info"
        frmModifysinfo.Show
       frmModifysinfo.ZOrder 0
    End If
        
End Sub

Private Sub cardcheckmenu_Click()
frmChecksinfo.Show
End Sub

Private Sub changemenu_Click()
frmModifyuserinfo.Show
 
End Sub

Private Sub exitmenu_Click()
    End
End Sub

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub newcardmenu_Click()
 frmAddcardinfo.Show
End Sub

Private Sub newchangemenu_Click()
frmModifycardinfo.Show
End Sub

Private Sub offermenu_Click()
frmCardoffer.Show
End Sub

Private Sub setcolmenu_Click()
frmSetschinfo.Show
End Sub

Private Sub statuemenu_Click()
frmStatueinfo.Show
End Sub

Private Sub unhangmenu_Click()
frmCardnohang.Show
End Sub

Private Sub valuecheckmenu_Click()
frmValuecheck.Show
End Sub