outincalc.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 57 行

unit OutInCalc;

interface

uses Clipbrd,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, Db, ExtCtrls, ComCtrls,
  CodeEd, ADODB, ADOQry, ADOProcedure;

type
  TfrmOutInCalc = class(TForm)
    Label5: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    procCalc: TADOProcedure;
    dpTime0: TDateTimePicker;
    dpTime1: TDateTimePicker;
    Label1: TLabel;
    qryMach: TADOQry;
    qryMachnMach4: TIntegerField;
    qryMachnMach5: TIntegerField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOutInCalc: TfrmOutInCalc;

implementation

uses SelfFunc, Main;

{$R *.DFM}

procedure TfrmOutInCalc.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;

procedure TfrmOutInCalc.cmdOKClick(Sender: TObject);
var dDate0,dDate1 :TDatetime;
begin
	if dpDate1.Date <= dpDate0.Date then
    begin
    	MsgBox('叫块