📄 frmdetailform.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.1#0"; "MOVEFOCUSTEXT.OCX"
Begin VB.Form frmDetailForm
BorderStyle = 3 'Fixed Dialog
Caption = "请输入查询条件"
ClientHeight = 2895
ClientLeft = 45
ClientTop = 330
ClientWidth = 5535
Icon = "frmDetailForm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 5535
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Height = 390
Left = 3255
TabIndex = 6
Top = 1680
Width = 1815
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "关闭(&C)"
Height = 390
Left = 3255
TabIndex = 5
Top = 2130
Width = 1815
End
Begin VB.Frame Frame1
Caption = "请选择以下条件"
ForeColor = &H00800000&
Height = 2535
Left = 90
TabIndex = 0
Top = 270
Width = 5385
Begin VB.ComboBox cmbEnd
Height = 300
ItemData = "frmDetailForm.frx":030A
Left = 4575
List = "frmDetailForm.frx":0356
Style = 2 'Dropdown List
TabIndex = 17
Top = 390
Visible = 0 'False
Width = 585
End
Begin VB.ComboBox cmbStart
Height = 300
ItemData = "frmDetailForm.frx":03BA
Left = 2220
List = "frmDetailForm.frx":0406
Style = 2 'Dropdown List
TabIndex = 16
Top = 390
Visible = 0 'False
Width = 570
End
Begin VB.CheckBox chkFull
Caption = "完全匹配"
Height = 240
Left = 3270
TabIndex = 15
Top = 1020
Width = 1455
End
Begin MSComCtl2.DTPicker dtStart
Height = 300
Left = 870
TabIndex = 1
Top = 390
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
CalendarBackColor= 16772040
CalendarTitleBackColor= 33023
CalendarTitleForeColor= 8388608
Format = 24576001
CurrentDate = 37014
End
Begin MSComCtl2.DTPicker dtEnd
Height = 300
Left = 3270
TabIndex = 2
Top = 390
Width = 1290
_ExtentX = 2275
_ExtentY = 529
_Version = 393216
CalendarBackColor= 16773849
CalendarTitleBackColor= 33023
CalendarTitleForeColor= 8388608
Format = 24576001
CurrentDate = 37014
End
Begin 给出焦点文本框.FocusText cmbCode
Height = 315
Left = 855
TabIndex = 7
Top = 975
Width = 1755
_ExtentX = 3096
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 10
PreControl = "txtDH"
NextControl = "txtPingyin"
End
Begin 给出焦点文本框.FocusText txtPingyin
Height = 315
Left = 855
TabIndex = 8
Top = 1335
Width = 1755
_ExtentX = 3096
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 10
PreControl = "cmbCode"
NextControl = "txtName"
End
Begin 给出焦点文本框.FocusText txtName
Height = 315
Left = 855
TabIndex = 9
Top = 1695
Width = 1755
_ExtentX = 3096
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 15
PreControl = "txtPingyin"
NextControl = "txtType"
End
Begin 给出焦点文本框.FocusText txtType
Height = 315
Left = 855
TabIndex = 10
Top = 2055
Width = 1755
_ExtentX = 3096
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 15
PreControl = "txtName"
NextControl = "cmdOK"
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "拼音："
Height = 180
Index = 5
Left = 315
TabIndex = 14
Top = 1425
Width = 495
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "编码："
Height = 180
Index = 4
Left = 315
TabIndex = 13
Top = 1065
Width = 495
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "名称："
Height = 180
Index = 3
Left = 315
TabIndex = 12
Top = 1800
Width = 495
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "菜类别："
Height = 180
Index = 9
Left = 135
TabIndex = 11
Top = 2145
Width = 675
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 150
X2 = 5175
Y1 = 855
Y2 = 855
End
Begin VB.Line Line2
X1 = 165
X2 = 5175
Y1 = 840
Y2 = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "至"
Height = 180
Index = 0
Left = 2940
TabIndex = 4
Top = 465
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期："
Height = 180
Index = 1
Left = 315
TabIndex = 3
Top = 465
Width = 540
End
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 105
X2 = 5490
Y1 = 2835
Y2 = 2835
End
End
Attribute VB_Name = "frmDetailForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Option", "StartDate", dtStart.Value
SaveSetting App.EXEName, "Option", "EndDate", dtEnd.Value
SaveSetting App.EXEName, "Option", "StartTime", cmbStart.ListIndex
SaveSetting App.EXEName, "Option", "EndTime", cmbEnd.ListIndex
SaveFormSet Me
End Sub
Private Sub SumBS(NewStr As String, NewStr1, NewStr2)
Dim DB As Database, TmpStr As String
Set DB = OpenDatabase(ConData, False, False, Constr)
TmpStr = "Delete * From SumSellForm"
DB.Execute TmpStr
TmpStr = "Insert Into SumSellForm Select 收货单位,仓库名称,产品类型,货号,产品名称,规格,单位,作废,Sum(数量) as Quantity,Sum(上衣) as Coat,Sum(裤子) as Trousers,Sum(金额) as Moneys From SellForm Where " & NewStr & " Group By 收货单位,仓库名称,产品类型,货号,产品名称,规格,单位,作废"
DB.Execute TmpStr
'更新套数
TmpStr = "Update SumSellForm Set Quantity=Coat Where Coat<=Trousers and (Coat<>0 Or Trousers<>0)"
DB.Execute TmpStr
TmpStr = "Update SumSellForm Set Quantity=Trousers Where Coat>=Trousers and (Coat<>0 Or Trousers<>0)"
DB.Execute TmpStr
TmpStr = "Update SumSellForm Set 日期=#" & NewStr1 & "#,日期2=#" & NewStr2 & "#"
DB.Execute TmpStr
DB.Close
End Sub
Private Sub chkEndDate_Click()
On Error Resume Next
If chkEndDate.Value = Checked Then
Label1(5).Visible = True
txtSellDateE.Visible = True
cmdSelectDateE.Visible = True
chkEndDate.Visible = False
Label1(5).Enabled = True
txtSellDateE.Enabled = True
cmdSelectDateE.Enabled = True
txtSellDateE.SetFocus
End If
End Sub
Private Sub cmbBranchName_Change()
Call Valid_OK
End Sub
Private Sub cmbBranchName_Click()
Call Valid_OK
txtProductName.SetFocus
End Sub
Private Sub cmbBranchName_KeyDown(KeyCode As Integer, Shift As Integer)
Call MoveToNext(KeyCode)
End Sub
Private Sub cmbBranchName_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub
Private Sub cmbBranchName_LostFocus()
If cmbBranchName.Text = "" Then Exit Sub
If LostControl("Detail", "卡号", cmbBranchName.Text) = False Then
MsgBox "[ " + cmbBranchName.Text + " ] 为无效的会员卡号,请重新输入。 ", vbInformation, "请先定义会员卡"
cmbBranchName.Text = ""
cmbBranchName.SetFocus
End If
End Sub
Private Sub cmbProductType_Change()
Call Valid_OK
End Sub
Private Sub cmbProductType_Click()
Call Valid_OK
End Sub
Private Sub cmbProductType_KeyDown(KeyCode As Integer, Shift As Integer)
Call MoveToNext(KeyCode)
End Sub
Private Sub cmbProductType_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub
Private Sub cmbProductType_LostFocus()
If cmbProductType.Text = "" Then Exit Sub
If LostControl("ProductStyleDef", "产品类型", cmbProductType.Text) = False Then
MsgBox "[ " + cmbProductType.Text + " ] 为无效的产品类型名,请重新输入。 ", vbInformation, "请先定义产品类型"
cmbProductType.Text = ""
cmbProductType.SetFocus
End If
End Sub
Private Sub cmbStore_Change()
Call Valid_OK
End Sub
Private Sub cmbStore_Click()
Call Valid_OK
End Sub
Private Sub cmbStore_KeyDown(KeyCode As Integer, Shift As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -