📄 frm_main.frm
字号:
HotTracking = -1 'True
Appearance = 0
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 705
Left = 0
TabIndex = 3
Top = 0
Width = 15270
_ExtentX = 26935
_ExtentY = 1244
ButtonWidth = 1455
ButtonHeight = 1191
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 16
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "货品入库"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "货品出库"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "库存查询"
ImageIndex = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信息统计"
ImageIndex = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "数据备份"
ImageIndex = 5
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "数据恢复"
ImageIndex = 6
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
ImageIndex = 7
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
EndProperty
BorderStyle = 1
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
Height = 630
Left = 6825
TabIndex = 4
Top = 15
Width = 3795
_cx = 6694
_cy = 1111
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = 0 'False
Base = ""
AllowScriptAccess= "always"
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
End
End
Begin VB.Menu QCSZ
Caption = "期初设置"
Begin VB.Menu GYSXXWH
Caption = "供应商信息维护"
End
Begin VB.Menu qq
Caption = "-"
End
Begin VB.Menu CKSZ
Caption = "仓库设置"
End
Begin VB.Menu QCKCSZ
Caption = "期初库存设置"
End
End
Begin VB.Menu HWGL
Caption = "货品管理"
Begin VB.Menu HPRKGL
Caption = "货品入库"
End
Begin VB.Menu HPCKGL
Caption = "货品出库"
End
Begin VB.Menu QW
Caption = "-"
End
Begin VB.Menu HPJC
Caption = "货品借出"
End
Begin VB.Menu HPGH
Caption = "货品归还"
End
Begin VB.Menu WE
Caption = "-"
End
Begin VB.Menu HPPDGL
Caption = "货品盘点"
End
End
Begin VB.Menu CXTJ
Caption = "查询统计"
Begin VB.Menu RKXXCX
Caption = "入库查询"
End
Begin VB.Menu CKXXCX
Caption = "出库查询"
End
Begin VB.Menu KCXXCX
Caption = "库存查询"
End
Begin VB.Menu qr
Caption = "-"
End
Begin VB.Menu HPJCCX
Caption = "货品借出查询"
End
Begin VB.Menu HPGHCX
Caption = "货品归还查询"
End
Begin VB.Menu AA
Caption = "-"
End
Begin VB.Menu CRKXXRTJ
Caption = "出入库货品日统计"
End
Begin VB.Menu CRKNTJ
Caption = "出入库现金年统计"
End
End
Begin VB.Menu SJBB
Caption = "数据报表"
Begin VB.Menu PRINTOUT
Caption = "出库报表"
End
Begin VB.Menu PRINTKC
Caption = "库存报表"
End
End
Begin VB.Menu XTWH
Caption = "系统维护"
Begin VB.Menu CZYXXWH
Caption = "操作员管理"
End
Begin VB.Menu MMXG
Caption = "密码修改"
End
Begin VB.Menu CZYQXSZ
Caption = "操作员权限设置"
End
Begin VB.Menu CC
Caption = "-"
End
Begin VB.Menu SJBF
Caption = "数据备份"
End
Begin VB.Menu SJHF
Caption = "数据恢复"
End
Begin VB.Menu DD
Caption = "-"
End
Begin VB.Menu SJQL
Caption = "数据清理"
End
Begin VB.Menu bb
Caption = "-"
End
Begin VB.Menu CKRZ
Caption = "查看日志"
End
Begin VB.Menu RZQL
Caption = "日志清理"
End
End
Begin VB.Menu TCXT
Caption = "退出系统"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmX As ListItem '定义一个ListItem对象
Dim Intext As String '定义一个添加系统登录日志功能的变量
Dim TStr As String
'声明API函数及常量
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030
Private Sub CKRZ_Click()
frm_look.Show '显示查看日志窗体
Me.Enabled = False
End Sub
Private Sub CKSZ_Click()
frm_cksz.Show '显示仓库设置窗体
Me.Enabled = False
End Sub
Private Sub CKXXCX_Click()
frm_OutQuery.Show '显示出库查询窗体
Me.Enabled = False
End Sub
Private Sub CRKNTJ_Click()
frm_YStats.Show '显示出入库现金年统计窗体
Me.Enabled = False
End Sub
Private Sub CRKXXRTJ_Click()
frm_Stat.Show '显示出入库信息日统计窗体
Me.Enabled = False
End Sub
Private Sub CZYQXSZ_Click()
frm_setoperator.Show '显示操作员权限设置窗体
Me.Enabled = False
End Sub
Private Sub CZYXXWH_Click()
frm_systemer.Show '显示操作员设置窗体
Me.Enabled = False
End Sub
Private Sub Form_Activate() '给登录的操作员授予权限
Adodc1.RecordSource = "select * from tb_enter where M_Name='" + Name1 + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset.Fields("1") = 1 Then
CKSZ.Enabled = True
ElseIf Adodc1.Recordset.Fields("1") = 0 Then
CKSZ.Enabled = False
End If
If Adodc1.Recordset.Fields("2") = 1 Then
QCKCSZ.Enabled = True
ElseIf Adodc1.Recordset.Fields("2") = 0 Then
QCKCSZ.Enabled = False
End If
If Adodc1.Recordset.Fields("3") = 1 Then
HPRKGL.Enabled = True
Toolbar1.Buttons(1).Enabled = True
ElseIf Adodc1.Recordset.Fields("3") = 0 Then
HPRKGL.Enabled = False
Toolbar1.Buttons(1).Enabled = False
End If
If Adodc1.Recordset.Fields("4") = 1 Then
HPCKGL.Enabled = True
Toolbar1.Buttons(3).Enabled = True
ElseIf Adodc1.Recordset.Fields("4") = 0 Then
HPCKGL.Enabled = False
Toolbar1.Buttons(3).Enabled = False
End If
If Adodc1.Recordset.Fields("5") = 1 Then
HPPDGL.Enabled = True
ElseIf Adodc1.Recordset.Fields("5") = 0 Then
HPPDGL.Enabled = False
End If
If Adodc1.Recordset.Fields("6") = 1 Then
RKXXCX.Enabled = True
ElseIf Adodc1.Recordset.Fields("6") = 0 Then
RKXXCX.Enabled = False
End If
If Adodc1.Recordset.Fields("7") = 1 Then
CKXXCX.Enabled = True
ElseIf Adodc1.Recordset.Fields("7") = 0 Then
CKXXCX.Enabled = False
End If
If Adodc1.Recordset.Fields("8") = 1 Then
KCXXCX.Enabled = True
Toolbar1.Buttons(6).Enabled = True
ElseIf Adodc1.Recordset.Fields("8") = 0 Then
KCXXCX.Enabled = False
Toolbar1.Buttons(6).Enabled = False
End If
If Adodc1.Recordset.Fields("9") = 1 Then
CRKXXRTJ.Enabled = True
Toolbar1.Buttons(8).Enabled = True
ElseIf Adodc1.Recordset.Fields("9") = 0 Then
CRKXXRTJ.Enabled = False
Toolbar1.Buttons(8).Enabled = False
End If
If Adodc1.Recordset.Fields("10") = 1 Then
PRINTOUT.Enabled = True
ElseIf Adodc1.Recordset.Fields("10") = 0 Then
PRINTOUT.Enabled = False
End If
If Adodc1.Recordset.Fields("11") = 1 Then
PRINTKC.Enabled = True
ElseIf Adodc1.Recordset.Fields("11") = 0 Then
PRINTKC.Enabled = False
End If
If Adodc1.Recordset.Fields("12") = 1 Then
CZYXXWH.Enabled = True
ElseIf Adodc1.Recordset.Fields("12") = 0 Then
CZYXXWH.Enabled = False
End If
If Adodc1.Recordset.Fields("13") = 1 Then
MMXG.Enabled = True
ElseIf Adodc1.Recordset.Fields("13") = 0 Then
MMXG.Enabled = False
End If
If Adodc1.Recordset.Fields("14") = 1 Then
CZYQXSZ.Enabled = True
ElseIf Adodc1.Recordset.Fields("14") = 0 Then
CZYQXSZ.Enabled = False
End If
If Adodc1.Recordset.Fields("15") = 1 Then
SJBF.Enabled = True
Toolbar1.Buttons(10).Enabled = True
ElseIf Adodc1.Recordset.Fields("15") = 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -