📄 frmmain.ebf
字号:
_cx = 4260
_cy = 529
BackColor = -2147483643
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = "ComboSetupCareer"
IntegralHeight = -1 'True
Locked = 0 'False
Sorted = 0 'False
Style = 0
End
Begin VBCE.CommandButton CommandSetupConfirm
Height = 255
Left = 1920
TabIndex = 10
Top = 3360
Width = 1575
_cx = 2778
_cy = 450
BackColor = 12632256
Caption = "确定"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
End
Begin CETabStripCtl.TabStrip TabStripUserSetup
Height = 4050
Left = 3600
TabIndex = 17
Top = 0
Width = 3615
_cx = 6376
_cy = 7144
FontBold = 0 'False
FontItalic = 0 'False
FontStrikethru = 0 'False
FontUnderline = 0 'False
FontName = "宋体"
FontSize = 8
MultiRow = 0 'False
Style = 0
TabFixedHeight = 0
TabFixedWidth = 0
TabWidthStyle = 0
TabsPersist = $"frmMain.frx":0230
Enabled = -1 'True
End
Begin VBCE.CheckBox CheckSetupShow
Height = 375
Left = 0
TabIndex = 3
Top = 3720
Width = 3615
_cx = 6376
_cy = 661
BackColor = 13160660
Caption = "下次不显示"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
Value = 0
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private boolListviewSelected As Boolean
Private Sub Form_Load() '初始化窗体
boolListviewSelected = False '用户是否选定子系统的标志
ImageCtlError.Picture = strPath & "\error.bmp" '初始化图片
ImageCtlError.Stretch = True
Init '初始化
If Not FileExists(UserSetupFiles) Then
FrameErrorShow.Visible = True '用户文件不存在,错误提醒
ElseIf GetValues(UserSetupFiles, "FUNCTION", "SHOW") = "TRUE" Then
InitListView '初始化ListView控件
End If
End Sub
Private Sub Init()
TabStripSystemSelect.Visible = False '置Frame的位置和显示为False
TabStripSystemSelect.Left = 0
TabStripSystemSelect.Top = 0
FrameSystemSelect.Visible = False
FrameSystemSelect.Left = 0
FrameSystemSelect.Top = 0
FrameSetup.Visible = False
FrameSetup.Left = 0
FrameSetup.Top = 0
TabStripUserSetup.Visible = False
TabStripUserSetup.Left = 0
TabStripUserSetup.Top = 0
FrameErrorShow.Visible = False
FrameAddressBook.Visible = False
FrameAddressBook.Left = 0
FrameAddressBook.Top = 0
' TabStripUserSetup.Height = Screen.Height
' TabStripUserSetup.Width = Screen.Width
ComboSetupDefault.Clear
CheckSetupShow.Visible = False
TextSetupName.Text = "" '初始化控件
ComboSetupCareer.Clear
ComboSetupCareer.AddItem "教师"
ComboSetupCareer.AddItem "教务管理人员"
ComboSetupCareer.AddItem "宿舍管理人员"
ComboSetupCareer.AddItem "场馆管理人员"
End Sub
Private Sub CheckSetupCG_Click() '场馆管理CheckBox选择
ComboSetupDefault.Clear
If CheckSetupTA.Value = 1 Then
ComboSetupDefault.AddItem "Teacher Assistant"
End If
If CheckSetupJG.Value = 1 Then
ComboSetupDefault.AddItem "教务管理"
End If
If CheckSetupSG.Value = 1 Then
ComboSetupDefault.AddItem "宿舍管理"
End If
If CheckSetupCG.Value = 1 Then
ComboSetupDefault.AddItem "场馆管理"
End If
End Sub
Private Sub CheckSetupSG_Click() '宿舍管理CheckBox选择
ComboSetupDefault.Clear
If CheckSetupTA.Value = 1 Then
ComboSetupDefault.AddItem "Teacher Assistant"
End If
If CheckSetupJG.Value = 1 Then
ComboSetupDefault.AddItem "教务管理"
End If
If CheckSetupSG.Value = 1 Then
ComboSetupDefault.AddItem "宿舍管理"
End If
If CheckSetupCG.Value = 1 Then
ComboSetupDefault.AddItem "场馆管理"
End If
End Sub
Private Sub CheckSetupJG_Click() '教务管理CheckBox选择
ComboSetupDefault.Clear
If CheckSetupTA.Value = 1 Then
ComboSetupDefault.AddItem "Teacher Assistant"
End If
If CheckSetupJG.Value = 1 Then
ComboSetupDefault.AddItem "教务管理"
End If
If CheckSetupSG.Value = 1 Then
ComboSetupDefault.AddItem "宿舍管理"
End If
If CheckSetupCG.Value = 1 Then
ComboSetupDefault.AddItem "场馆管理"
End If
End Sub
Private Sub CheckSetupTA_Click() 'Teacher Assistant CheckBox 选择
ComboSetupDefault.Clear
If CheckSetupTA.Value = 1 Then
ComboSetupDefault.AddItem "Teacher Assistant"
End If
If CheckSetupJG.Value = 1 Then
ComboSetupDefault.AddItem "教务管理"
End If
If CheckSetupSG.Value = 1 Then
ComboSetupDefault.AddItem "宿舍管理"
End If
If CheckSetupCG.Value = 1 Then
ComboSetupDefault.AddItem "场馆管理"
End If
End Sub
Private Sub CheckSetupShow_Click() 'CheckSetupShow CheckBox选择
If CheckSetupShow = 1 Then
Call ModifyValues(UserSetupFiles, "Function", "show", "FALSE")
Else
Call ModifyValues(UserSetupFiles, "Function", "show", "TRUE")
End If
End Sub
Private Sub CommandCancel_Click()
Dim i As Integer
i = MsgBox("退出系统？", vbOKCancel, "确定")
If i = vbOK Then
App.End
End If
End Sub
Private Sub CommandConfig_Click()
TabStripUserSetup.Visible = True
FrameSetup.Visible = True
FrameErrorShow.Visible = False
End Sub
Private Sub CommandExit_Click()
Dim i As Integer
i = MsgBox("退出系统？", vbOKCancel, "确定")
If i = vbOK Then
App.End
End If
End Sub
Private Sub CommandSearchFile_Click()
Dim str As String
Dim FileSystem1 As FILECTL.FileSystem
Set FileSystem1 = CreateObject("Filectl.fileSystem")
FrameErrorShow.Visible = False
CommonDlgUserSetup.Filter = "用户配置文件|*.dat"
' MsgBox strPath
CommonDlgUserSetup.InitDir = strPath
CommonDlgUserSetup.ShowOpen
str = CommonDlgUserSetup.FileName
If Right(str, 13) <> Right(UserSetupFiles, 13) Then
FrameErrorShow.Visible = True
LabelErrorMessage.Caption = "无效用户配置文件"
Else
FileSystem1.FileCopy str, UserSetupFiles
End If
End Sub
Private Sub CommandSetupConfirm_Click()
Dim FileSetup As FILECTL.FileSystem
Dim FileSystem1 As FILECTL.FileSystem
Set FileSetup = CreateObject("Filectl.file")
Set FileSystem1 = CreateObject("Filectl.fileSystem")
FileSetup.Open UserSetupFiles, fsModeOutput, fsAccessWrite
FileSetup.LinePrint "[USER]"
FileSetup.LinePrint "NAME=" & Trim(TextSetupName.Text)
FileSetup.LinePrint "CAREER=" & Trim(ComboSetupCareer.Text)
FileSetup.LinePrint "[FUNCTION]"
If CheckSetupTA.Value = 1 Then
FileSetup.LinePrint "TA=TRUE"
Else
FileSetup.LinePrint "TA=FALSE"
End If
If CheckSetupJG.Value = 1 Then
FileSetup.LinePrint "JG=TRUE"
Else
FileSetup.LinePrint "JG=FALSE"
End If
If CheckSetupSG.Value = 1 Then
FileSetup.LinePrint "SG=TRUE"
Else
FileSetup.LinePrint "SG=FALSE"
End If
If CheckSetupCG.Value = 1 Then
FileSetup.LinePrint "CG=TRUE"
Else
FileSetup.LinePrint "CG=FALSE"
End If
If Trim(ComboSetupDefault.Text) <> "" Then
Select Case Trim(ComboSetupDefault.Text)
Case "Teacher Assistant"
FileSetup.LinePrint "DEFAULT=TA"
Case "教务管理"
FileSetup.LinePrint "DEFAULT=JG"
Case "宿舍管理"
FileSetup.LinePrint "DEFAULT=SG"
Case "场馆管理"
FileSetup.LinePrint "DEFAULT=CG"
End Select
Else
FileSetup.LinePrint "DEFAULT=FALSE"
End If
FileSetup.LinePrint "SHOW=TRUE"
FileSetup.LinePrint "BAKCOLOR=65535"
FileSetup.LinePrint "BAKMUSIC=" & strPath & "\Default.wav"
FileSetup.LinePrint "MUSIC=OFF"
FileSetup.Close
TabStripUserSetup.Visible = False
FrameSetup.Visible = False
Set FileSetup = Nothing
If FileExists(strPath & "\USERBACKUP.DAT") Then
FileSystem1.Kill strPath & "\USERBACKUP.DAT"
End If
FileSystem1.FileCopy UserSetupFiles, strPath & "USERBACKUP.DAT"
If TextAddressBookName <> "" Then
CommandAddressBookConfirm_Click
End If
Set FileSystem1 = Nothing
End Sub
Private Sub CommandAddressBookConfirm_Click()
Dim rs As ADOCE.Recordset
Dim i As Integer
If TextAddressBookName = "" Then
MsgBox "名字不能为空！"
Exit Sub
End If
Set rs = CreateObject("ADOCE.Recordset.3.0")
rs.Open strRS, conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
If rs("姓名") = Trim(TextAddressBookName.Text) Then Exit Do
rs.MoveNext
Loop
End If
If rs.EOF Then
rs.AddNew
End If
rs("姓名") = TextAddressBookName.Text
rs("职业") = ComboAddressBookCareer.Text
rs("地址") = TextAddressBookAddress.Text
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -