高校固定资产管理系统论文

高校固定资产管理系统论文内容摘要：

的颜色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。 HE0E0E0 = amp。 HE0E0E0 = amp。 H808080 = amp。 H808080 = True = True = True 25 = True End Sub (2) 用户类型判断 在数据库中建了一人 yonghu表。 在添加管理人员时有两种默认级别。 管理员、普通用户。 管理员拥有对数据库操作的一切权限。 普通用户只有普通的查看，数据 转换等。 没有删除等操作功能。 前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。 主要代码如下： 设置当前控件连接的数据库 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh . End With 对用户进行判断 If = Then MsgBox 请输入用户名 !, 48, 提示 Exit Sub End If 用户 =39。 amp。 amp。 39。 If = False And = Trim((pass)) Then = (级别 ) 26 = (用户 ) Unload Me Else = = MsgBox 登录不成 功 ,请重新登录 !, 48, 提示 End If 程序主界面 程序主界面为本软件的显示的核心部分。 一切主要操作及显示都通过这里完成。 整个界面主要由五部分组成。 菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。 ① 界面效果图如下： 图 27 菜单栏的详见附录内容，这里就不提了。 左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。 工具栏主要是由 coolbar制作而成。 由它制做的工具栏的显示效果会更有立体感一些。 这里只列出了几个常用的按钮。 其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。 在这里值得一提的是删除 DataGrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的 adodc1的数据源，或者是其它 ado控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。 ②它的实现方法如下所示： Dim o As Adodc Set o = 这里主要是用到了 ado对像的方法。 用这个方法得到数据源。 下面是整个工具栏运行时代码： Select Case Case 1 1 Case 3 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = If = users Then 1 End If next2: 28 Case 7 On Error Resume Next Dim o As Adodc Set o = Case 9 1 Case 11 With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 .Refresh End With Set = Adodc1 Call dx Case 13 Unload Me End Select 状态栏分四个部分。 第一个为固定显示当前所用软件名称及作者。 其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。 由上图可以看出， lf为本软件管理员。 第四部分为日期与时间的显示。 其中第三部分的代码实现如下： = (级别 ) = (用户 ) (2).Text = 当前用户： amp。 (3).Text = 用户模式： amp。 29 (4).Text = Date amp。 amp。 Time 39。 设置普通用户模式 If = 普通用户 Then = False = False = False = False (5).Visible = False (6).Visible = False (7).Visible = False (8).Visible = False End If 主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变，这里需要在窗体的 Resize事件中添加代码，让程序中用到的各个控件随时可以适应窗体改变后的大小，在这里改变的控件主要有DataGrid、 TreeView 系列及 Frame 控件、 StatusBar。 下面就是设置它 们大小的程序代码： = = 750 = 750 = 1200 = 1200 = 1200 = 1500 30 = 1500 = 1500 Y = x = (Y z) / 4 (1).Width = u + x (2).Width = v + x (3).Width = w + x (4).Width = m + x 这个软件的主要部分都在这里运行、查看，所以在主窗体的 load事件里要把所用的到的东西都要加载进来，例如所在程序运行时所用到的表，左侧 treeview部分树形显示的初始化。 在这里几乎用到了所有的表，如下所示： provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 .Refresh End With With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh 31 End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = class .Refresh End With With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource End With With Adodc6 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = dengji .Refresh End With 32 With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = qinshi .Refresh End With With Adodc9 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview部分树形显示的初始化在这里已经做了几个过程，调用即可。 系统设置 用户管理 ①界面效果图 33 图 ② 界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的 操作，它已经连接到了数据库，与数据库的 yonghu表相联。 各个控件也与数据库中表的字段绑定。 在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。 设置代码如下： Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh 34 End With = False = False If = 0 Then = False = False = False = False End If = 上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。 当找到记录后，可以对其进行相对的删除、修改等操作。 上一条记录与下一条的记录在查看时有一个判断。 当表中记录移到最前面（ BOF）或最后面（ EOF）时，会把上一条或下一条其中的一个按钮的 enable属性设置为 true。 即不可以前查看或向后查看。 上一条与下一条主要代码如下： 39。 移动记录 = True If Then = False End If 39。 移动记录 = True If Then = False End If 添加用户可以添加使用该管理软件的用户。 添加的时候可以选择所添加人物的 级别。 软件默认为两个级别：管理员、普通用户。 管理员拥有对 35 此软件管理操作等一切的权力。 普通用户，只有普通的查看、查询、备份、添加等权力。 没有对记录删除等权力。 在添加用户时你可以选择一个且必须选择一个。 然后输入此用户的用户名和密码即可。 添加用户主要代码： If = 添加 Then = False = False = False = 确定 = 取消 = True = True = True = True = True = ElseIf = Then MsgBox 用户名不能为空。 , 48, 提示 ElseIf = Then MsgBox 密码不能为空。 , 48, 提示 ElseIf Then MsgBox 密码两次需一致。 , 48, 提示 ElseIf = Then MsgBox 请选择所建用户类型。 , 48, 提示 Else = True = True = True = True 36 = 编辑 = 添加 = False = False = False = False = False = False = False = False End If 删除操作可以把。