📄 frmclientshow.frm
字号:
VERSION 5.00
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmMemberShow
Caption = "查看会员综合信息"
ClientHeight = 7020
ClientLeft = 60
ClientTop = 450
ClientWidth = 10110
Icon = "FrmClientShow.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7020
ScaleWidth = 10110
StartUpPosition = 1 '所有者中心
Begin VB.Frame FraReg
Height = 6315
Left = 135
TabIndex = 0
Top = 90
Width = 9780
Begin VB.TextBox TxtInOutTimes
Enabled = 0 'False
Height = 285
Left = 7650
TabIndex = 30
Top = 4770
Width = 1095
End
Begin VB.TextBox TxtName
Enabled = 0 'False
Height = 315
Left = 1170
TabIndex = 10
Top = 315
Width = 1590
End
Begin VB.OptionButton optSex
Caption = "男"
Enabled = 0 'False
Height = 240
Index = 0
Left = 4590
TabIndex = 9
Top = 360
Value = -1 'True
Width = 510
End
Begin VB.OptionButton optSex
Caption = "女"
Enabled = 0 'False
Height = 240
Index = 1
Left = 5400
TabIndex = 8
Top = 360
Width = 510
End
Begin VB.TextBox TxtIDCard
Enabled = 0 'False
Height = 285
Left = 4635
TabIndex = 7
Top = 990
Width = 2220
End
Begin VB.TextBox TxtAddress
Enabled = 0 'False
Height = 465
Left = 1170
MultiLine = -1 'True
TabIndex = 6
Top = 2295
Width = 5685
End
Begin VB.TextBox TxtCompany
Enabled = 0 'False
Height = 465
Left = 1170
MultiLine = -1 'True
TabIndex = 5
Top = 3060
Width = 5685
End
Begin VB.TextBox TxtHandSet
Enabled = 0 'False
Height = 315
Left = 1170
TabIndex = 4
Top = 1575
Width = 1635
End
Begin VB.TextBox TxtHomeTel
Enabled = 0 'False
Height = 315
Left = 4635
TabIndex = 3
Top = 1575
Width = 2220
End
Begin VB.TextBox TxtCard
Enabled = 0 'False
Height = 285
Left = 1170
MaxLength = 5
TabIndex = 2
Top = 4140
Width = 1545
End
Begin VB.TextBox TxtChest
Enabled = 0 'False
Height = 285
Left = 1170
TabIndex = 1
Top = 5535
Width = 1815
End
Begin MSComCtl2.DTPicker dtpBirthday
Height = 285
Left = 1170
TabIndex = 11
Top = 990
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Enabled = 0 'False
CustomFormat = "yyyy-mm-dd"
Format = 20185089
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpStartingTime
Height = 285
Left = 4500
TabIndex = 12
Top = 4140
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Enabled = 0 'False
CustomFormat = "yyyy-mm-dd"
Format = 20185089
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpDeadline
Height = 285
Left = 7650
TabIndex = 13
Top = 4140
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Enabled = 0 'False
CustomFormat = "yyyy-mm-dd"
Format = 20185089
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpBoxStarting
Height = 285
Left = 4320
TabIndex = 14
Top = 5580
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Enabled = 0 'False
CustomFormat = "yyyy-mm-dd"
Format = 20185089
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpBoxDeadLine
Height = 285
Left = 6840
TabIndex = 15
Top = 5580
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Enabled = 0 'False
CustomFormat = "yyyy-mm-dd"
Format = 20185089
CurrentDate = 29221
MinDate = 2
End
Begin VB.Label LblInoutTimes
AutoSize = -1 'True
Caption = "使用次数"
Height = 180
Left = 6615
TabIndex = 31
Top = 4815
Width = 720
End
Begin VB.Image ImgPhoto
BorderStyle = 1 'Fixed Single
Height = 2985
Left = 7290
Stretch = -1 'True
Top = 540
Width = 2130
End
Begin VB.Label LblName
AutoSize = -1 'True
Caption = "姓名"
Height = 180
Left = 630
TabIndex = 29
Top = 405
Width = 360
End
Begin VB.Label LblSex
AutoSize = -1 'True
Caption = "姓别"
Height = 180
Left = 3915
TabIndex = 28
Top = 360
Width = 360
End
Begin VB.Label LblBirthday
AutoSize = -1 'True
Caption = "生日"
Height = 180
Left = 630
TabIndex = 27
Top = 1080
Width = 360
End
Begin VB.Label LblIDCard
AutoSize = -1 'True
Caption = "身份证号"
Height = 180
Left = 3645
TabIndex = 26
Top = 1035
Width = 720
End
Begin VB.Label LblAddress
AutoSize = -1 'True
Caption = "住址"
Height = 180
Left = 585
TabIndex = 25
Top = 2475
Width = 360
End
Begin VB.Label LblCompany
AutoSize = -1 'True
Caption = "单位"
Height = 180
Left = 585
TabIndex = 24
Top = 3240
Width = 360
End
Begin VB.Label LblHandSet
AutoSize = -1 'True
Caption = "移动电话"
Height = 180
Left = 270
TabIndex = 23
Top = 1665
Width = 720
End
Begin VB.Label LblHomeTel
AutoSize = -1 'True
Caption = "固定电话"
Height = 180
Left = 3330
TabIndex = 22
Top = 1620
Width = 720
End
Begin VB.Label LblCard
AutoSize = -1 'True
Caption = "会员卡"
Height = 180
Left = 495
TabIndex = 21
Top = 4185
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "起始日期"
Height = 180
Left = 3330
TabIndex = 20
Top = 4185
Width = 720
End
Begin VB.Label LblDeadline
AutoSize = -1 'True
Caption = "截止日期"
Height = 180
Left = 6660
TabIndex = 19
Top = 4185
Width = 720
End
Begin VB.Label LblChest
AutoSize = -1 'True
Caption = "储物箱"
Height = 180
Left = 450
TabIndex = 18
Top = 5580
Width = 540
End
Begin VB.Label LblBoxStart
AutoSize = -1 'True
Caption = "起始日期"
Height = 180
Left = 3420
TabIndex = 17
Top = 5625
Width = 720
End
Begin VB.Label LblBoxDeadline
AutoSize = -1 'True
Caption = "截止日期"
Height = 180
Left = 5940
TabIndex = 16
Top = 5625
Width = 720
End
End
Begin XP_Button.XPButton BtnConfirm
Height = 330
Left = 8910
TabIndex = 32
Top = 6570
Width = 1005
_ExtentX = 1773
_ExtentY = 582
caption = "确定"
End
End
Attribute VB_Name = "FrmMemberShow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Rs_Member As ADODB.Recordset '会员
Dim Card As String
Private Sub BtnConfirm_Click()
Unload Me '退出
End Sub
Private Sub Form_Load()
Card = FrmAllManage.LvwAll.SelectedItem.SubItems(2)
'*************读取会员卡信息*****************************
Dim Rs_Card As ADODB.Recordset
Set Rs_Card = New ADODB.Recordset
Rs_Card.Open "SELECT * FROM Card Where ID ='" & Card & "'", CN, adOpenStatic, adLockOptimistic
If Not Rs_Card.EOF Then
'该卡在数据库中已经存在
Me.TxtCard.Text = Rs_Card!Id '卡号
If Not IsNull(Rs_Card!StartingTime) Then
Me.dtpStartingTime.Value = Rs_Card!StartingTime '起始时间
End If
If Not IsNull(Rs_Card!Deadline) Then
Me.dtpDeadline.Value = Rs_Card!Deadline '截止时间
End If
Me.TxtInOutTimes.Text = Val(TestNull(Rs_Card!InOutTimes)) '使用次数
End If
Rs_Card.Close
Set Rs_Card = Nothing
'************储物箱**************************
Dim Rs_Chest As ADODB.Recordset
Set Rs_Chest = New ADODB.Recordset
Rs_Chest.Open "SELECT Chest.* FROM Chest,Card,Member Where Card.ID = '" & Card & "' And Card.UserID = Member.IDCard And Member.IDCard = Chest.UserID", CN, adOpenStatic, adLockOptimistic
If Not Rs_Chest.EOF Then
'该箱在数据库中已经存在
Me.TxtChest.Text = Rs_Chest!Id '箱号
Me.dtpBoxStarting.Value = Rs_Chest!StartingTime '起始时间
Me.dtpBoxDeadLine.Value = Rs_Chest!Deadline '截止时间
End If
Rs_Chest.Close
Set Rs_Chest = Nothing
'*************显示会员信息*****************************
Set Rs_Member = New ADODB.Recordset
Rs_Member.Open "SELECT Member.* FROM Member,Card Where Card.ID = '" & Card & "' AND Member.IDCard = Card.UserID", CN, adOpenStatic, adLockOptimistic
' '保存会员照片
' Flag_test = SavePic(OpenFileName)
' If Flag_test = False Then
' 'Set Rs_Member = Nothing
' 'Exit Sub '退出
' End If
If Rs_Member.EOF Then
MsgBox "该卡没有注册", vbInformation, "提示"
Rs_Member.Close
Set Rs_Member = Nothing
Exit Sub
End If
'显示会员照片
If Rs_Member!FileLen > 0 Then
Call MdlPic.PhotoDisplay(Me.ImgPhoto, Rs_Member) '传控件
End If
'Me.TxtCard.Text = Rs_Member!ID '编号(他*拥*有*的第一张卡(正使用中的卡))
Me.TxtIDCard.Text = Rs_Member!IDCard '身份证
Me.TxtName.Text = Rs_Member!Name '姓名
'性别
If Rs_Member!Sex = "男" Then
Me.optSex(0).Value = True '男性
Else
Me.optSex(1).Value = True '女性
End If
Me.dtpBirthday.Value = Rs_Member!Birthday '生日
Me.TxtHandSet.Text = Rs_Member!Handset '移动电话
Me.TxtHomeTel.Text = Rs_Member!HomeTel '固定电话
Me.TxtAddress.Text = Rs_Member!Address '住址
Me.TxtCompany.Text = Rs_Member!Company '工作单位
Rs_Member.Close
Set Rs_Member = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -