为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

《VB程序设计》第四章第六节 变量和过程的作用范围

2017-10-17 30页 doc 96KB 24阅读

用户头像

is_477730

暂无简介

举报
《VB程序设计》第四章第六节 变量和过程的作用范围《VB程序设计》第四章第六节 变量和过程的作用范围 第六节 变量和过程的作用范围 一、变量的作用范围 变量的作用范围是指变量有效的范围。根据定义变量的位置和定义变量的语句的不同,在VB中变量可以分为过程级变量、模块级变量和全局变量。 1.过程级变量 过程级变量只有在声明它们的过程中才有效,也称为局部变量。用户无法在其他过程中访问或改变该变量的值。用Dim或者Static 关键字来声明它们。 语法: Dim 变量名 As 数据类型 Static 变量名 As 数据类型 对任何临时的计算;采用局部变量是最佳选择。...
《VB程序设计》第四章第六节 变量和过程的作用范围
《VB程序》第四章第六节 变量和过程的作用范围 第六节 变量和过程的作用范围 一、变量的作用范围 变量的作用范围是指变量有效的范围。根据定义变量的位置和定义变量的语句的不同,在VB中变量可以分为过程级变量、模块级变量和全局变量。 1.过程级变量 过程级变量只有在声明它们的过程中才有效,也称为局部变量。用户无法在其他过程中访问或改变该变量的值。用Dim或者Static 关键字来声明它们。 语法: Dim 变量名 As 数据类型 Static 变量名 As 数据类型 对任何临时的计算;采用局部变量是最佳选择。例如,有十来个不同的过程,每个过程都包含变量名为i的变量。只要每个i都被声明为局部变量,那么每个过程只识别它自己的变量i,改变它自己的变量i的值,而不会影响别的过程中的变量i。 在Sub过程中显式定义的变量(使用Dim语句)都是局部变量,而没有在过程中显式定义的变量 ,除非其在该过程外 更高级别的位置显式定义过,否则也是局部变量。可以使用Option Explicit 语句来强制显式定义变量。 2.模块级变量 按照默认规定,模块级变量对该模块的所有过程都有效,在模块中的任何过程都可以访问该变量,但其他模块的过程则不可用。可在窗体模块和标准模块顶部用Dim或者Private关键字声明模块级变量。 语法: Dim 变量名 As 数据类型 Private 变量名 As 数据类型 通过在代码窗口单击过程列表框的“通用”后,在窗体模块(Form1)中声明模块级变量Temp。 3.全局变量 全局变量的作用范围可以是应用程序的所有过程,也称为公用变量。全局变量可以在模块顶部的声明段用Public关键字声明模块级变量。 语法: Public 变量名 As 数据类型 通过菜单“工程”来添加模块,然后在添加的标准模块(Modulel)的顶部声明全局变量Max。 [例Ex_FormArgu2]在[例Ex FormArgu1]人员管理系统中在进入窗体 frmSecond后分别计算正式员工或临时员工的平均工资,计算平均工资与[例Ex _AverScore]中相同。 Frmsecond窗体的运行界面如图4-6-1(b)所示。 (a) (b) 图 4-6-1 标准模块文件Modulel.bas程序代码如下: Option Explicit Public salary1(5) As Single, salary2(8) As Single Private Sub frmselect(f As Form, cmdcap As String) '传递窗体参数 f.Caption=cmdcap & "人员管理" End Sub Private Sub labselect(l As Control, cmdcap As String) '传递窗体参数 l.Caption="欢迎进入" & Chr(13) & cmdcap & "人员管理" l.FontSize=16 l.FontBold=True l.Visible=True frmsecond.Show frmfirst.Hide End Sub Private Sub cmdemployee_click(index As Integer) '单击不同按钮 '将按钮的文本传递给frmsecond窗体标题 Call frmselect(frmsecond, cmdemployee(index).Caption) Call labselect(frmsecond.Label1, cmdemployee(index).Caption) frmsecond.Show frmfirst.Hide End Sub Private Sub Form_Load() salary1(0)=1900: salary1(1)=1970: salary1(2)=1915 '设置初始值 salary1(3)=1600: salary1(4)=1655 salary2(0)=2675: salary2(1)=2780: salary2(2)=2715 salary2(3)=2540: salary2(4)=2990: salary2(5)=2770 salary2(6)=2895: salary2(7)=2765 End Sub Private Function average(stuarray() As Single, n As Integer) As Single '求平均值 Dim i As Integer Dim aver As Single, sum As Single For i=1 To n - 1 sum=sum + stuarray(i) Next aver=sum / n average=aver End Function Private Sub cmdstart_Click() If "正式"=Mid(frmsecond.Caption, 1, 2) Then txts1.Text=Int(average(salary2(), 8) * 100) / 100 '求正式员工的平均工资 ElseIf "临时"=Mid(frmsecond.Caption, 1, 2) Then txts1.Text=Int(average(salary1(), 5) * 100) / 100 '求临时员工的平均工资 End If End Sub Private Sub Command2_Click() Me.Hide frmfirst.Show txts1.Text=" " End Sub 在标准模块中声明的全局变量,在应用程序中的任何一个过程中可以直接用该变量名来引用它,例如,Salary1和Salary2数组。而在某个窗体模块中声明的全局变量,当其他窗体模块引用它时,必须用定义它的窗体模块名为前缀。例如,窗体Form1模块中定义了变量Max ,在窗体Form2中要引用,必须使用“Form1.Max”。 注意: 常数、固定字符串、数组、自定义类型都不能作为窗体模块声明的全局变量。 二、静态变量 变量除了使用范围外 ,还有存活期 ,也就是变量能够保持其值的时期。模块级变量和全局变量的存活期是整个应用程序的运行期间。 对于在过程中用Dim 声明的过程级变量仅当本过程执行期间存在,当一个过程执行完毕,它的过程级值就不存在了,过程级变量所占的内存也被释放。当下一次执行该过程时,所有局部变量将重新初始化。静态变量是在过程结束后仍保留变量的值,即其占用的内存单元未释放。 将过程级变量定义成静态变量可以在过程中使用Static关键字来声明变量,其用法和Dim语句完全一样。通常Static关键字和递归的Sub过程不能在一起使用。 [例Ex_Plus]用函数调用的方法计算?n。 Private Static Function Fac(n As Integer) Dim f as Integer f=f+n Fac=f End Function Private Sub Form_Click() Dim I As Integer For I=1 To 5 Print ″?″;I & ″=″& Fac(i) Next i End Sub 程序分析: ?过程定义语句“Private Static Function Fac (n As Integer)”是为了使过程中所有的过程级变量为静态变量。在过程头前加上Static关键字时,无论过程中的变量是用Static、Dim或Private声明的还是隐式声明的,都会变成静态变量。 ?被调函数Fac是计算?n的值,局部变量f为静态变量,在每次调用Fac函数结束时变量f的值保留为?i,再与下次的i+1相加。 ?如果不用Static声明变量f,则以前的和不会保留,每次调用时函数中f的初值为0。 ?如果在模块的声明段定义f,则f成为模块级变量,也会收到同样效果。但是,由于其他过程也可以访问和改变模块级变量的值,因此运算结果也许不可靠,代码将难于维护。 三、过程的作用范围 1.过程的作用范围 与变量的作用范围相同,过程也有其作用范围,即过程的有效范围。Sub过程和Function过程的作用范围是通过定义语句来声明的。 语法: [Private|Public][Static] Sub 过程名([参数列表] ) [Private|Public][Static] Function 函数名([参数列表]) [As数据类型] ?Public表示是全局过程(公用过程),所有模块的其他过程都可访问这个过程。按照默认规定,所有模块中的子过程为Public,因此在应用程序中可随处调用。 ?Private表示是局部过程(私用过程),只有本模块中的过程才可以访问。 2.过程的外部调用 外部调用是指调用其他模块中的全局过程,调用其他模块中的过程的方法取决于该过程所属的模块是在窗体模块、标准模块还是类模块。 (1)窗体模块中的过程 外部调用窗体中的全局过程,必须以窗体名为调用的前缀。 语法: Call 窗体名.全局过程名[(实参列表)] 例如,在窗体Form2中定义一个全局过程Subl,在窗体Form1中调用Form2中的Sub1过程的语句: Call Form2.Sub1(实参列表) (2)标准模块中的过程 标准模块(.bas)中的过程,如果过程名是惟一的,则不必在调用时加模块名。如果有两个以上的模块包含同名的过程,则调用本模块内过程时不必加模块名而调用其他模块的过程时必须以模块名为前缀。 语法: Call[标准模块名].全局过程名[(实参列表)] 例如,对于Module1和Module2中名为Sub1的过程,从Module1中调用Module2中的Sub1语句如下: Call Module2.Subl(实参列表) 而不加Module2前缀时,则运行Module1中的Sub1过程。 (3)调用类模块的过程 调用类模块中的全局过程,要求用指向该类的某一实例作前缀。首先声明类的实例为对象变量,并以此变量作为过程名前缀,不可直接用类名作为前缀。 语法: Call 变量.过程名([实参表列]) 例如,类模块为Class1,类模块的过程Class Sub,变量名为ExaClass,调用过程的语句如下: Dim ExaClass As NewClass1 Call ExaClass.Class Sub([实参表列]) 四、使用同名的变量 在不同的范围内应用程序可能会使用到多个同名的变量,例如可能有几个同名的局部变量,局部变量与模块变量同名,局部变量、模块变量与全局变量同名等情况出现。 1.不同模块中的全局变量使用同一名字 不同模块中的全局变量使用同一名字,则通过引用“模块名.变量名”。 例如,在—个新工程中插入一个标准模块Module1,并在窗体Form1上添加两个命令按钮Command1和Command2。在标准模块Module1中声明全局变量Max,在窗体模块Form1中声明全局变量Max。 标准模块文件Module1.bas程序代码如下: Option Explicit Public Max As Integer ′声明Module1的Max Sub Test( ) ′声明局部过程Test Max=1 End Sub 窗体模块文件Form1.frm程序代码如下: Option Explicit Public Max As Integer '声明FormI的Max变量。 Sub Test() '声明局部过程Test Max=3 End Sub Private Sub Command1_Click() Module1.Test ′调用Module1中的Test '显示Module1的Max MsgBox "Max=" & Module1.Max, vbOKOnly, "Module1中的Max" End Sub Private Sub Command2_Click() Test '调用Form1中的Test。 '显示Form1的Max。 MsgBox "Max=" & Max, vbOKOnly, "Form1中的Max" End Sub 运行结果,单击Command1显示如图4-6-2(a),单击Command1显示(b)。 (a) (b) 图 4-6-2 程序分析: ?在Form1模块中调用本模块的Test过程时不必指定Form1.Test,使用Max的值时也 不必指定Form1.Max。 ?在Form模块中调用Module1的Test过程时必须指定Module1.Test,使用Max的值时 也不必指定Module1.Max。 2.全局变量与局部变量同名 当全局变量与局部变量同名时,全局变量和局部变量在不同的范围内有效。在过程内局部变量有效;而在过程外全局变量有效。 例如,定义Temp为全局变量,然后在过程中又定义Temp为局部变量。 单击Command1按钮时,在窗体显示Form1.Temp为1和Temp的值为2。 程序代码如下: Option Explicit Public Temp As Integer Sub Test() Dim Temp As Integer Temp=2 'Temp的值为2。 Print "Form1.Temp=" & Form1.Temp 'Form1.Temp的值为2 Print "Temp=" & Temp ' Temp的值为2。 End Sub Private Sub Command1_Click() Test End Sub Private Sub Form_Load() Temp=1 '将Form1.Temp的值设置成1 End Sub 3.窗体的属性、控件名与变量同名 窗体的属性、控件、符号常数和过程都被视为窗体模块中的模块级变量。窗体属性名、控件名与模块级变量、常数和过程名相同是不合法的,因为它们的作用范围相同。因此,在窗体模块中应尽量使变量名和窗体中的控件名不一样,养成对不同的变量使用不同的名称的编程习惯。 在窗体模块内,和窗体中控件同名的局部变量将遮住同名控件。因此必须引用窗体名称或Me关键字来限定控件,才能设置或得到该控件的属性值。 例如:在窗体有一个文本框Text1,也有一个局部变量Text1。 Option Explicit Private Sub Form_Click() Dim Text1 Text1="Variable" ' 变量值为"Variable" Me.Text1="Control" ' 控件必须用Me限定。 Me.Text1.Top=0 ' 设置文本框的位置。 End Sub [例Ex_Divisor2]用辗转除法求两个自然数的最大公约数,从窗体的文本框输入两个自然数。 窗体中使用了3个文本框、2个按钮和4个标签。其对象属性设置如表4-6-1所示。 表 4-6-1 对 象 对象名 属性名 属性值 Form frmDivisor Caption 求最大公约数 cmdStart Caption 计算 CommandButton cmdClose Caption 关闭 TxtM Caption 空 TxtN Caption 空 TextBox TxtResult Caption 空 Locked True TabStop False LabM Caption M: LabN Caption Label LabResult Caption 最大公约数= Label1 Caption 请输入自然数M与N 计算的结果显示在txtResult文本框中。由于文本框txtResult显示计算结果不能让用户修改,因此属性Locked和TabStop要进行相应设置。 原文已完。下文为附加文档,如不需要,下载后可以编辑删除,谢谢~ 村支部书记在乡镇会议上的汇报发言 各位领导,同志们: 我叫XXXX,是XXX村村支部书记。能够在今天的会议上发言,我深感荣幸,这是乡党委、政府及管理区领导对XXX村“两委”工作的肯定,也是对我们珍惜荣誉、发扬成绩、戒骄戒躁、再创佳绩的鼓励。 XXX村有6个自然村,8个村民组,1500口人,村域面积9600亩,而耕地面积仅有1370亩。与杨庄管理区大部分村一样,距XXX街较远,自然条件较差,山多地少,人均不足一亩地。 2005年,我接任村支书时,全村还有贫困人口520人,道路、水利等基础设施十分落后,也没有什么产业,村里大部分劳力外出打工,留下老弱病残,在家靠天吃饭。 为了甩掉贫穷落后的“帽子”,村两委做了很多难,也出了很大力。俗话说,要想富,先修路。不走泥巴路也是全村男女老少多年来的期盼,于是,新一届村两委班子将修路确定为全村头等大事。通过跑项目、要指标,功夫不负有心人,终于在07年修通了新东、新西、河西三个组至四柳路的1.9公里村村通道路,08年又修成石东、石西两个组的2.3公里村村通道路。截止目前,全村六个自然村全部通上水泥路,其中XXX、河西两个村民组已经达到了“户户通”。 修好了路,群众们走亲串友方便了,上街买东西方便了,脸上的笑容也多了,几个村干部觉得跑腿流汗都值了。但是,我们又发现了新的问题,群众腰包不鼓、兜里没钱,依然是饱一顿饥一顿,甚至有些困难户吃了上顿没下顿,咋办,经过村两委班子多次商议,一致认为要发展一个产业,要有特色,要有高效益。结合村情,我们在充分调查、论证的基础上,决定组织群众沿北部山区,大力发展以薄皮核桃种植为主的特色林果业。说了就算,想了就干,经过做群众工作,甚至是村干部带头种植,如今,全村已经发展薄皮核桃2000余亩,建成苗圃园两个、占地150多亩,成立种植专业合作社4个、养殖合作社1个,已经有一部分群众得到了实惠。 近年来,国家对农村人居环境改善相当重视,我们村两委班子也做了不少努力,村容村貌有了很大改善,虽不能与平原地区相比,但在山区农村也称得上亮点。尤其是去年以来,我们村被乡党委、政府确定为美丽乡村建设试点村,在上级的支持和全村群众的努力下,试点XXX组完成路面硬化、修补300余米,整理边沟280米,铺设道沿石100多米,种植绿化树木312棵,粉刷墙壁600余平,初步实现了污水不乱流、垃圾不乱到,村容村貌焕然一新。 可以说,一直以来,村两委班子总是在千方百计带领群众发展产业,总是在想方设法改善群众生产生活水平,也取得了一些成效,得到了上级领导和绝大部分群众的认可。我们也很知足,但并不是满足,更不会骄傲。下一步,我们还要牢记乡党委、政府的嘱托和全村群众的期望,继续发展特色产业,尤其是薄皮核桃种植,力争今年再发展 600亩,发动更多的群众参与,把产业做大做强,让群众得到更多的实惠。在美丽乡村建设上,进一步解决XXX组试点的污水和垃圾处理问题,加强对群众良好生活习惯的培养,将XXX组打造成居住环境优美、群众精神风貌焕然一新的“美丽乡村”。并在此基础上,逐步向其余村民组辐射,不断加大工作力度,不负领导和群众期望,让XXX村成为一个产业结构明晰、基础设施完善、村容村貌优美、社会治安良好的美丽乡村。 县委第一责任人组织落实巡视反馈意见情况报告 根据XX省委巡视统一部署,XX年4月24日至5月23日,省委县(市、区)巡视一组对XX县进行了巡视。8月18日,省委县(市、区)巡视一组向XX县委反馈了巡视意见。按照党务公开原则和巡视工作有关要求,现将巡视整改情况予以公布。 一、切实把巡视整改工作作为政治任务抓紧抓好 XX县委高度重视省委县(市、区)巡视一组反馈意见,坚决把整改工作抓严抓实抓到位,切实承担起巡视整改的主体责任。县委书记张镇城同志为第一责任人,积极主动对照反馈意见,坚持高标准、严要求,坚决把整改工作落实到位。 (一)统一思想认识,认真领会省委要求和巡视组反馈意见 省委巡视组反馈意见后,张镇城同志立即主持召开县委常委会,专题学习省委重要指示,领会把握巡视组反馈意见。通过学习,大家 深刻认识到省委县(市、区)巡视一组代表省委到XX开展巡视工作,对于我县巩固和扩大党的群众路线教育实践活动成果,深入开展“三严三实”专题教育活动,推进党风廉政建设和反腐败工作的深入开展,营造良好的从政环境、构建良好的政治生态,具有十分重要的意义。巡视组提出的整改要求和各项意见,明确具体,针对性、指导性、操作性都很强,完全符合XX实际,充分体现了对XX工作的关心支持,体现了对XX广大党员干部的警示和爱护,是县委总结反思、改进工作的重要契机。为此,县委要求全县各级党委(党组)和广大党员干部特别是领导干部,要以此次省委巡视组反馈意见为动力,进一步统一思想,充分认识省委对县(市、区)巡视工作的重要意义,不断增强党要管党、从严治党的政治意识和责任担当。 (二)加强组织领导,层层传导压力推动整改落实 县委对巡视整改工作负主体责任,纪委承担监督责任。整改工作在县委常委会集体领导下开展,建立牵头挂项机制,由张镇城同志总体负责整改落实工作,其他班子成员和相关领导认真履行“一岗双责”,根据职责分工相互配合抓好各项整改任务的落实。张镇城同志认真履行第一责任人的责任,亲力亲为抓部署、抓推动、抓督导,先后主持召开县委常委会议和专题会议,对落实巡视整改工作进行专题研究部署;在赴XX中央党校学习期间,还多次打电话了解整改工作进展情况;国庆长假回XX期间,专门听取整改情况汇报,召集相关领导进一步研究,督促落实跟进措施,推动整改落实。县长何德发等领导对照整改问题,牵头制定分管联系领域内问题整改推进措施,督 促县直部门和乡镇推动整改落实向基层延伸;全县各级党委(党组)积极对照整改任务,各负其责、抓好整改;县委办、政府办、纪委认真做好协调、推进、督办等工作,推动形成上下联动、合力整改的工作格局。 (三)明确责任分工,从严从实开展各项整改工作 县委针对巡视组反馈的党风廉政建设、落实中央八项规定精神和作风建设、执行政治纪律和政治规矩、选人用人和执行民主集中制等四方面8项内容,研究制定《关于落实省委县(市、区)巡视一组〈关于对XX县巡视情况的反馈意见〉的整改任务与分解方案》,细化分解成19项整改任务,每项整改事项都确定了牵头领导、牵头单位和责任单位,明确了整改时限和目标要求,使责任更加明晰、措施更加具体,保证了整改事项“件件有方案、事事有人抓”。张镇城同志在统筹协调抓好整改落实各项工作同时,带头领办具体整改事项,担任3项整改事项的牵头领导,其他常委也根据各自的工作职责领办整改事项,一个问题一个问题深入研究,一个步骤一个步骤推进整改。同时,坚持把整改落实与巩固党的群众路线教育实践活动成果相结合,与开展“三严三实”专题教育相结合,以巡视反馈问题的整改推动作风持续转变。 二、省委巡视组反馈意见整改落实情况 省委县(市、区)巡视一组向我县反馈了在党风廉政建设、落实中央八项规定精神和作风建设、执行政治纪律和政治规矩、选人用人和执行民主集中制等四方面存在的问题。截止10月15日,四个方面 19个具体问题,已经整改完成14个,正在整改5个;移交初信初访件44件,已核查结束37件,正在办理7件;对相关责任人88人进行责任追究,涉及科级领导干部39人,其中,进行诫勉谈话、责令书面检查、辞退等57人次,立案查处31人,已给予党政纪处分26人。具体整改工作进展情况如下: (一)党风廉政建设方面 1.“两个责任”落实不到位问题 一是着力落实“两个责任”。县委深入学习领会习近平总书记关于党风廉政建设和巡视工作的重要讲话精神、省委对巡视整改工作的重要部署,制定出台《关于落实党风廉政建设党委主体责任的实施意见》、《关于落实党风廉政建设纪委监督责任的实施意见》、《XX县党风廉政建设责任追究暂行办法》等文件制度,进一步明确党委主体责任、纪委监督责任和责任追究的情形、方式、程序及结果运用,促进责任落实具体化,督促党委领导班子切实履行“一岗双责”,扎实抓好职责范围内的党风廉政建设。纪委监察机关履行监督责任,协助县委加强党风建设,推动各级党组织履行主体责任。加强纪律审查力度,进一步严明纪律,严格落实中央八项规定精神,坚决查处以招商引资为名公款吃喝、公款旅游的案件,并及时给予问责和曝光,努力形成高压态势。2015年1-9月,全县共新立案79件,办结65件,党政纪处分65人,移送司法机关追究刑事责任4人,挽回经济损失300多万元。同时,强化自身建设,建立纪检监察干部业务培训常态化机制,提升纪检监察干部履职能力和水平,今年共组织纪检监察系 统综合业务培训班3期培训230人次,选派县乡纪检监察干部参加中央、省、市纪检监察业务培训25人次。 二是强化干部监督管理。不断强化“全面”和“从严”意识及措施,切实加强对领导干部监督制约,为经济和社会发展提供坚强有力的纪律保障。抓常态,把严格执行和落实好党员领导干部诫勉谈话、函询、重大事项报告和个人有关事项报告等干部监督制度作为一项常态化的工作来抓,坚持把纪律挺在前面,注重抓早抓小,以良好的党风政风带民风社风。今年来共有178名拟提拔或调整的领导干部提交了个人有关事项报告表,科级干部报告婚丧喜庆等个人重大事项28人次。抓重点,加大对重点领域和关键岗位干部的监督,特别是单位“一把手”和领导班子,对他们在政治立场、民主决策、廉洁自律和班子建设等方面进行全面监督。加强对干部选拔任用工作的监督,把好选人用人关口,今年共对6批160名转任或拟提拔对象进行任前公示,组织2批15名拟提拔科级领导职务的干部参加任职前廉政法规知识测试。落实领导干部任期和离任经济责任审计制度,加大对领导干部特别是重要岗位领导遵守财经纪律等情况的监督力度,今年共计划对18个单位的主要领导进行经济责任审计,已经完成10个,在审3个。抓问责,严格执行“一案双查”制度,加大责任追究力度,坚持把责任追究作为落实党风廉政建设责任制的关键环节,今年已查处责任追究案件19起,问责科级领导干部35人,其中,立案调查17人,给予党纪处分13人,诫勉谈话9人,责令作出书面检查9人。 三是认真办理巡视组移交事项。首先,集中时间集中力量及时核 查省委巡视组移交的信访件和问题线索。要求纪委对巡视组交办的信访件和问题线索162件,其中:业务内信访件84件(初信初访件44件),业务外信访件78件(已转相关部门办理),建立工作台账,集中时间集中力量,由县纪委常委带队,进行调查核实。加大查办案件力度,在梳理排查问题线索的基础上,对可查性强、时机成熟的适时启动立案程序。截止10月15日,44件初信初访件中,37件已核查结束,7件正在办理。其中:查实转立案12件15人,已给予党纪处分15人;部分属实7件,已整改到位3件,建议提起诉讼1件,给予诫勉谈话1件,正在落实整改2件;失实了结15件;直接了结3件。对巡视期间,西潭乡党委副书记李南君违反中央八项规定精神,大操大办丧事,在群众中造成不良影响,县纪委及时立案调查,给予党内警告处分。其次,着力做好日常信访举报工作。及时处置新受理的信访件,做到当周签批交办,限时办结。今年1-9月,新受理检控类初信初访103件,逐件进行核实,从中发现问题线索并转立案39件,有效减少信访存量、遏制信访增量,努力做到信访件“零暂存”。 2.工程建设等重点领域存在的问题 责令相关单位、部门进行自查清理,逐个问题抓好整改落实,出台《XX县加强和规范财政性资金对外借款行为管理意见》、《关于进一步加强和规范招标管理的若干意见的通知》等文件制度,加强工程建设等重点领域的廉政风险防控。 (1)关于有的BT项目建设不规范问题 ?厦深高铁XX站站前广场及道路建设BT项目。县城投公司及时 组织审核调查,强化整改落实。一是强化BT项目财政审核和政府项目工程审计结算工作。9月17日,县审计局已对该项目进行审计。二是站前广场及道路建设BT项目建安费下浮1.5%。三是启动追责程序,县纪委对时任城投公司总经理林光荣、副总经理林镇国分别进行党纪立案调查,县城投公司对财务部负责人许隽生进行效能告诫,并通报批评。四是建立健全制度,印发工程招投标、操作流程,制定小额工程招投标管理办法,加强对业务人员招投标政策法规和BT项目知识的培训教育。 ?XX县中医院搬迁(含瑞康医院)建设BT项目。一是建安费下浮比例按3 % 进行结算。二是对未能认真把关项目建安费下浮比例等问题的相关人员进行问责,县卫计局分别给予负有领导责任的中医院副院长沈永义效能告诫、直接责任人基建科科长沈汉乾行政警告处分。 ?南湖公园片区及配套用地建设项目。加强对南湖公园片区及配套用地建设项目的监督管理,县城建局责令业主单位提交书面情况说明,并对其进行约谈和通报批评,给予相关责任人XX县房地产综合开发总公司总经理沈少山行政警告处分。同时,采取了三项整改措施:一是终止该项目土地一级开发条款,并终止土地挂牌出让净收益的30 % 分成的合同条款,另按合理的回报支付投资人的投资收益。二是403.69亩土地由政府方面统一收购储备挂牌出让,所得土地出让金偿还上述投资款及收益。三是对于项目未约定回购期问题,县房地产综合开发总公司正在施工方协商合同条款变更。 (2)关于有的工程项目以时间紧、要求高为由规避公开招投标问题 ?XX工业园区绿化项目规避招投标问题。县纪委责令XX工业园区分管建设工作的党工委委员杨云飞、土地规划建设局局长沈仕超作出书面检查。目前,工业园区已建立健全园区工程建设项目管理的决策、实施机制,规范建设项目的运作流程,建设发展公司年初按照规划提出项目盘子,制定年度投资计划,明确项目负责人和完成时限,报园区项目工作领导小组审核后再按计划、按程序实施项目,避免随意性。 ?金都工业集中区绿化项目规避招投标问题。金都工业集中区要求市政公司、招投标工程领导小组、财税管理局等多部门联动,组织人员开展工程项目清理。县纪委对时任金都工业集中区市政工程建设公司经理肖华顺进行诫勉谈话,责令作出书面检查。 ?金星乡规避招投标问题。2011年7月,乡政府将总价25万余元的办公楼主楼铝合金窗项目发包给无施工资质的个人,用现金结算并多付2万元,现已收回多付铝合金窗项目款19031.9元。关于2012年10月至2013年2月间,将总造价78.82万元的绿化配套工程分为3个项目实施,以及计生服务所业务用房大楼1台电梯工程(造价22.9万元)未经政府集中采购等问题,金星乡于8月31日召开专题会议,乡党委书记作为党风廉政建设的第一责任人对省委巡视组反馈的问题向班子会作检讨,深刻反省,并制定整改方案,具体到责任人、责任单位,形成专题会议纪要。县纪委对时任金星乡党委书记李保芳进 行党纪立案调查。 ?一些重点工程项目勘察、设计、监理方的选择,没有按规定进行招标,而是采用邀标或比选方式问题。加强县污水厂扩建及管道配套工程、站前广场、连站大道拓宽工程等项目的监督管理,制定工程招投标管理长效机制,确保应招标的工程项目百分之百招标,确保招投标工作的规范性和合法性。 (3)关于部分工程项目随意增加工程量、提高问题 ?县城投公司擅自同意施工方因取土点改变增加项目工程费用问题。县城投公司及时成立调查组,对巡视组反馈的问题进行调查、核实、梳理,深入分析研判。一是强化BT项目财政审核和政府项目工程审计结算工作。9月17日,县审计局已对该项目进行审计,确保国有资金不流失。二是暂停支付第二、三期70%回购款。三是施工方同意分担业主因取土点变更重新租地、赔青、坟墓迁移等费用110万元。四是对相关责任人进行问责。县纪委对时任城投公司总经理林光荣、副总经理林镇国分别进行党纪立案调查。县城投公司对项目现场负责人沈洪辉进行辞退处理;对项目现场管理人员许松琛、沈晓三、沈森鑫等3人,因现场监管不力问题,进行调离岗位处理,并通报批评。 ?县南环城路及玉峰南路道路工程项目调整中标价问题。县城投公司把该工程相关资料文件及省巡视组对该项目巡视提出的问题一并报送审计部门进行审计,由审计部门根据工程的实施情况进行核定,公司与施工单位的结算最终以审计结算价进行结算。同时,县纪 委对时任城投公司总经理林光荣、副总经理林镇国分别进行党纪立案调查,城投公司对该项目工程部负责人许晓东进行效能告诫,并通报批评。 (4)关于违规用大额现金支付工程款问题 ?桥东镇。2012年1月至2014年8月,桥东镇政府有14个工程项目以收款收据做账。桥东镇要求相关施工单位补开具正式发票入账,目前已补开发票的工程13项,总金额125.1015万元;未补开发票的工程1项,金额1.18万元。鉴于时任党委书记沈瑞强违纪被开除党籍,县纪委对时任镇长沈晓文给予党内警告处分,责令财务人员作出书面检查。 ?深桥镇。2011年3至2014年11月,深桥镇政府有23个2-21万元不等的工程项目以现金结算方式支付,总金额85.39万元,并以收款收据做账。深桥镇要求23个工程项目负责人补开税务发票重新登帐,已全部整改到位。县纪委已责令有关责任人作出书面检查,并将结合有关问题线索进行问责。 (5)关于违规出借国有资金、出租(售)国有资产问题 ?深桥镇违规出借公款问题。经查,深桥镇2007年1月至2014年12月间共出借国有资金32笔给9家民营企业,尚有部分资金未收回。深桥镇加大整改力度,约谈业主,制定催讨计划。县纪委已成立调查组对此问题进行调查核实,并将严肃追究责任。同时,在全县范围内开展财政性资金非公务借款清理专项行动,出台《关于进一步加强规范财政性资金对外借款行为管理意见》,规范财政资金管理。 ?县交通局违规出租挖掘机、交管站站房等国有资产问题。县交通局领导高度重视,立即召开会议研究并作出整改。一是现四都、三角点、太平三处交管站房结欠租金均已入库,原出租协议不再延续,交管站房原租用者已撤离。二是挖掘机原租用者已于9月3日交回机械及随机附件,租赁协议也随之解除,挖掘机结欠租金已追缴到位,挖掘机已入库管理。三是交通局日前已按规范程序向县国有资产管理部门办理交管站房等国资出租(处置)报批手续的程序。四是对时任人秘股股长沈俊光未能及时报告上述国有资产出租协议到期(或应解除协议)时间,延误单位按规范程序办理公开出租(处置)报批手续时间等问题,县纪委对沈俊光进行党纪立案调查,责令交通局局长张育纯作出书面检查。 ?XX工业园区将新城花园店面低价出售问题。经查阅相关资料,XX工业园区出售的新城花园17间店面中,时任班子成员均无购买,个别领导的亲戚、身边工作人员是否有购买正在进一步核实。 3.少数基层干部在土地征收流转中以权谋私,群众身边的“四风”和腐败问题时有发生 一是严格监督。县委、县政府把查处发生在群众身边的“四风”和腐败问题作为落实党风廉政建设主体责任的重要内容,主要领导切实担负起第一责任人的责任。同时,发挥各职能部门的主体作用,县民政、财政、人社、国土、城建、农业、卫计、税务以及基层执法、监管、公共服务等窗口行业涉及到的部门,既各负其责、主动履职,又加强联动、形成合力,着力整治行业、系统的发生在群众身边的“四 风”和腐败问题。二是严肃执纪。纪检监察机关把发生在群众身边的“四风”和腐败问题列入纪律审查重点,作为纪律处分的重要内容。坚持把纪律挺在前面,抓早抓小、动辄则咎,用纪律管住大多数。大力加强土地廉政风险防控,开展打击非法买卖土地专项整治行动,严肃查处非法倒卖土地行为,去年以来,查处了党员干部非法买卖土地窝串案,涉案56人,立案24人(其中科级8人),移送司法机关16人,涉案金额460多万元。同时,坚持以零容忍态度,严厉查处医疗领域、惠民资金拨付中侵害群众利益的案件,今年来,查处发生在群众身边的“四风”和腐败问题28件,党政纪立案28件,现已党纪处分25人。其中,医疗卫生领域侵害群众利益的案件4件,惠农强农资金拨付中侵害群众利益的案件10件,基层干部吃拿卡要的案件1件,查处基层行政执法乱作为案件5件。三是严加防范。相继出台《关于建立惠农资金落实情况报告制度的通知》、《关于进一步规范强农惠农资金公开公示制度》、《关于开展涉农资金专项整治行动的实施意见》等文件制度,规范惠农强农资金使用;印发《关于开展严厉打击非法买卖土地专项行动方案》,严肃查处土地流转中侵害群众利益案件。 (二)落实中央八项规定精神和作风建设方面 4.公务用车费用支出偏高问题 一是加强公务用车管理。县委办、政府办联合印发《关于进一步规范公务用车费用支出管理的通知》,严格执行公务用车配备使用管理有关规定,坚持总量控制、规范管理、厉行节约。严格控制车辆经 费预算支出,以前三年的平均数下调10%为基数,科学设定单位公车运行费用限额。严格执行公务用车使用管理制度,督促各单位建立健全派车制度,实行定点维修制度,严禁以收款收据报销车辆维修费用。严格落实公务用车“一车一卡”加油制度,实行定额用油、一车一卡、专卡专用制度,从源头上加强对公务用车燃油费的监控管理。二是开展燃油补贴清退工作。检查发现部分单位存在违规发放交通燃油费补贴,一定程度上导致了我县整体公务用车费用支出偏高问题。为严肃财经纪律,深化落实中央八项规定精神,经县委、县政府研究决定,由县政府办下发《关于清退违规发放交通燃油费补贴的通知》,要求全县各单位自查清退2013年7月1日以来违规发放交通燃油费补贴。截止10月15日,全县共清退违规发放的交通燃油费补贴121.44万元。三是强化公务用车的监督检查。加强对全县公务用车费用支出的全方位监督检查,县委、县政府督查室、县效能办采取巡查、暗访、督办等方式,不打招呼、不定时间、不限地点对全县公务用车油卡使用、定点停放、派车制度等情况进行监督检查。四是加大惩处力度。今年来,共查处违规使用公务用车、违规报支私车费用和违规发放交通燃油费补贴等问题7起13人,如查处了梅岭镇违规发放交通燃油费补贴问题,对梅岭镇原党委书记陈金平、原纪委书记杨立辉进行党纪立案,对时任镇长沈来龙、现任镇长陈三武进行诫勉谈话;县国土资源局秀篆国土所所长陈武元公车私用问题,给予行政警告处分;桥东镇原党委委员XX顺违规报支私车费用问题,给予XX顺党内警告处分。 5.公务接待管理不严、财务报支不规范问题 一是认真核实整改。针对县林业局等10个单位公务接待管理不严、财务报支不规范等问题,县纪委已组织人员进一步调查核实,督促相关单位整改到位,并对违反规定的相关责任单位和责任人严肃追究责任。?关于县林业局公务接待和招商引资接待开支票据不规范问题,经核实,县纪委对县林业局负责食堂接待的人秘财务股股长沈金辉、副股长陈镇林进行诫勉谈话,责令县林业局局长胡平忠作出书面检查。?关于县公安局公务接待和招商引资接待开支票据不规范问题,经核实,对县公安局负责公务接待工作的时任警务保障室主任李小明进行诫勉谈话,责令食堂管理员沈玉龙作出书面检查。?关于XX工业园区公务接待和招商引资接待开支票据不规范问题,经核实,县纪委对园区分管办公室的党工委副书记叶斌进行诫勉谈话,责令园区副主任王雪芳、财税局局长林荣治、经发局局长吴丽萍等7人作出书面检查,责令退缴未注明接待事由、对象、人数标准等内容的已报销票据7张金额计5250元。?关于金星乡同城接待、异地接待问题,经核实,县纪委对分管党政办的时任金星乡副乡长沈宝川进行诫勉谈话,责令金星乡党委书记陈燕贞、财政所所长陈永林、党政办副主任林炎钦等4人作出书面检查。?关于县发改局同城接待、异地接待和用公款购买土特产品问题,责令县发改局副局长许旭松、时任办公室主任叶和泉等3人作出书面检查,责令退缴违规购买土特产品金额计1.15万元。?关于交通局等单位同城接待、异地接待问题,经核实,县纪委对经办人员沈舜平给予党内警告处分、沈彩明进行约谈,责令 县交通局退缴“2015年1至3月异地接待开支”金额计5022元,责令交通局局长张育纯作出书面检查。?关于霞葛镇以收款收据报支接待费和公款购买土特产品问题,经核实,县纪委已责令霞葛镇进行整改,对时任镇长陈敏聪、现任镇长吕自信、时任党政办主任张文培给予党内警告处分,对党委书记沈林松进行诫勉谈话。?关于深桥镇用公款购买土特产品问题,县纪委对深桥镇时任组织委员兼党政办主任吴志斌、工作人员吴激进行约谈,案件在进一步调查中。?关于白洋乡用公款购买土特产品问题,经核实,县纪委对白洋乡时任乡长许仲岚党内严重警告处分,对纪委书记田元斌、分管公务接待工作的时任党委委员林惠丹、时任党政办主任李煜给予党内警告处分,对党委书记沈东生、乡长吕新国进行诫勉谈话,责令白洋乡党委宣传委员黄瑞麟、财政所所长许朝辉等13人作出书面检查,同时,白洋乡党委研究决定将财政所所长许朝辉降职改任财政所副所长,将总务陈志明调离党政办,给予白洋乡党政办通报批评,并撤销党政办“总务”岗位。?关于四都镇公务接待和招商引资接待开支票据不规范和大额办公用品未按规定实行政府采购问题,经核实,县纪委对四都镇分管党政办的党委组织委员沈一娟给予党内警告处分,责令时任镇长蔡祥瑞、党政办主任张文艺等7人作出书面检查。二是健全完善制度。深化落实中央八项规定精神,先后制定《关于进一步加强行政事业单位财务管理的意见》、《XX县推行财务公开工作的实施方案(试行)》、《XX县县直机关会议费管理办法》等文件,进一步规范财务报销,压缩“三公”经费支出;出台《XX县进一步规范公务接待管理意见 的通知》,对公务接待范围、接待标准、审批程序和报销手续作出明确规定。三是加大查处力度。在五一端午、中秋国庆期间,在全县范围内开展违反中央八项规定精神突出问题专项整治活动,由县纪委监察局领导班子带队,抽调乡镇纪委书记、县直纪检组长、财政局、公安局等部门人员,组成5个督查小组,对48个乡镇(区)、县直单位和旅游景点,开展中央八项规定精神落实情况监督检查,重点检查“三公”经费支出等情况,发现疑似线索37条,调查核实4条,转党政纪立案3件。今年来,共查处违反中央八项规定精神问题19起68人,立案调查18人、给予党政纪处分17人,诫勉谈话12人、书面检查37人、责令辞退1人,点名道姓通报4起5人。 6.干部“庸政、懒政、怠政”现象 一是强化干部思想教育。深入学习习近平总书记系列讲话精神,发挥乌山红色革命教育基地作用,加强党员干部的理想信念教育。结合“三严三实”专题教育活动,进一步坚定理想信念,强化党性原则,明确干事创业的行为准则,不断强化党员干部“忠诚、干净、担当”意识。二是深化机关效能建设。贯彻落实《XX县深化“马上就办”行动、优化发展软环境的实施方案》,围绕纪律作风开展督查,针对可能存在的一些干部纪律松懈、庸懒散拖以及群众办事“三难”等现象,综合运用经常性、随机性抽查、明察暗访等形式督查。出台《2015年度绩效考评工作方案》,促进转变作风、高效履职、优化服务。三是完善干部考核评价体系。紧盯年初确定的目标任务,结合省、市“三比一看”、“三个年活动”和“大干六个月”等活动的部署要求,抽 调干部到重点项目、征地拆迁一线锻炼,提高干部担当意识和执行力。修订完善《注重工作实绩推荐选拨干部考评办法》,积极探索干部“能上能下”机制,形成能者上、庸者下、劣者汰的良好用人导向。同时,把监督干部同信任干部、保护干部、激励干部统一起来,支持干部锐意改革、大胆创新,激发干部知难而进、干事创业。 (三)执行政治纪律和政治规矩方面 7.对上级的决策部署监督不力、执行不到位问题 一是抓好党性党风党纪教育,结合党的群众路线教育实践活动和“三严三实”专题教育活动,引导党员干部着力增强宗旨观念、提高实践能力、强化责任意识、树立正确政绩观和利益观、增强党纪观念。二是加强监督检查,确保政令畅通,开展上级党委、政府和县委、政府一系列决策部署贯彻落实情况的监督检查,如印发《关于2015年中秋国庆期间开展中央八项规定精神落实情况监督检查的通知》,不断巩固落实中央八项规定精神成果,严防“四风”问题反弹。三是严肃查处对上级的决策部署监督不力、执行不到位等行为,特别是未能结合本地实际制定贯彻落实中央八项规定精神的具体措施,以招商引资为名、白条开支等形式搞变通、应付等问题,加大问责力度,严肃查处了梅岭镇违规发放交通燃油费补贴问题,林业局等单位公务接待管理不严、财务报支不规范问题,白洋乡、霞葛镇等用公款购买土特产品问题。 (四)选人用人和执行民主集中制方面 8.个别单位存在“近亲繁殖”现象 一是摸清底数,强化整改。经摸排,县法院、公安局、市场监督管理局、交通局、林业局、农机站等6个单位,在同单位工作有亲属关系的公务员或事业(参公)干部共51人,其中违反《公务员回避规定(试行)》的16人。截止10月15日,违反回避规定的16人中,市场监督管理局县管干部存在直接上下级领导关系的1对夫妻和1对兄妹已在巡视期间分别将其中1人调离原单位,其他在同一单位双方属同一领导分管的有亲属关系的12人,均对其中一方进行适当的岗位调整。二是建章立制,源头防范。县人社局参照《公务员法》有关回避的要求,结合本县实际,出台制定岗位和工作回避规定,坚决从制度层面杜绝“近亲繁殖”现象。同时,加大对《干部选拔任用工作条例》、《公务员法》等有关干部政策法规的学习培训力度,督促各级党委和组织人事部门严格按照政策法规办事。 三、持续巩固和深化整改工作成果 经过两个月的集中整改,我县的整改工作取得了一定成效,但县委清醒地认识到,整改工作离省委的要求和干部群众的期待还有一定差距,党风廉政建设仍然任重道远。下一步,县委将严格对照巡视反馈意见要求,举一反三,标本兼治,抓常抓严抓实,坚持不懈抓好整改落实工作,以实际成效取信于民。 一是坚持问题导向抓好专项整治。坚持目标不变、力度不减,对巡视整改工作紧抓不放,督促各级党组织加强对整改工作的领导,坚持问题导向,大力发扬“钉钉子”精神,以“踏石留印、抓铁有痕”的劲头解决突出问题,坚定不移地向老大难问题开刀,做到敢碰硬、 啃“硬骨头”。 二是层层传导压力抓好责任落实。严格落实党委主体责任和纪委监督责任,切实督促各级党委对党风廉政建设负起全面领导责任,特别是抓牢抓实党委主要负责人第一责任人职责;班子其他成员要根据工作分工,对职责范围内的党风廉政建设负主要领导责任,切实履行“一岗双责”,凝聚形成抓整改的强大合力。支持各级纪委聚焦中心任务,加强对党风廉政建设和反腐败工作的监督,切实履行好党内监督职责,确保党风廉政建设责任制落到实处。 三是强化堵塞漏洞抓好建章立制。把显性问题整改与隐性问题查找统一起来,把立行立改与完善长效机制结合起来,以落实整改为契机,进一步建章立制,扎好制度的篱笆,坚持用制度管事管人,深入推进作风建设和反腐败工作,切实以正风肃纪、高压反腐的有力举措,逐步形成不敢腐、不能腐、不想腐的良性体制,促进全县广大干部廉洁从政,汇聚起深化改革发展、建设美丽XX的正能量。 欢迎广大干部群众对巡视整改落实情况进行监督。如有意见建议,请及时向我们反映。联系方式:电话XX;邮政信箱:XX县县委大楼四楼县纪委党风室;电子邮箱:
/
本文档为【《VB程序设计》第四章第六节 变量和过程的作用范围】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索