Delphi开发的MSSQL管理工具

发布时间：2022-10-29 16:23:04 所属栏目：MsSql教程来源：

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

　　【实例截图】

　　【核心代码】

　　unit setting;

　　interface

　　uses

　　Windows, Messages, SysUtils, Variants, Classes, G

　　【实例简介】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.

（编辑：航空爱好网）

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