2019年09月_Grace-tt

原创《你只是看起来很努力》

《你只是看起来很努力》最近读完了里李尚龙的《你只是看起来很努力》，这是第一次读李尚龙的书，他的行文风格和那种鸡汤文不同，将自己的经历和身边朋友的经历娓娓道来，告诉我们在追求成功的道路上，努力是必不可少的。然而，并不是所有的努力都会有所回报。很多人一直在努力，却依旧收效甚微，因为他们不懂得，付出是为了有所收获，而不是为了得到一句“你已经很努力了”的嘉奖。很多人看似勤奋，其实很...

2019-09-21 17:56:27 645 27

原创导出为excel无法引用解决方法

引用的时候没有上述选项解决方法：1.点击浏览（工程-引用）2.查找范围为excel所在的位置，文件名为EXCEL.EXE，文件类型选择所有文件这样操作之后在引用就可以了...

2019-09-05 14:40:17 1409 12

原创机房收费系统之收取金额和退还金额查询

流程图代码实现Private Sub cmdexport_Click() Call ExportToExcel(MSFlexGrid1)End SubPrivate Sub cmdinquery_Click() Dim txtsql, msgtext As String Dim mrc As Adodb.Recordset '判断起始日期是否小...

2019-09-05 14:35:50 332 13

原创如何将MSFlexGrid表格数据导出为Excel

1.引用2.在模块中编写代码Public Function ExportToExcel(msflexgrid As msflexgrid) Dim xlapp As Excel.Application '定义excel类 Dim xlbook As Excel.Workbook '定义工作簿类 Dim xlsheet As Excel.Worksheet '定义工...

2019-09-05 11:53:21 1029 11

原创机房之一般用户查询充值记录

流程图代码实现Private Sub cmdinquery_Click() Dim mrc As ADODB.Recordset Dim txtsql, msgtext As String '判断文本框是否为空 If testtxt(txtcardno.Text) = False Then MsgBox "请输入卡号！", 0 + 4...

2019-09-05 11:46:49 424 9

原创机房收费系统之充值窗体

流程图代码实现Private Sub cmdok_Click() Dim mrc As ADODB.Recordset Dim txtsql As String Dim msgtext As String Dim a As String Dim c As Date '判断是否输入卡号 If testtxt(txtcardno...

2019-09-03 20:31:36 257 10

原创机房之一般用户查询余额

流程图代码实现Private Sub cmdinquery_Click() Dim mrc As ADODB.Recordset Dim txtsql As String Dim msgtext As String '卡号输入不能为空 If testtxt(txtcardno.Text) = False Then MsgBox...

2019-09-03 17:33:00 265 13

醉挽~清风