机房收费总结
来源:互联网 发布:安卓模拟器对比 知乎 编辑:程序博客网 时间:2024/05/16 08:42
格式:setParent 你要显示的子窗体名称.hWnd, MDI窗体(即你的MDI窗体名称).hWnd
在这里我要把它改成
SetParent frmStudent.hWnd,Picture.hWnd
就ok了
3,日期类型(隔天时差)
用time(0)那么就是21:32:00时间
用datetime2(0)就是2013/9/15 21:32:00既有日期又有时间
intTime = DateDiff("n", datetime, now)这样时间差就不会错了
4,MSHFlexGrid控件
MSHFlexGrid控件主要是用于表显示查询到数据库的信息,
在”工程“菜单中,选择”部件“,出现部件对话框
在控件选项卡中,选择Microsoft Hierarchical FlexGrid Control6.0,然后单击确定,MSHFlexGrid控件被添加到工具箱中
在工具箱中,单击MSGFlexGrid控件,然后将其拖到窗体上。
还有怎么删除控件中指定的记录,这个我之前写过一篇博客,这里就不多说了
5,导出Excel表
Dim xlapp As Excel.Application 'excel应用程序Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet '工作表Set xlapp = New Excel.Application Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets.Add Dim row As Integer '行 Dim col As Integer '列 '导出为excel表 With MSHFlexGrid1 For row = 0 To .Rows - 1 For col = 0 To .Cols - 1 xlsheet.Cells(row + 1, col + 1).Value = .TextMatrix(row, col) Next col Next row End With xlapp.Visible = True
6,结账
结账窗体要用到SSTab控件
在 工程→部件→控件 中勾选“Microsoft Tabbed Dialog Control”控件,点击应用
SSTab控件提供了一组选项卡,每个都充当一个容器,包含了其他的控件。控件中每次只有一个选项卡是活动的,给用户提供了其所包含的控件,而其他选项卡都是隐藏的。
再说结账,这一直是我很头疼的一个地方,一直整的不是很明白,大概就是,结账就是按照一定条件选择出来的卖了多少卡,退了多少卡,冲了多少钱,退了多少钱,收了多少钱,这个账单汇总一下。
7,报表
从一听说这个东西就一直有一种恐惧,不知道是个什么东西,只知道它是后面会用到,终于在做了日报表,周报表后明白了。
vb中有报表设计器,但是我感觉好像很麻烦,就用了Grid++Report 报表设计器,具体过程我是参考别人的博客写的。
http://blog.csdn.net/wlccomeon/article/details/8269917
9,组合查询
这个问题也是学习的别人的博客
txtSQL1 = "select * from online_info where" & " " & fieldName(Combo1.Text) & Combo4.Text & " '" & Text1 & "'" txtSQL2 = "select * from online_info where" & " " & fieldName(Combo1.Text) & Combo4.Text & "'" & Text1.Text & "'" & " " & fieldName(Combo7.Text) & " " & fieldName(Combo2.Text) & Combo5.Text & "'" & Text2 & "'" txtSQL3 = "select * from online_info where" & " " & fieldName(Combo1.Text) & Combo4.Text & "'" & Text1.Text & "'" & " " & fieldName(Combo7.Text) & " " & fieldName(Combo2.Text) & Combo5.Text & "'" & Text2.Text & "'" & " " & fieldName(Combo8.Text) & " " & _ fieldName(Combo3.Text) & Combo6.Text & "'" & Text3 & "'" MSHFlexGrid1.Clear '先清除 '按条件有三种查询 If Not Testtxt(Combo7.Text) Then txtSQL = txtSQL1 Else If Not Testtxt(Combo2.Text) Or Not Testtxt(Combo5.Text) Or Not Testtxt(Text2.Text) Then MsgBox "请输入完整的查询条件", vbOKOnly + vbExclamation, "提示" Else If Not Testtxt(Combo8.Text) Then txtSQL = txtSQL2 Else If Not Testtxt(Combo3.Text) Or Not Testtxt(Combo6.Text) Or Not Testtxt(Text3.Text) Then MsgBox "请输入完整的查询条件", vbOKOnly + vbExclamation, "提示" Else txtSQL = txtSQL3 End If End If End If End If
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费重构版总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- 机房收费系统总结
- svn无法预料的错误
- Unity发布android在小米2/2A闪退的原因之一
- Oracle_JOB参数详解
- Ubuntu下禁用触摸板
- JavaScript自定义数组排序
- 机房收费总结
- STM32F4学习(六)——LCD显示
- 第六章--高级字符驱动程序操作
- 如何切换eclipse中svn用户
- 题目1118:数制转换
- Medoo Has的使用:判断根据查询条件得出的值是否存在
- ExtJs日期控件案例(可控制时间的选择)
- POJ1306 Combinations
- LeetCode题目:Unique Binary Search Trees,一维动态规划