logout.~pas

来自「一套融入了系统营销管理思想的管理软件产品」· ~PAS 代码 · 共 33 行

unit Logout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, Menus, ExtCtrls, Db, DBTables, Buttons;

type
  TfmLogout = class(TfmBaseDialog)
    rbLogout: TRadioButton;
    rnExit: TRadioButton;
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmLogout: TfmLogout;

implementation

uses Main;

{$R *.DFM}

procedure TfmLogout.OKBtnClick(Sender: TObject);
begin
  inherited;
  if rbLogout.Checked then
    fmMain.Caption := '秈綪