📄 frm_searchstudentfees.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_SearchStudentFees
BorderStyle = 1 'Fixed Single
Caption = "Fees Status"
ClientHeight = 6330
ClientLeft = 45
ClientTop = 435
ClientWidth = 9210
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6330
ScaleWidth = 9210
Begin VB.Frame Frame1
Height = 4095
Left = 240
TabIndex = 2
Top = 1920
Width = 8775
Begin VB.OptionButton Option2
Caption = "Select For Not Paid Report"
Height = 375
Left = 3000
TabIndex = 14
Top = 2520
Width = 3015
End
Begin VB.OptionButton Option1
Caption = "Select For Paid Report"
Height = 375
Left = 600
TabIndex = 13
Top = 2520
Width = 2175
End
Begin VB.CheckBox Check1
Caption = "For All Months and Years"
Height = 495
Left = 6240
TabIndex = 12
Top = 1680
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "Preview"
Height = 615
Left = 3120
TabIndex = 11
Top = 3240
Width = 2175
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 2520
TabIndex = 10
Top = 1800
Width = 3015
_ExtentX = 5318
_ExtentY = 661
_Version = 393216
Format = 48562176
CurrentDate = 38829
End
Begin VB.ComboBox cmb_rollno
Height = 315
Left = 2520
Style = 2 'Dropdown List
TabIndex = 8
Top = 1200
Width = 1935
End
Begin VB.ComboBox cmb_session
Height = 315
Left = 6120
Style = 2 'Dropdown List
TabIndex = 6
Top = 480
Width = 1815
End
Begin VB.ComboBox cmb_Class
Height = 315
Left = 2520
Style = 2 'Dropdown List
TabIndex = 4
Top = 480
Width = 1935
End
Begin VB.Label Label5
Caption = "Select Month and Year"
Height = 375
Left = 480
TabIndex = 9
Top = 1800
Width = 2055
End
Begin VB.Label Label3
Caption = "Select Students List"
Height = 495
Left = 480
TabIndex = 7
Top = 1200
Width = 2175
End
Begin VB.Label Label2
Caption = "Select Section"
Height = 375
Left = 4680
TabIndex = 5
Top = 480
Width = 1695
End
Begin VB.Label Label1
Caption = "Select Class"
Height = 375
Left = 480
TabIndex = 3
Top = 480
Width = 1815
End
End
Begin VB.PictureBox Picture3
Height = 1575
Left = -120
Picture = "frm_SearchStudentFees.frx":0000
ScaleHeight = 1515
ScaleWidth = 11955
TabIndex = 0
Top = 0
Width = 12015
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " Fees Paid or Not Paid Report"
BeginProperty Font
Name = "Verdana"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 570
Left = 1200
TabIndex = 1
Top = 360
Width = 7875
End
End
End
Attribute VB_Name = "frm_SearchStudentFees"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmb_Class_Click()
Dim Rs As New ADODB.Recordset
If (Trim(cmb_Class.Text) <> "") Then
Rs.Open "select course_id from course where course_name='" & Trim(cmb_Class.Text) & "'", frmMain.Cn, 2, 3
course_id = Rs!course_id
Rs.Close
Rs.Open "select distinct Stud_id as Stud_id from qry_Studentfees where course_name='" & Trim(cmb_Class.Text) & "'", frmMain.Cn, 2, 3
cmb_rollno.Clear
Do While Not Rs.EOF
cmb_rollno.AddItem Rs!stud_id
Rs.MoveNext
Loop
cmb_session.Clear
Set Rs = Nothing
Rs.Open "select Distinct Sections as Section from qry_Studentfees where course_name='" & Trim(cmb_Class.Text) & "'", frmMain.Cn, 2, 3
cmb_session.Clear
Do While Not Rs.EOF
cmb_session.AddItem Rs!Section
Rs.MoveNext
Loop
End If
Set Rs = Nothing
End Sub
Private Sub Command1_Click()
If (cmb_rollno.Text <> "" And cmb_session.Text <> "" And cmb_Class.Text <> "") Then
Dim Rs As New ADODB.Recordset
If (Check1.Value = 1) Then
If (Option1.Value = True) Then
Rs.Open "select * from qry_studentFees where STud_id=" & Val(cmb_rollno.Text) & " and Status=-1" & " and course_name='" & Trim(cmb_Class.Text) & "' and Sections=" & Val(cmb_session.Text), frmMain.Cn, 2, 3
Else
Rs.Open "select * from qry_studentFees where STud_id=" & Val(cmb_rollno.Text) & " and Status=0" & " and course_name='" & Trim(cmb_Class.Text) & "' and Sections=" & Val(cmb_session.Text), frmMain.Cn, 2, 3
End If
Else
If (Option1.Value = True) Then
Rs.Open "select * from qry_studentFees where STud_id=" & Val(cmb_rollno.Text) & " and Status=-1" & " and course_name='" & Trim(cmb_Class.Text) & "' and Sections=" & Val(cmb_session.Text) & " and Month(FeeDate)=" & Month(DTPicker1.Value) & " and year(feeDate)=" & Year(DTPicker1.Value), frmMain.Cn, 2, 3
Else
Rs.Open "select * from qry_studentFees where STud_id=" & Val(cmb_rollno.Text) & " and Status=0" & " and course_name='" & Trim(cmb_Class.Text) & "' and Sections=" & Val(cmb_session.Text) & " and Month(FeeDate)=" & Month(DTPicker1.Value) & " and year(feeDate)=" & Year(DTPicker1.Value), frmMain.Cn, 2, 3
End If
End If
If Not (Rs.EOF And Rs.BOF) Then
If (Option1.Value = True) Then
Set rptSearchPaidFees.DataSource = Rs
rptSearchPaidFees.Show
Else
Set rptSearchNotPaid.DataSource = Rs
rptSearchNotPaid.Show
End If
Else
MsgBox "There is not Such Information Exist"
End If
End If
End Sub
Private Sub Form_Load()
Dim Rs As New ADODB.Recordset
Rs.Open "select * from course", frmMain.Cn, 2, 3
Do While Not Rs.EOF
cmb_Class.AddItem Rs!course_Name
Rs.MoveNext
Loop
Rs.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -