VB--03

1.点按钮时执行想要的语句

'示例：点Command1按钮时，执行打开MainForm窗口的动作
Private Sub Command1_Click()
MainForm.Show 1
End Sub

2.VSFlexGrid 控件，实现动态加载列
（功能涉及到很多个表格界面，但是我们可以通过这一个控件来实现）

'假如有3个界面，我们用动态加载列 的方法实现：
Private Function Load1()
Dim rs As Object, StrSql As String
VSFlexGrid1.Rows = 1
VSFlexGrid1.FixedRows = 1
VSFlexGrid1.Cols = 1
VSFlexGrid1.FixedCols = 1
VSFlexGrid1.TextMatrix(0, 0) = "序号1"
 
StrSql = " select  1  as AAA"
Set rs = GetData(StrSql) '获取数据
 If Not rs.EOF Then    
     VSFlexGrid1.Rows = 1
     Do While Not rs.EOF        
         VSFlexGrid1.TextMatrix(VSFlexGrid1.Rows - 1, 1) = rs(0)
     rs.MoveNext
     Loop
 End If
End Function

Private Function Load2()
Dim rs As Object, StrSql As String
VSFlexGrid1.Rows = 1
VSFlexGrid1.FixedRows = 1
VSFlexGrid1.Cols = 1
VSFlexGrid1.FixedCols = 1
VSFlexGrid1.TextMatrix(0, 0) = "序号2"
 
StrSql = " select  1  as BBB"
Set rs = GetData(StrSql) '获取数据
 If Not rs.EOF Then    
     VSFlexGrid1.Rows = 1
     Do While Not rs.EOF        
         VSFlexGrid1.TextMatrix(VSFlexGrid1.Rows - 1, 1) = rs(0)
     rs.MoveNext
     Loop
 End If
End Function
Private Function Load3()
Dim rs As Object, StrSql As String
VSFlexGrid1.Rows = 1
VSFlexGrid1.FixedRows = 1
VSFlexGrid1.Cols = 1
VSFlexGrid1.FixedCols = 1
VSFlexGrid1.TextMatrix(0, 0) = "序号3"
 
StrSql = " select  1  as CCC"
Set rs = GetData(StrSql) '获取数据
 If Not rs.EOF Then    
     VSFlexGrid1.Rows = 1
     Do While Not rs.EOF        
         VSFlexGrid1.TextMatrix(VSFlexGrid1.Rows - 1, 1) = rs(0)
     rs.MoveNext
     Loop
 End If
End Function

3.提示框

MsgBox "我就展示一下明细", vbOKOnly, "K/3提示"

4.关于时间：（此处暂不展示GetCurrentYear()方法、GetCurrentPeriod()方法）
当期第一天：当前年度-当前期间-01

GetFirstDate = GetCurrentYear() & "-" & GetCurrentPeriod() & "-01"

当期最后一天：当期的月末=（获取该日期的前一天（获取当前日期的后1个月））

'示例：
GetLastDate = DateAdd("d", -1, DateAdd("m", 1, GetFirstDate()))
' 当期的月末=（获取该日期的前一天（获取当前日期的后1个月））

关于该函数的讲解：DateAdd(interval, number, date)
– – DateAdd 函数 ：返回已添加指定时间间隔的日期。 – –
参数
interval ：必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。

number ：必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。

date ：必选项。Variant 或要添加 interval 的表示日期的文字。

设置 ：interval 参数可以有以下值：
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒

'示例：
GetLastDate = DateAdd("d", -1, DateAdd("m", 1, GetFirstDate()))
' 当期的月末=（获取该日期的前一天（获取当前日期的后1个月））