📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "电子通讯录"
ClientHeight = 7365
ClientLeft = 150
ClientTop = 435
ClientWidth = 10860
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7365
ScaleWidth = 10860
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList1
Left = 7800
Top = 5400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1982
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3314
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4CA6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7672
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 10860
_ExtentX = 19156
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "新增记录"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "查询记录"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "生日提示"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出系统"
ImageIndex = 4
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Interval = 1000
Left = 9960
Top = 5280
End
Begin MSComctlLib.StatusBar stb
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 0
Top = 7005
Width = 10860
_ExtentX = 19156
_ExtentY = 635
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 2117
MinWidth = 2117
Text = "系统提示："
TextSave = "系统提示："
Object.ToolTipText = "系统提示"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2822
MinWidth = 2822
Object.ToolTipText = "登陆用户名称"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 8819
MinWidth = 8819
Text = "版权所有：该版权归KFP_kaka所有"
TextSave = "版权所有：该版权归KFP_kaka所有"
Object.ToolTipText = "开发者声明"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 2
Object.Width = 2469
MinWidth = 2469
TextSave = "2006-2-13"
Object.ToolTipText = "系统日期"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Object.ToolTipText = "系统时间"
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 6615
Left = 0
Picture = "frmMain.frx":89FE
Stretch = -1 'True
Top = 360
Width = 10815
End
Begin VB.Menu GNXZ
Caption = "功能选择"
Begin VB.Menu SRTS
Caption = "生日提示"
End
Begin VB.Menu space2
Caption = "-"
End
Begin VB.Menu AddCount
Caption = "新增记录"
End
Begin VB.Menu FindCount
Caption = "查询记录"
End
Begin VB.Menu EditCount
Caption = "修改记录"
End
End
Begin VB.Menu YHGL
Caption = "用户管理"
Begin VB.Menu XZYH
Caption = "新增用户"
End
Begin VB.Menu MMXG
Caption = "密码修改"
End
End
Begin VB.Menu System
Caption = "系统"
Begin VB.Menu CXDL
Caption = "重新登陆"
End
Begin VB.Menu Space1
Caption = "-"
End
Begin VB.Menu Quit
Caption = "退出系统"
End
End
Begin VB.Menu About
Caption = "关于"
Begin VB.Menu BBXX
Caption = "版本信息"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Restart As Boolean
Private Sub AddCount_Click()
frmNewJL.Show vbModal
End Sub
Private Sub BBXX_Click()
frmAbout.Show vbModal
End Sub
Private Sub Command1_Click()
Dim Today_Day As Date
Today_Day = Date
MsgBox Today_Day, vbOKOnly
End Sub
Private Sub CXDL_Click()
If MsgBox("确定重新登陆吗？", vbOKCancel + vbQuestion, "电子通讯录-提示") = vbOK Then
Restart = True
Unload Me
frm_landing.Show vbModal
End If
End Sub
Private Sub EditCount_Click()
frmEditJL.Show vbModal
End Sub
Private Sub FindCount_Click()
frmFind.Show vbModal
End Sub
Private Sub Form_Load()
App.HelpFile = App.Path & "\DZTXL_help.chm"
stb.Panels(2).Text = "用户" & UserName & "已登陆"
stb.Panels(5).Text = Time()
Restart = False
ShowBirthday_Result = False
PictureForfrmFind = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not Restart Then
If MsgBox("确定退出系统吗？", vbOKCancel + vbQuestion, "电子通讯录-提示") = vbCancel Then
Cancel = 1
End If
End If
End Sub
Private Sub Help_Click()
End Sub
Private Sub MMXG_Click()
frmEditPWD.Show vbModal
End Sub
Private Sub Quit_Click()
If MsgBox("确定退出系统吗？", vbOKCancel + vbQuestion, "电子通讯录-提示") = vbOK Then
End
End If
End Sub
Private Sub SRTS_Click()
Call ShowBirthday
End Sub
Private Sub Timer1_Timer()
stb.Panels(5).Text = Time()
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
frmNewJL.Show vbModal
Case 2
frmFind.Show vbModal
Case 3
Call ShowBirthday
Case 4
If MsgBox("确定退出系统吗？", vbOKCancel + vbQuestion, "电子通讯录-提示") = vbOK Then
End
End If
End Select
End Sub
Private Sub XZYH_Click()
If UserName <> "admin" Then
MsgBox "该功能只有管理员能使用，请联系管理员！", vbOKOnly + vbExclamation, "电子通讯录-提示"
Else
frmAddNew.Show vbModal
End If
End Sub
Private Function ShowBirthday()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim BirthdayDay As String
Dim sysMonth As String
Dim sysDay As String
sysMonth = Month(Date) '获取当前系统月份
sysDay = Day(Date) '获取当前系统日期
If Len(sysMonth) = 1 Then sysMonth = "0" & sysMonth '如果月份1~9月，则在月份前加0
BirthdayDay = sysMonth & "-" & sysDay '组合成完整生日日期
txtSQL = "Select * from tbl_txb where 生日 = '" & BirthdayDay & "'"
Set mrc = ExecuteSQL(txtSQL)
If mrc.RecordCount <> 0 Then '若找到记录，则提示用户是否查看
If MsgBox("今天有" & mrc.RecordCount & "个人生日哦，要查看记录吗？", vbOKCancel) = vbOK Then
frmFind.cmbXM.Text = "生日"
frmFind.cmbTJ.Text = "="
frmFind.txtResult.Text = Trim(BirthdayDay)
frmFind.numXM = 1
frmFind.numTJ = 0
ShowBirthday_Result = True
frmFind.Show vbModal '调出查询窗口
End If
Else
MsgBox "今天没有人过生日！", vbOKOnly + vbExclamation, "电子通讯录-提示"
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -