代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/482126/6628309
pas formpu.pas
unit FormpU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, StdCtrls, ExtCtrls;
type
TFormp = class(TForm)
Panel1: TPanel;
www.eeworm.com/read/480689/6659914
pas datamu.pas
unit DataMU;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataM = class(TDataModule)
ADOCon: TADOConnection;
private
{ Private declarations }
public
{ Public
www.eeworm.com/read/480689/6659916
pas config.pas
unit config;
interface
uses
SysUtils,forms;
type
TXQWYConfig=class //定义连接管理类
public
class function getConnectionStr:string; //定义类的方法，得到连接字符串
end;
implementation
class function
www.eeworm.com/read/480737/6661107
pas testbarcode.pas
unit TestBarCode;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, ppPrnabl, ppClass,
ppCtrls, p
www.eeworm.com/read/480050/6675941
pas frmqrydata.pas
unit frmQrydata;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TQrydataFm = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
end
www.eeworm.com/read/479660/6690069
dpr jmdll.dpr
library JMDll;
uses
SysUtils, Classes, Forms;
{$R *.res}
procedure pTestPassword(AHandle : THandle;Password : String); stdcall;
begin
Application.Handle := AHandle;
if Password '
www.eeworm.com/read/479028/6697713
pas 11.12.pas
Program Project1;
uses Classes,Dialogs,SysUtils;
{$APPTYPE CONSOLE}
var
F:TextFile;
S:String;
Begin
AssignFile(F，'F1.TXT');
try
reset(F);
try
readln(F,s);
finally
www.eeworm.com/read/479028/6697716
pas 11.1.pas
program Project1;
{$APPTYPE CONSOLE}//uses SysUtils;
var
str:string;
begin
//Insert user code here writeln('您好,这是一个示范程序，请输入一行文字: '); readln(str);writeln('您输入的是: ',str);
readln;
end.
www.eeworm.com/read/478121/6720440
pas udata.pas
unit uData;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TdmPer = class(TDataModule)
acPer: TADOConnection;
private
{ Private declarations }
public
{ Public de
www.eeworm.com/read/478121/6720443
pas upublic.pas
unit uPublic;
interface
uses
classes, comctrls, registry,Sysutils,windows,Printers,Dialogs;
Const
UserIDLength = 10; //借书人号为10位
CodeLength = 10; //书号为10位
GroupID