📄 mdifrmmain.frm
字号:
VERSION 5.00
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{D14FD2DC-9318-11D3-9CB7-000021ECAA5D}#5.0#0"; "MovingChar.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIFrmMain
BackColor = &H8000000C&
Caption = "临沂长安物贸库存管理"
ClientHeight = 4365
ClientLeft = 165
ClientTop = 735
ClientWidth = 6960
Icon = "MDIFrmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog
Left = 3480
Top = 2040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin ComCtl3.CoolBar CoolBar1
Align = 1 'Align Top
Height = 435
Left = 0
TabIndex = 0
Top = 0
Width = 6960
_ExtentX = 12277
_ExtentY = 767
BandCount = 1
_CBWidth = 6960
_CBHeight = 435
_Version = "6.0.8169"
Child1 = "MovingText1"
MinHeight1 = 375
Width1 = 990
NewRow1 = 0 'False
Begin MovingChar.MovingText MovingText1
Height = 375
Left = 30
TabIndex = 1
Top = 30
Width = 6840
_ExtentX = 12065
_ExtentY = 661
MsgChar = "临沂长安物贸库存管理由天海星天海工作室开发"
CharColor = 16711680
BackColor = 16761024
MousePointer = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Menu M项目
Caption = "项目"
Begin VB.Menu M设置
Caption = "设置"
End
Begin VB.Menu M退出
Caption = "退出"
End
End
Begin VB.Menu M基础数据
Caption = "基础数据 "
Begin VB.Menu M员工管理
Caption = "员工管理"
End
Begin VB.Menu M顾客档案
Caption = "顾客档案"
End
Begin VB.Menu M1
Caption = "-"
End
Begin VB.Menu M客户管理
Caption = "客户管理"
End
Begin VB.Menu M供应管理
Caption = "供应管理"
End
Begin VB.Menu M2
Caption = "-"
End
Begin VB.Menu M配件
Caption = "配件管理"
Begin VB.Menu M配件分类
Caption = "配件分类"
End
Begin VB.Menu M配件管理
Caption = "配件管理"
End
End
Begin VB.Menu M结款方式
Caption = "结款方式"
End
End
Begin VB.Menu M入库
Caption = "物资管理"
Index = 1
Begin VB.Menu M入库操作
Caption = "入库操作"
End
Begin VB.Menu M出库操作
Caption = "出库操作"
End
Begin VB.Menu M3
Caption = "-"
End
Begin VB.Menu M入库查询
Caption = "入库查询"
End
Begin VB.Menu M出库查询
Caption = "出库查询"
End
End
Begin VB.Menu M售后服务
Caption = "售后服务"
Begin VB.Menu M保养记录
Caption = "保养记录"
End
Begin VB.Menu M维修记录
Caption = "维修记录"
End
Begin VB.Menu M4
Caption = "-"
End
Begin VB.Menu M保养查询
Caption = "保养查询"
End
Begin VB.Menu M维修查询
Caption = "维修查询"
End
End
Begin VB.Menu M报表
Caption = "报表"
Begin VB.Menu M报表输出
Caption = "报表输出"
End
End
Begin VB.Menu M关于
Caption = "关于"
End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CoolBar1_Resize()
MovingText1.Width = CoolBar1.Width
End Sub
Private Sub MDIForm_Load()
Set Rs = New Recordset
End Sub
Private Sub M保养查询_Click()
FrmBYJLLook.Show
End Sub
Private Sub M保养记录_Click()
Make_BYBill
FrmBYJL.Show
End Sub
Private Sub M报表输出_Click()
'DataLocation = App.Path & "\kcgl.mdb"
'
''open the database
'Set gdbCurrentDB = Workspaces(0).OpenDatabase(DataLocation)
FrmDataExport.Show
'MsgBox "输出为Excel格式，程序未开发，请与开发者联系！"
End Sub
Private Sub M出库操作_Click()
frmCKAddNew.Show
End Sub
Private Sub M出库查询_Click()
FrmCKLook.Show
End Sub
Private Sub M供应管理_Click()
FrmGys.Show
End Sub
Private Sub M顾客档案_Click()
FrmGKDA.Show
End Sub
Private Sub M关于_Click()
frmAbout.Show
End Sub
Private Sub M结款方式_Click()
FrmJKFS.Show
End Sub
Private Sub M客户管理_Click()
FrmKHDA.Show
End Sub
Private Sub M配件分类_Click()
FrmPjfl.Show
End Sub
Private Sub M配件管理_Click()
FrmPJGL.Show
End Sub
Private Sub M入库操作_Click()
frmRKAddNew.Show
End Sub
Private Sub M入库查询_Click()
FrmRKLook.Show
End Sub
Private Sub M设置_Click()
MsgBox "程序未开发，请与开发者联系！"
End Sub
Private Sub M维修查询_Click()
FrmWXJLLook.Show
End Sub
Private Sub M维修记录_Click()
Make_WXBill
FrmWXJL.Show
End Sub
Private Sub Make_BYBill()
Rs.Open "SELECT * FROM 保养单号", db, adOpenKeyset, adLockOptimistic, adCmdText
If Rs.EOF Then '数据库中没有任何单据
Bill = "B" & Year(Date) & Format(Month(Date), "00") & "001"
Else
Rs.Close
sSql = "SELECT max(保养单号) FROM 保养单号"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
Bill = Rs.Fields(0)
If CInt(Mid(Bill, 2, 4)) <> Year(Date) Or CInt(Mid(Bill, 6, 2)) <> Month(Date) Then
Bill = "B" & Year(Date) & Format(Month(Date), "00") & "001"
Else
Bill = Mid(Bill, 1, 7) & Format(Right(Bill, 2) + 1, "000")
End If
End If
Rs.Close
sSql = "SELECT * FROM 保养单号"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
Rs.AddNew
Rs!保养单号 = Bill
Rs.Update
Rs.Close
End Sub
Private Sub Make_WXBill()
Rs.Open "SELECT * FROM 维修单号", db, adOpenKeyset, adLockOptimistic, adCmdText
If Rs.EOF Then '数据库中没有任何单据
Bill = "W" & Year(Date) & Format(Month(Date), "00") & "001"
Else
Rs.Close
sSql = "SELECT max(维修单号) FROM 维修单号"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
Bill = Rs.Fields(0)
If CInt(Mid(Bill, 2, 4)) <> Year(Date) Or CInt(Mid(Bill, 6, 2)) <> Month(Date) Then
Bill = "W" & Year(Date) & Format(Month(Date), "00") & "001"
Else
Bill = Mid(Bill, 1, 7) & Format(Right(Bill, 2) + 1, "000")
End If
End If
Rs.Close
sSql = "SELECT * FROM 维修单号"
Rs.Open sSql, db, adOpenKeyset, adLockOptimistic, adCmdText
Rs.AddNew
Rs!维修单号 = Bill
Rs.Update
Rs.Close
End Sub
Private Sub M员工管理_Click()
FrmYGGL.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -