'定义一个数据访问类的对象 Dim Password As String Dim db As New databases Dim rs As ADODB.Recordset '根据输入的用户名进行查询 Set rs = db.RunSelectSQL _ ("select 密码,姓名,权限,编号 from 用户清单 where 姓名 = '" _ + Me.txtUserName.Text + "'") '判断用户名是否存在 If rs.RecordCount = 0 Then '用户名不存在
吧util.zip解压三个文件放在项目下。在SerialCode中有main方法 SerialNumber serial = new FileEveryDaySerialNumber(5, "EveryDaySerialNumber.dat"); 5位流水号长度EveryDaySerialNumber.dat是持久化编号文件自动保存到根目录下 可以自己建立其他文件比如存放任务编号的task.bat 订单编号的dingdan.bat等
Oracle生成单据编号存储过程，在做订单类似的系统都可能会存在订单编号不重复，或是流水号按日，按年，按月进行重新编号。
可以参考以下存储过程
CREATE OR REPLACE
procedure Pro_GetBillNO(TypeTable in varchar2,cur_mycursor out sys_refcursor)
as
DReceiptCode varchar2(40);
DReceiptName varchar2(50);
DPrefix1 varchar2(50);
D
