宿舍管理系统代码实现

1、登录界面代码实现此界面是由 Photoshop 制作而成。在做这个登录面的时候想了很多，最后选择了这种， 感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。 1.1 登录图片显示图登录界面1.2 界面制作与实现在这个界面中， 主要处理的是判断当前用户输入的信息是否正确。如果正确， 那么它属于哪种类型用户。 因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1) 浮动按钮的实现确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后， 它会显示凸出的效果， 按下后呈现凹陷的效果。总

2、体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下:在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False ，只有在鼠标按下的时候在改变其颜色即可。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y AsSingle)= False= False= False= False= False= False= False= FalseEnd Sub鼠标按下的时候设置线条的颜色如下：Private Sub

3、 Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, YAs Single)= &H808080 = &H808080 = &HE0E0E0 = &HE0E0E0End Sub鼠标移动到标签的时候设置线条的颜色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, YAs Single) = &HE0E0E0 = &HE0E0E0 = &H808080

4、 = &H808080 = True = True = True = TrueEnd Sub(2) 用户类型判断在数据库中建了一人 yonghu 表。在添加管理人员时有两种默认级别。管理员、普通用数据转换等。没有删户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看， 除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下： 设置当前控件连接的数据库Dim provider As StringDim datasource As String provider = "provider=" datasource = &quo

5、t;data source=" & & ""With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "yonghu" .Refresh对用户进行判断If = "" The nMsgBox "请输入用户名!", 48," 提示"Exit SubE

6、nd If "用户='"& & "”'If = False And = Trim"p ass") The n ="级别”) ="用户")Un load MeElse一 HHHHMsgBox "登录不成功，请重新登录!", 48,"End If程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界学牛背a訥环托咒mmist用B； If用尸恆st；甘叩鬲面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。界

7、面效果图如下:和,oll鱼g橹吕T J牛料g临 NIliBV射入g金it创3mjE0知33Z1A-C-2-SMJ£0疋盘Ml霑1A号瓷冨BdZOf皆6A昏SWM3,SwfB£0入号SWM:D5lAT 益*Bdi盘ft实UC-0Q2魄2IJA导賢高Efl?AS人导竖离Boa石T知2口 3二写E30.-9 J.f乂 31图程序主界面左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。它的实现方法如下所示：Dim o As AdodcSet o =这里主要是用到了 ado 对像的方法。用这个方法得到数据源。面是整个工具栏运行时代码

8、：Select CaseCase 1Case 3Case 5On Error GoTo next2Dim s As AdodcSet s =If = "users" ThenEnd If next2:Case 7On Error Resume NextDim o As AdodcSet o =Case 11With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSo

9、urce = "users" ' .RefreshSet = Adodc1Call dxCase 13Unload MeEnd Select = " 级别 ") = " 用户 ")x = (Y - z) / 4(2) .Text = "当前用户：(3) .Text = "用户模式：(4) .Text = Date & " " & Time ' 设置普通用户模式If = " 普通用户 " Then = False = False = False

10、= False(5) .Visible = False(6) .Visible = False(7) .Visible = False(8) .Visible = FalseEnd If- - 750- - 750- - 1200- - 1200- - 1200- - 1500- - 1500- - 1500(1).Width = u + x (2).Width = v + x(3) .Width = w + x(4) .Width = m + x provider = "provider=" datasource = "data source=" &a

11、mp; & ""With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "users" ' .RefreshEnd WithWith Adodc2 .Mode = adModeReadWrite .ConnectionString = provider & "" & datas

12、ource .CommandType = adCmdTable .RecordSource = "gongyu" .RefreshEnd WithWith Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "class" .RefreshEnd WithWith Adodc4 .Mode = adModeReadWrite .Con

13、nectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "weisheng" .RefreshEnd WithWith Adodc5 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasourceEnd WithWith Adodc6 .Mode = adModeReadWrite .ConnectionStrin

14、g = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "dengji" .RefreshEnd WithWith Adodc7 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "qinshi" .RefreshEnd

15、WithWith Adodc9 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource = "zichan" .RefreshEnd With treeview 部分树形显示的初始化在这里已经做了几个过程，调用即可。系统管理3.1 用户管理界面效果图图用户管理 界面制作与实现方法这个界面总体来说各个控件比较简单， 但是作为一个添加删除管理员的操作， 它已经连 接到了数据库，与

16、数据库的 yonghu 表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮 将会被设置成为失效状态，否则会出现错误。设置代码如下：Dim provider As StringDim datasource As String provider = "provider=" datasource = "data source=" & & ""With Adodc1 .Mode = adModeReadWrite .ConnectionString = prov

17、ider & "" & datasource .CommandType = adCmdTable .RecordSource = "yonghu" .RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后， 可以对其进行相对的删除、修改等操作。 上一条记录与下一条的记 下一条其中的一个按钮的 enable 属性设置为 true 。即不可以前查

18、看或向后查看。录在查看时有一个判断。当表中记录移到最前面（BOF或最后面（EOF时，会把上一条或上一条与下一条主要代码如下：' 移动记录If Then= False' 移动记录= TrueIf Then= FalseEnd If添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、 普通用户。管理员拥有对此软件管理操作等一切的权力。普 通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户 时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：If = " 添加 &

19、quot; Then= False= False= False= " 确定 "= " 取消 "= True= True= True= True= TrueHHElseIf = "" ThenMsgBox " 用户名不能为空！", 48, "提示 "= True= True= TrueElseIf = "" ThenMsgBox " 密码不能为空！", 48, "提示 "ElseIf <> ThenMsgBox "

20、密码两次需一致！", 48, "提示 "ElseIf = "" ThenMsgBox "请选择所建用户类型！ ", 48, " 提示"Else= True= " 编辑 "= " 添加 "= False= False= False= False= False= False= False= FalseEnd If删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：If = 1 Then= FalseEnd IfIf (MsgBox

21、(" 你真的想删除当前记录吗？ ", vbOKCancel, " 系统提示 ") = vbOK ThenIf编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记录。编辑操作主要代码如下：= False= True= True= True= True= True= True= " 确定 "ElseIf = " 取消 " Then= " 编辑 "= " 添加 "= True= True

22、= True= False= False= False= False= False= False= False= FalseEnd If3.2 公寓设置公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、 修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这datagrid 的显示，些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是 以及 treeview 及时形成新的结构。还有一些就是对表记录的复杂操作。在点击 sstab 各版的时候，要在这时重新生成寝室设置中的树型结构，Select Case PreviousTabCase

23、0Call startree1Case 1Dim I As IntegerIf <> 0 ThenDo While I <公寓名称 ")LoopEnd IfCall startree1Case 2Call startree1End SelectEnd Sub (1) 公寓设置 公寓设置效果图界面制作与实现方法1一号会厨七号淘a四号么离二号-豎苗I图公寓设置退出在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的 Frame控件。在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid

24、中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此Datagrid也会即时更新其内容。时即可输入要修改的名字。然后点击更新就会完成此操作。删除操作更为简单， 选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后 不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。在进行所有操作前，先要确定数据库已连接。在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则 对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示, 不存在，添加成功。I

25、f = False The nMsgBox "此公寓已存在”，" 提示"SubEnd IfHHExit SubIf = "" The nMsgBox "输入所要添加公寓的名称"," 提示”End If添加："公寓名称 ") = "gongyu"一 HHSet = Adodc1修改公寓名称：If = "" ThenMsgBox " 选择要修改的公寓" 提示 "Exit SubEnd IfIf = " 修改 "

26、 Then= " 输入想要修改的公寓名称= " 更新 "= False= FalseElseIf = " 更新 " Then= True= True= " 输入想要添加的公寓名称"公寓名称 ") ="update qinshi set公寓名称 ='" & & "' where公寓名称 ='" & Trim & "'"= " 修改 "End IfSet = Adodc1= A

27、dodc5删除公寓名称Exit SubIf = "" ThenMsgBox " 选择所要删除公寓的名称 ", , " 提示"End IfIf (MsgBox("你真的想删除公寓名称为"& & “的记录吗？ ", vbOKCa ncel," 系统提示")=vbOK The nIfHHSet = Adodc1(2)寝室设置寝室设置效果图富空名称 IIPi“iH 导厶窩1U1 1Q2 H-七号企离 fiRP - A号哲寓:601 60£ -euj ecM 四号盘寓

28、三号公鬲 五号盘寓 R-二酒101图寝室设置界面制作与实现方法此界面实现相对比公寓设置来说相对复杂一些。用到的控件主要是 Sstab与Treeview 。If = True The nMsgBox "此公寓不存在"," 提示"End If但是在程序方面比较复杂。在添加一个寝室前先要选择所要添加寝室所在的公寓。这个公寓可以点击下面的树中的节点，也可以在列表框中选择。树中的节点在点击后会把父节点显示在选择公寓后面的列表框中，而选中的节点会出现在寝室名称里。你也可以自己进行添写， 确认公寓后即可添加完 成了。添加后会把 Treeview重新刷新一下。以显示更新

29、后的记录。添加源码:"公寓名称=”'& & "”'SubIf = "" Or = "" ThenMsgBox " 请输入所要添加的寝室及其所属公寓 ", , " 提示"Exit SubEnd IfWith Adodc2.(0).Value =.(1).Value =End WithHHHHCall startree1修改操作可以把当前选中的寝室进行名称修改与其所属公寓进行修改。当要对名称进行修改时， 先要选择所要修改的寝室名， 选择后会在寝室名称里显示出来，把当前

30、寝室名称改成要修改的寝室名称， 然后点击修改即完成名称修改操作。 当要对当前寝室的所属公寓进行修改时，需要先选择所要修改的寝室，然后在上面的公寓名称后填写所要修改的寝室名称。点击修改后完成此操作。但是这种操作不是常见。修改源码：" 公寓名称 ='" & & "'"If = True ThenMsgBox " 此公寓不存在 ", , " 提示 "SubEnd IfDim sql As StringOn Error Resume NextIf = "" Or = &q

31、uot;" ThenMsgBox " 请在下面选择所要修改的寝室 ", , " 提示"Exit SubEnd If'sql = "select * form qinshi where 公寓名称 ='" & Trim & "' and 寝室 ='" & Trim & "'""update qinshi set寝室='" & & "',公寓名称 ='

32、" & Trim & "'where寝室='" & Trim &"'and 公寓名称 ='" & Trim & "'"一 HH一 HHCall startree1也就是这个树型节点中的寝室其相关记录不会被删除掉的，如删除操作可以删除掉当前树型显示中的任何一个子节点，名称，注意的是，删除后这个记录只在 qinshi 表中删除，果想删除，还需要人工操作。实现的方法主要是对qinshi表操作，先对其进行查询，查询如果存在这条记录，则在表中把当前

33、想要被删除的表是否存在， 如果不存在， 则给出提示， 它删除掉， 删除后调用生成树过程， 把当前寝室设置中的树型结构重新生成，更新记录。实现的部分代码如下所示：If = "" Or = "" Or = "公寓管理系统 " ThenMsgBox " 选择所要删除的寝室", , " 提示"Exit SubEnd IfIf (MsgBox(" 你真的想删除& & " " & " 寝室为 " & &的记录吗？ &q

34、uot;, vbOKCancel,"系统提示 ") = vbOK Then"delete from qinshi where公寓名称 ='" & Trim & "' and寝室='" & Trim & "'"If一 HH一 HH这主要是对 treeview 进行了Call startree1在 treeview 点击的时候， 上面的文本框中会显示相应的记录， 设置，代码如下：Private Sub TreeView1_NodeClick(ByVal N

35、ode AsOn Error Resume Next= = Sub (3) 班级设置 班级设置效果图图班级设置界面制作与实现方法此界面制作与公寓设置基本一致。 在这个界面中主要用到了一个 Sstab 控件与一个显示表中内容的 Datagrid 控件。以及起到美观作用的 Frame 控件。在右下角的文本框中可以输入想要添加的班级名称。然后点击添加即可完成添加操作。Datagrid 中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选 择，确认选择后，点击下面的修改按钮， 会在下面的文本中显示出所要修改班级的名称，此Datagrid 也会即时更新其内容。时即可输入要修改的名字。然

36、后点击更新就会完成此操作。删除操作更为简单，选择想要删除的班级名称，点击删除，确认后完成此操作。添加班级源码："class='" & & "'"If = False ThenMsgBox "此班级已存在 ", , " 提示 "SubEnd IfHHIf = "" ThenMsgBox " 输入所要添加班级的名称 ", , " 提示"Exit SubEnd If "class") = "class

37、"一 HHSet = Adodc3修改班级源码：If = " 修改 " Then= " 输入想要修改的班级名称 "= " 更新 "= False= FalseElseIf = " 更新 " Then= True= True= " 输入想要添加的班级名称 " "class") = " 修改 "End If删除班级源码：If = "" ThenMsgBox " 选择所要删除班级的名称" 提示 "Exi

38、t SubEnd IfIf (MsgBox(" 你真的想删除班级名称的记录吗？ ", vbOKCancel, " 系统提示") = vbOK ThenIf一 HHSet = Adodc3End Sub3.3 数据备份数据备份是一个数据库软件必不可少的一部分，利用它可以把当前数据库表进行全面的或者是系统的原因使数据库备份， 以备以后使用。 因为在操作中可能会导致数据遭到破坏， 损坏，或者是一些其它的人为原因， 这样你可以用此功能把数据恢复到最后一次备份的状态， 使损失做到最少，经常备份，操作起来更有安全感。数据备份效果图图数据备份效果图 功能实现界面制作相

39、对程序来说比较简单， 用到的是 coolbar 控件，点击按钮可以选择备份路径。然后点击数据备份即可。窗体初始化部分代码如下：Dim cnn1 AsDim rstschema AsDim strcnn As StringSet cnn1 = New strcnn = "provider=" & "data source=" & & "" strcnnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp,

40、1) <> "M" ThenEnd IfLoopOn Error GoTo errPathName = & "" dbasize = FileLen(PathName) err:Exit Sub数据备份部分在本程序中用到了一个模块，在模块中有一个方法， dobackup 。点击备份按钮后开始备份，代码如下：If txtDestination <> "" ThenDoBackup PathName, txtDestinationMsgBox " 备份成功！ ", , " 提示

41、"ElseIf txtDestination = "" ThenMsgBox "You must specify a distination for the backup", vbCritical其中 DoBackup 为模块中已定义的方法，在这里进行调用。Dobackup 实现方法代码如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestina

42、tionDir As String = vbHourglassBackupFolderName = strDestinationPathMkDir BackupFolderName & "Backup - " & Format(Date, "") lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or

43、FOF_FILESONLYWith SHFileOp.wFunc = lFileOp.pFrom = strSourcePath & vbNullChar.pTo = strDestinationPath & "Backup - " & Format(Date, "") & vbNullChar.fFlags = lFlagsEnd With lresult = SHFileOperation(SHFileOp) = vbDefault = "Backup Complete"在备份分前先要选择一个备份路

44、径，点击那个按钮开始进行选择，实现方法如下:Dim strTemp As String strTemp = fBrowseForFolder, "Select backup path")If strTemp <> "" ThentxtDestination = strTempEnd If数据恢复界面同上， 它的功能主要是在当前数据库遭到破坏后， 可以利用它来进行数据 恢复，在数据恢复前要选择所要恢复的数据库路径，如下:Dim strTemp As String strTemp = fBrowseForFolder, "Restore

45、 From")If strTemp <> "" ThentxtSource = strTempdbasize2 = FileLen(txtSource & "")lblSelectedDba = "Selected Backup Database is : " & Format(dbasize2 / 1024) / 1024, "standard") & "MB."= TrueEnd IfErro:Select CaseCase 53 'Fi

46、le Not FoundlblSelectedDba = "No Backup at this location"= FalseEnd Select它主要是查看数据库是否存在，如果所恢复的数据不存在，则会提示错误。DoRestore 。数据恢复代码数据恢复也用到了一个方法，在模块中也已经定义了该方法 如下:If MsgBox("Restoring database from location " & txtSource & " will replace existingDoRestore ,If NoDba = True The

47、ndatabase you want to Contunue", vbYesNo) = vbYes ThenMsgBox "Database Restored Click Ok to Exit Program"Unload frmRestoreDbaEnd IfElse= "Database Restore Canceled"End If其中 DoRestore 实现的功能源码如下所示：DEFSOURCE = "PROVIDER= Security Info=False;Data Source="DBName = "

48、;Jet OLEDB:Database Password=matrix-se;"Set Db = NewDEFSOURCE & & DBNameDim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglassBackupFolderName = strDestinationPath lFileOp = FO_COPY lF

49、lags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLYWith SHFileOp.wFunc = lFileOp.pFrom = strSourcePath & "" & vbNullChar.pTo = strDestinationPath & vbNullChar.fFlags = lFlagsEnd With lresu

50、lt = SHFileOperation(SHFileOp)Set Db = NewDEFSOURCE & & DBName=vbDefault ="Restore Comp lete"说明：本程序中此部分内容参考了网上的同类型代码，对其进行修改后得到此成型作品,从功能上来讲，它已经实现了它所要完成的工作，经过测试已经没有问题， 但是实现的源代码，也只有部分掌握。这实属本人精力与能力有限所置。四、学生宿舍管理4.1学生请假学生请假与违规在一个公寓管理中是最常见的问题了，所以在此软件中加上了这两项功 能。用它们可以随时记录请假记录。学生请假记录图片显示2d日期

51、 |£004-9-20姓名f扌比准老师备注添加I退出I图学生请假效果图界面制作与实现此界面主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起然后在其它文本框中输入其它来。其中的日期是系统当前的日期，它是不可以进行更改的,详细资料即可以。这里的添加操作用的是Adodc控件，所有的文本框在初始的时候没有同Adodc绑定，而是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。这样做在使用的时候有很大的方便之处。第一是窗体在初始化时不会显示任何记录，不用设置文本框 为空等一系列的操作。第二是当进行记录输入时，发现问题不用输入时，不按添加按钮记录否则会提示就不会进行添

52、加。注意的是，在添加前要确定所有的文本框都要进行详细填写, 输入详细信息。添加主要代码如下:If = "" Or = "" Or = "" Or = "” or = "” or = "” or = "” or = "” or ="”The nElseWith Adodcl(O).Value = .(1).Value = (2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(

53、8).Value =End WithSet = AdodclIf4.2学生违规学生违规记录图片显示图学生违规效果图此界面与上面的请假记录差不多。它主要是对学生的违规记录做一个添加。其中的日期 也是系统当前的日期， 它是不可以进行更改的， 然后在其它文本框中输入其它详细资料即可以这里的违规操作用的也是Adodc控件，所有的文本框在初始的时候也没有同Adodc绑定,它也是在代码中与数据库中表的字段进行的绑定,然后进行添加操作。其它操作同上面基本是一致的， 对于违规在主界面的左侧并没有快速显示操作，只可以用记录查看里面的违规查看进行选择查看。 在这里所添写的记录也要全面一些， 主要是为了以后查找更为

54、方便， 如果 不全，系统会提示的！ 违规部分代码如下： 在 load 事件里对数据库链接的处理，以及日期文本框的设置，代码如下：provider = "provider=" datasource = "data source=" & & ""With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdTable .RecordSource

55、= "qingjia" .RefreshEnd With = Date = False确定无误后，进行添加，代码如下：If = "" Or = "" Or = "" Or = "" Or = "" Or = "" Or = "" Or = "" Or = ""ThenMsgBox " 请输入详细信息！ ", , " 系统提示 "ElseWith Adodc1

56、.(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value =End WithSet = Adodc1五、信息查看.CommandType = adCmdText.RecordSource = s显示符合条件的记录。 这记录查看可以让你对已录入的记录进行各种符合条件的查找， 里主要包括四个方面的查看：卫生查看、请假查看、违规查看、资产查看。下面分别介绍。在记录查看中还有其它三项查看方式，分别是请假、违规、资产三项记录查看。它们

57、 的实现方法与窗体与上面的卫生查看基本相同。请假查看图请假查看效果图用它可以对当前所有记录以及有效日期内的记录进行查看。代码如下：Dim sql As StringDim s As StringIf = True ThenSet = Adodc1= True Then日期 ='" & Trim(s) & "'"sql = "select * from qingjia whereWith Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & "" & datasource .CommandType = adCmdText .RecordSource = sql .RefreshEnd WithSet = Adodc3IfUnload Me在窗体的 load 中要设置已经添加的日期，需要对表进行条件查询，代码如下：s = "select distinct日期 from qingjia"With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider & "" & d