?? frmtable.frm
字號:
VERSION 5.00
Begin VB.Form FrmTable
BorderStyle = 1 'Fixed Single
Caption = "條目設置"
ClientHeight = 4950
ClientLeft = 45
ClientTop = 330
ClientWidth = 4740
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4950
ScaleWidth = 4740
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 375
Left = 2640
TabIndex = 5
Top = 4440
Width = 1095
End
Begin VB.CommandButton CmdOK
Caption = "確認"
Height = 375
Left = 840
TabIndex = 4
Top = 4440
Width = 1215
End
Begin VB.TextBox TxtDepart
Height = 375
Left = 2520
TabIndex = 3
Top = 3960
Width = 1815
End
Begin VB.TextBox TxtDegree
Height = 375
Left = 360
TabIndex = 2
Top = 3960
Width = 1815
End
Begin VB.ListBox LsDepart
Height = 3120
Left = 2520
TabIndex = 1
Top = 360
Width = 1815
End
Begin VB.ListBox LsDegree
Height = 3120
Left = 360
TabIndex = 0
Top = 360
Width = 1815
End
Begin VB.Label Label2
Caption = "部門條目設置"
Height = 255
Left = 2520
TabIndex = 13
Top = 120
Width = 1455
End
Begin VB.Label Label1
Caption = "學歷條目設置"
Height = 255
Left = 360
TabIndex = 12
Top = 120
Width = 1695
End
Begin VB.Label LbF
Caption = "刪除"
Height = 255
Index = 5
Left = 3720
TabIndex = 11
Top = 3600
Width = 615
End
Begin VB.Label LbF
Caption = "添加"
Height = 255
Index = 4
Left = 3120
TabIndex = 10
Top = 3600
Width = 495
End
Begin VB.Label LbF
Caption = "編輯"
Height = 255
Index = 3
Left = 2520
TabIndex = 9
Top = 3600
Width = 495
End
Begin VB.Label LbF
Caption = "刪除"
Height = 255
Index = 2
Left = 1560
TabIndex = 8
Top = 3600
Width = 615
End
Begin VB.Label LbF
Caption = "添加"
Height = 255
Index = 1
Left = 960
TabIndex = 7
Top = 3600
Width = 495
End
Begin VB.Label LbF
Caption = "編輯"
Height = 255
Index = 0
Left = 360
TabIndex = 6
Top = 3600
Width = 495
End
End
Attribute VB_Name = "FrmTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Tbnam(50), Tbstr(50) As String '最大條目數 預設為100
Dim fil, tbcount, i As Integer
Dim Tbch As Boolean
Private Sub CmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdOK_Click()
If Tbch Then '如果table條目變動 則 保存變動
FrmMain.LsDegree.Clear
FrmMain.LsDepart.Clear
FrmEdit.Cmbdegree.Clear
FrmEdit.Cmbdepart.Clear
fil = FreeFile()
Open App.Path + "\table.ini" For Output As #fil '寫入table條目信息
For i = 0 To LsDegree.ListCount - 1
Print #fil, "lsdegree"; ","; LsDegree.List(i)
FrmMain.LsDegree.AddItem LsDegree.List(i)
FrmEdit.Cmbdegree.AddItem LsDegree.List(i)
Next i
For i = 0 To LsDepart.ListCount - 1
Print #fil, "lsdepart"; ","; LsDepart.List(i)
FrmMain.LsDepart.AddItem LsDepart.List(i)
FrmEdit.Cmbdepart.AddItem LsDepart.List(i)
Next i
Close #fil
FrmMain.LsDegree.AddItem "定制" '添加最末的 定制條目
FrmMain.LsDepart.AddItem "定制"
FrmEdit.Cmbdegree.AddItem "定制"
FrmEdit.Cmbdepart.AddItem "定制"
FrmEdit.Cmbdegree.ListIndex = 0
FrmEdit.Cmbdepart.ListIndex = 0
End If
Me.Hide
End Sub
Private Sub LbF_Click(Index As Integer)
Tbch = True
Select Case Index
Case 0 '編輯
If TxtDegree.Text = "" Then Exit Sub
If LsDegree.ListIndex <> -1 Then
LsDegree.List(LsDegree.ListIndex) = TxtDegree.Text
End If
Case 1 '添加
For i = 0 To LsDegree.ListCount - 1
If LsDegree.List(i) = TxtDegree.Text Then
MsgBox "該條目已經存在"
Exit Sub
End If
Next i
LsDegree.AddItem TxtDegree.Text
Case 2 '刪除
If LsDegree.ListIndex <> -1 Then
LsDegree.RemoveItem (LsDegree.ListIndex)
End If
Case 3 '編輯
If TxtDegree.Text = "" Then Exit Sub
If LsDepart.ListIndex <> -1 Then
LsDepart.List(LsDepart.ListIndex) = TxtDepart.Text
End If
Case 4 '添加
For i = 0 To LsDepart.ListCount - 1
If LsDepart.List(i) = TxtDepart.Text Then
MsgBox "該條目已經存在"
Exit Sub
End If
Next i
LsDepart.AddItem TxtDepart.Text
Case 5 '刪除
If LsDepart.ListIndex <> -1 Then
LsDepart.RemoveItem (LsDepart.ListIndex)
End If
End Select
End Sub
Private Sub LsDegree_Click() '選定lsdegree條目時 在下面文本框中顯示 編輯
TxtDegree.Text = LsDegree.Text
End Sub
Private Sub LsDepart_Click() '選定lsdegree條目時 在下面文本框中顯示 編輯
TxtDepart.Text = LsDepart.Text
End Sub
Private Sub Form_Load()
Tbch = False
fil = FreeFile()
Open App.Path + "\table.ini" For Input As #fil '寫入table條目信息
Do While Not EOF(fil)
Input #fil, Tbnam(i), Tbstr(i)
i = i + 1
Loop
Close #fil
tbcount = i
For i = 0 To tbcount
If Tbnam(i) = "lsdegree" Then
LsDegree.AddItem Tbstr(i)
ElseIf Tbnam(i) = "lsdepart" Then
LsDepart.AddItem Tbstr(i)
End If
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer) '卸載窗體
FrmMain.Enabled = True
FrmMain.SetFocus
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -