cshunit.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit CSHUnit;

interface

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

type
  TCSHfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CSHfrm: TCSHfrm;

implementation

{$R *.dfm}

procedure TCSHfrm.Timer1Timer(Sender: TObject);
 var
  Isclose:integer;
begin
  if IsClose>20 then    //isclose 用语控制何时关闭初始化窗体
  begin
   Close;
   exit;
   end
   else
   inc(isClose);
   if Trim(label3.Caption)<>'.......'then
   label3.Caption:=label3.Caption+'.'
   else
   label3.Caption:='.';
end;

end.