Delphi开发的MSSQL管理工具

【实例简介】Delphi开发的MSSQL管理工具源代码

【实例截图】

【核心代码】

unit setting;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

Tsetfrm = class(TForm)

CheckBox1: TCheckBox;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

CheckBox2: TCheckBox;

procedure CheckBox1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure CheckBox2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

function LoadSetting(Key, Item: String; DefValue: Boolean): Boolean;

procedure SaveSetting(Key, Item: String; Value: Boolean);

procedure RemoveSetting(Key: String);

function LoadStrSetting(Key, Item: String; DefValue: string): string;

procedure SaveStrSetting(Key, Item: String; Value: string);

procedure RemoveStrSetting(Key: String);

public

{ Public declarations }

end;

var

setfrm: Tsetfrm;

implementation

{$R *.dfm}

uses Registry;

const

StartHiddenKey = 'Software\CoolTrayIcon\StartHiddenDemo';

function Tsetfrm.LoadSetting(Key, Item: String; DefValue: Boolean): Boolean;

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Result := Reg.ReadBool('', Item, DefValue);

Reg.Free;

end;

procedure Tsetfrm.SaveSetting(Key, Item: String; Value: Boolean);

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Reg.WriteBool('', Item, Value);

Reg.Free;

end;

procedure Tsetfrm.RemoveSetting(Key: String);

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Reg.EraseSection('');

Reg.Free;

end;

//// ×?·???

function Tsetfrm.LoadStrSetting(Key, Item: String; DefValue: string): string;

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Result := Reg.ReadString('', Item, DefValue);

Reg.Free;

end;

procedure Tsetfrm.SaveStrSetting(Key, Item: String; Value: string);

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Reg.WriteString('', Item, Value);

Reg.Free;

end;

procedure Tsetfrm.RemoveStrSetting(Key: String);

var

Reg: TRegIniFile;

begin

Reg := TRegIniFile.Create(Key);

Reg.EraseSection('');

Reg.Free;

end;

procedure Tsetfrm.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

SaveSetting(StartHiddenKey, 'StartHidden', True)

else

RemoveSetting(StartHiddenKey);

end;

procedure Tsetfrm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

self.Release;

self.Close;

end;

procedure Tsetfrm.CheckBox2Click(Sender: TObject);

begin

self.Edit1.Enabled:=self.CheckBox2.Checked;

end;

procedure Tsetfrm.FormShow(Sender: TObject);

begin

self.Edit1.Text:= LoadStrSetting(StartHiddenKey, 'ServerPort', '3001');

end;

procedure Tsetfrm.Button1Click(Sender: TObject);

begin

SaveStrSetting(StartHiddenKey, 'ServerPort', trim(self.Edit1.Text));

end;

procedure Tsetfrm.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',#8mssql 管理器,#10,#13]) then

begin

key:=#0;

end;

end;

end.

（编辑：重庆站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!