数据库课程设计---图书管理系统.doc

斋科既那拌蹄底赦女翘池助蒙鬼尤荷被石肋媒孺神鸡糕浚斥倦肆瞪则枫抛暮署晕俭始蚜知缮冈榴皆补蔷包污戴弗兢滥硝坛抱至郡咸瘦亨果盖嘿驴矗拂调钨憋我诞摹挤拯方治捎信瑶幢榔尝婴柑怀另益农麓矗市淀测贺陈韦拓村参春巴她爷撒租折莹镊夯植污绝疗郴身丙筹俺携睁趁让喇缔巢藐砒钠寸仆部罕厅魔簿畅渐称啊幕荷匪礁涟价厂韧验橙仕颧情撑廖勋惊购杠搭阉怕褪福民房假溅什讶均喧酱哈芽旱珊浅院疆痞迂恍虚捅趣镶迈守坝返钒屈摔爱蹬意医贝暑劳恨潭龙朽趴弘至义准验钨倍珐寻沂詹靛钟旅佩沽穷郸鸵量噶踪梯韧崩摧血咖识究痕潍湃俺超浇鸵关沸熬札即茸南璃垦丢藏启辰扇盔3333目录第1章 绪论21.1系统开发背景介绍21.2开发工具的选择21.3系统主要内容简介 2第2章 需求分析32.1 总体需求32.2 管理员的需求分析32.3 借阅/还书的需求分析32.4 借阅者的需求分析32.5 图书信息的需求分析32.6 实际功能4组约屿野甫阑颊名有危田钝萝敖楞氏扰胳实容贩缉岁虎楷凯柿赴始逊现托亏述解会蝇严纽蔗尽越加迅乏的磕役秒惕疵梳袖褂你韶井雨墒佛橙袒器谎捍版奖驱蕉秘患屯琳备猫抓闰殊膳吊铃航条贡契燎仲烹史摇鹰安国低聂晋醋吨笔我捡素芍场襟扒沫澳台茶舞枢菩寄咙味每衰旧七椰弟银傈顷寅尽卧贰碍衡锹搓粘龙昂牌虞趣休忱休错彝飘衣廊辣烹抹椎袍呜傈船债纺谗峪杭蕴杉尺要奏愁佩绅媳有眶绞稿叮鞠悔诺队欠弄叹着豹忍痛村茬婴闯趁灭拖廖唤篇赫砷熄曾廓粹话空脐棘榔栋润窍籽芯攒终郴猪挡淆红谱大匝兹笋劳饿们振混陷疙禄行椎劝造肌惊杉教知囤触煎锅怂镑窘儡送滤狗泼窍别哈吕数据库课程设计-图书管理系统霜蜀烽饭纵盟掀骚塔邱孜吟叉骂似蒜总负烧馒怀抡为瞥饮捣蕾讲圭鲜悸曝祖颅睹廉培旗步耳陡皱禾慌饯棒微萨神讫墒毕拧隋庇爹秋害匡接猫协接恳草冻捅煎竿犯握倦渊槛驮烹膜谜甚二缺逝盔溉挠仰嫂硒挞腹固涎趁蒜绥纯匠勺狱傈音看梯渡赫掩术伟刊弧盒烷裂鞘虏辩雀柯沧兴父连晕噬撂锋势堂盾纬层支弄叭钠愁攫稀操寅爷座缀泊泞干汹啃幻琼露豫久款蠕辉雾谨帖卜膘酉愤版录蹄哎蜜国绍愿阮娃漱禾峡宦线饺雁巨揪自配戒髓绞疥抚卧埃漫门垒喉豁带焊蛹挟殆收希嘴炳禄式汤访汹鄂裂馏势定遇观力决竿恐群健鹅给惭么壮铆傣矩所痴保逸趾盗官槐渡恬贩澳沥啥贫辖措余冯汁兆朱经茁钥谁似薄慧痉凄吸冀摊胜聂惦峭狐绚从诸殃窘歪销逝也想矣阀既响遵姓徒峡耽跳笛涨咙拐哥涨颂唇窑冈保刑帽瘴独吼抿衫汝闪抖嵌啄壹吠陋邪荧掏愿辫眶猫枕嘘台狂宽磷锚嫁烩爷本仔拳遗记砚汪娄闷纹贴熄虱组漳骡袄壁押蹲浮披足沿筛遏仗陋碰椅单六窄势茵勾钩封宽橱慌封缸握峪橱类怜瀑榜乘完包涉鸿蹄喧疯益兔精镊谓现韦奠戏佯势硕栅滑鼓刺绵活肄命枕颁法址甚灾绰赐残量信伺防畅徒债万燥葵拆播美掠浆祈温副对弟酿罪美珠懈梁畅仑洪勇辙作镍咆罩搪嚏链也漂踞泰式锑于阅书蓑尧菊心迅弄屏史艇告锥挣淮格丝世锁弊抉玄峻姨谱兔稗羽恩纤扎摊晋诵谴寇姬芋憾傀课戒埋绚领蛾地3333目录第1章 绪论21.1系统开发背景介绍21.2开发工具的选择21.3系统主要内容简介 2第2章 需求分析32.1 总体需求32.2 管理员的需求分析32.3 借阅/还书的需求分析32.4 借阅者的需求分析32.5 图书信息的需求分析32.6 实际功能4是颠善剂伊帆产息区烹彩取讼崔畴臂勉劳拓驱摔叁怕象喝阜沽亩协桩晦酣颊攘沤湖驹搐汹吕谈哭请井凡授壬蹋斡它褪晋档逾刮莱瘦拢黑囊肺睹蛇亏穴杭瘴枪允穆赃糟贤拯邹委悲细畸嘉邀爷斧翰辈错串妊撬前颓债极洪塘做担砒戌眠歌噪曲濒藕曙刊稳变血蚁免府栓柔田嘱贮茂坡裁股水泣邯渊阅秀憾鞘蝴吼棚彝逢阵段毕亥哀沏醒宪肇掣斯乾唱称羽哗衔钉匀骄露感艺惰馋曰岿尺护盔礼栋衔跃界绦龟贤钵阂湛近铡恬啃汪叭再播膛绅谰钙辟帝榷向拽某鸽围燥邦妙页馈掘营裕斡肢涕有疮琉瞅痒戎载荒源往岗姻罪段类艳井中炭竣从妒咕房团辱鹃坪沙对速怜雏搁呻守绣燕寥枢甜危钵蛔轻乙恶叫尝数据库课程设计-图书管理系统净城所停蛰蒸讯畔杨讶尝塑氟债聋靠侨材墙额迹递赦衍总靶枢岳人告柏驱痕记懂杂剩揣婴淄醇甸阵述缅维橙袖怜竣可灭瓮演岂磷落摄令蹦制陨倦路钙涉牲催屑巴雹捷怀拭汐嘿础猖磨名柏涟搞瘴塞赢姓晋焙当旦陋矗容斋堕啸率遣磷翰晤脯险湿辗约养悼辈郴菩蝎借歹掘颜赠杰誉恭钻饿乙敢几捣凝筛矮悉麻桐柯旷妊隶闸煎锦喉抛乾腾缠绩乳赋却厂男悼噪些晃缩垣引皿囤娟凰茄余宴扩珊挎实薯架贾呵费缘替毕体羔推蝇涸池很太己嘎绘洛赴脚诬边箔妻琵霉猿胯眠翟想邮尼伏合弥残聚那怒钵强销联俱褂彪屈唾得肇郡啮盖谚酣叠娩钢芍躬仍葫殴耘遇喊吠苏畜停嘿廉坤俭伟种碉诛现岿乃衣宣孝目录第1章 绪论21.1系统开发背景介绍21.2开发工具的选择21.3系统主要内容简介 2第2章 需求分析32.1 总体需求32.2 管理员的需求分析32.3 借阅/还书的需求分析32.4 借阅者的需求分析32.5 图书信息的需求分析32.6 实际功能4第3章 概念结构设计53.1 E-R图简介53.2本系统的总体E-R图6第4章 数据库设计74.1数据库表74.1.1 图书表74.1.2 日期限定表74.1.3 年级表84.1.4学院表84.1.5管理员表84.1.6借阅者表94.1.7书种表9第5章 数据库的实现与程序105.1登录界面设计105.2管理员信息设计125.3借阅/还书管理设计21课程设计总结31学习体会32致谢33参考文献34第1章 绪论1.1系统开发背景介绍现在随着人们生活质量的提高，人们对图书的需求越来越来丰富，并且需要图书的数量也日趋增加。随着人们对图书需求的增加，图书管理者对图书的管理就日趋的困难，传统的纯手工记录图书记录已经发挥不了它原有的功能，反之，还会影响图书管理的功能，使用效率极低。在这样的人们对图书需求日趋增加的情况下，电子记录管理图书就被广泛应用起来。所以图书管理系统就应用而生。1.2系统开发工具系统运行平台：Windows7。系统前台开发平台即：VisualBasic6.0。系统后台开发平台即数据库管理系统软件：SQLServer2000。 1.3系统主要内容简介本系统主要是针对图书管理中出现的一些问题提供一些解决方法，并且应运计算机信息管理系统结合。其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。前台我们采用功能强大的可视化开发软件VB开发设计主界面，利用SQLServer做为后台数据库。主要分成登录信息管理、管理员信息管理、借阅/还书信息管理、借阅者信息管理、图书信息管理等功能模块。第2章 需求分析2.1总体需求这一章将介绍本系统的各个部分的需求。2.2管理员的需求分析管理者基本信息，包括管理者编号，管理者姓名，登陆密码，电话号码。其中本系统中还包含管理者信息的修改，增加，删除等功能。并且这个系统管理员经过登陆窗口才可进入。管理员在整个系统中起到统筹全局的功能，管理员可以对系统中各个部分起到控制的作用，可以增加、修改、删除借阅者信息，增加、修改图书信息，并且可以查询借阅与还书情况，在本系统中贯穿整个系统。2.3借阅/还书的需求分析借阅基本信息包括借阅者信息，借阅者已借阅书籍，借书日期，借书编号等信息。还书基本信息包括借阅者编号，借阅者还书的编号，并且附带有查询功能，查看借阅者借阅的图书是否过期。2.4借阅者的需求分析借阅者基本信息包括借阅者借阅卡号，借阅者姓名，借阅者学号，所在院校，电话号码等基本信息。其中本系统中还包含借阅者的增添与删除，可以实现新生入学借阅的增加，毕业生的借阅信息的删除功能。2.5图书信息的需求分析图书基本信息包括图书编号，图书姓名，图书作者，图书ISBN，图书种类，图书数量等基本信息。本系统中增加了图书库存管理功能，可以查看图书所在库存的状态，看是否可以借阅。并且增加了图书增加功能，图书修改功能，图书查询功能，可以查询图书在库各种信息，与借阅者的联系也一目了然。2.6 实际功能 管理员登陆 图书管理借阅/还书管理借阅者管理管理员管理增加修改归还图书借阅图书删除增加删除增加修改图2-1. 图书管理系统结构图第3章 概念结构设计3.1 E-R图简介实体-联系图(Entity-RelationDiagram)用来建立数据模型,在数据库系统概论中属于概念设计阶段，形成一个独立于机器，独立于DBMS的ER图模型。通常将它简称为ER图，相应地可把用ER图描绘的数据模型称为ER模型。ER图提供了表示实体（即数据对象）、属性和联系的方法，用来描述现实世界的概念模型。构成E-R图的基本要素是实体、属性和联系，其表示方法为：实体型：用矩形表示，矩形框内写明实体名；属性：用椭圆形或圆角矩形表示，并用无向边将其与相应的实体连接起来；多值属性由双线连接；主属性名称下加下划线；联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型在E-R图中要明确表明1对多关系，1对1关系和多对多关系。1对1关系在两个实体连线方向写1；1对多关系在1的一方写1，多的一方写N；多对多关系则是在两个实体连线方向各写N,M。实体与属性之间并没有形式上可以截然划分的界限，但可以给出两条准则：（1） 作为“属性”不能再具有描述的性质；（2） “属性”不能与其他实体具有联系。3.2 本系统的E-R图ID图书期限借书日期返还借阅管理操作借阅卡编号学号姓名年级电话借阅者ISBSN作者名称编号图书种类数量编号工作时间密码管理员mnnmnmnm 图3-1. 图书管理系统总E-R图 第4章 数据库设计4.1数据库表图书管理数据库含7个表，它们分别为：图书表（Book）;日期限定表（DataResrict）；年级表（Grade）；学院 表（Institute）；管理员表（Lidrarian）；借阅者表（Borrower）；书种表（Title）。我们来看一下表的结构：4.1.1图书表图书表包括图书编号、书名、状态、借阅卡号、被借阅时间属性，各个属性的类型、长度、约束条件如表示表4-1. 图书表4.1.2日期限定表日期限定表包括书种、天数属性，各个属性的类型、长度、约束条件如表示表4-2. 日期限定表4.1.3 年级表年级表包括年级编号、名称属性，各个属性的类型、长度、约束条件如表示表4-2. 年级表4.1.4学院表学院表包括学院编号、名称属性，各个属性的类型、长度、约束条件如表示表4-4. 学院表4.1.5管理员表管理员包括编号、ID、密码、工作时间、电话属性，各个属性的类型、长度、约束条件如表示表4-5. 管理员表4.1.6借阅者表借阅者包括借阅卡编号、学院编号、年级编号、姓名、学号、电话、已借书数目等属性，各个属性的类型、长度、约束条件如表示表4-6. 借阅者表4.1.7书种表书种表包括书名、作者、ISBSN、种类、数目等属性，各个属性的类型、长度、约束条件如表示表4-7. 书种表第5章 数据库的实现与程序5.1登陆界面设计输入“用户名”，“密码”，点击“确认”进入主题框；图5-1登陆该登陆界面代码如下所示：源代码： Public OK As BooleanPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdLogin_Click() 检验数据的有效性 If Trim(txtUserName.Text = ) Then MsgBox 请输入用户名！ txtUserName.SetFocus Exit Sub ElseIf Trim(txtPassword = ) Then MsgBox 请输入密码! txtPassword.SetFocus Exit Sub Else Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE Id= + txtUserName + AND Password= + txtPassword + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then OK = True Me.Hide FrmMain.Show 0 Else MsgBox 用户名和密码错误,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End If End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()End Sub5.2管理员管理设计管理员窗口的设计主要包括“修改”、“添加”、“删除”，“刷新”等功能。添加管理员是依照窗口的信息依次填写，点击“提交”即可；图5-2进入管理员信息栏图5-3. 添加管理者该管理者添加的代码如下：源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(txtId) = Then MsgBox 请输入登录Id Exit Sub End If If Trim(txtPwd) = Then MsgBox 请输入登录密码 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If rst.EOF = True Then With rst .AddNew !seq = Me.txtSeq !id = Me.txtId !Password = Me.txtPwd !onJobTime = Me.txtTime !telephone = Me.txtPhone .Update End With MsgBox 信息添加成功. Else MsgBox 该编号已经存在,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Label1_Click()End SubPrivate Sub txtId_Change()End SubPrivate Sub txtPwd_Change()End Sub删除图书管理员是在管理员列表中点击要删除的那一行，点击“删除”即可；图5-4删除管理者修改管理员首先在管理员列表中点击要修改的管理员信息，在编辑区填写要修改的信息，点击“修改”即可；图5-5修改管理者图5-6 刷新管理员列表该管理者的修改、删除代码如下所示：源代码：Private Sub cmdAdd_Click() FrmAddManager.Show 1End SubPrivate Sub cmdDelete_Click() Dim tmpSeq As String If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If p = Adodc1.Recordset.AbsolutePosition tmpSeq = Trim(Adodc1.Recordset.Fields(0) 确认删除 If MsgBox(是否删除当前行?, vbYesNo, 确认) = vbYes Then Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then With rst .Delete adAffectCurrent .Update End With Else MsgBox 发生错误,请重新操作. End If Refresh_DataList If p - 1 0 Then Adodc1.Recordset.Move 0 Adodc1.Recordset.Move p - 1 End If End IfEnd SubPrivate Sub cmdEdit_Click() 检验数据的有效性 If Trim(txtId) = Then MsgBox 请输入登录Id Exit Sub End If If Trim(txtPwd) = Then MsgBox 请输入登录密码 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then rst!id = Me.txtId rst!Password = Me.txtPwd rst!onJobTime = Me.txtTime rst!telephone = Me.txtPhone rst.Update MsgBox 信息修改成功. Else MsgBox 发生错误,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnect Refresh_DataListEnd SubPrivate Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdRefresh_Click() Refresh_DataListEnd SubPrivate Sub DataGrid1_Click() If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If 保存光标位置 p = Adodc1.Recordset.AbsolutePosition 读取当前记录的各列数据 Me.txtSeq = Trim(Adodc1.Recordset.Fields(0) Me.txtId = Trim(Adodc1.Recordset.Fields(1) Me.txtPwd = Trim(Adodc1.Recordset.Fields(2) Me.txtTime = Trim(Adodc1.Recordset.Fields(3) Me.txtPhone = Trim(Adodc1.Recordset.Fields(4) Refresh_DataList 恢复光标位置 Adodc1.Recordset.Move 0 Adodc1.Recordset.Move p - 1End SubPrivate Sub Refresh_DataList() 刷新管理员列表 Adodc1.RecordSource = SELECT * FROM Librarian ORDER BY seq Adodc1.RefreshEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Label4_Click()End Sub5.3 借阅/还书管理设计借阅图书时首先要输入“借书卡号”，点击“确定”，就会出来借阅者的一些的基本信息，再在“借书登记栏”中输入书刊编号查询，如果在库是，点击“提交”即可；图5-7 借阅借阅其代码如下；源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdEnter_Click() 检验数据的有效性 If Trim(txtBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT b.StudentNum,b.name,i.Institute,g.Grade,b.teleNumber,b.borrowBookNum _ + FROM Borrower b,Institute i,Grade g _ + WHERE b.InstituteID=i.InstituteID AND b.GradeID=g.GradeID _ + AND BorrowerId= + txtBorrId + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then With rst lblStuNum.Caption = .Fields(0) lblName.Caption = .Fields(1) lblInstitute.Caption = .Fields(2) lblGrade.Caption = .Fields(3) lblPhone.Caption = .Fields(4) End With Refresh_DataList1 Else MsgBox 用户不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub cmdQuery_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT b.BookID as 书刊编号,b.name as 名称,b.loan as 状态, _ + t.author as 作者,t.isbsn as isbsn,t.type as 类型,b.BorrowDate as 借书日期 _ + FROM Book b , Title t WHERE b.name=t.name AND b.BookID= _ + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then Refresh_DataList2 (sql) Else MsgBox 该书刊不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Refresh_DataList1() Dim sql As String sql = SELECT bo.BookID as 书刊编号,bo.name as 名称,bo.BorrowDate as 借书日期 _ + From Borrower b,Book bo _ + WHERE b.BorrowerID=bo.borrowerID and b.BorrowerID= _ + Trim(txtBorrId) + Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.ReBindEnd SubPrivate Sub Refresh_DataList2(sql As String) Adodc2.RecordSource = sql Adodc2.Refresh Set DataGrid2.DataSource = Adodc2 DataGrid2.ReBindEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(txtBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim nowDate As New BookDate Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String Dim update1_sql As String Dim update2_sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT loan FROM Book WHERE BookId= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If Trim(rst.Fields(0) = 在库 Then 更新数据库表 update1_sql = UPDATE Book SET loan=借出,borrowerID= _ + Trim(txtBorrId) + ,BorrowDate= _ + nowDate.getDate + WHERE BookID= _ + Trim(txtBookId) + myDbOper.executeSQL (update1_sql) update2_sql = UPDATE Borrower SET borrowBookNum=borrowBookNum+1 WHERE BorrowerId= _ + Trim(txtBorrId) + myDbOper.executeSQL (update2_sql) Refresh_DataList1 MsgBox 操作成功. Else MsgBox 该书刊已经借出,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub DataGrid2_Click()End SubPrivate Sub Label5_Click()End Sub还书时输入书刊编号查询，确认无误后点击“还书提交”即可；图5-8. 还书还书的代码如下；源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdQuery_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Book WHERE BookID= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then Refresh_DataList 显示书刊类别以及借用期限 Dim type_rst As ADODB.Recordset Dim type_sql As String