自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(5)
  • 收藏
  • 关注

原创 【机房管理】报表1

第一步,建立报表。插入页眉页脚、报表头、报表尾、明细网格点击设置数据源选择与自己相关的文件也可以从插入中点击明细列,明细字段或者综合文字框:是与VB连接而用到的一个文字框,(如我们作品展是用到的FLash 与 VB的交互)道理是一样一样的第三步编写代码:使

2017-11-26 16:29:49 689 38

原创 【机房管理】上下机

上机Private Sub cmdUp_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Dim mrcBasicData As ADODB.Recordset Dim mrcline As ADODB.Recordset Dim mrcca

2017-11-18 17:31:30 351 36

原创 EOF和BOF

BOF(before of file)是指记录集对象的指针指向第一个记录之前(不是第一条记录)。EOF(end of  file)是指记录指针指向最后一个记录之后(不是最后一条记录)。只有在上图中的情况下,BOF和EOF 他们才会 返回布尔值(True),否则返回(False),True为属性默认值。由于此时显示的记录不是表的第一条之前,更不是最后一条记

2017-11-09 21:10:46 597 30

原创 On Error Resume Next

On Error Resume Next这句话的意思是:发生错误时让程序继续执行下一句代码让我们来试一下Private Sub Form_Load()On Error Resume NextDebug.Print 1 / 0MsgBox "继续执行"End Sub若是将其注释掉后运行

2017-11-02 21:25:45 541 19

原创 QueryUnLoad->Unload->Terminate

Form_QueryUnload 是在关闭窗体前触发Form_Unload是在关闭窗体后触发当用户用“X”关闭或按ALT+F4关闭窗口时,Form_QueryUnload 事件先于Form_Unload事件发生,如果在Form_QueryUnload 指定Cancel=true从字面上理解的话,Form_Query

2017-11-01 19:55:22 949 16

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除