代码搜索:bas

找到约 10,000 项符合「bas」的源代码

代码结果 10,000
www.eeworm.com/read/305727/13762573

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在,则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在,则... '
www.eeworm.com/read/127882/5993522

bas-

Attribute VB_Name = "bas通讯" '***************************************** ' 主模块 ' 模块文件代码 '***************************************** Option Explicit '以下为全局变量 Pu
www.eeworm.com/read/490153/6459704

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在,则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在,则... '
www.eeworm.com/read/485201/6567442

bas 定义.bas

Attribute VB_Name = "Module1" Global ROW_OUT As Double '确定输出行 Global Cac_D As Integer '计算是两桩点之间的距离 Global File_Path As String Global Project_Name As String '工程名称 Global Caculaters As Stri
www.eeworm.com/read/409746/11314852

bas 捆绑.bas

Attribute VB_Name = "Module1" Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillisecon
www.eeworm.com/read/158142/11642175

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在,则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在,则... '
www.eeworm.com/read/154899/11919810

bas 过程.bas

Attribute VB_Name = "Module2" '1 列表框、复选框初始化, 在列表框、复选框中动态显示相关内容 Public Sub listinitial(ByVal s As String, ByVal list As Object) Dim sql As String Dim rs As ADODB.Recordset Select
www.eeworm.com/read/154899/11919867

bas 函数.bas

Attribute VB_Name = "Module1" Public yhm As String '用户名 Public xm As String '姓名 Public mm As String '密码 Public yhsf As String '用户身份 '记录集函数,用来执行sql 语句,返回一个记录集 Public Function exesql(ByVal sql
www.eeworm.com/read/252808/12262187

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在,则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在,则... '
www.eeworm.com/read/129736/14230157

bas 备份.bas

Attribute VB_Name = "备份" ' ' If getDB Then '如果 weboy 数据库存在,则... ' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在,则... '