代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/284294/8949388
~pas connectform.~pas
unit ConnectForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrmConnect = class(TForm)
lblConnectInfo: TLabel;
p
www.eeworm.com/read/284294/8949668
pas unit1.pas
//***********************************************
//云台程序主界面单元
//***********************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, G
www.eeworm.com/read/284294/8949724
~pas unit1.~pas
//***********************************************
//云台程序主界面单元
//***********************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, G
www.eeworm.com/read/186183/8954531
bas smart.bas
Attribute VB_Name = "modSmart"
Declare Function PowerOn Lib "smartdll2.dll" () As Integer
Declare Function PowerOff Lib "smartdll2.dll" () As Integer
Declare Function OpenComm Lib "smartdll2.d
www.eeworm.com/read/186183/8954582
frm frmchange.frm
VERSION 5.00
Begin VB.Form frmChange
BorderStyle = 3 'Fixed Dialog
Caption = "调换班"
ClientHeight = 4335
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/186183/8954595
bas modprint.bas
Attribute VB_Name = "modPrint"
Option Explicit
Private Const ColDistance = 400
Private Const RowDistance = 150
Private Totalwidth As Long
Private FixedX As Long
Private FixedY As Long
Private L
www.eeworm.com/read/186183/8954631
frm frmlookman.frm
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmLookMan
BorderStyle = 3 'Fixed Dialog
Caption = "查找员工"
ClientHeigh
www.eeworm.com/read/284129/8964360
bas dbfunc.bas
Attribute VB_Name = "DBfunc"
Public Declare Function SQLAllocEnv Lib "odbc32.dll" (phenv&) As Integer
Public Declare Function SQLAllocConnect Lib "odbc32.dll" (ByVal Henv&, phdbcd&) As Integer
Publ
www.eeworm.com/read/284126/8964678
bas fun.bas
Attribute VB_Name = "disFun"
Public Function cosDis(dataArrRow As Integer, dataArrCol As Integer, dataArr() As Double, cArr() As Double)
Dim i As Integer, j As Integer, m As Integer
Dim tmp
www.eeworm.com/read/284043/8969264
frm frmvkform.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmvkform
AutoRedraw = -1 'True
Caption = "产生垂向渗透率值"
ClientHeight