代码搜索结果
找到约 10,000 项符合
U 的代码
bfsjk_u.pas
unit bfsjk_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
Tfrm_bfsjk = class(TForm)
Label1: TLabel
logo_u.pas
unit logo_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
Tlogo = class(TForm)
img: TImage;
Timer
bfsjk_u.dfm
object frm_bfsjk: Tfrm_bfsjk
Left = 0
Top = 0
Caption = #22791#20221#25968#25454#24211
ClientHeight = 206
ClientWidth = 339
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.C
xgmm_u.dfm
object frm_xgmm: Tfrm_xgmm
Left = 0
Top = 0
Caption = #20462#25913#23494#30721
ClientHeight = 206
ClientWidth = 339
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = c
logo_u.dfm
object logo: Tlogo
Left = 321
Top = 185
AutoSize = True
BorderStyle = bsNone
Caption = #24352#23478#30028#24179#23433#39550#26657#31649#29702#31995#32479
ClientHeight = 300
Client
hfsjk_u.pas
unit hfsjk_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, FileCtrl;
type
Tfrm_hfsjk = class(TForm)
grxx_u.pas
unit grxx_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, Mask, DBCtrls, ADODB, Buttons, ExtCtrls, ExtDlgs,StrUtils;
sfsb_u.dfm
object frm_sfsb: Tfrm_sfsb
Left = 312
Top = 284
Caption = #24352#23478#30028#24066#29305#31181#34892#19994#20154#21592#30331#35760#31995#32479
ClientHeight = 374
ClientWidth = 544
Co
hfsjk_u.dfm
object frm_hfsjk: Tfrm_hfsjk
Left = 0
Top = 0
Caption = #24674#22797#25968#25454#24211
ClientHeight = 227
ClientWidth = 351
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.C
public_u.pas
unit public_u;
interface
uses
Windows,Dialogs, SysUtils;
var
cardtype_str_v:string;
com_num,cardtype_num_v:integer;
function openport():integer;
function cardtype_num(cardtype_str