代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/380237/9156770
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/380236/9156920
pas maclient.pas
unit MAClient;
interface
uses
SysUtils, Classes, Windows, Variants, ADODB, IdTCPClient, IdTCPConnection,
IdStack, MAConsts, MAClasses, MASocket, MADBIntf;
type
TMABatchState = (bsNon
www.eeworm.com/read/380236/9156959
~1~ maclient.pas.~1~
unit MAClient;
interface
uses
SysUtils, Classes, Windows, Variants, ADODB, IdTCPClient, IdTCPConnection,
IdStack, MAConsts, MAClasses, MASocket, MADBIntf;
type
TMABatchState = (bsNon
www.eeworm.com/read/380236/9156983
pas maclient.pas
unit MAClient;
interface
uses
SysUtils, Classes, Windows, Variants, ADODB, IdTCPClient, IdTCPConnection,
IdStack, MAConsts, MAClasses, MASocket, MADBIntf;
type
TMABatchState = (bsNon
www.eeworm.com/read/183484/9157289
frm frmabout.frm
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
ClientHeight = 2460
ClientLeft = 2310
ClientTop = 162
www.eeworm.com/read/183484/9157298
ctl optionbox.ctl
VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.UserControl OptionBox
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
ClientH
www.eeworm.com/read/183484/9157403
ctl radiobutton.ctl
VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.UserControl NiceOption
BackColor = &H00E0E0E0&
ClientHeight = 2250
ClientLeft
www.eeworm.com/read/183484/9157413
ctl groupbox.ctl
VERSION 5.00
Begin VB.UserControl GroupBox
Appearance = 0 'Flat
AutoRedraw = -1 'True
ClientHeight = 1335
ClientLeft = 0
ClientTop = 0
Cli
www.eeworm.com/read/183484/9157503
frm frmabout.frm
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2400
ClientLeft = 0
ClientTop = 0
ClientWidth
www.eeworm.com/read/183484/9157561
ctl checkbox.ctl
VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.UserControl NiceCheck
AccessKeys = "&H00C0C0FF&"
AutoRedraw = -1 'True
BackC