📄 frmprepay.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmPrepay
BorderStyle = 3 'Fixed Dialog
Caption = "集体充值"
ClientHeight = 3975
ClientLeft = 45
ClientTop = 330
ClientWidth = 4035
Icon = "frmPrepay.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 4035
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTSave
Height = 3135
Left = 240
TabIndex = 3
Top = 240
Width = 3495
_ExtentX = 6165
_ExtentY = 5530
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "学生卡"
TabPicture(0) = "frmPrepay.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblYuan"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblMoney"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblC_name"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblS_name"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblGrade"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblI_name"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cboMoney"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cboC_name"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "cboS_name"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "cboGrade"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "cboI_name"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).ControlCount= 11
TabCaption(1) = "学员卡"
TabPicture(1) = "frmPrepay.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "lblType"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "lblGroup"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "lblMoneyXueYuan"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "lblYuanXueYuan"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "cboType"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cboGroup"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cboMoneyXueYuan"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).ControlCount= 7
Begin VB.ComboBox cboMoneyXueYuan
Height = 300
ItemData = "frmPrepay.frx":0044
Left = -73320
List = "frmPrepay.frx":005D
Style = 2 'Dropdown List
TabIndex = 19
Top = 1560
Width = 1095
End
Begin VB.ComboBox cboGroup
Height = 300
ItemData = "frmPrepay.frx":007D
Left = -73320
List = "frmPrepay.frx":0099
Style = 2 'Dropdown List
TabIndex = 18
Top = 1080
Width = 1335
End
Begin VB.ComboBox cboType
Height = 300
ItemData = "frmPrepay.frx":00DD
Left = -73320
List = "frmPrepay.frx":00DF
Style = 2 'Dropdown List
TabIndex = 16
Top = 600
Width = 1335
End
Begin VB.ComboBox cboI_name
Height = 300
ItemData = "frmPrepay.frx":00E1
Left = 1440
List = "frmPrepay.frx":00E3
Style = 2 'Dropdown List
TabIndex = 8
Top = 600
Width = 1455
End
Begin VB.ComboBox cboGrade
Height = 300
ItemData = "frmPrepay.frx":00E5
Left = 1440
List = "frmPrepay.frx":00E7
Style = 2 'Dropdown List
TabIndex = 7
Top = 1080
Width = 1455
End
Begin VB.ComboBox cboS_name
Height = 300
ItemData = "frmPrepay.frx":00E9
Left = 1440
List = "frmPrepay.frx":00EB
Style = 2 'Dropdown List
TabIndex = 6
Top = 1560
Width = 1455
End
Begin VB.ComboBox cboC_name
Height = 300
ItemData = "frmPrepay.frx":00ED
Left = 1440
List = "frmPrepay.frx":00EF
Style = 2 'Dropdown List
TabIndex = 5
Top = 2040
Width = 1455
End
Begin VB.ComboBox cboMoney
Height = 300
ItemData = "frmPrepay.frx":00F1
Left = 1440
List = "frmPrepay.frx":010A
Style = 2 'Dropdown List
TabIndex = 4
Top = 2520
Width = 1095
End
Begin VB.Label lblYuanXueYuan
AutoSize = -1 'True
Caption = "元"
Height = 180
Left = -72120
TabIndex = 21
Top = 1605
Width = 180
End
Begin VB.Label lblMoneyXueYuan
AutoSize = -1 'True
Caption = "充值金额："
Height = 180
Left = -74640
TabIndex = 20
Top = 1620
Width = 900
End
Begin VB.Label lblGroup
AutoSize = -1 'True
Caption = "批次："
Height = 180
Left = -74640
TabIndex = 17
Top = 1080
Width = 540
End
Begin VB.Label lblType
AutoSize = -1 'True
Caption = "学员卡类别："
Height = 180
Left = -74640
TabIndex = 15
Top = 660
Width = 1080
End
Begin VB.Label lblI_name
AutoSize = -1 'True
Caption = "院系："
Height = 180
Left = 480
TabIndex = 14
Top = 660
Width = 540
End
Begin VB.Label lblGrade
AutoSize = -1 'True
Caption = "年级："
Height = 180
Left = 480
TabIndex = 13
Top = 1140
Width = 540
End
Begin VB.Label lblS_name
AutoSize = -1 'True
Caption = "专业："
Height = 180
Left = 480
TabIndex = 12
Top = 1620
Width = 540
End
Begin VB.Label lblC_name
AutoSize = -1 'True
Caption = "班级："
Height = 180
Left = 480
TabIndex = 11
Top = 2100
Width = 540
End
Begin VB.Label lblMoney
AutoSize = -1 'True
Caption = "充值金额："
Height = 180
Left = 480
TabIndex = 10
Top = 2580
Width = 900
End
Begin VB.Label lblYuan
AutoSize = -1 'True
Caption = "元"
Height = 180
Left = 2640
TabIndex = 9
Top = 2565
Width = 180
End
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2880
TabIndex = 2
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdSave
Caption = "充 值"
Height = 375
Left = 960
TabIndex = 1
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdFind
Caption = "查 询"
Height = 375
Left = 1920
TabIndex = 0
Top = 3480
Width = 855
End
End
Attribute VB_Name = "frmPrepay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmPrepay.frm ''
'' ''
''Created On 2004.3.16--2004.3.20 ''
'' ''
''Description 集体充值窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsInstitute As Recordset
Dim rsInstituteI_ID As Recordset
Dim rsClass As Recordset
Dim rsClassInfo As Recordset
Dim RsCardholder As Recordset
Dim rsSpeciality As Recordset
Dim strInfomation As String
Dim rsSaving As Recordset
Dim RSPrepay As Recordset
Dim rsSort As Recordset
Dim rsGroup As Recordset
Dim strGroup As String
Dim Number As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''根据条件显示符合条件的班级 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboGrade_Click()
If cboC_name.ListCount <> 0 Then
cboC_name.Clear
End If
If cboS_name.Text <> "" And cboGrade.Text <> "" Then
AddClass
ElseIf cboS_name.Text <> "" And cboGrade.Text = "" Then
AddClassPP
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''根据条件显示符合条件的专业 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboI_name_Click()
If cboS_name.ListCount <> 0 Then
cboS_name.Clear
End If
If cboI_name.Text <> "" Then
Set rsInstituteI_ID = New Recordset
rsInstituteI_ID.Open "select * from TbInstitute where I_name = '" & cboI_name.Text & "' ", Modmain.conn, 3, 2
Set rsSpeciality = New Recordset
rsSpeciality.Open "select * from TbSpeciality where I_ID like '" & rsInstituteI_ID.Fields!I_ID & "' ", Modmain.conn, 3, 2
If rsSpeciality.RecordCount <> 0 Then
While Not rsSpeciality.EOF
cboS_name.AddItem (rsSpeciality.Fields!S_Name)
rsSpeciality.MoveNext
Wend
End If
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''根据条件显示符合条件的班级 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboS_name_Click()
If cboC_name.ListCount <> 0 Then
cboC_name.Clear
End If
If cboS_name.Text <> "" And cboGrade.Text <> "" Then
AddClass
ElseIf cboS_name.Text <> "" And cboGrade.Text = "" Then
AddClassPP
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
If SSTSave.Tab = 0 Then
ElseIf SSTSave.Tab = 1 Then
FrmGroupFind.Show 1
frmHourStatistic.AddLog ("L41")
End If
End Sub
Private Sub cmdSave_Click()
Set rsSaving = New Recordset
rsSaving.Open "select * from tbSaving", Modmain.conn, 3, 2
If SSTSave.Tab = 0 Then
If cboMoney.Text = "" Then
MsgBox "充值金额不能为空！", vbOKOnly + vbExclamation, "机房管理"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -