📄 frm_cszn.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "swflash.ocx"
Begin VB.Form frm_cszn
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 9000
ClientLeft = 60
ClientTop = 345
ClientWidth = 12000
LinkTopic = "Form1"
LockControls = -1 'True
Picture = "frm_cszn.frx":0000
ScaleHeight = 9000
ScaleWidth = 12000
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
Height = 350
Left = 0
TabIndex = 22
Top = 20
Width = 11895
_cx = 19681781
_cy = 19661417
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
Stacking = "below"
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Height = 750
Left = 7815
TabIndex = 21
Top = 6990
Width = 3735
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Height = 615
Left = 7820
TabIndex = 20
Top = 6240
Width = 3735
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Height = 615
Left = 7820
TabIndex = 19
Top = 5480
Width = 3735
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Height = 630
Left = 7820
TabIndex = 18
Top = 4690
Width = 3735
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Height = 615
Left = 7820
TabIndex = 17
Top = 3960
Width = 3735
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Height = 615
Left = 7820
TabIndex = 16
Top = 3220
Width = 3735
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Height = 630
Left = 7820
TabIndex = 15
Top = 2420
Width = 3735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Height = 750
Left = 3960
TabIndex = 14
Top = 7000
Width = 3720
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Height = 615
Left = 3960
TabIndex = 13
Top = 6240
Width = 3720
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Height = 640
Left = 3960
TabIndex = 12
Top = 5430
Width = 3720
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Height = 630
Left = 3960
TabIndex = 11
Top = 4700
Width = 3720
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Height = 615
Left = 3960
TabIndex = 10
Top = 3960
Width = 3720
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Height = 615
Left = 3960
TabIndex = 9
Top = 3210
Width = 3720
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Height = 630
Left = 3960
TabIndex = 8
Top = 2430
Width = 3720
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Height = 750
Left = 600
TabIndex = 7
Top = 7000
Width = 3255
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Height = 615
Left = 600
TabIndex = 6
Top = 6240
Width = 3255
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Height = 640
Left = 600
TabIndex = 5
Top = 5430
Width = 3255
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Height = 630
Left = 600
TabIndex = 4
Top = 4710
Width = 3255
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Height = 615
Left = 600
TabIndex = 3
Top = 3960
Width = 3255
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Height = 615
Left = 600
TabIndex = 2
Top = 3200
Width = 3255
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Height = 630
Left = 600
TabIndex = 1
Top = 2430
Width = 3255
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 750
Left = 7200
TabIndex = 0
Top = 8100
Width = 3300
End
End
Attribute VB_Name = "frm_cszn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Flash1.Movie = App.Path & "\Image\czj\gxwsqzlz.swf"
End Sub
Private Sub Label1_Click()
frm_main.Show
Unload Me
End Sub
Private Sub Label10_Click()
qjbl = "国库处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label11_Click()
qjbl = "经济建设处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label12_Click()
qjbl = "企业处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label13_Click()
qjbl = "会计处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label14_Click()
qjbl = "城建处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label15_Click()
qjbl = "纪检组"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label16_Click()
qjbl = "财税法制处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label17_Click()
qjbl = "行政政法处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label18_Click()
qjbl = "农业处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label19_Click()
qjbl = "债务金融处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label2_Click()
qjbl = "办公室"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label20_Click()
qjbl = "财政监督检查处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label21_Click()
qjbl = "人事教育处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label3_Click()
qjbl = "预算处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label4_Click()
qjbl = "教科文处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label5_Click()
qjbl = "社会保障处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label6_Click()
qjbl = "粮食贸易处"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label7_Click()
qjbl = "政府采购管理办公室"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label8_Click()
qjbl = "党委"
zx = 1
frm_cszn_xx.Show
End Sub
Private Sub Label9_Click()
qjbl = "综合处"
zx = 1
frm_cszn_xx.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -