医院信息管理系统论文

保定科技职业学院论文设计

name Frmmain caption startuppositon statusbar name Panels( 1 ) Panels( 2 ) Panels( 3 )

用户管理界面

frmmain 门诊收费管理系统 centerscreen statusbar1 XbrText SrDate SbrTime

此界面为本系统中，较常用的一种界面结构。主要由最上方的工具条，中间的现有数据显示区及下方的新增内容区。

在系统细节，主要采用了一个ADO.recordset对象，当增加保存时，使用了其addnew及post方法；当删除某一行数据时，使用了其Delete,post方法。

用户管理窗体的界面如下图示

窗体用一个表格控件msf1exgrid,一个工具条控件too1bar,两个标签控件table组成。各控件的属性如下表

用户管理窗体中各个控件的属性设置 控件 Form 属性 name caption 属性取值 Frm用户管理 用户管理

第21 页

保定科技职业学院论文设计

startUpPositon Too1bar Name Appeatance Borderstyle Index 1 Index 2 Index 3 Index 4 MSFlexridg Lable1 Lable2

主要实现代码如下: Private Sub Form_Load()

Name 滚动条（ S ） 选定模式（ M ） Caption Caption CenterScreen Too1bar1 1-3D 1-ccfixedSngle 增加 删除 修改 退出 Datagrid 3-Both 1-By Row 用户名 密码 允许用户调整大小（ U ） 3-Both Call ExcuteSql(rec_user, \Call ShowInfo(rec_user, flexb) End Sub

Public Sub ShowInfo(ByVal rs As ADODB.Recordset, ByVal searchList As MSHFlexGrid)

On Error Resume Next Dim SumFields, i, j

SumFields = rs.Fields.Count '该表的字段总数

searchList.Clear '清空列表，防止增加或修改调用时重复显示 'searchList.BackColor = &HC0FFFF '设置网格背景颜色 searchList.Cols = SumFields '设置网格列数 searchList.Row = 0 With searchList

.FillStyle = flexFillSingle '.ScrollTrack = True

'.AllowUserResizing = flexResizeColumns .FixedRows = 1 .FixedCols = 0

.SelectionMode = flexSelectionByRow

第22 页

保定科技职业学院论文设计

End With

'设置第一行的各列标题 For i = 0 To SumFields - 1 searchList.Col = i

searchList.TextMatrix(0, i) = rs.Fields(i).Name searchList.ColAlignmentFixed(i) = 3 'searchList.BackColor = &H8000000F Next i

'设置第一行的各列标题文字格式 For i = 0 To SumFields - 1 searchList.Col = i

searchList.CellAlignment = 4 ' searchList.CellFontBold = True 'searchList.CellForeColor = vbBlue

j = TextWidth(rs.Fields(i).DefinedSize) * 8

'设置标题宽度，防止部分长文字不显示 If j > searchList.ColWidth(i) Then searchList.ColWidth(i) = j End If Next i

'循环开始--显示所有符合条件记录

rs.MoveLast

searchList.Rows = rs.RecordCount + 1 '其中标题占一行

rs.MoveFirst

searchList.Row = 0

While Not rs.EOF

第23 页

保定科技职业学院论文设计

searchList.Row = searchList.Row + 1 '增加一行，用于写入内容

For i = 0 To SumFields - 1 searchList.Col = i

If searchList.Col = 0 Then

searchList.CellBackColor = &H8000000F End If

searchList.CellAlignment = 4 '读入内容

If Not IsNull(rs.Fields(i).Value) Then searchList.Text = rs.Fields(i).Value Else

searchList.Text = \ End If Next i

rs.MoveNext Wend

'循环结束--显示所有符合条件记录 End Sub

Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case \

Call Form3.setType(\ Form3.Show vbModal Case \

Call Form3.setType(\ Form3.Show vbModal

Case \ Unload Me

Case \ rec_user.Delete

第24 页