📄 frm_xfmx.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_xfmx
BorderStyle = 1 'Fixed Single
Caption = "消费"
ClientHeight = 7710
ClientLeft = 30
ClientTop = 420
ClientWidth = 11085
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7710
ScaleWidth = 11085
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox Combo2
Height = 336
Left = 1440
TabIndex = 16
Top = 720
Width = 4572
End
Begin VB.CommandButton Command3
Caption = "申请帐单号(&I)"
Height = 372
Left = 3720
TabIndex = 15
Top = 240
Width = 2052
End
Begin VB.TextBox txtxfLS
Enabled = 0 'False
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 14
Top = 240
Width = 1932
End
Begin VB.CommandButton Command2
Caption = "退出(&Q)"
Height = 492
Left = 9000
TabIndex = 12
Top = 1560
Width = 1692
End
Begin VB.CommandButton Command1
Caption = "导入帐单(&L)"
Height = 492
Left = 9000
TabIndex = 11
Top = 360
Width = 1692
End
Begin VB.CommandButton cmdxfQX
Caption = "取消(&C)"
Enabled = 0 'False
Height = 492
Left = 7080
TabIndex = 10
Top = 1560
Width = 1692
End
Begin VB.CommandButton cmdxfSZ
Caption = "新增(&A)"
Height = 492
Left = 7080
TabIndex = 9
Top = 360
Width = 1692
End
Begin VB.CommandButton cmdxfSC
Caption = "删除(&D)"
Height = 492
Left = 7080
TabIndex = 8
Top = 960
Width = 1692
End
Begin VB.CommandButton cmdxfJS
Caption = "结算(&G)"
Height = 492
Left = 9000
TabIndex = 7
Top = 960
Width = 1692
End
Begin VB.TextBox txtxfZ
Enabled = 0 'False
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 6
Top = 2160
Width = 1932
End
Begin VB.TextBox txtxfJ
Enabled = 0 'False
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 5
Top = 1680
Width = 1932
End
Begin VB.ComboBox Combo1
Height = 336
Left = 1440
TabIndex = 2
Top = 1200
Width = 4572
End
Begin MSComctlLib.ListView ListViewxf
Height = 4692
Left = 240
TabIndex = 0
Top = 2760
Width = 10572
_ExtentX = 18653
_ExtentY = 8281
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label6
Caption = "会员名称："
Height = 252
Left = 240
TabIndex = 17
Top = 720
Width = 1452
End
Begin VB.Label Label5
Caption = "帐单号："
Height = 252
Left = 240
TabIndex = 13
Top = 240
Width = 1452
End
Begin VB.Label Label2
Caption = "折扣："
Height = 252
Left = 240
TabIndex = 4
Top = 2160
Width = 732
End
Begin VB.Label Label1
Caption = "价格："
Height = 252
Left = 240
TabIndex = 3
Top = 1680
Width = 852
End
Begin VB.Label Label3
Caption = "消费项目："
Height = 252
Left = 240
TabIndex = 1
Top = 1200
Width = 1452
End
End
Attribute VB_Name = "frm_xfmx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sHybh(1024) As String '会员编号数组
Dim sHybhLast As String '会员编号
Dim sListNo As Integer
Dim sZdh As Long
Dim sTime As String
Dim sXfxmmc As String
Private Sub cmdxfGZ_Click() '消费帐单先不结算，暂时保存起来
'将临时表记录备注内容改写成会员编号或其他能识别的号
End Sub
Private Sub txt_clear()
txtxfLS = ""
txtxfJ = ""
txtxfZ = ""
End Sub
Private Sub cmdxfJS_Click()
frm_xfjs.Show 1
Rs_Record_Set
End Sub
Private Sub cmdxfSC_Click() '删除记录
If ListViewxf.ListItems.Count = 0 Then Exit Sub
If MsgBox("确实要删除该记录吗?", vbCritical + vbYesNo, "中芯德立提示信息") = vbYes Then
Dim i As Integer
i = ListViewxf.SelectedItem
sZdh = Val(ListViewxf.ListItems(i).ListSubItems(1)) '帐单号
sTime = Trim(ListViewxf.ListItems(i).ListSubItems(8)) '消费时间
sXfxmmc = Trim(ListViewxf.ListItems(i).ListSubItems(2)) '消费项目
maSys_db.Execute "delete from 消费明细临时表 where 帐单号=" & sZdh & " and 消费项目名称='" & sXfxmmc & "' and 消费时间='" & sTime & "'"
Rs_Record_Set
End If
End Sub
Private Sub cmdxfSZ_Click()
'防止同一时间录入2次
'
If txtxfLS = "" Or Val(txtxfLS) < 0 Then MsgBox "帐单号不能为空！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
'If txtxfN = "" Or Val(txtxfN) < 0 Then MsgBox "单项数量有误！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
If txtxfJ = "" Or Val(txtxfJ) < 0 Then MsgBox "消费金额有误！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
If txtxfZ = "" Or Val(txtxfZ) < 0 Or Val(txtxfZ) > 100 Then MsgBox "折扣错误！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
If sHybhLast = "" Then sHybhLast = "0"
If Combo2.Text = "" Then Combo2.Text = "0"
maSys_db.Execute "insert into 消费明细临时表(帐单号,会员编号,会员名称,消费时间,消费项目名称," _
& "消费金额,折扣,实收金额,支付类型,操作员,卡上余额,备注)" _
& " values(" _
& Val(txtxfLS.Text) & ",'" & sHybhLast & "','" & Combo2.Text & "','" & Format(Now, "yyyy-mm-dd hh:mm:ss") & "'," _
& "'" & Trim(Combo1.Text) & "'," & Trim(txtxfJ.Text) & "," & Val(txtxfZ.Text) & "," _
& Val(txtxfJ.Text) * Val(txtxfZ.Text) / 100 & ",'0'," _
& "'" & Trim(strUserName) & "',0,'0')"
sWhere = "select * from 消费明细临时表 where 帐单号=" & txtxfLS & " and 备注='0'"
Rs_Record_Set
txtxfJ = ""
txtxfZ = ""
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "" Then MsgBox "消费项目不能为空！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
Set rs = GetRecordset(maSys_db, "select * from 消费项目明细表 where 消费项目名称='" & Combo1.Text & "'")
If Not rs.EOF Then
txtxfJ.Text = Trim(rs!价格)
txtxfZ.Text = Trim(rs!折扣)
Else
Combo1.Clear
MsgBox "该消费项目信息不完整！", vbInformation + vbOKOnly, "中芯德立提示信息"
End If
End Sub
Private Sub Combo2_Click()
sListNo = Combo2.ListIndex
sHybhLast = sHybh(sListNo)
End Sub
Private Sub Command1_Click()
Call txt_clear
frm_xfzd.Show 1
If sWhere <> "" Then
Call Rs_Record_Set
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
sxfzd = GetRegKey(HKEY_CURRENT_USER, "sXF", "sXFZD", "")
If sxfzd = "" Then
sxfzd = "1"
SaveRegKey HKEY_CURRENT_USER, "sXF", "sXFZD", sxfzd
Else
sxfzd = sxfzd + 1
SaveRegKey HKEY_CURRENT_USER, "sXF", "sXFZD", sxfzd
End If
txtxfLS = sxfzd
End Sub
Private Sub sHymc()
Set rs = GetRecordset(maSys_db, "select * from 会员信息表")
If Not rs.EOF Then
Combo2.Clear
sListNo = 0
Do While Not rs.EOF
Combo2.AddItem Trim(rs!会员名称)
sHybh(sListNo) = rs!会员编号
sListNo = sListNo + 1
rs.MoveNext
Loop
Combo2.ListIndex = 0
Else
Combo2.Clear
MsgBox "请先注册会员信息！", vbInformation + vbOKOnly, "中芯德立提示信息"
End If
End Sub
Private Sub sxfxm()
Set rs = GetRecordset(maSys_db, "select * from 消费项目明细表")
If Not rs.EOF Then
Combo1.Clear
Do While Not rs.EOF
Combo1.AddItem Trim(rs!消费项目名称)
rs.MoveNext
Loop
Combo1.ListIndex = 0
Else
Combo1.Clear
str_Msg = MsgBox("请先设置消费项目信息！", vbInformation + vbOKOnly, "中芯德立提示信息")
End If
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Call sxfxm
Call sHymc
'sWhere = ""
sWhere = "select * from 消费明细临时表 where 备注='0'"
ListViewxf.ColumnHeaders.Clear
ListViewxf.ListItems.Clear
ListViewxf.View = lvwReport
ListViewxf.ColumnHeaders.Add , , "ID", 800
ListViewxf.ColumnHeaders.Add , , "帐单号", 1500
ListViewxf.ColumnHeaders.Add , , "消费项目名称", 3500
ListViewxf.ColumnHeaders.Add , , "消费金额", 1200
ListViewxf.ColumnHeaders.Add , , "折扣", 800
ListViewxf.ColumnHeaders.Add , , "实收金额", 1200
ListViewxf.ColumnHeaders.Add , , "支付类型", 1200
ListViewxf.ColumnHeaders.Add , , "卡上余额", 1200
ListViewxf.ColumnHeaders.Add , , "消费时间", 2000
ListViewxf.ColumnHeaders.Add , , "操作员", 1200
ListViewxf.ColumnHeaders.Add , , "会员编号", 1500
ListViewxf.ColumnHeaders.Add , , "备注", 3500
End Sub
Private Sub Rs_Record_Set() '显示记录到listview
Dim L As ListItem
Dim i As Integer
Set rs = GetRecordset(maSys_db, sWhere)
ListViewxf.ColumnHeaders.Clear
ListViewxf.ListItems.Clear
ListViewxf.View = lvwReport
ListViewxf.ColumnHeaders.Add , , "ID", 800
ListViewxf.ColumnHeaders.Add , , "帐单号", 1500
ListViewxf.ColumnHeaders.Add , , "消费项目名称", 3500
ListViewxf.ColumnHeaders.Add , , "消费金额", 1200
ListViewxf.ColumnHeaders.Add , , "折扣", 800
ListViewxf.ColumnHeaders.Add , , "实收金额", 1200
ListViewxf.ColumnHeaders.Add , , "支付类型", 1200
ListViewxf.ColumnHeaders.Add , , "卡上余额", 1200
ListViewxf.ColumnHeaders.Add , , "消费时间", 2000
ListViewxf.ColumnHeaders.Add , , "操作员", 1200
ListViewxf.ColumnHeaders.Add , , "会员编号", 1500
ListViewxf.ColumnHeaders.Add , , "会员名称", 3500
ListViewxf.ColumnHeaders.Add , , "备注", 3500
i = 1
If rs.EOF Then
Exit Sub
Else
rs.MoveFirst
Do While Not rs.EOF
Set L = ListViewxf.ListItems.Add(, , i)
L.SubItems(1) = CStr(rs!帐单号)
L.SubItems(2) = CStr(rs!消费项目名称)
L.SubItems(3) = CStr(rs!消费金额)
L.SubItems(4) = CStr(rs!折扣)
L.SubItems(5) = CStr(rs!实收金额)
L.SubItems(6) = CStr(rs!支付类型)
L.SubItems(7) = CStr(rs!卡上余额)
L.SubItems(8) = CStr(rs!消费时间)
L.SubItems(9) = CStr(rs!操作员)
L.SubItems(10) = CStr(rs!会员编号)
L.SubItems(11) = CStr(rs!会员名称)
L.SubItems(12) = CStr(rs!备注)
i = i + 1
rs.MoveNext
Loop
End If
End Sub
Private Sub txtxfN_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -