📄 frmmain.frm
字号:
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1AA47
Key = ""
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1AD61
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B07B
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B395
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B6AF
Key = ""
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B9C9
Key = ""
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1BCE3
Key = ""
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1BFFD
Key = ""
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1C317
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1C631
Key = "Web"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1C94B
Key = ""
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1CC65
Key = ""
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1CF7F
Key = ""
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1D299
Key = "vbAccelerator"
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 1575
Left = 0
ScaleHeight = 1515
ScaleWidth = 12450
TabIndex = 10
Top = 0
Visible = 0 'False
Width = 12510
Begin VB.PictureBox PicHdc
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 855
Index = 1
Left = 5280
ScaleHeight = 53
ScaleMode = 3 'Pixel
ScaleWidth = 85
TabIndex = 12
Top = 240
Width = 1335
End
Begin VB.PictureBox PicHdc
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 855
Index = 0
Left = 3480
ScaleHeight = 53
ScaleMode = 3 'Pixel
ScaleWidth = 85
TabIndex = 11
Top = 240
Width = 1335
End
End
Begin VB.Menu menu10
Caption = ""
Enabled = 0 'False
End
Begin VB.Menu menuAll
Caption = "维护"
Index = 0
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 1
End
Begin VB.Menu menuAll
Caption = "数据"
Index = 2
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 3
End
Begin VB.Menu menuAll
Caption = "进货"
Index = 4
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 5
End
Begin VB.Menu menuAll
Caption = "库存"
Index = 6
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 7
End
Begin VB.Menu menuAll
Caption = "销售"
Index = 8
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 9
End
Begin VB.Menu menuAll
Caption = "维修"
Index = 10
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 11
End
Begin VB.Menu menuAll
Caption = "统计"
Index = 12
End
Begin VB.Menu menuAll
Caption = ""
Enabled = 0 'False
Index = 13
End
Begin VB.Menu menuAll
Caption = "帐务"
Index = 14
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const SW_SHOWNORMAL = 1
'Declarations
'=====================================================
'Code for Opening WebLink
'API Declaration for opening my WebLink on Clicking StatusBar
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub InitCommonControls Lib "COMCTL32.DLL" ()
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
'Constant Declaration
Private WithEvents cP As cPopupMenu
Attribute cP.VB_VarHelpID = -1
Private MenuHeadColor As New cLogo
Private ChangeOperateBS As Boolean
Public ExistBS As Boolean
'=====================================================
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
GoodsData.Show
GoodsData.ZOrder 0
Case 1
StockTable.Show
StockTable.ZOrder 0
Case 2
StoreGoods.Show
StoreGoods.ZOrder 0
Case 3
SellTable.Show
SellTable.ZOrder 0
Case 4
'VarCrystal.CreateTTX
Case 5
Case 6
SellStat.Show
SellStat.ZOrder 0
End Select
End Sub
Private Sub cP_Click(ItemNumber As Long)
Dim sKey As String
If VarFunction.CheckMenuPopedom(cP.CurrentlyRestoredKey, ItemNumber) = True Then
Select Case cP.CurrentlyRestoredKey
Case "Maintenance"
Select Case ItemNumber
Case 1 '"更换操作员"
ChangeOperateBS = True
Unload Me
frmConnect.Show 1
Case 3 '"操作员设置"
OperateSet.Show
OperateSet.ZOrder
Case 4 '"工作人员设置"
WorkerSet.Show
WorkerSet.ZOrder
Case 5 '"系统设置"
SystemSet.Show 1
Case 7 '"退出系统"
ExitJXC
Unload Me
End Select
Case "Data"
Select Case ItemNumber
Case 1
BaseDataSet.Show
BaseDataSet.ZOrder 0
Case 2
GoodsData.Show
GoodsData.ZOrder 0
Case 3
SimpleSet.Show
SimpleSet.ZOrder 0
Case 5
WFBaseSet.Show
WFBaseSet.ZOrder
Case 6
MaintainSet.Show
MaintainSet.ZOrder
Case 7
MaintainAppend.Show
MaintainAppend.ZOrder
Case 9
ProvideData.Show
ProvideData.ZOrder 0
Case 10
ClientData.Show
ClientData.ZOrder 0
Case 11
ClientNeedInfo.Show
ClientNeedInfo.ZOrder 0
Case 13
CarDocu.Show
CarDocu.ZOrder 0
Case 14
AddressBook.Show
AddressBook.ZOrder 0
End Select
Case "StockTable"
Select Case ItemNumber
Case 1 '"进货单"
StockTable.Show
StockTable.ZOrder 0
Case 2 '"进货退货处理"
SendBackGoods.Show
SendBackGoods.ZOrder 0
Case 4 '"进（退）货历史单据"
StockHistory.Show
StockHistory.ZOrder
End Select
Case "StoreGoods"
Select Case ItemNumber
Case 1
StoreGoods.Show
StoreGoods.ZOrder 0
Case 2
StoreDealTable.Show
StoreDealTable.ZOrder 0
Case 4
StoreHistory.Show
StoreHistory.ZOrder 0
End Select
Case "SellTable"
Select Case ItemNumber
Case 1
SellTable.Show
SellTable.ZOrder 0
Case 2
QuoteBillTable.Show
QuoteBillTable.ZOrder 0
Case 4
MaintainPartBill.Show
MaintainPartBill.ZOrder 0
Case 6
SellBackTable.Show
SellBackTable.ZOrder 0
Case 8
SellHistory.Show
SellHistory.ZOrder 0
End Select
Case "Maintain"
Select Case ItemNumber
Case 1
MeetCarBill.Show
MeetCarBill.ZOrder 0
Case 3
ConstructTable.Show
ConstructTable.ZOrder 0
Case 5
MeetCarBalance.Show
MeetCarBalance.ZOrder 0
Case 7
MeetCarHistory.Show
MeetCarHistory.ZOrder 0
End Select
Case "Stat"
Select Case ItemNumber
Case 1
SellDataStat.Show 1
SellDataStat.ZOrder 0
Case 3
GoodsReference.Show
GoodsReference.ZOrder 0
Case 4
SellStat.Show
SellStat.ZOrder 0
Case 5
StockStat.Show
StockStat.ZOrder 0
Case 6
StoreStat.Show
StoreStat.ZOrder 0
Case 7
JXCStat.Show
JXCStat.ZOrder 0
Case 9
ArrearStat.Show
ArrearStat.ZOrder 0
Case 10
StoreAlarmStat.Show
StoreAlarmStat.ZOrder 0
Case 11
MaintainStat.Show
MaintainStat.ZOrder 0
End Select
End Select
Else
MsgBox "你没有使用此项目的权力", , VarInitData.SysPrompt
End If
End Sub
Private Sub cP_DrawItem(ByVal hDC As Long, ByVal lMenuIndex As Long, lLeft As Long, lTop As Long, lRight As Long, lBottom As Long, ByVal bSelected As Boolean, ByVal bChecked As Boolean, ByVal bDisabled As Boolean, bDoDefault As Boolean)
Dim lw As Long
lw = picSideBar.Width \ Screen.TwipsPerPixelX
BitBlt hDC, lLeft, lTop, lw, lBottom - lTop, picSideBar.hDC, 0, lTop, vbSrcCopy
lLeft = lLeft + lw + 1
bDoDefault = True
End Sub
Private Sub ctrl_PullDownMenu_Click(Index As Integer)
End Sub
Private Sub MDIForm_Load()
Dim TempSQL As String
Dim TempRS As MYSQL_RS
Dim i As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -