📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_main
BackColor = &H00808000&
Caption = "珠宝首饰进销存管理系统"
ClientHeight = 4065
ClientLeft = 1650
ClientTop = 1380
ClientWidth = 8205
Icon = "frm_main.frx":0000
LinkTopic = "Form1"
Picture = "frm_main.frx":000C
ScaleHeight = 4065
ScaleWidth = 8205
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text1
Height = 315
Left = -105
TabIndex = 4
Text = "Text1"
Top = 3240
Visible = 0 'False
Width = 360
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 3720
Width = 8205
_ExtentX = 14473
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "09:00"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2003-05-22"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Text = "http://www.mingrisoft.com"
TextSave = "http://www.mingrisoft.com"
EndProperty
EndProperty
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Height = 300
Left = 4050
TabIndex = 3
Top = 1890
Width = 3300
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BeginProperty Font
Name = "华文行楷"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 585
Index = 1
Left = 195
TabIndex = 2
Top = 580
Width = 7200
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BeginProperty Font
Name = "华文行楷"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Index = 0
Left = 195
TabIndex = 1
Top = 560
Width = 7200
End
Begin VB.Menu rcyw
Caption = "【日常业务】"
Begin VB.Menu rkd
Caption = "入库单"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu ckd
Caption = "出库单"
End
Begin VB.Menu line2
Caption = "-"
End
Begin VB.Menu xsd
Caption = "销售单"
End
End
Begin VB.Menu CXTJ
Caption = "【查询统计】"
Begin VB.Menu rkcx
Caption = "入库查询"
End
Begin VB.Menu line3
Caption = "-"
End
Begin VB.Menu ckcx
Caption = "出库查询"
End
Begin VB.Menu line4
Caption = "-"
End
Begin VB.Menu xscx
Caption = "销售查询"
End
End
Begin VB.Menu kcgl
Caption = "【库存管理】"
Begin VB.Menu zkkccx
Caption = "总库库存管理"
End
Begin VB.Menu line5
Caption = "-"
End
Begin VB.Menu mdkccx
Caption = "门店库存管理"
End
Begin VB.Menu line6
Caption = "-"
End
Begin VB.Menu jggl
Caption = "价格管理"
End
End
Begin VB.Menu xtgl
Caption = "【系统管理】"
Begin VB.Menu mdgl
Caption = "门店管理"
End
Begin VB.Menu czygl
Caption = "操作员管理"
End
Begin VB.Menu line22
Caption = "-"
End
Begin VB.Menu sjbf
Caption = "数据备份"
End
Begin VB.Menu sjhf
Caption = "数据恢复"
End
End
Begin VB.Menu exit
Caption = "【退出】"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub entercell() '定义确定text1位置的函数
Dim x, y As String
If Text1.Text = "1" Then Set myform = main_rcyw_ckd
If Text1.Text = "2" Then Set myform = main_rcyw_rkd
If Text1.Text = "3" Then Set myform = main_rcyw_xsd
If myform.ms1.CellWidth <= 0 Or myform.ms1.CellHeight <= 0 Then Exit Sub
x = myform.ms1.TextMatrix(myform.ms1.FixedRows, myform.ms1.Col)
y = myform.ms1.TextMatrix(myform.ms1.Row, 0)
If y <> "" Then
If myform.ms1.Col - myform.ms1.LeftCol <= 3 Then
myform.ms1.LeftCol = myform.ms1.LeftCol + 1
End If
If myform.ms1.CellWidth > 0 And myform.ms1.CellHeight > 0 Then
myform.Text1.Width = myform.ms1.CellWidth
myform.Text1.Height = myform.ms1.CellHeight
myform.Text1.Left = myform.ms1.CellLeft + myform.ms1.Left
myform.Text1.Top = myform.ms1.CellTop + myform.ms1.Top
End If
x = myform.ms1.TextMatrix(myform.ms1.FixedRows, myform.ms1.Col)
y = myform.ms1.TextMatrix(myform.ms1.Row, 0)
p = myform.ms1.TextMatrix(myform.ms1.Row, myform.ms1.Col)
myform.Text1.Text = myform.ms1.Text
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
End Sub
Public Sub moveright() '定义text1向右移动的函数
If Text1.Text = "1" Then Set myform = main_rcyw_ckd
If Text1.Text = "2" Then Set myform = main_rcyw_rkd
If Text1.Text = "3" Then Set myform = main_rcyw_xsd
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.ms1.Col + 1 <= myform.ms1.Cols - 1 Then
myform.ms1.Col = myform.ms1.Col + 1
Else
If myform.ms1.Row + 1 <= myform.ms1.Rows - 1 Then
myform.ms1.Row = myform.ms1.Row + 1
myform.ms1.Col = 1
End If
End If
End Sub
Public Sub moveleft() '定义text1向左移动的函数
If Text1.Text = "1" Then Set myform = main_rcyw_ckd
If Text1.Text = "2" Then Set myform = main_rcyw_rkd
If Text1.Text = "3" Then Set myform = main_rcyw_xsd
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.ms1.Col - 9 <= myform.ms1.Cols + 1 Then
myform.ms1.Col = myform.ms1.Col - 1
If myform.ms1.Col = 0 Then myform.ms1.Col = 1
Else
If myform.ms1.Row + 1 <= myform.ms1.Row - 1 Then
myform.ms1.Row = myform.ms1.Row + 1
myform.ms1.Col = 1
End If
End If
End Sub
Public Sub movereturn() '定义text1向右移动的函数
If Text1.Text = "1" Then Set myform = main_rcyw_ckd
If Text1.Text = "2" Then Set myform = main_rcyw_rkd
If Text1.Text = "3" Then Set myform = main_rcyw_xsd
If myform.ms1.Col = 9 Then
myform.ms1.Row = myform.ms1.Row + 1
myform.ms1.Col = 1
Else
If myform.ms1.Col + 1 <= myform.ms1.Cols - 1 Then
myform.ms1.Col = myform.ms1.Col + 1
Else
If myform.ms1.Row + 1 <= myform.ms1.Rows - 1 Then
myform.ms1.Row = myform.ms1.Row + 1
myform.ms1.Col = 1
End If
End If
End If
End Sub
Private Sub Form_Load()
'在标题栏上显示软件名称与版本
Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision
Dim i As Integer
For i = 0 To 1
Label1(i).Caption = App.Title
Next i
Label2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub rkd_Click() '调入入库单
Load main_rcyw_rkd
main_rcyw_rkd.Show
frm_main.Enabled = False
End Sub
Private Sub ckd_Click() '调入出库单
Load main_rcyw_ckd
main_rcyw_ckd.Show
frm_main.Enabled = False
End Sub
Private Sub xsd_Click() '调入销售单
Load main_rcyw_xsd
main_rcyw_xsd.Show
frm_main.Enabled = False
End Sub
Private Sub rkcx_Click() '调入入库查询
Load main_cxtj_rkcx
main_cxtj_rkcx.Show
frm_main.Enabled = False
End Sub
Private Sub ckcx_Click() '调入出库查询
Load main_cxtj_ckcx
main_cxtj_ckcx.Show
frm_main.Enabled = False
End Sub
Private Sub xscx_Click() '调入销售查询
Load main_cxtj_xscx
main_cxtj_xscx.Show
frm_main.Enabled = False
End Sub
Private Sub zkkccx_Click() '调入总库库存管理
Load main_kcgl_zkkccx
main_kcgl_zkkccx.Show
frm_main.Enabled = False
End Sub
Private Sub mdkccx_Click() '调入门店库存管理
Load main_kcgl_mdkccx
main_kcgl_mdkccx.Show
frm_main.Enabled = False
End Sub
Private Sub jggl_Click() '调入价格管理
Load main_kcgl_jggl
main_kcgl_jggl.Show
frm_main.Enabled = False
End Sub
Private Sub mdgl_Click() '调入门店管理
Load main_xtgl_mdgl
main_xtgl_mdgl.Show
frm_main.Enabled = False
End Sub
Private Sub czygl_Click() '调入操作员管理
Load main_xtgl_czygl
main_xtgl_czygl.Show
frm_main.Enabled = False
End Sub
Private Sub sjbf_Click() '调入数据备份
Load main_xtgl_sjbf
main_xtgl_sjbf.Show
frm_main.Enabled = False
End Sub
Private Sub sjhf_Click() '调入数据恢复
Load main_xtgl_sjhf
main_xtgl_sjhf.Show
frm_main.Hide
End Sub
Private Sub exit_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -