代码搜索: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 表存在,则...
'