ufrmabout.pas

小银行系统

unit UfrmAbout;

interface

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

type
  TfrmAbout = class(TForm)
    imagBout: TImage;
    Memo1: TMemo;
    bvlLine: TBevel;
    Label1: TLabel;
    pnlUse: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    bthCommit: TBitBtn;
    btnProductSJ: TBitBtn;
    lblExprolor: TLabel;
    lblVision: TLabel;
    lblValue: TLabel;
    procedure bthCommitClick(Sender: TObject);
    procedure btnProductSJClick(Sender: TObject);
    procedure lblExprolorClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

uses U_main;

{$R *.dfm}

procedure TfrmAbout.bthCommitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmAbout.btnProductSJClick(Sender: TObject);
begin
  if MessageBox(handle,pchar('欢迎进行版本更新，退出当前系统吗？'),pchar('产品更新'),
    mb_yesNo) = mrYes then
  begin
    f_main.Close;
    if DirectoryExists('G:') then
      WINEXEC(Pchar('Net use G: /delete'),SW_HIDE);
    WinExec(Pchar('net use G: \\softserver\TempData 3257pishi'), SW_HIDE);
    self.Refresh;
    WinExec(Pchar('G:\工资科应用系统.exe'), SW_SHOW);  end;
end;

procedure TfrmAbout.lblExprolorClick(Sender: TObject);
begin
  shellExecute(handle,'open',pchar('http://www.huajianshoes.com'),nil,nil,SW_SHOW);
end;

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  lblvalue.Caption := f_main.Vision;
end;

end.