机房收费系统--小细节

1、MDI窗体不能显示子窗体问题

在类模块中定义

Public Declare Function Setparent Lib "User32" Alias "SetParent" (ByVal hwndChild As Long, ByVal hWndNewParent As Long) As Long
在MDI窗体中

Private Sub inquireline_Click()
frminquirelineinfo.Show
Call Setparent(frminquirelineinfo.hWnd, Picture1.hWnd)
'设置窗体大小
frminquirelineinfo.Height = 8000
frminquirelineinfo.Width = 7550
End Sub

2、怎么导出电脑名字

Text1.Text =trim(VBA.environ(“computername”))

3怎么计算两个时间差

Dim time1, time2 As String
Dim dd As Long
'给时间值赋值
time1 = txtondate(3).Text
time2 = txtofftime(4).Text
'计算时间差
dd = DateDiff("n", time1, time2)

4怎么计算数据库中有多少条记录

Text1.Text = Recordset.Fields("tcount").Value

5、myflexgrid的设置问题

    '设置某一列的宽度
    myflexgrid.ColWidth(2) = 1600
    '设置一列居中对齐
    myflexgrid.ColAlignment(1) = flexAlignCenterCenter
    '清除myflexgrid中的选中行
    myflexgrid.RemoveItem myflexgrid.RowSel

6、

'设置下拉列表框的默认值
Combo1.ListIndex = 0

7、添加数据库中的内容到下拉框中

'查询数据
txtSQL = "select*from gradecourse_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加内容到列表框中
For m = 1 To mrc.RecordCount
    comboGrade.AddItem mrc.Fields(0)
    mrc.MoveNext
Next