logout.pas

来自「零售行业进销存源码.delphi7 BDE sql server.功能全面,运行」· PAS 代码 · 共 37 行

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 := '进销存管理系统';
end;

end.