📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_main
BackColor = &H80000001&
Caption = "医药进销存管理系统"
ClientHeight = 9780
ClientLeft = 165
ClientTop = 855
ClientWidth = 15240
Icon = "frm_main.frx":0000
LinkTopic = "Form1"
Picture = "frm_main.frx":000C
ScaleHeight = 9780
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 315
Left = -45
TabIndex = 2
Text = "Text1"
Top = 4035
Visible = 0 'False
Width = 840
End
Begin MSComctlLib.StatusBar StatusBar2
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 3
Top = 9435
Width = 15240
_ExtentX = 26882
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 9701
MinWidth = 9701
Text = "延边大学计算机系－医药进销存设计小组"
TextSave = "延边大学计算机系－医药进销存设计小组"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2007-7-19"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "21:04"
EndProperty
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "医药进销存管理系统"
BeginProperty Font
Name = "华文行楷"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 735
Index = 1
Left = 1680
TabIndex = 1
Top = 1560
Width = 5175
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 = 735
Index = 0
Left = 285
TabIndex = 0
Top = 1470
Width = 6150
End
Begin VB.Menu rcyw
Caption = "日常业务"
NegotiatePosition= 2 'Middle
Begin VB.Menu rkd
Caption = "药品入库"
End
Begin VB.Menu xsd
Caption = "药品销售"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu rkth
Caption = "入库退货"
End
Begin VB.Menu xsth
Caption = "销售退货"
End
End
Begin VB.Menu kcgl
Caption = "库存管理"
Begin VB.Menu kccx
Caption = "库存查询"
End
Begin VB.Menu kcpd
Caption = "库存盘点"
End
Begin VB.Menu jggl
Caption = "价格管理"
End
End
Begin VB.Menu CXTJ
Caption = "查询统计"
Begin VB.Menu rkcx
Caption = "入库查询"
End
Begin VB.Menu thfccx
Caption = "入库退货查询"
End
Begin VB.Menu line43
Caption = "-"
End
Begin VB.Menu xscx
Caption = "销售查询"
End
Begin VB.Menu xsthcx
Caption = "销售退货查询"
End
End
Begin VB.Menu khxxgl
Caption = "基础信息管理"
Begin VB.Menu gysgl
Caption = "供应商管理"
End
Begin VB.Menu line11
Caption = "-"
End
Begin VB.Menu khgl
Caption = "客户管理"
End
End
Begin VB.Menu dybb
Caption = "打印报表"
Begin VB.Menu ypkcbb
Caption = "药品库存报表"
End
End
Begin VB.Menu xt
Caption = "系统设置"
Begin VB.Menu cqjz
Caption = "数据初始化"
End
Begin VB.Menu line333
Caption = "-"
End
Begin VB.Menu mmsz
Caption = "密码设置"
End
Begin VB.Menu line30
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()
Dim x, y As String
If Text1.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
If y <> "" Then
If myform.mf1.Col - myform.mf1.LeftCol <= 3 Then
myform.mf1.LeftCol = myform.mf1.LeftCol + 1
End If
If myform.mf1.CellWidth > 0 And myform.mf1.CellHeight > 0 Then
myform.Text1.Width = myform.mf1.CellWidth
myform.Text1.Height = myform.mf1.CellHeight
myform.Text1.Left = myform.mf1.CellLeft + myform.mf1.Left
myform.Text1.Top = myform.mf1.CellTop + myform.mf1.Top
End If
x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)
y = myform.mf1.TextMatrix(myform.mf1.Row, 0)
p = myform.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col)
myform.Text1.Text = myform.mf1.Text
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
End Sub
Public Sub moveright()
If Text1.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then
myform.mf1.Col = myform.mf1.Col + 1
Else
If myform.mf1.Row + 1 <= myform.mf1.Rows - 1 Then
myform.mf1.Row = myform.mf1.Row + 1
myform.mf1.Col = 1
End If
End If
End Sub
Public Sub moveleft()
If Text1.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.Text1.Text <> "" Then
myform.Text1.SelStart = 0
myform.Text1.SelLength = Len(myform.Text1.Text)
End If
If myform.mf1.Col - 11 <= myform.mf1.Cols + 1 Then
myform.mf1.Col = myform.mf1.Col - 1
If myform.mf1.Col = 0 Then myform.mf1.Col = 1
Else
If myform.mf1.Row + 1 <= myform.mf1.Row - 1 Then
myform.mf1.Row = myform.mf1.Row + 1
myform.mf1.Col = 1
End If
End If
End Sub
Public Sub movereturn()
If Text1.Text = "1" Then Set myform = main_rcyw_rk
If Text1.Text = "2" Then Set myform = main_rcyw_rktd
If Text1.Text = "3" Then Set myform = main_rcyw_xs
If Text1.Text = "4" Then Set myform = main_rcyw_xstd
If myform.mf1.Col = 10 Then
myform.mf1.Row = myform.mf1.Row + 1
myform.mf1.Col = 1
Else
If myform.mf1.Col + 1 <= myform.mf1.Cols - 1 Then
myform.mf1.Col = myform.mf1.Col + 1
Else
If myform.mf1.Row + 1 <= myform.mf1.Rows - 1 Then
myform.mf1.Row = myform.mf1.Row + 1
myform.mf1.Col = 1
End If
End If
End If
End Sub
Private Sub rkd_Click() '调入入库单
Load main_rcyw_rk
main_rcyw_rk.Show
frm_main.Enabled = False
End Sub
Private Sub xsd_Click() '调入销售单
Load main_rcyw_xs
main_rcyw_xs.Show
frm_main.Enabled = False
End Sub
Private Sub xsth_Click() '调入销售退货
Load main_rcyw_xstd
main_rcyw_xstd.Show
frm_main.Enabled = False
End Sub
Private Sub rkth_Click() '调入退货返厂
Load main_rcyw_rktd
main_rcyw_rktd.Show
frm_main.Enabled = False
End Sub
Private Sub kccx_Click() '调入库存查询
Load main_kcgl_kccx
main_kcgl_kccx.Show
frm_main.Enabled = False
End Sub
Private Sub kcpd_Click() '调入库存盘点
Load main_kcgl_kcpd
main_kcgl_kcpd.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 rkcx_Click() '调入入库查询
Load main_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text = "0"
frm_main.Enabled = False
End Sub
Private Sub thfccx_Click() '调入退货返厂
Load main_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text = "1"
frm_main.Enabled = False
End Sub
Private Sub xscx_Click() '调入销售查询
Load main_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text = "2"
frm_main.Enabled = False
End Sub
Private Sub xsthcx_Click() '调入销售退货查询
Load main_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text = "3"
frm_main.Enabled = False
End Sub
Private Sub gysgl_Click() '调入供应商管理
Load main_jbxx_gys
main_jbxx_gys.Show
frm_main.Enabled = False
End Sub
Private Sub khgl_Click() '调入客户管理
Load main_jbxx_kh
main_jbxx_kh.Show
frm_main.Enabled = False
End Sub
Private Sub ypkcbb_Click() '显示药品库存信息报表
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yyjxc.mdb;Persist Security Info=False"
DataReport1.Show
End Sub
Private Sub cqjz_Click() '调入初期建帐
Load main_xt_cqjz
main_xt_cqjz.Show
frm_main.Enabled = False
End Sub
Private Sub mmsz_Click() '调入密码设置
Load main_xt_mmsz
main_xt_mmsz.Show
frm_main.Enabled = False
End Sub
Private Sub sjbf_Click() '调入数据备份
Load main_xt_sjbf
main_xt_sjbf.Show
frm_main.Enabled = False
End Sub
Private Sub sjhf_Click() '调入数据恢复
Load main_xt_sjhf
main_xt_sjhf.Show
frm_main.Enabled = False
End Sub
Private Sub exit_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -