📄 frm_zzjgt.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "swflash.ocx"
Begin VB.Form frm_zzjgt
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 9015
ClientLeft = 60
ClientTop = 345
ClientWidth = 12015
LinkTopic = "Form1"
Picture = "frm_zzjgt.frx":0000
ScaleHeight = 9015
ScaleWidth = 12015
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.CommandButton cmd_ok1
BackColor = &H00FFC0C0&
Height = 615
Left = 7200
Style = 1 'Graphical
TabIndex = 25
Top = 9240
Visible = 0 'False
Width = 2535
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
Height = 1050
Left = 0
TabIndex = 24
Top = 20
Width = 12015
_cx = 19747529
_cy = 19728188
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.CommandButton Cmd_OK
BackColor = &H00FFC0C0&
Height = 615
Left = 3720
Style = 1 'Graphical
TabIndex = 22
Top = 9240
Visible = 0 'False
Width = 2535
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Height = 780
Left = 7560
TabIndex = 23
Top = 7600
Width = 3615
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 21
Top = 6330
Width = 2415
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 20
Top = 5620
Width = 2415
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 19
Top = 4920
Width = 2415
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 18
Top = 4200
Width = 2415
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 17
Top = 3480
Width = 2415
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Height = 495
Left = 9360
TabIndex = 16
Top = 2760
Width = 2415
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 15
Top = 6310
Width = 2415
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 14
Top = 5620
Width = 2415
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 13
Top = 4920
Width = 2415
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 12
Top = 4200
Width = 2415
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 11
Top = 3480
Width = 2415
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Height = 495
Left = 6450
TabIndex = 10
Top = 2760
Width = 2415
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Height = 495
Left = 3550
TabIndex = 9
Top = 4170
Width = 2415
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Height = 495
Left = 3550
TabIndex = 8
Top = 3460
Width = 2415
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Height = 495
Left = 3550
TabIndex = 7
Top = 2740
Width = 2415
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 6
Top = 7030
Width = 2415
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 5
Top = 6330
Width = 2415
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 4
Top = 5640
Width = 2415
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 3
Top = 4920
Width = 2415
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 2
Top = 4200
Width = 2415
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 1
Top = 3480
Width = 2415
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 495
Left = 620
TabIndex = 0
Top = 2760
Width = 2415
End
End
Attribute VB_Name = "frm_zzjgt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_OK_Click()
qjbl = Cmd_OK.Caption
xz = 0
frm_cszn_xx.Show
End Sub
Private Sub cmd_ok1_Click()
frm_jzfg.Show
Unload Me
End Sub
Private Sub Form_Load()
Flash1.Movie = App.Path & "\Image\czj\ZZJGT.swf"
Cmd_OK.Visible = False
cmd_ok1.Visible = False
End Sub
Private Sub Label1_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label1.Height
Cmd_OK.Width = Label1.Width
Cmd_OK.Left = Label1.Left
Cmd_OK.Top = Label1.Top
Cmd_OK.Caption = "会计处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label10_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label10.Height
Cmd_OK.Width = Label10.Width
Cmd_OK.Left = Label10.Left
Cmd_OK.Top = Label10.Top
Cmd_OK.Caption = "办公室"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label11_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label11.Height
Cmd_OK.Width = Label11.Width
Cmd_OK.Left = Label11.Left
Cmd_OK.Top = Label11.Top
Cmd_OK.Caption = "国库处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label12_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label12.Height
Cmd_OK.Width = Label12.Width
Cmd_OK.Left = Label12.Left
Cmd_OK.Top = Label12.Top
Cmd_OK.Caption = "社会保障处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label13_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label13.Height
Cmd_OK.Width = Label13.Width
Cmd_OK.Left = Label13.Left
Cmd_OK.Top = Label13.Top
Cmd_OK.Caption = "经济建设处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label14_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label14.Height
Cmd_OK.Width = Label14.Width
Cmd_OK.Left = Label14.Left
Cmd_OK.Top = Label14.Top
Cmd_OK.Caption = "农业处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label15_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label15.Height
Cmd_OK.Width = Label15.Width
Cmd_OK.Left = Label15.Left
Cmd_OK.Top = Label15.Top
Cmd_OK.Caption = "城建处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label16_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label16.Height
Cmd_OK.Width = Label16.Width
Cmd_OK.Left = Label16.Left
Cmd_OK.Top = Label16.Top
Cmd_OK.Caption = "综合处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label17_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label17.Height
Cmd_OK.Width = Label17.Width
Cmd_OK.Left = Label17.Left
Cmd_OK.Top = Label17.Top
Cmd_OK.Caption = "人事教育处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label18_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label18.Height
Cmd_OK.Width = Label18.Width
Cmd_OK.Left = Label18.Left
Cmd_OK.Top = Label18.Top
Cmd_OK.Caption = "财税法制处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label19_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label19.Height
Cmd_OK.Width = Label19.Width
Cmd_OK.Left = Label19.Left
Cmd_OK.Top = Label19.Top
Cmd_OK.Caption = "财政监督检查处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label2_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label12.Height
Cmd_OK.Width = Label12.Width
Cmd_OK.Left = Label12.Left
Cmd_OK.Top = Label12.Top
Cmd_OK.Caption = "政府采购管理工作办公室"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label20_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label20.Height
Cmd_OK.Width = Label20.Width
Cmd_OK.Left = Label20.Left
Cmd_OK.Top = Label20.Top
Cmd_OK.Caption = "党委"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label21_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label21.Height
Cmd_OK.Width = Label21.Width
Cmd_OK.Left = Label21.Left
Cmd_OK.Top = Label21.Top
Cmd_OK.Caption = "纪检组"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label22_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label22.Height
Cmd_OK.Width = Label22.Width
Cmd_OK.Left = Label22.Left
Cmd_OK.Top = Label22.Top
Cmd_OK.Caption = "信息中心"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label23_Click()
frm_main.Show
Unload Me
End Sub
Private Sub Label3_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label3.Height
Cmd_OK.Width = Label3.Width
Cmd_OK.Left = Label3.Left
Cmd_OK.Top = Label3.Top
Cmd_OK.Caption = "债务金融处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label4_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label4.Height
Cmd_OK.Width = Label4.Width
Cmd_OK.Left = Label4.Left
Cmd_OK.Top = Label4.Top
Cmd_OK.Caption = "粮贸处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label5_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label5.Height
Cmd_OK.Width = Label5.Width
Cmd_OK.Left = Label5.Left
Cmd_OK.Top = Label5.Top
Cmd_OK.Caption = "教科文处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label6_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label6.Height
Cmd_OK.Width = Label6.Width
Cmd_OK.Left = Label6.Left
Cmd_OK.Top = Label6.Top
Cmd_OK.Caption = "行政政法处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label7_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label7.Height
Cmd_OK.Width = Label7.Width
Cmd_OK.Left = Label7.Left
Cmd_OK.Top = Label7.Top
Cmd_OK.Caption = "企业处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
Private Sub Label8_Click()
cmd_ok1.Height = Label8.Height
cmd_ok1.Width = Label8.Width
cmd_ok1.Left = Label8.Left
cmd_ok1.Top = Label8.Top
cmd_ok1.Caption = "局长室"
cmd_ok1.Visible = True
jzs = 1
frm_jzfg.Show
Unload Me
End Sub
Private Sub Label9_Click()
Cmd_OK.Visible = False
Cmd_OK.Height = Label9.Height
Cmd_OK.Width = Label9.Width
Cmd_OK.Left = Label9.Left
Cmd_OK.Top = Label9.Top
Cmd_OK.Caption = "预算处"
qjbl = Cmd_OK.Caption
zx = 0
Cmd_OK.Visible = True
frm_cszn_xx.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -