商品销售管理系统论文

nbsp; reg.free;
      end;
      application.Terminate;
    end;
end;
end;

end.

unit SetupFormUnit;//基本信息设置窗口

interface

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

type
TSetupForm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    SB_selectpath: TSpeedButton;
    Label9: TLabel;
    e_allname: TEdit;
    e_name: TEdit;
    E_tel: TEdit;
    E_address: TEdit;
    LE_datapath: TEdit;
    SB_about: TSpeedButton;
    SB_CLOSE: TSpeedButton;
    SB_save: TSpeedButton;
    SB_stop: TSpeedButton;
    Bevel_BUTTON: TBevel;
    RB_user: TRadioButton;
    RB_auto: TRadioButton;
    e_backupdays: TEdit;
    L_days: TLabel;
    procedure SB_stopClick(Sender: TObject);
    procedure SB_CLOSEClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure SB_saveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB_selectpathClick(Sender: TObject);
    procedure SB_aboutClick(Sender: TObject);
    procedure e_allnameChange(Sender: TObject);
    procedure e_allnameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
private
    B_save: boolean;
    { Private declarations }
public
    { Public declarations }
end;

var
SetupForm: TSetupForm;

implementation

{$R *.dfm}
uses MainUnit, SelectDirUnit, AboutUnit;

procedure TSetupForm.SB_stopClick(Sender: TObject);
var
reg: TRegistry;
begin
inherited;
reg := TRegistry.Create;
try
    Reg.RootKey := HKEY_CURRENT_USER;
    reg.DeleteKey(S_RegTree);
finally
    reg.CloseKey;
    reg.free;
end;
halt;
end;

procedure TSetupForm.SB_CLOSEClick(Sender: TObject);
begin
self.Close;
end;

procedure TSetupForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
inherited;
if sb_save.Enabled then
sb_save.Click;
if not B_save then canclose := false;
end;

procedure

首页上一页 6 7 8 9 10 11 12 下一页尾页 9/16/16

商品销售管理系统论文(九)