?? frmcountmain.frm

?? Vb以及SQL的學生信息系統軟件簡介: 學生信息管理系統
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
         Top             =   540
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "人文社會科學學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   7
         Left            =   3795
         TabIndex        =   9
         Top             =   1080
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "生命技術科學學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   8
         Left            =   3795
         TabIndex        =   10
         Top             =   1350
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "管理學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   9
         Left            =   7320
         TabIndex        =   11
         Top             =   270
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "建筑工程力學學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   10
         Left            =   7320
         TabIndex        =   12
         Top             =   540
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "塑性成形工程系"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   11
         Left            =   7320
         TabIndex        =   15
         Top             =   1350
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "體育系"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   12
         Left            =   7320
         TabIndex        =   14
         Top             =   1080
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "船舶與海洋工程學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   270
         TabIndex        =   0
         Top             =   270
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "外國語學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   13
         Left            =   3795
         TabIndex        =   8
         Top             =   810
         Width           =   2025
      End
      Begin VB.CheckBox chkYX 
         Caption         =   "化學化工學院"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   14
         Left            =   7320
         TabIndex        =   13
         Top             =   810
         Width           =   2025
      End
      Begin VB.Line Line5 
         BorderColor     =   &H00FFFFFF&
         X1              =   6375
         X2              =   6375
         Y1              =   200
         Y2              =   1580
      End
      Begin VB.Line Line4 
         BorderColor     =   &H00808080&
         X1              =   6360
         X2              =   6360
         Y1              =   200
         Y2              =   1580
      End
      Begin VB.Line Line3 
         BorderColor     =   &H00FFFFFF&
         X1              =   2870
         X2              =   2870
         Y1              =   200
         Y2              =   1580
      End
      Begin VB.Line Line2 
         BorderColor     =   &H00808080&
         X1              =   2850
         X2              =   2850
         Y1              =   200
         Y2              =   1580
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00000000&
      X1              =   0
      X2              =   2700
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu MNUFILE 
      Caption         =   "【文件&F】"
      Begin VB.Menu MNUFILE1 
         Caption         =   "退出[&X]"
      End
   End
   Begin VB.Menu MNUQHH 
      Caption         =   "【功能切換&C】"
      Begin VB.Menu MNUQHH1 
         Caption         =   "信息錄入[&W]"
      End
      Begin VB.Menu mnu28 
         Caption         =   "-"
      End
      Begin VB.Menu MNUQHH2 
         Caption         =   "全屏修改[&R]"
      End
      Begin VB.Menu MNU29 
         Caption         =   "-"
      End
      Begin VB.Menu MNUQH3 
         Caption         =   "記錄查詢[&S]"
      End
   End
   Begin VB.Menu MNUHELP 
      Caption         =   "【幫助&H】"
      Begin VB.Menu MNUHELP1 
         Caption         =   "使用說明[&N]"
      End
   End
End
Attribute VB_Name = "frmCount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdCount_Click()
On Error Resume Next
Dim Start As Integer '從此開始組建SQL語句
Dim EmpetyAll As Boolean '為空則無法組建SQL語句
Dim EmpetyThis As Boolean
Dim recForMain As Recordset
Dim I As Integer
sqlForMain = "select xh,xm,csny,xb,mz,yx,bj,hksx,nj,sy,zzmm,zy,pyfs,byzx,xl,tc,sfzhm,ltkhm,ss,dh from zbqkb where "
EmpetyAll = True
EmpetyThis = False
'尋找第一個有效選項 院系
For I = 0 To 14
  Start = I
  If chkYX(I).Value = 1 Then
      sqlForMain = sqlForMain + "(yx='" + Trim(chkYX(I).Caption) + "' "
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 院系
If Start < 14 Then
    For I = Start + 1 To 14
      If chkYX(I).Value = 1 Then
          sqlForMain = sqlForMain + "or yx='" + Trim(chkYX(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'尋找第一個有效選項 生源
EmpetyThis = False
For I = 0 To 29
  Start = I
  If chkSY(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(sy like '" + chkSY(I).Caption + "*' "
      Else
          sqlForMain = sqlForMain + "and (sy like '" + chkSY(I).Caption + "*' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 生源
If Start < 29 Then
    For I = Start + 1 To 29
      If chkSY(I).Value = 1 Then
          sqlForMain = sqlForMain + "or sy like '" + chkSY(I).Caption + "*' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'尋找第一個有效選項 民族
EmpetyThis = False
For I = 0 To 4
  Start = I
  If chkMZ(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(mz='" + Trim(chkMZ(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (mz='" + Trim(chkMZ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 民族
If Start < 4 Then
    For I = Start + 1 To 4
      If chkMZ(I).Value = 1 Then
          sqlForMain = sqlForMain + "or mz='" + Trim(chkMZ(I).Caption) + "' "
      End If
    Next I
End If
'少數民族特殊處理
If chkMZ(5).Value = 1 Then
    EmpetyAll = False
    EmpetyThis = True
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族' "
    Else
        If Start = 4 And chkMZ(4).Value = 0 Then
            sqlForMain = sqlForMain + "and (mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族' "
        Else
            sqlForMain = sqlForMain + "or (mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族') "
        End If
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'尋找第一個有效選項 學歷
EmpetyThis = False
For I = 0 To 5
  Start = I
  If chkXL(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(xl='" + Trim(chkXL(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (xl='" + Trim(chkXL(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 學歷
If Start < 5 Then
    For I = Start + 1 To 5
      If chkXL(I).Value = 1 Then
          sqlForMain = sqlForMain + "or xl='" + Trim(chkXL(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'尋找第一個有效選項 年級
EmpetyThis = False
For I = 0 To 6
  Start = I
  If chkNJ(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(nj='" + Trim(chkNJ(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (nj='" + Trim(chkNJ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 年級
If Start < 6 Then
    For I = Start + 1 To 6
      If chkNJ(I).Value = 1 Then
          sqlForMain = sqlForMain + "or nj='" + Trim(chkNJ(I).Caption) + "' "
      End If
    Next I
End If
If txtNJ <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "nj='" + Trim(txtNJ) + "'"
    Else
        sqlForMain = sqlForMain + "and nj='" + Trim(txtNJ) + "'"
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'學號
If txtXH <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xh like '" + Trim(txtXH) + "*') "
    Else
        sqlForMain = sqlForMain + "and (xh like '" + Trim(txtXH) + "*') "
    End If
End If
'姓名
If txtXM <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xm Like '" + Trim(txtXM) + "*') "
    Else
        sqlForMain = sqlForMain + "and (xm like '" + Trim(txtXM) + "*') "
    End If
End If

'身份證
If txtSFZ <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(sfzhm LIKE '" + Trim(txtSFZ) + "*') "
    Else
        sqlForMain = sqlForMain + "and (sfzhm LIKE '" + Trim(txtSFZ) + "*') "
    End If
End If
'戶口屬性
If optCity = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='城市') "
    Else
        sqlForMain = sqlForMain + "and (hksx='城市') "
    End If
End If
If optCountry = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='農村') "
    Else
        sqlForMain = sqlForMain + "and (hksx='農村') "
    End If
End If
'性別
If optMan = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='男') "
    Else
        sqlForMain = sqlForMain + "and (xb='男') "
    End If
End If
If optWoman = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='女') "
    Else
        sqlForMain = sqlForMain + "and (xb='女') "
    End If
End If
'如果無選擇項,則退出過程
If EmpetyAll Then
    MsgBox "無選擇條件", vbInformation, "錯誤提示"
    Exit Sub
End If
'符合統計條件的記錄數
Set recForMain = Dbstudent.OpenRecordset(sqlForMain, dbOpenSnapshot)
If recForMain.RecordCount = 0 Then
    txtCount = 0
Else
    recForMain.MoveLast
    txtCount = recForMain.RecordCount
End If
End Sub

Private Sub cmdDelete_Click()
On Error Resume Next
GiveUp
End Sub

Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
End Sub

Public Sub GiveUp()
On Error Resume Next
Dim I As Integer
For I = 0 To 14
  chkYX(I).Value = 0
Next I
For I = 0 To 29
  chkSY(I).Value = 0
Next I
For I = 0 To 5
  chkMZ(I).Value = 0
Next I
For I = 0 To 5
  chkXL(I).Value = 0
Next
For I = 0 To 6
  chkNJ(I).Value = 0
Next I
txtNJ = " "
txtCount = " "
txtXM = " "
txtXH = " "
txtSFZ = " "
optCity = False
optCountry = False
optMan = False
optWoman = False
End Sub

Private Sub Form_Load()
On Error Resume Next
Line1.X1 = 0
Line1.X2 = frmCount.Width
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
End Sub

Private Sub MNUFILE1_Click()
On Error Resume Next
Unload Me
End Sub

Private Sub MNUHELP1_Click()
On Error Resume Next
Dim TTT  As String
Dim X
TTT = App.Path + "\help\jbtj.txt"
X = Shell("Notepad " + TTT, 1)
End Sub

Private Sub MNUQH3_Click()
On Error Resume Next
frmQuery.Show 1
End Sub

Private Sub MNUQHH1_Click()
On Error Resume Next
frmBaseInput.Show 1
End Sub

Private Sub MNUQHH2_Click()
On Error Resume Next
frmGridModify.Show 1
End Sub
上一頁 1 23
?? 文件大小 1049 K
?? 上傳用戶 hahuhuhuhu
?? 所屬分類教育系統應用
??? 相關標簽

#SQL #信息系統 #信息管理系統 #軟件
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmcountmain.frm

?? 快捷鍵說明
