|
以下是引用片段：
Private Sub Form_Resize()
'动态改变当前窗体的布局和控件内容
Call FormFace(Me, TopPicture, KKShape)
Call TopCaption(Me.TopPicture, Label2.Caption)
Me.ddd.Move 0, Me.ddd.Top, Me.Width, Me.Height - Me.ddd.Top
End Sub
Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'准备窗体移动标志
intOldX = X
intOldy = Y
boolMouseFlag = True
End Sub
Private Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'存储窗提议动前的left,top
Dim intLeft, intTop As Integer
intLeft = Me.Left
intTop = Me.Top
If Me.WindowState = 2 Then Exit Sub
If boolMouseFlag = True Then
Me.Left = intLeft + (X - intOldX)
Me.Top = intTop + (Y - intOldy)
End If
End Sub
Private Sub TopPicture_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'还原当前的窗体移动标志
boolMouseFlag = False
End Sub
Public Sub UpdateList()
'显示列表的样式和表头
'通过检索数据库找出符合当前条件的记录显示在列表中
'1
Dim arrName()
arrName = Array("采购代码", "采购日期", "供应商名称", "总数量", "总金额", "记录人", "备注")
Dim arrColwidth()
arrColwidth = Array(0, 3000, 3000, 2500, 2000, 2000, 3000)
ddd.Cols = 7
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 27
'2
Call UpdateDDD(ddd, ExecSql("select cgid, cgrq, khmc, zsl, zje,jlr, bz from cgdj order by cgrq desc "))
End Sub
Private Sub UserControl11_Click()
Call UpdateList
End Sub
Private Sub UserControl13_Click()
'关闭窗体
Unload Me
End Sub
|