checkcardform.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit CheckCardForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DialogBaseForm, StdCtrls, Buttons, ExtCtrls;

type
  TfrmCheckCard = class(TfrmDialogBase)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edtCardNum: TEdit;
    edtCardType: TEdit;
    edtEnterTime: TEdit;
    edtLeaveTime: TEdit;
    edtEnterAddr: TEdit;
    edtLeaveAddr: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCheckCard: TfrmCheckCard;

implementation

{$R *.DFM}

end.