📄 form12.frm
字号:
Top = 2520
Width = 5775
End
Begin VB.CommandButton Command1
Caption = "浏览"
Height = 315
Left = 7680
TabIndex = 10
Top = 2520
Width = 735
End
Begin VB.CommandButton Command2
Caption = "清除"
Height = 315
Left = 8700
TabIndex = 9
Top = 2520
Width = 735
End
Begin VB.CommandButton Command3
Caption = "查找"
Height = 315
Left = 6840
TabIndex = 8
Top = 2940
Width = 735
End
Begin VB.CommandButton Command4
Caption = "清除"
Height = 315
Left = 7860
TabIndex = 7
Top = 2940
Width = 735
End
Begin VB.TextBox Text17
Enabled = 0 'False
Height = 315
Left = 4680
TabIndex = 5
Top = 2940
Width = 1875
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 315
Left = 4680
TabIndex = 4
Top = 420
Width = 1875
_ExtentX = 3307
_ExtentY = 556
_Version = 393216
Format = 24838145
CurrentDate = 38954
End
Begin MSComCtl2.DTPicker DTPicker3
Height = 315
Left = 1560
TabIndex = 6
Top = 2940
Width = 1875
_ExtentX = 3307
_ExtentY = 556
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 24838144
CurrentDate = 38950
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员性别："
Height = 180
Left = 600
TabIndex = 33
Top = 480
Width = 900
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "移动电话："
Height = 180
Left = 600
TabIndex = 32
Top = 900
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员证件类型："
Height = 180
Left = 240
TabIndex = 31
Top = 1320
Width = 1260
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员联系地址："
Height = 180
Left = 240
TabIndex = 30
Top = 1740
Width = 1260
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出生日期："
Height = 180
Left = 3660
TabIndex = 29
Top = 480
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "固定电话："
Height = 180
Left = 3660
TabIndex = 28
Top = 900
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "证件号码："
Height = 180
Left = 3660
TabIndex = 27
Top = 1320
Width = 900
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其他信息："
Height = 180
Left = 600
TabIndex = 26
Top = 2160
Width = 900
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员照片："
Height = 180
Left = 600
TabIndex = 25
Top = 2580
Width = 900
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位职业："
Height = 180
Left = 6780
TabIndex = 24
Top = 480
Width = 900
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电子邮件："
Height = 180
Left = 6780
TabIndex = 23
Top = 900
Width = 900
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "加入日期："
Height = 180
Left = 600
TabIndex = 22
Top = 3000
Width = 900
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "介绍人："
Height = 180
Left = 3840
TabIndex = 21
Top = 3000
Width = 720
End
End
Begin VB.CommandButton Command5
Caption = "打印会员信息"
Height = 495
Left = 3360
TabIndex = 2
Top = 7140
Width = 1335
End
Begin VB.CommandButton Command6
Caption = "确定(F5)"
Height = 495
Left = 5160
TabIndex = 1
Top = 7140
Width = 1335
End
Begin VB.CommandButton Command7
Caption = "取消(F4)"
Height = 495
Left = 6780
TabIndex = 0
Top = 7140
Width = 1335
End
Begin BSE_Engine.BSE BSE1
Left = 360
Top = 6840
_ExtentX = 6588
_ExtentY = 1085
End
Begin XP_Form.XPForm XPForm1
Height = 7815
Left = 0
TabIndex = 60
Top = 0
Width = 10815
_ExtentX = 19076
_ExtentY = 13785
BackColor = 2022020
Caption = "会员信息修改"
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'拖动窗体的API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Sub Command6_Click()
Dim pass As String
Dim strSQL As String
strSQL = "UPDATE hyxx set 会员卡号 = '" & Trim(Text1.Text) & "',会员姓名 = '" & Trim(Text3.Text) & " ',性别 ='" & Trim(Combo5.Text) & "',出生日期 ='" & Trim(DTPicker2.Value) & "',单位职业 ='" & Trim(Text7.Text) & "',用户手机 ='" & Trim(Text9.Text) & "',用户电话 ='" & Trim(Text10.Text) & "',电子邮件 ='" & Trim(Text11.Text) & "',证件类型 ='" & Trim(Text12.Text) & "',证件号码 ='" & Trim(Text13.Text) & "',联系地址 ='" & Trim(Text14.Text) & "',其他信息 ='" & Trim(Text15.Text) & "',会员卡类型 ='" & Trim(Combo1.Text) & "',卡的级别 ='" & Trim(Combo2.Text) & "',会员积分 ='" & Trim(Text8.Text) & "',加入日期 ='" & Trim(DTPicker3.Value) & "',卡号密码 ='" & Text6.Text & "' where id=" & Me.Tag
If RunSQL(strSQL) = True Then
'把修改后得不偿失客户信息更新到ListView控件，以保持界面与数据库数据的同步... ...
Form3.ListView1.SelectedItem.Text = Trim(Text1.Text)
Form3.ListView1.SelectedItem.SubItems(1) = Trim(Text3.Text)
Form3.ListView1.SelectedItem.SubItems(2) = Trim(Combo5.Text)
Form3.ListView1.SelectedItem.SubItems(3) = Trim(DTPicker2.Value)
Form3.ListView1.SelectedItem.SubItems(4) = Trim(Text7.Text)
Form3.ListView1.SelectedItem.SubItems(5) = Trim(Text9.Text)
Form3.ListView1.SelectedItem.SubItems(6) = Trim(Text10.Text)
Form3.ListView1.SelectedItem.SubItems(7) = Trim(Text11.Text)
Form3.ListView1.SelectedItem.SubItems(8) = Trim(Text12.Text)
Form3.ListView1.SelectedItem.SubItems(9) = Trim(Text13.Text)
Form3.ListView1.SelectedItem.SubItems(10) = Trim(Text14.Text)
Form3.ListView1.SelectedItem.SubItems(11) = Trim(Text15.Text)
Form3.ListView1.SelectedItem.SubItems(12) = Trim(Combo1.Text)
Form3.ListView1.SelectedItem.SubItems(13) = Trim(Combo2.Text)
Form3.ListView1.SelectedItem.SubItems(14) = Trim(Text8.Text)
Form3.ListView1.SelectedItem.SubItems(15) = Trim(DTPicker3.Value)
pass = Trim(Text6.Text)
Form3.listlogin
Unload Me
End If
End Sub
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub DTPicker4_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub Form_Load()
Combo1.AddItem "1.储存卡"
Combo1.AddItem "2.记次卡"
Combo1.AddItem "3.折扣卡"
Combo2.AddItem "普通会员"
Combo2.AddItem "中级会员"
Combo2.AddItem "高级会员"
Combo3.AddItem "储存优惠"
Combo3.AddItem "消费转现金"
Combo3.AddItem "不优惠"
'Combo5的性别设置
Combo5.AddItem "男"
Combo5.AddItem "女"
'设置窗体外观
XPForm1.BackColor = Me.BackColor
'设置按钮外观
BSE1.SchemeStyle = 0
BSE1.EndSubClassing
BSE1.InitSubClassing
End Sub
Private Sub XPForm1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'拖动窗体
If Button = 1 Then
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
Else
'这里可以添加弹出菜单的语句
End If
End Sub
Private Sub Form_Resize()
XPForm1.Width = Me.Width
XPForm1.Height = Me.Height
XPForm1.Nomin '屏蔽最小化按钮(如果你不想有最小化按钮)
End Sub
Private Sub XPForm1_CloseClick()
'关闭按钮的事件
Unload Me
End Sub
Private Sub XPForm1_MinClick()
'最小化按钮的事件
Me.WindowState = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -