📄 frmrightstyle.frm
字号:
Width = 1140
End
Begin VB.PictureBox p
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 405
Index = 3
Left = 3990
Picture = "frmRightStyle.frx":4DF2
ScaleHeight = 405
ScaleWidth = 885
TabIndex = 18
Top = 4140
Visible = 0 'False
Width = 885
End
Begin VB.PictureBox p
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 405
Index = 2
Left = 1740
Picture = "frmRightStyle.frx":527F
ScaleHeight = 405
ScaleWidth = 1140
TabIndex = 17
Top = 4140
Visible = 0 'False
Width = 1140
End
Begin VB.PictureBox p
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 405
Index = 1
Left = 3960
Picture = "frmRightStyle.frx":6BB3
ScaleHeight = 405
ScaleWidth = 885
TabIndex = 12
Top = 735
Width = 885
End
Begin VB.PictureBox p
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 405
Index = 0
Left = 1710
Picture = "frmRightStyle.frx":7040
ScaleHeight = 405
ScaleWidth = 1140
TabIndex = 11
Top = 735
Width = 1140
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "下午1：30在一层大会议室召开全体职工大会......"
Height = 285
Index = 7
Left = 1710
TabIndex = 16
Top = 2250
Width = 4440
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "下午1：30在一层大会议室召开全体职工大会......"
Height = 285
Index = 6
Left = 1710
TabIndex = 15
Top = 2610
Width = 4440
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "下午1：30在一层大会议室召开全体职工大会......"
Height = 285
Index = 11
Left = 1695
TabIndex = 14
Top = 1590
Width = 4440
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "下午1：30在一层大会议室召开全体职工大会......"
Height = 285
Index = 10
Left = 1695
TabIndex = 13
Top = 1950
Width = 4440
End
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "显示记录行数："
Height = 180
Left = 105
TabIndex = 32
Top = 1275
Width = 1260
End
Begin VB.Label LabRight
BackStyle = 0 'Transparent
Caption = "设置成功！"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 315
Left = 5415
TabIndex = 4
Top = 1230
Visible = 0 'False
Width = 1650
End
End
Attribute VB_Name = "FrmRightStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdDefine_Click()
Dim StyleId As Integer
Dim ButtonStyle As Integer
On Error GoTo DatabaseError
If txtLine.Text = "" Then
MsgBox "必须输入显示行数！", 48, "系统提示"
txtLine.SetFocus
Exit Sub
End If
If IsNumeric(txtLine.Text) = False Then
MsgBox "显示行数必须输入数字！", 48, "系统提示"
txtLine.SetFocus
Exit Sub
End If
If OptType(0).Value = True Then
StyleId = 1
ButtonStyle = 0
Else
StyleId = 2
If OptPage(0).Value = True Then
ButtonStyle = 1
ElseIf OptPage(1).Value = True Then
ButtonStyle = 2
ElseIf OptPage(2).Value = True Then
ButtonStyle = 3
ElseIf OptPage(3).Value = True Then
ButtonStyle = 4
End If
End If
gclsDatabase.RDOBeginTrans
sql = "SELECT * FROM ParaTable where ParaName='StyleId'"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
sql = "update ParaTable set ParaValue='" & StyleId & "' where ParaName='StyleId'"
Return_Var = gclsDatabase.RDOUpdate(sql)
sql = "update ParaTable set ParaValue='" & ButtonStyle & "' where ParaName='ButtonStyle'"
Return_Var = gclsDatabase.RDOUpdate(sql)
sql = "update ParaTable set ParaValue='" & Trim(txtLine.Text) & "' where ParaName='ListLine'"
Return_Var = gclsDatabase.RDOUpdate(sql)
Else
sql = "INSERT INTO ParaTable (ParaName,ParaValue) VALUES("
sql = sql & "'StyleId','" & StyleId & "')"
Return_Var = gclsDatabase.RDOInsert(sql)
If ButtonStyle > 0 Then
sql = "INSERT INTO ParaTable (ParaName,ParaValue) VALUES("
sql = sql & "'ButtonStyle','" & ButtonStyle & "')"
Return_Var = gclsDatabase.RDOInsert(sql)
End If
sql = "INSERT INTO ParaTable (ParaName,ParaValue) VALUES("
sql = sql & "'ListLine','" & Trim(txtLine.Text) & "')"
Return_Var = gclsDatabase.RDOInsert(sql)
End If
rst.Close
gclsDatabase.RDOCommitTrans
LabRight.Visible = True
TimeInfo.Enabled = True
If StyleId = 1 Then
FrmMainPage.PicRight1(5).Picture = FrmMainPage.PicRight1(0).Picture
ElseIf StyleId = 2 Then
If ButtonStyle = 1 Then
FrmMainPage.PicRight1(5).Picture = FrmMainPage.PicRight1(1).Picture
ElseIf ButtonStyle = 2 Then
FrmMainPage.PicRight1(5).Picture = FrmMainPage.PicRight1(2).Picture
ElseIf ButtonStyle = 3 Then
FrmMainPage.PicRight1(5).Picture = FrmMainPage.PicRight1(3).Picture
ElseIf ButtonStyle = 4 Then
FrmMainPage.PicRight1(5).Picture = FrmMainPage.PicRight1(4).Picture
End If
End If
LabRight.Visible = True
TimeInfo.Enabled = True
Exit Sub
DatabaseError:
gclsDatabase.RDORollbackTrans
Call ManageQuit
End Sub
Private Sub Form_Load()
FraRight(1).Enabled = False
'换皮肤
Call LoadSkin(Me)
End Sub
Private Sub OptPage_Click(Index As Integer)
Select Case Index
Case 0
p(0).Visible = True
p(1).Visible = True
p(2).Visible = False
p(3).Visible = False
p(4).Visible = False
p(5).Visible = False
p(6).Visible = False
p(7).Visible = False
Case 1
p(0).Visible = False
p(1).Visible = False
p(2).Visible = True
p(3).Visible = True
p(4).Visible = False
p(5).Visible = False
p(6).Visible = False
p(7).Visible = False
Case 2
p(0).Visible = False
p(1).Visible = False
p(2).Visible = False
p(3).Visible = False
p(4).Visible = True
p(5).Visible = True
p(6).Visible = False
p(7).Visible = False
Case 3
p(0).Visible = False
p(1).Visible = False
p(2).Visible = False
p(3).Visible = False
p(4).Visible = False
p(5).Visible = False
p(6).Visible = True
p(7).Visible = True
End Select
End Sub
Private Sub OptType_Click(Index As Integer)
If Index = 0 Then
FraRight(1).Enabled = False
f2.Visible = False
f1.Visible = True
Else
FraRight(1).Enabled = True
f1.Visible = False
f2.Visible = True
End If
End Sub
Private Sub TimeInfo_Timer()
LabRight.Visible = False
TimeInfo.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -