宾馆管理信息系统论文

rix(0,8)=”是否有卫生间”
     .TextMatrix(0,9)=”房间单价”
     .FixedRows=1‘固定表头
     For i=0 To 9 ‘设置各列的对齐方式
         .ColAlignment(i)=0
     Next i
     .FillStyle=flexFillRepeat‘表头项居中
     .Col=0
     .Row=0
     .RowSel=1
     .ColSel=.Cols-1
     .CellAlignment=4
     .ColWidth(0)=300‘设置单元大小
     .ColWidth(1)=1000
     .ColWidth(2)=2000
     .ColWidth(3)=2000
     .ColWidth(4)=1000
     .ColWidth(5)=1000
     .ColWidth(6)=1000
     .ColWidth(7)=1000
     .ColWidth(8)=1000
     .ColWidth(9)=1000
     .Row=1
End With
End Sub
Private Sub ShowData()‘调用showData函数，显示记录列表
   Dim i As Integer
   Set mrc=ExecuteSQL(txtSQL,MsgText)‘根据需要设置SQL语句，显示需要的记录
   With msgList
   .Rows=1
   Do While Not mrc.EOF
       .Rows=Rows+1
    

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>