udesktop.~pas

天涯進銷存系統

unit uDeskTop;

interface

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

type
  TfrmDesktop = class(TForm)
    plToolbar: TPanel;
    Image1: TImage;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape9: TShape;
    Panel1: TPanel;
    Shape02: TShape;
    Image4: TImage;
    Shape03: TShape;
    Image5: TImage;
    Shape04: TShape;
    Image6: TImage;
    Shape05: TShape;
    Image3: TImage;
    Shape5: TShape;
    Panel2: TPanel;
    Shape6: TShape;
    Shape7: TShape;
    Dayinfo: TLabel;
    Label1: TLabel;
    Panel3: TPanel;
    Image2: TImage;
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDesktop: TfrmDesktop;

implementation

uses uMain, Tools;

{$R *.dfm}

procedure TfrmDesktop.FormActivate(Sender: TObject);
begin
  frmMain.WindowCaption.Caption:='龙邦进销存管理系统 - ['+Caption+']' 
end;

procedure TfrmDesktop.FormShow(Sender: TObject);
begin
  Dayinfo.Caption:=GetLongDate(Date)+' '+GetWeekOfDay(Date)+' '+
                   '  农历 '+GetNDate(Date);
end;

end.