代码搜索:integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/354597/10343327
txt border.txt
BORDER [DUAL MODE, NOT WINDOW COMPATIBLE]
NAME BORDER - changes the border color.
SYNTAX
border
[BLACK|RED|GREEN|YELLOW|BLUE|MA
www.eeworm.com/read/425624/10343925
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain '程序主窗体
Public UserName As String '用户名
Public PWD As String '用户密码
Public CONN As String '数据库连接字符串
Public gintSmode As Integer '用于舱位信
www.eeworm.com/read/280235/10344072
bas module1.bas
Attribute VB_Name = "Mdl_Public"
'定义全局标量用于连接数据库
Public DBCnn As New ADODB.Connection
'定义全局变量UserNow为UserType类型
Public UserNow As UserType
'自定义用户类型
Type UserType
ID As String '用户ID
www.eeworm.com/read/425592/10345347
bas apideclarations.bas
Attribute VB_Name = "ApiDeclarations"
'******************************************************************************
'API constants, listed alphabetically
'****************************************
www.eeworm.com/read/280156/10351628
cls myvbdll.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 2 'vbComplexBound
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnM
www.eeworm.com/read/354462/10353921
pas syspublictmp.pas
unit SysPublicTmp;
interface
uses Windows;
implementation
end.
{
动画显示窗体
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle,2000{速度:2秒}//,AW_BLEND);
{ AW_HOR_P
www.eeworm.com/read/425425/10357676
bas module1.bas
Attribute VB_Name = "Module1"
Public CN As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strLook As String ''查看的表名
Public UserName As String '用户名称
Public CurrentIndex As Integer ''
www.eeworm.com/read/161857/10360616
frm frmodbclogon.frm
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Begin VB.Form frmODBCLogon
BorderStyle = 3 'Fixed Dialog
Caption = "数据连接信息"
ClientH
www.eeworm.com/read/161850/10361943
bas module1.bas
Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft
www.eeworm.com/read/425254/10366930
bas gps.bas
Attribute VB_Name = "GPS"
Option Explicit
Const GPS_MaxDeviceName = 257
Const GpsQualityFixNotAvailable = 0
Const GpsQualityFix = 1
Const GpsQualityDifferentialFix = 2
Const GpsParityNone