lssjll.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit lssjll;

interface

uses Windows, messages,SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Dialogs,RXCtrls, ComCtrls, RXSpin;

type
  TlssjllDlgform = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Panel2: TPanel;
    OKBtn: TLabel;
    BitBtn1: TBitBtn;
    CancelBtn: TBitBtn;
    edit1: TRxSpinEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lssjllDlgform: TlssjllDlgform;

implementation
uses menu;
{$R *.DFM}

procedure TlssjllDlgform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) and (ord(key)<>8) then
     key:=#0;
end;

procedure TlssjllDlgform.CancelBtnClick(Sender: TObject);
begin
  //mrCancel.ModalResult:=mrCancel;
end;

procedure TlssjllDlgform.OKBtnClick(Sender: TObject);
begin
 // if edit1.text='' then
   // okbtn.ModalResult :=mrcancel
 // else
   // okbtn.modalresult:=mrok;
end;

procedure TlssjllDlgform.FormShow(Sender: TObject);
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  height:=135;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=250;//nd( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=171;//round((screen.Width-Width)/2);
  top:=162;//round((screen.height-self.height)/2);
  end
  else
  begin
  self.Height:=135;
  self.Width:=234;
  end;
end;

procedure TlssjllDlgform.FormActivate(Sender: TObject);
var year:string;
begin
edit1.Text:=formatdatetime('yyyy',now);
edit1.MaxValue:=2100;
edit1.MinValue:=1994;
edit1.SetFocus ;
end;

end.