📄 main.frm
字号:
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
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 MSAdodcLib.Adodc Adodc1
Height = 375
Left = 5280
Top = 4200
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 TabDlg.SSTab SSTab1
Height = 7455
Left = 0
TabIndex = 3
Top = 600
Width = 4125
_ExtentX = 7276
_ExtentY = 13150
_Version = 393216
Tab = 1
TabHeight = 520
TabCaption(0) = "公寓楼号"
TabPicture(0) = "main.frx":27A2
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).ControlCount= 1
TabCaption(1) = "班级"
TabPicture(1) = "main.frx":27BE
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Frame2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "卫生等级"
TabPicture(2) = "main.frx":27DA
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame3"
Tab(2).ControlCount= 1
Begin VB.Frame Frame3
Height = 7095
Left = -74880
TabIndex = 11
Top = 360
Width = 3855
Begin MSComctlLib.TreeView TreeView3
Height = 6735
Left = 120
TabIndex = 12
Top = 240
Width = 3615
_ExtentX = 6376
_ExtentY = 11880
_Version = 393217
Style = 7
Appearance = 1
End
End
Begin VB.Frame Frame2
Height = 6855
Left = 120
TabIndex = 6
Top = 360
Width = 3855
Begin MSComctlLib.TreeView TreeView2
Height = 6495
Left = 120
TabIndex = 7
Top = 240
Width = 3615
_ExtentX = 6376
_ExtentY = 11456
_Version = 393217
Style = 7
Appearance = 1
End
End
Begin VB.Frame Frame1
Height = 6855
Left = -74880
TabIndex = 4
Top = 360
Width = 3855
Begin MSComctlLib.TreeView TreeView1
Height = 6495
Left = 120
TabIndex = 5
Top = 240
Width = 3615
_ExtentX = 6376
_ExtentY = 11456
_Version = 393217
LabelEdit = 1
Style = 7
Appearance = 1
End
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 2
Top = 7935
Width = 11880
_ExtentX = 20955
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7056
MinWidth = 7056
Text = " 学生公寓管理系统V1.01 李飞"
TextSave = " 学生公寓管理系统V1.01 李飞"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4939
MinWidth = 4939
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4939
MinWidth = 4939
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4233
MinWidth = 4233
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 6360
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":27F6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":5878
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":802A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":A7DC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":C916
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":DCA0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":ECF2
Key = ""
EndProperty
EndProperty
End
Begin ComCtl3.CoolBar CoolBar1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1058
BandCount = 1
EmbossPicture = -1 'True
_CBWidth = 11880
_CBHeight = 600
_Version = "6.0.8169"
Child1 = "Toolbar1"
MinHeight1 = 540
Width1 = 4980
NewRow1 = 0 'False
AllowVertical1 = 0 'False
Begin MSComctlLib.Toolbar Toolbar1
Height = 540
Left = 30
TabIndex = 1
Top = 30
Width = 11760
_ExtentX = 20743
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "cz"
Object.ToolTipText = "按条件进行查找"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "添加"
Key = "tj"
Object.ToolTipText = "添加新生记录"
ImageIndex = 6
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "xg"
Object.ToolTipText = "修改原有记录，先要选择目标"
ImageIndex = 7
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "sc"
Object.ToolTipText = "删除当前选择记录"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "备份"
Key = "bf"
Object.ToolTipText = "备份数据库"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Object.ToolTipText = "显示所有住宿人员记录"
ImageIndex = 2
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "tc"
ImageIndex = 3
EndProperty
EndProperty
OLEDropMode = 1
End
End
Begin VB.Menu xtsz
Caption = "系统设置"
Begin VB.Menu yhgl
Caption = "用户管理"
End
Begin VB.Menu g1
Caption = "-"
End
Begin VB.Menu gysz
Caption = "公寓设置"
End
Begin VB.Menu g2
Caption = "-"
End
Begin VB.Menu sjbf
Caption = "数据备份"
End
Begin VB.Menu sjzh
Caption = "数据转换"
End
Begin VB.Menu g3
Caption = "-"
End
Begin VB.Menu tc
Caption = "退出"
End
End
Begin VB.Menu gygl
Caption = "公寓管理"
Begin VB.Menu xsqj
Caption = "学生请假"
End
Begin VB.Menu xswg
Caption = "学生违规"
End
Begin VB.Menu g9
Caption = "-"
End
Begin VB.Menu sycw
Caption = "床位设置"
End
End
Begin VB.Menu wspd
Caption = "卫生检查"
Begin VB.Menu addjc
Caption = "添加检查记录"
End
End
Begin VB.Menu gyzc
Caption = "公寓资产"
Begin VB.Menu tjwp
Caption = "添加新增物品"
End
End
Begin VB.Menu jlck
Caption = "记录查看"
Begin VB.Menu ckjl
Caption = "卫生记录"
End
Begin VB.Menu g21
Caption = "-"
End
Begin VB.Menu qjjl1
Caption = "请假记录"
End
Begin VB.Menu g22
Caption = "-"
End
Begin VB.Menu wgjl1
Caption = "违规记录"
End
Begin VB.Menu g23
Caption = "-"
End
Begin VB.Menu ckwp
Caption = "资产记录"
End
End
Begin VB.Menu jlsc
Caption = "记录删除"
Begin VB.Menu wsjl
Caption = "卫生记录"
End
Begin VB.Menu g8
Caption = "-"
End
Begin VB.Menu qjjl
Caption = "请假记录"
End
Begin VB.Menu g10
Caption = "-"
End
Begin VB.Menu wgjl
Caption = "违规记录"
End
Begin VB.Menu g11
Caption = "-"
End
Begin VB.Menu zcjl
Caption = "资产记录"
End
End
Begin VB.Menu zbjl
Caption = "值班记录"
Begin VB.Menu jl
Caption = "每日一记"
End
End
Begin VB.Menu help
Caption = "帮助"
Begin VB.Menu bzzt
Caption = "帮助主题"
Visible = 0 'False
End
Begin VB.Menu about
Caption = "关于"
End
End
Begin VB.Menu aa
Caption = "二"
Visible = 0 'False
Begin VB.Menu printf
Caption = "打印"
End
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public a As Integer
Public z As String, u As String, v As String, w As String, m As String
Private Sub about_Click()
frmAbout.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -