📄 frm_xfcx.frm
字号:
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 9
Top = 480
Width = 1572
End
Begin VB.ComboBox r_cardtype
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4440
TabIndex = 8
Top = 480
Width = 1695
End
Begin VB.Label Label4
Caption = "设备号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 29
Top = 1440
Width = 1215
End
Begin VB.Label Label6
Caption = "部门："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 19
Top = 1440
Width = 1455
End
Begin VB.Label Label1
Caption = "至："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6360
TabIndex = 18
Top = 960
Width = 495
End
Begin VB.Label Label2
Caption = "人员姓名："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 17
Top = 960
Width = 1215
End
Begin VB.Label Label5
Caption = "消费日期："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 16
Top = 960
Width = 1215
End
Begin VB.Label Label3
Caption = "IC卡号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 15
Top = 480
Width = 1455
End
Begin VB.Label Label7
Caption = "IC卡类："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 14
Top = 480
Width = 1335
End
End
Begin VB.Frame Frame1
Caption = "报表类型"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 4680
TabIndex = 4
Top = 240
Width = 4455
Begin VB.OptionButton Option2
Caption = "汇总表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 2280
TabIndex = 6
Top = 360
Width = 1212
End
Begin VB.OptionButton Option1
Caption = "明细表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 5
Top = 360
Value = -1 'True
Width = 1092
End
End
Begin Crystal.CrystalReport CrystalReport1
Left = 10320
Top = 2400
_ExtentX = 741
_ExtentY = 741
_Version = 262150
BoundReportFooter= -1 'True
End
Begin VB.CommandButton cmdxfr
Caption = "报表(&R)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 9960
TabIndex = 3
Top = 960
Width = 1452
End
Begin VB.CommandButton cmdcfq
Caption = "退出(&Q)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 9960
TabIndex = 2
Top = 1560
Width = 1452
End
Begin VB.CommandButton cmdxff
Caption = "查询(&F)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 9960
TabIndex = 1
Top = 360
Width = 1452
End
Begin MSComctlLib.ListView ListViewxf
Height = 4575
Left = 240
TabIndex = 0
Top = 3600
Width = 11175
_ExtentX = 19711
_ExtentY = 8070
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
End
Attribute VB_Name = "frm_xfcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sJS As String
Dim sType(1024) As String
Dim sTypeid As String
Dim sListNo As Integer
Dim rSellCount As Integer
Dim rSellMoney As Currency
Dim rpMoney As Currency
Dim rSellTimes As Long
Dim rpTimes As Long
Dim rTurnCount As Long
Dim rTurnMoney As Currency
Dim rDate As String
Private Sub cmdcfq_Click()
'On Error Resume Next
Unload Me
End Sub
Private Sub sHymc()
Set rs = GetRecordset(maSys_db, "select * from 会员信息表")
If Not rs.EOF Then
Combo1.Clear
sListNo = 0
Do While Not rs.EOF
Combo1.AddItem Trim(rs!会员名称)
' sHybh(sListNo) = rs!会员编号
sListNo = sListNo + 1
rs.MoveNext
Loop
Else
Combo1.Clear
MsgBox "请先注册会员信息！", vbInformation + vbOKOnly, "中芯德立提示信息"
End If
End Sub
Private Sub sxfxm()
Set rs = GetRecordset(maSys_db, "select * from 消费项目明细表")
If Not rs.EOF Then
Combo2.Clear
Do While Not rs.EOF
Combo2.AddItem Trim(rs!消费项目名称)
rs.MoveNext
Loop
Else
Combo2.Clear
str_Msg = MsgBox("请先设置消费项目信息！", vbInformation + vbOKOnly, "中芯德立提示信息")
End If
End Sub
Private Sub cmdxff_Click()
If Option3.Value = True Then '售卡充值
sWhere = ""
sWhere = sWhere & IIf(Len(Trim(f_iccardid.Text)) = 0, "", " IC卡号= '" & Format(f_iccardid.Text, "00000000") & "' and ")
sWhere = sWhere & IIf(Len(Trim(f_cardtype.Text)) = 0, "", " IC卡类= '" & Format(sTypeid, "00") & "' and ")
sWhere = sWhere & IIf(Len(Trim(f_bh.Text)) = 0, "", " 员工编号= '" & Format(f_bh.Text, "00000000") & "' and ")
sWhere = sWhere & IIf(Len(Trim(f_do.Text)) = 0, "", " 操作类型= '" & f_do.Text & "' and ")
If DTPickerf2 < DTPickerf1 Or DTPickerf1 = "" Or DTPickerf2 = "" Then MsgBox "日期条件有错误！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
sWhere = sWhere & " 操作时间 >= '" & Format(DTPickerf1.Value, "yyyy-mm-dd") & "' and "
sWhere = sWhere & " 操作时间 <= '" & Format(DTPickerf2.Value, "yyyy-mm-dd") & " 23:59:59' and "
If Len(Trim(sWhere)) > 0 Then
sWhere = Left(sWhere, Len(sWhere) - 4)
sWhere = " where " & sWhere
End If
sWhere1 = sWhere & " order by 操作时间"
sWhere = " select * from 充值积分明细表" & sWhere & " order by 操作时间"
maSys_db.Execute "delete from 充值积分明细临时表"
pssql = "insert into 充值积分明细临时表 select IC卡号,卡上余额,卡上积分,充值金额,赠送积分,操作员,操作时间,操作类型,员工编号,IC卡类,月份 from 充值积分明细表 " & sWhere1
maSys_db.Execute pssql
Call listrecord
Else '消费
sWhere = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -