setserver.pas

本图书管理系统一sql server为数据库开发平台

unit SetServer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, ToolWin,
  ExtCtrls,IniFiles;

type
  TServerSet = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure StaticText1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StaticText1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StaticText1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CreateParams(var Params: TCreateParams); override;
    procedure StaticText2Click(Sender: TObject);
  private
   procedure WMPAINT(var msg:TMESSAGE);message WM_PAINT;
   procedure WMNCPAINT(var msg:TWMNCPAINT);message WM_NCPAINT;
   procedure Active(var msg:Tmessage);message WM_ACTIVATE;
   procedure WMNCLBUTTONDBLCLK(var msg:Tmessage);message WM_NCLBUTTONDBLCLK;
       { Private declarations }
  public
    TitleBmp:Tbitmap;
  setini:TINIFILe;
    { Public declarations }
  end;

//var
 // ServerSet: TServerSet;

implementation

uses MainForm;

{$R *.dfm}
function MyShowmessage(text:Pchar):boolean; external 'resource.dll';
procedure TServerSet.WMNCLBUTTONDBLCLK(var msg:Tmessage);
begin
//
end;
procedure TServerSet.Active(var msg:Tmessage);
begin
self.WMPAINT(msg);
end;

procedure TServerSet.CreateParams(var Params: TCreateParams);
begin
 inherited;
  params.Style:=params.Style-WS_SYSMENU;
end;

procedure TServerSet.WMPAINT(var msg:TMESSAGE);
var
  dc1:HDC;
  y,frame:integer;
  oldbrush:HBrush;
  oldpen,pen:HPEN;
  canvas:Tcanvas;
begin
  inherited;
  canvas:=Tcanvas.Create;
  dc1:=getwindowdc(Handle);
  y:=GetSystemMetrics(SM_CYSIZE);
  frame:=GetSystemMetrics(SM_CYSIZEFRAME);
  oldbrush:=selectobject(dc1,getstockobject(null_brush));
  pen:=createpen(PS_SOLID,frame*2,rgb(255,255,255));
  oldpen:=selectobject(dc1,pen);
  rectangle(dc1,0,0,Width,Height);
  StretchBlt(dc1,frame,frame,Width-2*frame,y+frame div 2,titlebmp.Canvas.Handle,0,0,titlebmp.Width,titlebmp.Height,srccopy);
  canvas.Handle:=dc1;
  canvas.Brush.Style:=bsclear;
  canvas.TextOut(frame*3,(y-frame)div 2,'数据库服务器设置');
  selectobject(dc1,oldbrush);
  selectobject(dc1,oldpen);
  deleteObject(pen);
  canvas.Handle:=0;
  canvas.Free;
  releasedc(Handle,dc1);
end;

procedure TServerSet.WMNCPAINT(var msg:TWMNCPAINT);
var
  dc1:HDC;
  y,frame:integer;
  oldbrush:HBrush;
  oldpen,pen:HPEN;
  canvas:Tcanvas;
begin
  canvas:=Tcanvas.Create;
  dc1:=getwindowdc(Handle);
  y:=GetSystemMetrics(SM_CYSIZE);
  frame:=GetSystemMetrics(SM_CYSIZEFRAME);
  oldbrush:=selectobject(dc1,getstockobject(null_brush));
  pen:=createpen(PS_SOLID,frame*2,rgb(255,255,255));
  oldpen:=selectobject(dc1,pen);
  rectangle(dc1,0,0,Width,Height);
  StretchBlt(dc1,frame,frame,Width-2*frame,y+frame div 2,titlebmp.Canvas.Handle,0,0,titlebmp.Width,titlebmp.Height,srccopy);
  canvas.Handle:=dc1;
  canvas.Brush.Style:=bsclear;
  canvas.TextOut(frame*3,(y-frame)div 2,'数据库服务器设置');
  //Textout(dc1,frame,frame,'提示',4);
  selectobject(dc1,oldbrush);
  selectobject(dc1,oldpen);
  deleteObject(pen);
  canvas.Handle:=0;
  canvas.Free;
  releasedc(Handle,dc1);
end;
procedure TServerSet.FormCreate(Sender: TObject);
var
  dir:string;
begin
  titlebmp:=Tbitmap.Create;
  titlebmp.LoadFromResourceName(main.resource,'TItle');
  getdir(0,dir);
  try
    setini:=Tinifile.Create(dir+'\system.ini');
    edit1.Text:=setini.ReadString('server','name','local');
    edit2.Text:=setini.ReadString('user','name','sa');
    edit3.Text:=setini.ReadString('password','value','');
  except
    myshowmessage('文件不存在！！');
  end;
end;


procedure TServerSet.StaticText1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  statictext1.BevelKind:=BKsoft;
end;

procedure TServerSet.StaticText1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  statictext1.BevelKind:=bkflat;
end;

procedure TServerSet.StaticText1Click(Sender: TObject);
begin
  if edit1.Modified then
    setini.WriteString('server','name','"'+edit1.Text+'"');
  if edit2.Modified then
    setini.WriteString('user','name',edit2.Text);
  if edit3.Modified then
    setini.WriteString('password','value',edit3.Text);
  self.Close;
end;

procedure TServerSet.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  setini.Free;
end;

procedure TServerSet.StaticText2Click(Sender: TObject);
begin
  close;
end;

end.