📄 form2.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form system
AutoRedraw = -1 'True
Caption = "0331527(魏杰)"
ClientHeight = 9810
ClientLeft = 270
ClientTop = 750
ClientWidth = 15060
FillStyle = 2 'Horizontal Line
LinkTopic = "Form2"
ScaleHeight = 9810
ScaleWidth = 15060
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 3
Top = 9315
Width = 15060
_ExtentX = 26564
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 8415
Left = 3120
TabIndex = 2
Top = 840
Width = 12255
_ExtentX = 21616
_ExtentY = 14843
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = 0
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Timer Timer1
Interval = 1000
Left = 6360
Top = 9840
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 600
Left = 0
Negotiate = -1 'True
TabIndex = 1
Top = 0
Width = 15060
_ExtentX = 26564
_ExtentY = 1058
ButtonWidth = 609
ButtonHeight = 953
_Version = 393216
Begin MSComDlg.CommonDialog dlgDBop
Left = 5400
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 7080
Top = 9960
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 9000
Top = 9840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":0000
Key = "Add"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":0625
Key = "zhuxiao"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":0DB1
Key = "help"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":1276
Key = "save"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":17E5
Key = "change"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":1E28
Key = "find"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":2396
Key = "jsj"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":2CF8
Key = "del"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = 9720
Top = 9840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":33E3
Key = "all"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":3736
Key = "bufen"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form2.frx":3A88
Key = "dange"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
CausesValidation= 0 'False
Height = 8415
Left = 120
TabIndex = 0
Top = 840
Width = 2895
_ExtentX = 5106
_ExtentY = 14843
_Version = 393217
LineStyle = 1
Style = 7
FullRowSelect = -1 'True
Appearance = 1
End
Begin VB.Menu dacz
Caption = "档案操作(&A)"
Begin VB.Menu add
Caption = "添加"
End
Begin VB.Menu change
Caption = "修改"
End
Begin VB.Menu del
Caption = "删除"
End
End
Begin VB.Menu find
Caption = "查询(&B)"
Begin VB.Menu mohu
Caption = "模糊查询"
End
Begin VB.Menu tiaojian
Caption = "按条件查询"
End
End
Begin VB.Menu px
Caption = "排序(&P)"
Begin VB.Menu pxcsny
Caption = "按职工编号"
End
Begin VB.Menu pxxingbie
Caption = "选择排序"
End
End
Begin VB.Menu tool
Caption = "工具与娱乐(&C)"
Begin VB.Menu jsq
Caption = "计算器"
End
Begin VB.Menu zhipai
Caption = "纸牌"
End
End
Begin VB.Menu xtsz
Caption = "系统设置(&D)"
Begin VB.Menu changemima
Caption = "修改密码"
End
Begin VB.Menu addadm
Caption = "添加管理员"
End
Begin VB.Menu deladm
Caption = "删除管理员"
End
End
Begin VB.Menu settixing
Caption = "提醒设置(&T)"
Begin VB.Menu addtixing
Caption = "添加提醒"
End
Begin VB.Menu daytixing
Caption = "今日提醒"
End
End
Begin VB.Menu sjgl
Caption = "数据管理(&M)"
Begin VB.Menu sjbf
Caption = "数据备份(&B)"
End
Begin VB.Menu sjhf
Caption = "数据恢复(&H)"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
End
Begin VB.Menu exit
Caption = "退出(&E)"
End
End
Attribute VB_Name = "system"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim num As Integer
Public yan As String
Public lname As String
Public lcode As String
Public ColumnH As MSComctlLib.ColumnHeader
Private Sub add_Click()
tianjia.Show
End Sub
Private Sub addadm_Click()
add2.Show
End Sub
Private Sub addtixing_Click()
tixingset.Show
End Sub
Private Sub change_Click()
yan = "change"
luilan.Show
End Sub
Private Sub changemima_Click()
mima.Show
End Sub
Private Sub daytixing_Click()
daytxset.Show
End Sub
Private Sub del_Click()
sql = "select * from info where code='" & system.lname & "' and name= '" & system.lcode & "'"
rs.Open sql, conn
If lname = "" Then
MsgBox "对不起，你没有选择记录,请选择要删除的记录"
rs.Close
Exit Sub
End If
lcode = rs.Fields("name")
If MsgBox("你真的要删除姓名为：" & lcode, vbOKCancel + 48, "删除提示") = vbOK Then
rs.Delete
lname = ""
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
If rs.EOF = True Then
rs.MoveFirst
Else
rs.MoveNext
End If
End If
rs.Close
End Sub
Private Sub deladm_Click()
deleteadm.Show
End Sub
Private Sub exit_Click()
If MsgBox("你确定要退出系统吗", vbOKCancel + 48, "提示信息") = vbOK Then
End
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Call strsql(connstring)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -