机房收费系统总结(一)

前端之家收集整理的这篇文章主要介绍了机房收费系统总结(一)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

VB及其控件的运用更加娴熟

设计机房的过程中,反复练习了对VB控件的使用,例如;SStab、Combo、FlexGrid等。往小的说,避免输入其他字符,combo的Styl设置成2-Dropdown List;避免text输入超出内存,设置MaxLength的上限数值等等,往大的看,SStab控件,SStab.Tab=n设置第n个选项卡运行的代码;FlexGrid控件,把查询到的内容写入到表里,而且不能重复添加。经过了这次项目的锻炼,对这些控件运用起来更加的娴熟了,不过仍然有问题困惑着我,计算机语言探索的空间还很大,有困惑的牵引,才有不断探索的源动力!

这里对Flexgrid控件做一个简单的说明,拿“添加删除用户”来说吧!

在窗体加载的时候更新表头名

With FlexGrid
    .TextMatrix(0,0) = "用户名"
    .TextMatrix(0,1) = "姓名"
    .TextMatrix(0,2) = "开户人"
End With
查询语句这里不做展示了,下面是写入表的代码

    With FlexGrid
        .Rows = 1
        .CellAlignment = 4
        
        Do While Not mrc.EOF
            With FlexGrid
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1,0) = Trim(mrc.Fields(0))
            .TextMatrix(.Rows - 1,1) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1,2) = Trim(mrc.Fields(4))
            mrc.MoveNext
            End With
        Loop
    End with

猜你在找的VB相关文章