代码搜索结果
找到约 10,000 项符合
U 的代码
u_main.~pas
unit U_Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, XPStyleActnCtrls, ActnList, ActnMan,strutils;
t
u_main.dfm
object Frm_main: TFrm_main
Left = 219
Top = 174
BorderStyle = bsNone
Caption = 'Frm_main'
ClientHeight = 533
ClientWidth = 642
Color = clWhite
TransparentColorValue = clWhite
u_data.~pas
unit U_data;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TData = class(TDataModule)
G_Con: TADOConnection;
G_Rst: TADOQuery;
private
{ Private declarations }
u_card.~pas
unit U_Card;
{* 作者：肖景峰
*开发时间：2005-10-30
*模块作用：对读卡器进行处理
}
interface
{1} //打开设备，进行口令验正
function Open_Card():Boolean;
{2} // 关闭设备
function CLose_Card():boolean;
u_card.pas
unit U_Card;
{* 作者：肖景峰
*开发时间：2005-10-30
*模块作用：对读卡器进行处理
}
interface
{1} //打开设备，进行口令验正
function Open_Card():Boolean;
{2} // 关闭设备
function CLose_Card():boolean;
u_data.~dfm
object Data: TData
OldCreateOrder = False
Left = 632
Top = 282
Height = 150
Width = 215
object G_Con: TADOConnection
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left =
u_data.pas
unit U_data;
interface
uses
SysUtils, Classes, DB, ADODB,u_public_define;
type
TData = class(TDataModule)
G_Con: TADOConnection;
G_Rst: TADOQuery;
private
{ Private de