📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{2BED9081-5209-49B1-91B3-E3B56970221C}#3.0#0"; "RevMDITabs.ocx"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "贸易公司管理信息系统"
ClientHeight = 5295
ClientLeft = 165
ClientTop = 450
ClientWidth = 7335
LinkTopic = "MDIForm1"
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin RevMDITabs.RevMDITabsCtl RevMDITabsCtl1
Left = 1800
Top = 1920
_ExtentX = 847
_ExtentY = 847
Style = 0
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 5025
Width = 7335
_ExtentX = 12938
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 7303
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2005-8-26"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "17:03"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1920
Top = 720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = "IMG1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2D00
Key = "IMG2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":301A
Key = "IMG3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":625A
Key = "IMG4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":90B3
Key = "IMG5"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":C22C
Key = "IMG6"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 3 'Align Left
Height = 5025
Left = 0
TabIndex = 1
Top = 0
Width = 795
_ExtentX = 1402
_ExtentY = 8864
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "销售处理"
Key = "sell"
ImageKey = "IMG1"
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "XSD"
Object.Tag = "XSD"
Text = "销售单"
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "落单处理"
Key = "rkd"
ImageKey = "IMG6"
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "RKD"
Text = "入库单"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "商品资料"
Key = "product"
ImageKey = "IMG5"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客户资料"
Key = "customer"
ImageKey = "IMG4"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工厂资料"
Key = "provider"
ImageKey = "IMG3"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
ImageKey = "IMG2"
EndProperty
EndProperty
BorderStyle = 1
OLEDropMode = 1
End
Begin VB.Menu menuSystem
Caption = "系统"
Begin VB.Menu menucompanyinfo
Caption = "公司信息录入"
End
Begin VB.Menu menuModifypwd
Caption = "修改密码"
End
Begin VB.Menu menuAdduser
Caption = "添加用户"
End
Begin VB.Menu menuExit
Caption = "退出"
End
End
Begin VB.Menu menuCustom
Caption = "客户信息管理"
Begin VB.Menu menuProvider
Caption = "供应商信息管理"
Begin VB.Menu menuAddprovider
Caption = "添加供应商信息"
End
Begin VB.Menu menuModifyprovider
Caption = "修改供应商信息"
End
Begin VB.Menu menuDeleteprovider
Caption = "删除供应商信息"
End
Begin VB.Menu menuInquireprovider
Caption = "查询供应商信息"
End
End
Begin VB.Menu menuCustomers
Caption = "顾客信息管理"
Begin VB.Menu menuAddcustomer
Caption = "添加顾客信息"
End
Begin VB.Menu menuModifycustomer
Caption = "修改顾客信息"
End
Begin VB.Menu menuDeletecustomer
Caption = "删除顾客信息"
End
Begin VB.Menu menuInquirecustomer
Caption = "查询顾客信息"
End
End
Begin VB.Menu menuLinkman
Caption = "公司联系人"
Visible = 0 'False
Begin VB.Menu menuAddLinkman
Caption = "添加联系人"
End
Begin VB.Menu menuModifyLinkman
Caption = "修改联系人"
End
Begin VB.Menu menuDeleteLinkman
Caption = "删除联系人"
End
Begin VB.Menu menuInquireLinkman
Caption = "查询联系人"
End
End
Begin VB.Menu menuLinkman1
Caption = "工厂联系人"
Visible = 0 'False
Begin VB.Menu menuAddLinkman1
Caption = "添加联系人"
End
Begin VB.Menu menuModifyLinkman1
Caption = "修改联系人"
End
Begin VB.Menu menuDeleteLinkman1
Caption = "删除联系人"
End
Begin VB.Menu menuInquireLinkman1
Caption = "查询联系人"
End
End
End
Begin VB.Menu menuGoods
Caption = "商品信息管理"
Begin VB.Menu menuAddgoods
Caption = "添加商品信息"
End
Begin VB.Menu menuModifygoods
Caption = "修改商品信息"
End
Begin VB.Menu menuDeletegoods
Caption = "删除商品信息"
End
End
Begin VB.Menu menuSS
Caption = "营销信息管理"
Visible = 0 'False
Begin VB.Menu menuStock
Caption = "进货信息管理"
Begin VB.Menu menuAddstock
Caption = "添加进货信息"
End
Begin VB.Menu menuModifystock
Caption = "修改进货信息"
End
Begin VB.Menu menuDeletestock
Caption = "删除进货信息"
End
Begin VB.Menu menuInquirestock
Caption = "查询进货信息"
End
End
Begin VB.Menu menuSell
Caption = "销售信息管理"
Begin VB.Menu menuAddsell
Caption = "添加销售信息"
End
Begin VB.Menu menuModifysell
Caption = "修改销售信息"
End
Begin VB.Menu menuDeletesell
Caption = "删除销售信息"
End
Begin VB.Menu menuInquiresell
Caption = "查询销售信息"
End
End
End
Begin VB.Menu menuQd
Caption = "查询"
Begin VB.Menu menuQdOrder
Caption = "进货订单查询"
End
Begin VB.Menu menuQdsell
Caption = "销售单查询"
End
End
Begin VB.Menu menuHelp
Caption = "帮助"
Begin VB.Menu menuAbout
Caption = "About"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim blnexit As Boolean
Private Sub MDIForm_Load()
If UserName <> "admin" Then
menuAdduser.Visible = False
menucompanyinfo.Visible = False
End If
Me.sbStatusBar.Panels(1).Text = "用户名:" & UserName
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
blnexit = True
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intexit As Integer
If blnexit = True Then
intexit = MsgBox("真的退出该系统吗(Y/N)? ", vbYesNo + 32, "请确认")
If intexit = vbYes Then
Cancel = 0
Else
Cancel = -1
End If
Else
Exit Sub
End If
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Private Sub menuAbout_Click()
frmAbout.Show vbModal
End Sub
Public Sub menuAddcustomer_Click()
gintCmode = 1
frmCustomer1.Show
frmCustomer1.ZOrder 0
End Sub
Private Sub menuAddgoodstype_Click()
End Sub
Public Sub menuAddgoods_Click()
gintGmode = 1
frmProduct1.Show
frmProduct1.ZOrder 0
End Sub
Private Sub menuAddLinkman_Click()
gintLmode = 1
frmLinkman1.Show
frmLinkman1.ZOrder 0
frmLinkman1.txtItem(3).Text = frmCustomer1.txtItem(0).Text
frmLinkman1.Combo1.Text = frmCustomer1.txtItem(0).Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -