📄 frmmain.frm
字号:
Begin VB.Label 修改原料类型
BackColor = &H00C0C0C0&
Caption = "原料供应信息"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 2640
MouseIcon = "frmMain.frx":19BC
MousePointer = 99 'Custom
TabIndex = 11
Top = 6840
Width = 1695
End
Begin VB.Label 修改产品类型
BackColor = &H00C0C0C0&
Caption = "修改产品及原料"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 2640
MouseIcon = "frmMain.frx":1E06
MousePointer = 99 'Custom
TabIndex = 10
Top = 6360
Width = 1815
End
Begin VB.Image Image1
Height = 480
Left = 2070
Picture = "frmMain.frx":2250
Stretch = -1 'True
Top = 2025
Width = 6825
End
Begin VB.Image Image2
Height = 720
Left = 1080
Picture = "frmMain.frx":15CDE
Stretch = -1 'True
Top = 1920
Width = 750
End
Begin VB.Shape Shape1
BorderWidth = 2
FillColor = &H8000000F&
Height = 735
Left = 2520
Shape = 2 'Oval
Top = 3240
Width = 1815
End
Begin VB.Label 产品入库
BackColor = &H00C0C0C0&
Caption = "产品入库"
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 2640
MouseIcon = "frmMain.frx":18D20
MousePointer = 99 'Custom
TabIndex = 12
Top = 3360
Width = 1575
End
Begin VB.Menu mmuSysOperate
Caption = "系统操作(&O)"
Begin VB.Menu mmuDataBackup
Caption = "数据备份(&B)"
End
Begin VB.Menu mmuDataUpdate
Caption = "数据恢复(&U)"
End
Begin VB.Menu mmuSysOperateSq0
Caption = "-"
End
Begin VB.Menu mmuModifyPwd
Caption = "更改密码(&M)"
End
Begin VB.Menu mmuLogout
Caption = "注销(&L)"
End
Begin VB.Menu mmuSysOperateSp1
Caption = "-"
End
Begin VB.Menu mmuExit
Caption = "退出(X)"
End
End
Begin VB.Menu mmuSysSet
Caption = "系统设置(&S)"
Begin VB.Menu mmuModifyProduct
Caption = "修改产品及原料(&P)"
End
Begin VB.Menu mmuModifyMeteral
Caption = "原料供应信息(&M)"
End
Begin VB.Menu OtherSet
Caption = "其它设置(&O)"
End
Begin VB.Menu mmuUserMa
Caption = "用户信息管理(&U)"
End
End
Begin VB.Menu mmuBaseMa
Caption = "仓库管理(&B)"
Begin VB.Menu mmuProductIn
Caption = "产品入库(&P)"
End
Begin VB.Menu mmuMeteralIn
Caption = "原料入库(&M)"
End
Begin VB.Menu mmuBaseSp1
Caption = "-"
End
Begin VB.Menu mmuProductOut
Caption = "产品出库(&O)"
End
Begin VB.Menu mmuMeteralOut
Caption = "原料出库(&E)"
End
End
Begin VB.Menu mmuQuery
Caption = "数据查询(&U)"
Begin VB.Menu mmuFormQuery
Caption = "单据查询(&F)"
End
Begin VB.Menu mmuStoreQuery
Caption = "库存查询(&S)"
End
End
Begin VB.Menu mmuHelp
Caption = "帮助(&H)"
Begin VB.Menu mmuAbout
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
当前日期.Caption = LTrim(Str(Year(Date))) + "年" + LTrim(Str(Month(Date))) + "月" + LTrim(Str(Day(Date))) + "日"
操作用户.Caption = userName
End Sub
Private Sub mmuAbout_Click()
frmAbout.Show vbModal
End Sub
Private Sub mmuDataBackup_Click()
'将数据库置为可复制的。
'Dim repDM As New JRO.Replica
'repDM.MakeReplicable App.Path & "\basema.mdb", True
'Set repDM = Nothing
' 设置“CancelError”为 True
cmnDlg.CancelError = True
On Error GoTo ErrHandler
' 设置标志
cmnDlg.Flags = cdlOFNHideReadOnly
' 设置过滤器
cmnDlg.Filter = "Batch Data Files(*.mdb)|*.mdb|All Files(*.*)|*.*"
' 指定缺省的过滤器
cmnDlg.FilterIndex = 1
' 显示“打开”对话框
cmnDlg.ShowSave
' 显示选定文件的名字
Dim repMaster As New JRO.Replica
repMaster.ActiveConnection = "c:\windows\system\baseMa.mdb"
If (Dir(cmnDlg.FileName) <> "") Then
Kill (cmnDlg.FileName)
End If
repMaster.CreateReplica cmnDlg.FileName, "Partial Replica of db1"
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub mmuDataUpdate_Click()
' 设置“CancelError”为 True
cmnDlg.CancelError = True
On Error GoTo ErrHandler
' 设置标志
cmnDlg.Flags = cdlOFNHideReadOnly
' 设置过滤器
cmnDlg.Filter = "Batch Data Files(*.mdb)|*.mdb|All Files(*.*)|*.*"
' 指定缺省的过滤器
cmnDlg.FilterIndex = 1
' 显示“打开”对话框
cmnDlg.ShowOpen
' 显示选定文件的名字
Dim repMaster As New JRO.Replica
repMaster.ActiveConnection = cmnDlg.FileName
If (Dir("c:\windows\system\baseMa.mdb") <> "") Then
Kill ("c:\windows\system\baseMa.mdb")
End If
repMaster.CreateReplica "c:\windows\system\baseMa.mdb", "Partial Replica of db1"
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub mmuExit_Click()
End
End Sub
Private Sub mmuFormQuery_Click()
frmFormQuery.Show , frmMain
End Sub
Private Sub mmuLogout_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub mmuMeteralIn_Click()
frmMeteralIn.Show , frmMain
End Sub
Private Sub mmuMeteralOut_Click()
frmMeteralOut.Show , frmMain
End Sub
Private Sub mmuModifyMeteral_Click()
frmModifyMeteral.Show , frmMain
End Sub
Private Sub mmuModifyProduct_Click()
frmModifyProduct.Show , frmMain
End Sub
Private Sub mmuModifyPwd_Click()
frmModifyPwd.Show vbModal
End Sub
Private Sub mmuProductIn_Click()
frmProductIn.Show , frmMain
End Sub
Private Sub mmuProductOut_Click()
frmProductOut.Show , frmMain
End Sub
Private Sub mmuStoreQuery_Click()
frmStoreQuery.Show , frmMain
End Sub
Private Sub mmuUserMa_Click()
frmUserMa.Show vbModal
End Sub
Private Sub OtherSet_Click()
frmModifyClass.Show , frmMain
End Sub
Private Sub 产品出库_Click()
mmuProductOut_Click
End Sub
Private Sub 产品入库_Click()
mmuProductIn_Click
End Sub
Private Sub 单据查询_Click()
mmuFormQuery_Click
End Sub
Private Sub 库存查询_Click()
mmuStoreQuery_Click
End Sub
Private Sub 修改产品类型_Click()
mmuModifyProduct_Click
End Sub
Private Sub 修改原料类型_Click()
mmuModifyMeteral_Click
End Sub
Private Sub 原料出库_Click()
mmuMeteralOut_Click
End Sub
Private Sub 原料入库_Click()
mmuMeteralIn_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -