📄 main_cxtj_xscx.frm
字号:
_ExtentX = 2699
_ExtentY = 556
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 30146561
CurrentDate = 37106
End
Begin VB.Label Label5
Caption = "至"
Height = 195
Left = 1890
TabIndex = 12
Top = 315
Width = 285
End
End
Begin VB.CommandButton Commodity
Caption = "修改"
Height = 345
Left = 5520
TabIndex = 8
Top = 930
Width = 1365
End
Begin VB.CommandButton Comdel
Caption = "删除"
Height = 345
Left = 6885
TabIndex = 7
Top = 930
Width = 1365
End
Begin VB.CommandButton Comend
Caption = "退出"
Height = 345
Left = 8250
TabIndex = 6
Top = 930
Width = 1365
End
Begin VB.CommandButton Comfind
Caption = "查询"
Height = 345
Left = 4155
TabIndex = 5
Top = 930
Width = 1365
End
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 1005
Left = 60
TabIndex = 4
Top = 2085
Visible = 0 'False
Width = 1425
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "E:\明日vb编程500例\实用程序10例\腾龙珠宝首饰进销存管理系统\zbjxc.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 105
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "xsd"
Top = 570
Width = 1170
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\明日vb编程500例\实用程序10例\腾龙珠宝首饰进销存管理系统\zbjxc.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 105
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "xsd"
Top = 210
Width = 1170
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main_cxtj_xscx.frx":0014
Height = 2205
Left = 30
OleObjectBlob = "main_cxtj_xscx.frx":0028
TabIndex = 3
Top = 1350
Width = 9645
End
Begin VB.Frame Frame1
Height = 630
Left = 45
TabIndex = 0
Top = 660
Width = 3945
Begin VB.ComboBox Combo1
Height = 300
ItemData = "main_cxtj_xscx.frx":18A2
Left = 105
List = "main_cxtj_xscx.frx":18A4
Style = 2 'Dropdown List
TabIndex = 2
Top = 210
Width = 1365
End
Begin VB.TextBox Text1
BackColor = &H80000000&
Height = 300
Left = 1515
TabIndex = 1
Top = 210
Width = 2340
End
End
End
Attribute VB_Name = "main_cxtj_xscx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x, i
Public Sub eval() '定义赋值函数
If Data2.Recordset.Fields(0) <> "" Then Text3.Text = Data2.Recordset.Fields(0) Else Text3.Text = "0"
If Data2.Recordset.Fields(1) <> "" Then Text4.Text = Data2.Recordset.Fields(1) Else Text5.Text = "0"
If Data2.Recordset.Fields(2) <> "" Then Text2.Text = Data2.Recordset.Fields(2) Else Text2.Text = "0"
If Data2.Recordset.Fields(3) <> "" Then Text5.Text = Data2.Recordset.Fields(3) Else Text4.Text = "0"
End Sub
Private Sub Form_Load()
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\zbjxc.mdb"
Data2.DatabaseName = App.Path & "\zbjxc.mdb"
'初始化设置
x = Array("门店名称", "编号", "简称", "商品名称", "CT", "G", "票号")
For i = 0 To 6
Combo1.AddItem (x(i))
Combo3.AddItem (x(i))
Next i
Combo1.Text = "简称"
Combo3.Text = "简称"
Combo2.AddItem ("升序")
Combo2.AddItem ("降序")
Combo2.Text = "升序"
rq1.Value = Date - 30
rq2.Value = Date
'查询统计销售信息
Data2.RecordSource = "select sum(金额)as ss,sum(利润)as ss2,count(*)as ss1,sum(数量)as 数量1 from xsd "
Data2.Refresh
Call eval '调用函数
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command1.SetFocus
End If
End Sub
Private Sub ComFind_Click()
'查询统计商品销售信息
If Check1.Value = 0 And Check2.Value = 0 Then
Data1.RecordSource = "select * from xsd where (xsd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")order by 简称"
Data1.Refresh
Data2.RecordSource = "select sum(金额)as ss,sum(利润)as ss2,count(*)as ss1,sum(数量)as 数量1 from xsd where (xsd." & Combo1.Text & " " & " like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data2.Refresh
End If
If Check1.Value = 1 And Check2.Value = 0 Then
Data1.RecordSource = "select * from xsd where (xsd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + "and xsd.日期 between " + Chr(35) + Str(rq1.Value) + Chr(35) + "and " + Chr(35) + Str(rq2.Value) + Chr(35) + ")order by 简称"
Data1.Refresh
Data2.RecordSource = "select sum(金额)as ss,sum(利润)as ss2,count(*)as ss1,sum(数量)as 数量1 from xsd where (xsd." & Combo1.Text & " " & " like " + Chr(34) + Text1.Text + "*" + Chr(34) + "and xsd.日期 between " + Chr(35) + Str(rq1.Value) + Chr(35) + "and " + Chr(35) + Str(rq2.Value) + Chr(35) + ")"
Data2.Refresh
End If
If Check1.Value = 1 And Check2.Value = 1 Then
If Combo2.Text = "升序" Then a = "asc" Else a = "desc"
Data1.RecordSource = "select * from xsd where (xsd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + "and xsd.日期 between " + Chr(35) + Str(rq1.Value) + Chr(35) + "and " + Chr(35) + Str(rq2.Value) + Chr(35) + ")order by " & Combo3.Text & " " & a
Data1.Refresh
Data2.RecordSource = "select sum(金额)as ss,sum(利润)as ss2,count(*)as ss1,sum(数量)as 数量1 from xsd where (xsd." & Combo1.Text & " " & " like " + Chr(34) + Text1.Text + "*" + Chr(34) + "and xsd.日期 between " + Chr(35) + Str(rq1.Value) + Chr(35) + "and " + Chr(35) + Str(rq2.Value) + Chr(35) + ")"
Data2.Refresh
End If
If Check1.Value = 0 And Check2.Value = 1 Then
If Combo2.Text = "升序" Then a = "asc" Else a = "desc"
Data1.RecordSource = "select * from xsd where (xsd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")order by " & Combo3.Text & " " & a
Data1.Refresh
Data2.RecordSource = "select sum(金额)as ss,sum(利润)as ss2,count(*)as ss1,sum(数量)as 数量1 from xsd where (xsd." & Combo1.Text & " " & " like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data2.Refresh
End If
Call eval '调用函数
End Sub
Private Sub Comdel_Click()
'删除商品销售信息
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.Update
Data2.Refresh
End Sub
Private Sub Commodity_Click()
'允许修改商品销售信息
DBGrid1.AllowUpdate = True
End Sub
Private Sub Comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -