📄 公司快递管理.frm
字号:
Index = 0
Left = 60
Top = 4050
Width = 4785
End
Begin VB.Shape Shape2
Height = 3825
Index = 1
Left = 4950
Top = 4050
Width = 4785
End
Begin VB.Image IMG_CMD1
Height = 375
Index = 1
Left = 7140
Picture = "公司快递管理.frx":38086B
Top = 9510
Width = 1125
End
Begin VB.Image IMG_CMD1
Height = 375
Index = 0
Left = 8250
Picture = "公司快递管理.frx":384D2C
Top = 8190
Width = 1125
End
Begin VB.Image IMG_CMD2
Height = 375
Index = 0
Left = 6870
Picture = "公司快递管理.frx":388FED
Top = 8190
Width = 1125
End
End
Begin VB.ListBox List1
Height = 2580
Left = 30
TabIndex = 3
Top = 7860
Width = 5265
End
Begin MSComctlLib.TreeView TreeView1
Height = 6525
Left = 30
TabIndex = 1
Top = 960
Width = 5265
_ExtentX = 9287
_ExtentY = 11509
_Version = 393217
Indentation = 529
LabelEdit = 1
PathSeparator = "|"
Style = 7
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 0
Picture = "公司快递管理.frx":38D20D
ScaleHeight = 570
ScaleWidth = 15270
TabIndex = 0
Top = -30
Width = 15270
Begin VB.Image CMD_IMG7
Height = 375
Index = 2
Left = 9270
Picture = "公司快递管理.frx":3A97EF
Top = 1170
Width = 1500
End
Begin VB.Image CMD_IMG7
Height = 375
Index = 1
Left = 9270
Picture = "公司快递管理.frx":3ADEF4
Top = 630
Width = 1500
End
Begin VB.Image CMD_IMG7
Height = 375
Index = 0
Left = 8910
Picture = "公司快递管理.frx":3B2A57
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG6
Height = 375
Index = 2
Left = 7260
Picture = "公司快递管理.frx":3B7355
Top = 1080
Width = 1500
End
Begin VB.Image CMD_IMG6
Height = 375
Index = 1
Left = 7230
Picture = "公司快递管理.frx":3BBA5A
Top = 630
Width = 1500
End
Begin VB.Image CMD_IMG6
Height = 375
Index = 0
Left = 7050
Picture = "公司快递管理.frx":3C0597
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG5
Height = 375
Index = 2
Left = 5550
Picture = "公司快递管理.frx":3C4E4D
Top = 1140
Width = 1500
End
Begin VB.Image CMD_IMG5
Height = 375
Index = 1
Left = 5490
Picture = "公司快递管理.frx":3C92EA
Top = 660
Width = 1500
End
Begin VB.Image CMD_IMG5
Height = 375
Index = 0
Left = 5400
Picture = "公司快递管理.frx":3CDBF8
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG3
Height = 375
Index = 2
Left = 3840
Picture = "公司快递管理.frx":3D2266
Top = 1200
Width = 1500
End
Begin VB.Image CMD_IMG3
Height = 375
Index = 1
Left = 3840
Picture = "公司快递管理.frx":3D6962
Top = 690
Width = 1500
End
Begin VB.Image CMD_IMG3
Height = 375
Index = 0
Left = 3750
Picture = "公司快递管理.frx":3DB241
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG4
Height = 375
Index = 1
Left = 13860
Picture = "公司快递管理.frx":3DFB19
Top = 660
Width = 1125
End
Begin VB.Image CMD_IMG4
Height = 375
Index = 2
Left = 13920
Picture = "公司快递管理.frx":3E421D
Top = 1230
Width = 1125
End
Begin VB.Image CMD_IMG2
Height = 375
Index = 2
Left = 2010
Picture = "公司快递管理.frx":3E8541
Top = 1170
Width = 1500
End
Begin VB.Image CMD_IMG2
Height = 375
Index = 1
Left = 2010
Picture = "公司快递管理.frx":3EC61E
Top = 690
Width = 1500
End
Begin VB.Image CMD_IMG2
Height = 375
Index = 0
Left = 1890
Picture = "公司快递管理.frx":3F0B37
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG1
Height = 375
Index = 2
Left = 210
Picture = "公司快递管理.frx":3F4E20
Top = 1140
Width = 1500
End
Begin VB.Image CMD_IMG1
Height = 375
Index = 1
Left = 210
Picture = "公司快递管理.frx":3F8F9A
Top = 720
Width = 1500
End
Begin VB.Image CMD_IMG1
Height = 375
Index = 0
Left = 240
Picture = "公司快递管理.frx":3FD53A
Top = 90
Width = 1500
End
Begin VB.Image CMD_IMG4
Height = 375
Index = 0
Left = 13860
Picture = "公司快递管理.frx":4018E0
Top = 90
Width = 1125
End
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "快递单导航"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Index = 1
Left = 30
TabIndex = 4
Top = 600
Width = 1650
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "昨日快递"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Index = 0
Left = 30
TabIndex = 2
Top = 7500
Width = 1320
End
Begin VB.Menu menu_set
Caption = " 基本设置 "
Begin VB.Menu menu_set_company
Caption = "企业基本资料"
End
Begin VB.Menu menu_set_custom
Caption = "客户基本资料"
End
Begin VB.Menu bar1
Caption = "-"
End
Begin VB.Menu menu_exit
Caption = "退出 "
Shortcut = ^X
End
End
Begin VB.Menu menu_order_manage
Caption = " 快递管理 "
Begin VB.Menu menu_order_add
Caption = "新建快递单"
Shortcut = ^N
End
Begin VB.Menu menu_order_modify
Caption = "修改快递单"
Shortcut = ^M
End
Begin VB.Menu menu_order_del
Caption = "删除快递单"
Shortcut = ^D
End
Begin VB.Menu menu_order_search
Caption = "查找快递单"
Shortcut = ^F
End
End
End
Attribute VB_Name = "gskdgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim Nd As Node
Dim id As String
Dim flag As String
Dim Current_node As Node
Private Sub CMD_IMG5_Click(Index As Integer)
If menu_order_modify.Enabled = False Then
MsgBox "你没有选中要修改的快递单或" & vbCrLf & "你选中的快递单已经存档", vbInformation, "提示"
Exit Sub
Else
Call menu_order_modify_Click
End If
End Sub
Private Sub CMD_IMG6_Click(Index As Integer)
If menu_order_modify.Enabled = False Then
MsgBox "你没有选中要删除的快递单或" & vbCrLf & "你选中的快递单已经存档", vbInformation, "提示"
Exit Sub
Else
Call menu_order_del_Click
End If
End Sub
Private Sub DTPicker1_Change()
'用于选择以前快递的时间
Call Showlist(DTPicker1.Value)
End Sub
Private Sub IMG_CMD1_Click(Index As Integer)
Select Case Index
Case 0, 1
sqltext = "delete from 打印表"
Set rs = ExecuteSQL(sqltext, MsgString)
If Check1(0).Value = 1 Then
lx = "货样"
Else
lx = "物品"
End If
If Check2(0).Value = 1 Then
fkfs = "现款"
Else
fkfs = "月结"
End If
sqltext = "insert into 打印表 values ('" & TXT(0) & "','" & lx & "','" & TXT(1) & "','" & TXT(2)
sqltext = sqltext & "','" & fkfs & "','" & TXT(3) & "','" & TXT(4) & "','" & TXT(6)
sqltext = sqltext & "','" & TXT(7) & "','" & TXT(5) & "','" & TXT(8) & "','" & TXT(9)
sqltext = sqltext & "','" & TXT(10) & "','" & TXT(11) & "','" & TXT(12)
sqltext = sqltext & "','" & TXT(13) & "','" & TXT(14) & "')"
Set rs = ExecuteSQL(sqltext, MsgString)
dykdd.Sections(3).Controls("txt0").Caption = TXT(4)
dykdd.Sections(3).Controls("txt1").Caption = TXT(5)
dykdd.Sections(3).Controls("txt2").Caption = TXT(6)
dykdd.Sections(3).Controls("txt3").Caption = TXT(7)
dykdd.Sections(3).Controls("txt4").Caption = TXT(8)
dykdd.Sections(3).Controls("txt5").Caption = TXT(9)
dykdd.Sections(3).Controls("txt6").Caption = TXT(10)
dykdd.Sections(3).Controls("txt7").Caption = TXT(11)
dykdd.Sections(3).Controls("txt8").Caption = TXT(3)
dykdd.Sections(3).Controls("txt9").Caption = TXT(12)
dykdd.Sections(3).Controls("txt10").Caption = TXT(13)
dykdd.Sections(3).Controls("txt11").Caption = TXT(14)
dykdd.Sections(3).Controls("txt12").Caption = TXT(1)
dykdd.Sections(3).Controls("txt13").Caption = TXT(2)
dykdd.Show 1
ret = MsgBox("打印是否正确?", vbInformation + vbYesNo, "提示")
If ret = vbYes Then
'将快递单从待打印表中删除，加入到打印表完成表中
sqltext = "insert into 打印表完成表 values ('" & TXT(0) & "','" & lx & "','" & TXT(1) & "','" & TXT(2)
sqltext = sqltext & "','" & fkfs & "','" & TXT(3) & "','" & TXT(4) & "','" & TXT(6)
sqltext = sqltext & "','" & TXT(7) & "','" & TXT(5) & "','" & TXT(8) & "','" & TXT(9)
sqltext = sqltext & "','" & TXT(10) & "','" & TXT(11) & "','" & TXT(12)
sqltext = sqltext & "','" & TXT(13) & "','" & TXT(14) & "','已完成" & "')"
Set rs = ExecuteSQL(sqltext, MsgString)
sqltext = "delete from 待打印表 where 速递单ID ='" & TXT(0) & "'"
Set rs = ExecuteSQL(sqltext, MsgString)
Call ShowTreeView
Else
'打印失败，直接调用修改快递单
End If
End Select
End Sub
Private Sub img_cmd1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0, 1
IMG_CMD1(Index).BorderStyle = 1
End Select
End Sub
Private Sub img_cmd1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -