📄 fmmemberinfo.frm
字号:
TabIndex = 19
Top = 1560
Width = 1575
End
Begin VB.TextBox TextAddr
Height = 375
Left = 4440
TabIndex = 18
Top = 960
Width = 4575
End
Begin VB.TextBox TextTel2
Height = 390
Left = 1560
TabIndex = 17
Top = 905
Width = 1575
End
Begin VB.TextBox TextTel1
Height = 390
Left = 7440
TabIndex = 16
Top = 240
Width = 1575
End
Begin VB.TextBox TextMemName
Height = 390
Left = 4440
TabIndex = 15
Top = 240
Width = 1575
End
Begin VB.TextBox TextMemID
Height = 390
Left = 1560
TabIndex = 14
Top = 240
Width = 1575
End
Begin VB.Label Label9
Caption = "会员编号："
Height = 375
Left = 360
TabIndex = 13
Top = 360
Width = 1095
End
Begin VB.Label Label8
Caption = "备 注："
Height = 255
Left = 360
TabIndex = 12
Top = 2160
Width = 735
End
Begin VB.Label Label7
Caption = "消费积分："
Height = 375
Left = 6360
TabIndex = 11
Top = 1560
Width = 975
End
Begin VB.Label Label6
Caption = "消费次数："
Height = 375
Left = 3360
TabIndex = 10
Top = 1560
Width = 1095
End
Begin VB.Label Label5
Caption = "签单额度："
Height = 255
Left = 360
TabIndex = 9
Top = 1680
Width = 975
End
Begin VB.Label Label4
Caption = "地 址："
Height = 375
Left = 3360
TabIndex = 8
Top = 1020
Width = 855
End
Begin VB.Label Label3
Caption = "手 机："
Height = 255
Left = 360
TabIndex = 7
Top = 960
Width = 735
End
Begin VB.Label Label2
Caption = "电 话："
Height = 375
Left = 6360
TabIndex = 6
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "会员姓名："
Height = 495
Left = 3360
TabIndex = 5
Top = 360
Width = 1095
End
End
End
Attribute VB_Name = "FMMemberInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub ComdCancel_Click()
Unload Me
End Sub
Private Sub ComdDelete_Click()
If Me.DataGrid1.Row = 0 Then
MsgBox "请在表格中选择要删除的会员！"
Else
Me.Adodc1.Recordset.Delete
MsgBox "删除成功！"
Adodc1.Refresh
End If
End Sub
Private Sub ComdModify_Click()
Dim ModMem As New ADODB.Recordset
Dim Str As String
Dim SqlStr As String
Dim sMemberID As String
If Me.TextMemName.Text = "" Or Me.TextTel2.Text = "" Then
MsgBox "会员姓名和手机号码不能为空!"
Exit Sub
End If
sMemberID = Trim(Me.TextMemID.Text)
If Me.TextConTime.Text = "" Or Me.TextConIntegral.Text = "" Then
MsgBox "消费次数和消费积分不能为空！"
Exit Sub
End If
Str = "select * from MemberInfo where MemberID='" & sMemberID & "'"
ModMem.Open Str, g_DBConn, adOpenStatic, adLockOptimistic
If ModMem.BOF Then
MsgBox "该会员不存在!"
ModMem.Close
Exit Sub
End If
If sMemberID = ModMem.Fields("MemberID").Value Then
ModMem.Fields("MemberName").Value = Trim(Me.TextMemName.Text)
ModMem.Fields("Tel1").Value = Trim(Me.TextTel1.Text)
ModMem.Fields("Tel2").Value = Trim(Me.TextTel2.Text)
ModMem.Fields("Address").Value = Trim(Me.TextAddr.Text)
ModMem.Fields("SignCheck").Value = Trim(Me.CombSignCheck.Text)
ModMem.Fields("ConsumedTime").Value = Trim(Me.TextConTime.Text)
ModMem.Fields("ConsumedIntegral").Value = Trim(Me.TextConIntegral.Text)
ModMem.Fields("Remake").Value = Trim(Me.TextRemake.Text)
Else
MsgBox "修改失败!"
End If
ModMem.Update
ModMem.Close
MsgBox "修改成功!"
Me.TextAddr.Text = ""
Me.TextConIntegral.Text = ""
Me.TextConTime.Text = ""
Me.TextMemID.Text = ""
Me.TextMemName.Text = ""
Me.TextRemake.Text = ""
Me.TextTel1.Text = ""
Me.TextTel2.Text = ""
Me.CombSignCheck.Text = ""
Adodc1.Refresh
End Sub
Private Sub ComdOK_Click()
Dim AddMem As New ADODB.Recordset
Dim Str As String
Dim SqlStr As String
Dim sMemberName As String
Dim DBStr As String
Dim AddMemID As New ADODB.Recordset
Dim i As Integer
Dim sMemberID As String
If Me.TextMemName.Text = "" Or Me.TextTel2.Text = "" Then
MsgBox "会员姓名和手机号码不能为空!"
Exit Sub
End If
sMemberName = Trim(Me.TextMemName.Text)
Str = "select * from MemberInfo where MemberName='" & sMemberName & "'"
AddMem.Open Str, g_DBConn, adOpenStatic, adLockOptimistic
If Not AddMem.BOF Then
MsgBox "该会员姓名已存在!"
AddMem.Close
Exit Sub
End If
AddMem.Close
SqlStr = "insert into MemberInfo(MemberID,MemberName,Tel1,Tel2," & "Address,SignCheck,ConsumedTime,ConsumedIntegral,Remake)" & "values('" & Trim(Me.TextMemID.Text) & "'," & "'" & sMemberName & "','" & Trim(Me.TextTel1.Text) & "'," & "'" & Trim(Me.TextTel2.Text) & "'" & ",'" & Trim(Me.TextAddr.Text) & "'" & ",'" & Trim(Me.CombSignCheck.Text) & "'," & "'" & Trim(Me.TextConTime.Text) & "'" & ",'" & Trim(Me.TextConIntegral.Text) & "'" & ",'" & Trim(Me.TextRemake.Text) & "');"
g_DBConn.Execute SqlStr
MsgBox "添加成功!"
Me.TextAddr.Text = ""
Me.TextConIntegral = ""
Me.TextConTime = ""
Me.TextMemName = ""
Me.TextRemake = ""
Me.TextTel1 = ""
Me.TextTel2 = ""
Me.CombSignCheck = ""
'自动生成新会员编号
DBStr = "select MemberID from MemberInfo"
AddMemID.CursorType = adOpenStatic
AddMemID.CursorLocation = adUseClient
AddMemID.Open DBStr, g_DBConn, adOpenStatic, adLockOptimistic
If AddMemID.EOF Then
sMemberID = "001"
Me.TextMemID.Text = sMemberID
Else
AddMemID.MoveLast
i = AddMemID.Fields("MemberID").Value + 1
If i < 10 Then
Me.TextMemID.Text = "00" & i
ElseIf i >= 10 & i < 100 Then
Me.TextMemID.Text = "0" & i
End If
End If
AddMemID.Close
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Dim DBStr As String
Dim AddMemID As New ADODB.Recordset
Dim i As Integer
Dim sMemberID As String
Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中
Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中
'设置Adodc连接字符串
Adodc1.ConnectionString = g_ConnStr
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "MemberInfo"
'设置Grid 与 Adodc1关联
Set DataGrid1.DataSource = Adodc1
'自动生成会员编号
DBStr = "select MemberID from MemberInfo"
AddMemID.CursorType = adOpenStatic
AddMemID.CursorLocation = adUseClient
AddMemID.Open DBStr, g_DBConn, adOpenStatic, adLockOptimistic
If AddMemID.EOF Then
sMemberID = "001"
Me.TextMemID.Text = sMemberID
Else
AddMemID.MoveLast
i = AddMemID.Fields("MemberID").Value + 1
If i < 10 Then
Me.TextMemID.Text = "00" & i
ElseIf i >= 10 & i < 100 Then
Me.TextMemID.Text = "0" & i
End If
End If
AddMemID.Close
'Me.TextMemID.Enabled = False
End Sub
Private Sub TextConIntegral_KeyPress(KeyAscii As Integer)
KeyAscii = sffunLimitNumber(KeyAscii)
End Sub
Private Sub TextConTime_KeyPress(KeyAscii As Integer)
KeyAscii = sffunLimitNumber(KeyAscii)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -