vb点虐 自动流水号 自动生成流水号
谁能给我讲讲收发文管理系统是什么哦
基于ASP的收发文管理系统的设计与实现
创新互联建站服务紧随时代发展步伐,进行技术革新和技术进步,经过10年的发展和积累,已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员,并且完全形成了一套成熟的业务流程,能够完全依照客户要求对网站进行成都网站制作、网站建设、建设、维护、更新和改版,实现客户网站对外宣传展示的首要目的,并为客户企业品牌互联网化提供全面的解决方案。
传统的手工办公方式已经无法满足现代办公的需求,收发文管理系统作为提高工作效率、规范办公制度,增强办公的透明性,实现信息、文档资源的统一管理,方便领导决策,逐步实现无纸化办公的重要工具,越来越受到人们的重视。
我们选择B/S三层结构,后台数据库采用SQL Server,WEB服务器运行微软的IIS,以ASP(Active Server Pages)作为开发工具,客户端用IE浏览器。
B/S模式体系结构概述
B/S模式是指在TCP/IP的支持下,以HTTP为传输协议,客户端通过Browser访问Web服务器以及与之相连的后台数据库的技术及体系结构。它由浏览器、Web服务器、应用服务器和数据库服务器组成(图1)。B/S模式突破了传统的文件共享及C/S模式的限制,实现了更大程度的信息共享,任何用户只要通过浏览器即可访问数据库,从而克服了时间和空间的限制。
B/S模式的工作原理是:客户端的浏览器通过URL访问Web服务器,Web服务器请求数据库服务器,并将获得的结果以HTML形式返回客户端浏览器。
功能模块
基于收发文档一体化的实现机制,可将系统分为如下几个子模块。
(1) 系统管理
作为系统管理员,他可以对整个系统进行维护,包括人员维护、科室维护、模块维护、人员职能维护、人员职务维护、用户权限维护、用户口令维护、系统配置项的维护另外还可以对全局公告栏的类别进行维护。
(2) 发文管理
发文管理是一个单位对具有约束能力文件形成过程的一种管理。如执行发文拟稿、核稿、会审、会签、签发、文书打印、批阅流转、归档等管理工作。文件送阅和批复完全在计算机网络上完成,所有的工作流程可以由用户自定义,所有的送交批阅痕迹,修改痕迹,操作时间和操作人都被详细保留。同时,对发文系统还提供全文检索、条件检索等功能。
它主要的用于像公司规章制度的形成、档案室制度的形成、财务室制度的形成、干部任免文件的形成、职工奖罚规定的形成、库存管理制度的形成、安全生产制度的形成、及其它对所有人都具有约束性的文件的形成过程。
图(2)是整个发文的流程图,用户可以根据需要选择其中的某些步骤来完成发文的管理。
图2
(3) 收文管理
收文管理主要对外来公文进行登记和处理。主要用于登记像税务局发来的文件、公安部门发来的文件、总公司发来的文件行业主管部门来文的处理过程、协作单位发来的文件处理过程、兄弟单位发来的文件处理过程、及其它外来的公文文件的处理过程。
主要的处理过程有:收文登记、主任拟办、领导批示、处室承办、传阅、送交归档等功能。在领导批办界面可以将文件送往更高一级的领导进行审批,到底由哪些处室承办,送交给哪些处室由最高领导决定。管理人员可以通过“收文查询操作”对收文处理全过程进行跟踪与监督。
对办理完毕的收文系统还提供全文检索、条件检索、统计等功能。
图(3)是整个收文的流程图,用户可以根据需要选择其中的某些步骤来完成收文的管理。
图3
(4) 档案管理
对本部门或其它部门发送的文件进行接收,然后将文件进行组卷(将文件组入某一案卷中)、移卷(将某案卷中的文件移动至其它案卷)、移出(将某案卷中的文件移出案卷)。对于未立卷的收发文文件,可以组卷。对于档案可以进行封卷,拆卷,销毁案卷,对封卷的案卷或未封卷的案卷都可以进行借阅和查询管理,您可以在此进行档案的借阅、归还。还可以对档案的阅读权限进行有效地分配管理。
相关的实现技术
1、典型数据表的设计
在收发文管理系统中,任意收文或发文文件都对应一个默认流程(事先已经定义好了),文件按照流程中指定的步骤逐次向下流转。以某收文流程为例有:收文登记—〉主任拟办—〉领导批办—〉处室承办—〉送交归档。为了对文件进行实时跟踪,及时监督它的流向进程或者考察在某些阶段处理的详细情况,这就要求我们提供两个重要的数据表,在本系统中为数据表gw_mrlc和数据表gw_cllc。
其中,gw_mrlc(wdlx,lcmc,ry,xh,clm,clr)记录了系统中用到的各默认流程的信息。Wdlx指文档类型,收文或者发文;lcmc指流程名称;ry指定义该默认流程的人员;xh对应默认流程中各步骤的顺序号,它有大小之分,小的则表示步骤在前,系统将先执行;clm对应默认流程中各步骤的名称;clr对应默认流程中各步骤的处理人员。
Gw_mrlc仅是记录了各流程的信息,还需要gw_cllc(lxh,lcmc,xh,clr,jbrq,clrq,clyj,zt,wjm)来跟踪文件在流程中的执行状况。对于任意收发文文件在系统中都会有各自唯一的流程与之一一对应,lxh则记录了该流程的序列号;lcmc,xh,clr同上所定义;jbrq,clrq,clyj,zt,wjm都是针对该流程中顺序号为xh的各个处理步骤而言,jbrq指上一个步骤处理完毕提交过来时的日期;clrq指当前步骤处理完毕时的日期;clyj指当前步骤的处理意见;zt指当前步骤的处理状态,已经处理还是尚未处理,以方便文件的实时跟踪;wjm则记录了文件的正文内容和在流转过程中文件的修改痕迹,具体的可以通过文件上传功能来实现。
2、使用Session进行登录验证
ASP代码使用表单实现交互,而相应的内容会反映在浏览器的地址栏中,如果不采用适当的安全措施,只要记下这些内容,就可以绕过验证直接进入某一页面。例如在浏览器中敲入“...xx.asp?flag=1”,即可不经过表单页面直接进入满足“flag=1”条件的页面。
为防止未经注册的用户绕过注册界面直接进入应用系统,我们采用Session对象进行注册验证。例如,我们制作了下面的注册页面。
%’读取用户登录的信息
Luser=ltrim(Request("User"))
Lpass=Request("Pass")
’检验帐号和密码是否正确
if Luser=rs(“userid”) and Lpass= rs(“password”) then
Session("sysuser")=Luser ’使用Session对象进行用户登录验证
…
else
response.write “您的输入不正确!”
response.end
end if
%
在应用系统的其他WEB页,首先要进行Session对象的验证。如果你未通过用户登录界面,那么Session("sysuser")就为空值,你将无法使用系统提供的任何功能,除非你是合法用户才可,这样就在一定程度上保证了系统的安全性。其验证代码如下:
%
if session("sysuser ")="" then
response.write("对不起,你还没有a href='../login.asp' target='_top'登录/a。")
else
…
end if
%
3、对ASP页面进行加密
为有效的防止ASP源代码泄露,可以对ASP页面进行加密。我们曾采用两种方法对ASP页面进行加密。一是使用组件技术将编程逻辑封装入DLL之中;二是使用微软的ScriptEncoder对ASP页面进行加密。使用组件技术存在的主要问题是每段代码均需组件化,操作比较繁琐,工作量较大,而使用Encoder对ASP页进行加密,操作简单,收效良好。
ScriptEncoder的运行程序是SCRENC.EXE,使用方法是:
SCRENC [/s][/f][/xl][/ldefLanguage][/edefExtention]inputfile outputfile
其中:/s是屏蔽屏幕输出;/f指定输出文件是否覆盖同名输入文件;/xl指是否在.asp文件的顶部添加@Language指令;/ldefLanguage指定缺省的脚本语言;/edefExtention指定待加密文件的扩展名。
4、存储过程的使用
使用存储过程不仅可以提高查询速度,而且可以保证事务的完整性。在该系统中,每个文件对应唯一的流水号,当有新的文件要入库时流水号就会自动加一。由于所有的用户都在网上,那么两个文件同时入库的情况就有可能发生,为了保证流水号的唯一性,就要求“取流水号”和“流水号加一”作为一个事务来完成。ASP调用存储过程比调用SQL语句要复杂一些,必须用ADO组件中的命令对象,步骤如下:
创建一个ADO命令对象,把Commandtext属性为存储过程名,Commandtype属性为4,表示该命令是调用存储过程为命令对象创建参数。
用“命令对象.CreateParameter(参数名称,类型,方向,长度)”命令创建对应与存储过程的输人、输出参数。
用“命令对象.Parameters(参数名称).Value=参数值”命令给输人参数赋值。
用“命令对象.Parameters.Append参数名称”命令将各个参数加入到命令对象的参数集合中。
“命令对象.Execute”执行存储过程。
“变量名=命令对象.Parameters(输出参数名称).Value”得到输出参数值。
结束语
基于B/S模式开发的收发文管理系统的实现,无疑会使传统的以手工为主的办公方式和办公手段,向科学化、规范化、高效化和信息化转变。可以预计,随着办公信息量的增加和信息化程度的提高,电子办公将是未来办公的发展方向。
VB.NET连接ACCESS数据库,读取查询并显示
给你写个例子,不明白,再问!!
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性,使用OLEDB模式,数据源为:你指定下路径,我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'执行OLEDB命令以ExecuteReader()方式,并返回一个OLEDBReader,赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class
VB.NET中 自动生成流水号怎么写?
DateTime.Now.ToString("yyyyMMdd") 生成当前日期,格式如 20090302
在数据库中建立表,字段为,年 月 日 号码
创建流水号时,查询当前日期下的最大号码,然后+1即可。
如何在VB.NET中新增数据时添加自动编号的ID字段
这个是数据库自带的功能啊,设置字段类型为自动编号就行了。在保存数据的时候这个字段不用赋值,也不用出现在Insert语句里。
分享标题:vb点虐 自动流水号 自动生成流水号
网站路径:http://scyanting.com/article/ddedcho.html