📄 frmstore.frm
字号:
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":495A
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":4C76
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":4F92
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":52AE
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":55CA
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":5EA6
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStore.frx":61C2
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbOrder
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 54
Top = 0
Width = 11460
_ExtentX = 20214
_ExtentY = 1349
ButtonWidth = 1455
ButtonHeight = 1349
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "入库单"
Key = "new"
Object.ToolTipText = "新建入库单"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "删除它"
Key = "del"
Object.ToolTipText = "删除"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "浏览入库"
Key = "browser"
Object.ToolTipText = "浏览入库"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "单据打印"
Key = "printer"
Object.ToolTipText = "单据打印"
ImageIndex = 10
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "set"
Text = "(&C) 打印设置..."
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "print"
Text = "(&P) 打印..."
EndProperty
EndProperty
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "单据生效"
Key = "check"
Object.ToolTipText = "单据生效"
ImageIndex = 7
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭返回"
Key = "return"
Object.ToolTipText = "关闭返回"
ImageIndex = 11
EndProperty
EndProperty
Begin Threed.SSPanel lbStatus
Height = 630
Left = 7995
TabIndex = 55
Top = 150
Width = 2160
_Version = 65536
_ExtentX = 3810
_ExtentY = 1111
_StockProps = 15
Caption = "全球通商务管理系统"
ForeColor = 255
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderWidth = 1
BevelOuter = 0
RoundedCorners = 0 'False
FloodColor = 16776960
FloodShowPct = 0 'False
Alignment = 0
Autosize = 1
Begin VB.Label lbDate
AutoSize = -1 'True
Caption = "00:00:00"
ForeColor = &H00404040&
Height = 180
Left = 1020
TabIndex = 56
Top = 330
Width = 720
End
Begin VB.Label Label4
Caption = "现在时间："
ForeColor = &H00404040&
Height = 240
Left = 120
TabIndex = 57
Top = 345
Width = 975
End
End
End
End
Attribute VB_Name = "frmStore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim New_AniCur As New AniCursor
Dim New_AniCur1 As New AniCursor '动画光标
Dim UnitID_old As String
Dim ProductID_old As String
Dim Grid_old As GridCoord
Dim EnterType As Integer
Dim GetProduct As ProductRef
Dim GuestLay As Integer
Dim ProductLay As Integer
Dim SheetChange As Boolean
Dim sType As Integer '当前类型
Dim sRelateOrder As String
Private Sub cmdDisplayorder_Click()
ConfigOrder "Select * From inStoreSheet"
End Sub
Private Sub cmdExit_Click()
FormID = "RK100"
MovePic picSelectSuppler, False, Me, txtUnitID, Grid2
End Sub
Private Sub cmdOrder_Click()
'Move here
Dim x As Integer
For x = 1 To 10
tbOrder.Buttons(x).Enabled = False
Next
MovePic Picture2, True, Me, txtEdit, Grid3
End Sub
Private Sub cmdReturn_Click()
If picBrowser.left >= 0 Then
If txtUnitID.Enabled = True Then
tbOrder.Buttons(6).Enabled = True
tbOrder.Buttons(8).Enabled = True
tbOrder.Buttons(2).Enabled = True
Else
tbOrder.Buttons(6).Enabled = False
End If
tbOrder.Buttons(4).Enabled = True
MovePic picBrowser, False, Me, Grid1, Grid4
tbOrder.Buttons(1).Enabled = True
Exit Sub
End If
End Sub
Private Sub cmdSearchOrder_Click()
Dim sSQL As String
If optStatus(0).Value = True Then
sSQL = " And IsAcc=0 And ISEnd=0"
End If
If optStatus(1).Value = True Then
sSQL = " And IsAcc=1 And ISEnd=0"
End If
If optStatus(2).Value = True Then
sSQL = " And IsAcc=1 And ISEnd=1"
End If
If optStatus(3).Value = True Then
sSQL = ""
End If
If Trim(txtSupplerName.Text) = "" Then
ConfigOrder "Select * From inStoreSheet Where Date>=#" & dtStartDate.Value & "# And Date<=#" & dtEndDate.Value & "#" & sSQL
Else
ConfigOrder "Select * From inStoreSheet Where Date>=#" & dtStartDate.Value & "# And Date<=#" & dtEndDate.Value & "# And UnitName Like '*" & Trim(txtSupplerName.Text) & "*'" & sSQL
End If
End Sub
Private Sub cmdSelect_Click()
On Error Resume Next
FormID = "PD100"
MovePic picSelectP, True, Me, txtEdit, Grid3
End Sub
Private Sub cmdSelectGuest_Click()
On Error Resume Next
FormID = "GS100"
MovePic picSelectSuppler, True, Me, txtUnitID, Grid2
End Sub
Private Sub Command1_Click()
Me.MousePointer = 11
If Trim(txtSearch.Text) <> "" Then
If InStr(1, txtSearch.Text, "'", vbTextCompare) Then
MsgBox "对不起，查询的供应商名称中不能有《'》号？ ", vbInformation
Exit Sub
Else
ConfigSuppler "Select * From Suppler Where UnitID Like '*" & Trim(txtSearch.Text) & "*' Or UnitName Like '*" & Trim(txtSearch.Text) & "*'", False
End If
End If
Me.MousePointer = 0
End Sub
Private Sub Command10_Click()
Load frmConfig1
frmConfig1.GuestManager1.sDatabaseFile = ConData
frmConfig1.GuestManager1.sDatabasePassword = ConStr
frmConfig1.GuestManager1.sTableName = "Suppler"
frmConfig1.GuestManager1.IsGuest = False
frmConfig1.Show 1
End Sub
Private Sub Command2_Click()
If GuestLay = 2 Then
ConfigSuppler "Select * From SupplerType", True
End If
End Sub
Private Sub Command3_Click()
FormID = "RK100"
MovePic picSelectP, False, Me, txtEdit, Grid3
End Sub
Private Sub Command4_Click()
Me.MousePointer = 11
If Trim(FocusText1.Text) <> "" Then
If InStr(1, FocusText1.Text, "'", vbTextCompare) Then
MsgBox "对不起，查询的产品名称或编号不能有《'》号？ ", vbInformation
Exit Sub
Else
ConfigProduct "Select * From Goods Where GoodsID Like '*" & Trim(FocusText1.Text) & "*' Or GoodsName Like '*" & Trim(FocusText1.Text) & "*'", False
End If
End If
Me.MousePointer = 0
End Sub
Private Sub Command5_Click()
If ProductLay = 2 Then
ConfigProduct "Select * From ProductType", True
End If
End Sub
Private Sub Command6_Click()
ConfigRelateOrder "Select * From OrderSheet Where IsAcc=1 And IsEnd=0"
End Sub
Private Sub Command7_Click()
If Trim(FocusText2.Text) = "" Then
ConfigRelateOrder "Select * From OrderSheet Where IsAcc=1 And IsEnd=0 And (Date>=#" & O_dpStart.Value & "# And Date<=#" & O_dpEnd.Value & "#)"
Else
ConfigRelateOrder "Select * From OrderSheet Where IsAcc=1 And IsEnd=0 And (Date>=#" & O_dpStart.Value & "# And Date<=#" & O_dpEnd.Value & "#) And UnitName Like '*" & Trim(FocusText2.Text) & "*'" & sSQL
End If
End Sub
Private Sub Command8_Click()
Dim x As Integer
For x = 1 To 10
tbOrder.Buttons(x).Enabled = True
Next
MovePic Picture2, False, Me, txtEdit, Grid3
End Sub
Private Sub Command9_Click()
sRelateOrder = ""
Dim x As Integer
For x = 1 To 10
tbOrder.Buttons(x).Enabled = True
Next
lbOrderNO.Caption = ""
MovePic Picture2, False, Me, txtEdit, Grid3
End Sub
Private Sub dtEndDate_Change()
If dtStartDate.Value > dtEndDate Then
dtStartDate.Value = dtEndDate.Value
End If
End Sub
Private Sub dtStartDate_Change()
If dtStartDate.Value > dtEndDate Then
dtEndDate.Value = dtStartDate.Value
End If
End Sub
Private Sub FocusText1_Change()
If Trim(FocusText1.Text) <> "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -