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语句里。