📄 frmorder.frm
字号:
TabIndex = 14
Top = 975
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "供货商"
Height = 180
Index = 2
Left = 270
TabIndex = 13
Top = 1155
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "建立日期："
Height = 180
Index = 1
Left = 8880
TabIndex = 12
Top = 1395
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "订单编号："
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 225
TabIndex = 11
Top = 450
Width = 900
End
Begin VB.Label lbSheetID
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00C00000&
Height = 180
Left = 1350
TabIndex = 10
Top = 450
Width = 90
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = -645
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":2E27
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":3143
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":345F
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":377B
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":3A97
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":3DB3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":468F
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":49AB
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":4CC7
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":4FE3
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOrder.frx":58BF
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbOrder
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 8
Top = 0
Width = 11865
_ExtentX = 20929
_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 = 54
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 = 55
Top = 345
Width = 975
End
End
End
End
Attribute VB_Name = "frmOrder"
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 '当前类型
Private Sub cmdDisplayorder_Click()
ConfigOrder "Select * From OrderSheet"
End Sub
Private Sub cmdExit_Click()
FormID = "Order100"
MovePic picSelectSuppler, False, frmOrder, txtUnitID, Grid2
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, frmOrder, 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 OrderSheet Where Date>=#" & dtStartDate.Value & "# And Date<=#" & dtEndDate.Value & "#" & sSQL
Else
ConfigOrder "Select * From OrderSheet 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, frmOrder, txtEdit, Grid3
End Sub
Private Sub cmdSelectGuest_Click()
On Error Resume Next
FormID = "GS100"
MovePic picSelectSuppler, True, frmOrder, 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 Command2_Click()
If GuestLay = 2 Then
ConfigSuppler "Select * From SupplerType", True
End If
End Sub
Private Sub Command3_Click()
FormID = "Order100"
MovePic picSelectP, False, frmOrder, 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()
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 dtEndDate_Change()
If dtStartDate.Value > dtEndDate Then
dtStartDate.Value = dtEndDate.Value
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -