📄 frmcardholderlist.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmCardholderList
BorderStyle = 3 'Fixed Dialog
Caption = "持卡人信息"
ClientHeight = 5970
ClientLeft = 45
ClientTop = 330
ClientWidth = 5670
Icon = "frmCardholderList.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5970
ScaleWidth = 5670
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdYes
Caption = "确 定"
Default = -1 'True
Height = 375
Left = 3480
TabIndex = 2
Top = 5520
Width = 855
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 4560
TabIndex = 1
Top = 5520
Width = 855
End
Begin MSComctlLib.TreeView tvwInstitute
Height = 5415
Left = 0
TabIndex = 0
Top = 0
Width = 5655
_ExtentX = 9975
_ExtentY = 9551
_Version = 393217
LabelEdit = 1
LineStyle = 1
Style = 7
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmCardholderList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmCardholderList.frm ''
'' ''
''Created On 2004.3.6 ''
'' ''
''Description 显示持卡人信息窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsInstitute As Recordset
Dim rsSpeciality As Recordset
Dim rsClass As Recordset
Dim nodex As Node
Dim RsCardholder As Recordset
Dim rsCardholderW As Recordset
Dim rsCardholderJ As Recordset
Dim rsCardholderL As Recordset
Dim StrText As String
Public StrForm As String
Private Sub cmdExit_Click()
Unload Me
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''给不同的调用输入值 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdYes_Click()
If StrForm = "frmSave" Then
frmSave.txtC_ID.Text = StrText
ElseIf StrForm = "frmmain" Then
frmmain.txtCH_ID = StrText
ElseIf StrForm = "frmStopUseAndLoss22" Then
frmStopUseAndLoss.txtC_IDLoss = StrText
ElseIf StrForm = "frmStopUseAndLoss11" Then
frmStopUseAndLoss.txtC_ID = StrText
ElseIf StrForm = "frmExitCard" Then
frmExitCard.txtC_ID = StrText
ElseIf StrForm = "frmSaveStatistic" Then
frmSaveStatistic.txtCH_ID = StrText
ElseIf StrForm = "frmCardholderFind" Then
frmCardholderFind.txtCondition = StrText
ElseIf StrForm = "frmCHFind" Then
frmCHFind.txtCH_ID = StrText
ElseIf StrForm = "frmShangjiStatistic" Then
frmShangjiStatistic.txtCH_ID = StrText
End If
Unload Me
End Sub
Private Sub Form_Load()
cmdYes.Enabled = False
Set rsInstitute = New Recordset
Dim strInstitute As String
strInstitute = "select I_ID,I_Name from TbInstitute"
rsInstitute.Open strInstitute, Modmain.conn, 3, 2
tvwInstitute.LineStyle = tvwRootLines '配置tvwInstitute控件
Set nodex = tvwInstitute.Nodes.Add(, , "school", "西安电子科技大学")
nodex.Tag = "school"
Set nodex = tvwInstitute.Nodes.Add(, , "xueyuan", "学员卡")
nodex.Tag = "xueyuan"
Set nodex = tvwInstitute.Nodes.Add(, , "linshi", "临时卡")
nodex.Tag = "linshi"
Set nodex = tvwInstitute.Nodes.Add("xueyuan", tvwChild, "Web", "网络培训")
nodex.Tag = "Web"
Set nodex = tvwInstitute.Nodes.Add("xueyuan", tvwChild, "Computer", "计算机培训")
nodex.Tag = "Web"
Set rsCardholderW = New Recordset '添加网络培训学员结点
rsCardholderW.Open "select * from TbCardholder where left(CH_ID,2) like '0W'", Modmain.conn, 3, 2
While Not rsCardholderW.EOF
Dim p As Integer
p = p + 1
Set nodex = tvwInstitute.Nodes.Add("Web", tvwChild, "CardholderW" & p, CStr(rsCardholderW.Fields!ch_id))
nodex.Tag = "CardholderW"
rsCardholderW.MoveNext
Wend
rsCardholderW.MoveFirst
Set rsCardholderJ = New Recordset '添加计算机培训学员结点
rsCardholderJ.Open "select * from TbCardholder where left(CH_ID,2) like '0J'", Modmain.conn, 3, 2
While Not rsCardholderJ.EOF
Dim r As Integer
r = r + 1
Set nodex = tvwInstitute.Nodes.Add("Computer", tvwChild, "CardholderJ" & r, CStr(rsCardholderJ.Fields!ch_id))
nodex.Tag = "CardholderJ"
rsCardholderJ.MoveNext
Wend
rsCardholderJ.MoveFirst
Set rsCardholderL = New Recordset '添加临时卡结点
rsCardholderL.Open "select * from TbCardholder where left(CH_ID,2) like '0L'", Modmain.conn, 3, 2
While Not rsCardholderL.EOF
Dim g As Integer
g = g + 1
Set nodex = tvwInstitute.Nodes.Add("linshi", tvwChild, "CardholderL" & g, CStr(rsCardholderL.Fields!ch_id))
nodex.Tag = "CardholderL"
rsCardholderL.MoveNext
Wend
rsCardholderL.MoveFirst
While Not rsInstitute.EOF '添加院系结点
Dim i As Integer
i = i + 1
Set nodex = tvwInstitute.Nodes.Add("school", tvwChild, "Institute" & i, CStr(rsInstitute.Fields!I_Name))
nodex.Tag = "Institute"
Set rsSpeciality = New Recordset
Dim strSpeciality As String
strSpeciality = "select s_id,S_Name from TbSpeciality where TbSpeciality.I_ID like '" & rsInstitute.Fields!I_ID & "'"
rsSpeciality.Open strSpeciality, Modmain.conn, 3, 2
While Not rsSpeciality.EOF '添加专业结点
Dim j As Integer
j = j + 1
Set nodex = tvwInstitute.Nodes.Add("Institute" & i, tvwChild, "speciality" & j, CStr(rsSpeciality.Fields!S_Name))
nodex.Tag = "Speciality"
Set rsClass = New Recordset
Dim StrClass As String
StrClass = "select * from TbClass where mid(C_ID,5,1) LIKE '" & rsSpeciality.Fields!s_ID & "' and left(C_ID,2) like '" & rsInstitute.Fields!I_ID & "'"
rsClass.Open StrClass, Modmain.conn, 3, 2
While Not rsClass.EOF '添加班级结点
Dim k As Integer
k = k + 1
Set nodex = tvwInstitute.Nodes.Add("speciality" & j, tvwChild, "class" & k, CStr(rsClass.Fields!C_ID))
nodex.Tag = "Class"
Set RsCardholder = New Recordset '添加学生
Dim StrCardholder As String
Dim aa As Integer, bb As Integer
aa = CInt(CStr(rsClass.Fields!StartNo))
bb = CInt(CStr(rsClass.Fields!EndNo))
StrCardholder = "select * from TbCardholder where mid(CH_ID,3,5)='" & Left(rsClass.Fields!C_ID, 5) & "'and right(CH_ID,3)> " & aa & " and right(CH_ID,3)<" & bb & ""
RsCardholder.Open StrCardholder, Modmain.conn, 3, 2
While Not RsCardholder.EOF
Static v As Integer
v = v + 1
Set nodex = tvwInstitute.Nodes.Add("class" & k, tvwChild, "Cardholder" & v, CStr(RsCardholder.Fields!ch_id))
nodex.Tag = "Cardholder"
RsCardholder.MoveNext
Wend
RsCardholder.Close
Set RsCardholder = Nothing
rsClass.MoveNext
Wend
rsClass.Close
Set rsClass = Nothing
rsSpeciality.MoveNext
Wend
rsSpeciality.Close
Set rsSpeciality = Nothing
rsInstitute.MoveNext
Wend
End Sub
Private Sub tvwInstitute_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Tag = "Cardholder" Or Node.Tag = "CardholderW" Or Node.Tag = "CardholderJ" Or Node.Tag = "CardholderL" Then
cmdYes.Enabled = True
StrText = Node
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -