代码搜索：BAS

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

代码结果 10,000
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/286462/8763425

bas bas_treeview.bas

Attribute VB_Name = "Bas_Treeview" Public Declare Function CoCreateGuid Lib "ole32.dll" (pGUID As Any) As Long Public iFreeFile As Integer #If DebugMode Then Public g_lObjCount As L
·
www.eeworm.com/read/286462/8763427

bas bas_sysfunc.bas

Attribute VB_Name = "Bas_SysFunc" '系统共用 Public Sub DepartToCombo(combo As ComboBox) '部门信息导入combo Dim k As Variant On Error GoTo ErrMsg combo.Clear If rs.State = 1 Then rs.
·
www.eeworm.com/read/286462/8763433

bas bas_printinfo.bas

Attribute VB_Name = "Bas_PrintInfo" '打印模块 '单个班组打印 Public Sub Prt_DayPlan(f As Form, SDate As Date, Bumen As String, BanZu As String) Dim cx, cy, i As Integer cx = 0 cy = 0 Dim BL As Integ
·
www.eeworm.com/read/286462/8763436

bas bas_database.bas

Attribute VB_Name = "Bas_Database" Public Declare Function SkinH_Attach Lib "SkinH_VB6.dll" () As Long Public ConStr As String Public SQL As String Public DBConn As ADODB.Connection Public Lo
·
www.eeworm.com/read/286462/8763449

bas bas_operating.bas

Attribute VB_Name = "Bas_Operating" Public Function AssertNodeIsBanzu(banzu As String) As Boolean '判断子节点是一个部门 SQL = "Select * from 班组信息 where 班组名称='" & banzu & "' " If rstmp.State = 1 Then r
·
www.eeworm.com/read/286462/8763459

bas bas_createdayplan.bas

Attribute VB_Name = "Bas_CreateDayPlan" '模拟生成计划安排模块 '【 结束时间 = 开始时间 + 总共需要时间 + 休息时间 】 '【 开始时间 = 上道开始时间 + 休息时间 + 接受延时 】 '单个计划单的预安排 ================================================================
·
www.eeworm.com/read/286462/8763461

bas bas_func.bas

Attribute VB_Name = "Bas_Func" Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameter
·
www.eeworm.com/read/286462/8763478

bas bas_menuset.bas

Attribute VB_Name = "Bas_MenuSet" Option Explicit Type menuItemInfo cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpCh
·
www.eeworm.com/read/286462/8763485

bas bas_infotolistview.bas

Attribute VB_Name = "Bas_InfoToListview" Public Sub InfoToListview_ByDepartment(Lv As ListView, Bumen As String, BanZu As String, opDatetime As Date) Dim objLI As ListItem Lv.ListItems.Clea
·
www.eeworm.com/read/339791/12204262

bas bas1.bas

Attribute VB_Name = "Bas1" Option Explicit Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As An
·