ini.~pas

比较详细的功能

unit ini;

interface

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

type
  TServerSet = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerSet: TServerSet;

implementation
uses pas_dm,pub;

{$R *.dfm}

procedure TServerSet.SpeedButton1Click(Sender: TObject);
begin
   if edit1.Text='' then
   begin
      showmessage('服务器不能为空');
      exit;
   end;
   try
       dm.AC1.ConnectionString:='Provider=SQLOLEDB.1;Password="";'+
            'Persist Security Info=True;User ID=sa;'+
            'Initial Catalog=HMM;Data Source='+trim(edit1.Text);
        dm.AC1.ConnectionTimeout:=5;
        dm.AC1.LoginPrompt:=false;
        dm.AC1.Connected:=true;
        showmessage('测试成功');
        speedbutton1.Enabled:=false;
        speedbutton2.Visible:=true;
   except
      showmessage('测试失败');
   end;
   end;

procedure TServerSet.SpeedButton2Click(Sender: TObject);
begin
  pub.InitSave('server','dataSource',trim(edit1.Text));
  speedbutton2.Enabled:=false;
  speedbutton3.Visible:=true;
end;

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

procedure TServerSet.SpeedButton4Click(Sender: TObject);
begin
 if IDOK=messagebox(handle,pchar('确定要初始化吗?数据库将全部清空'),'警告', MB_OKCANCEL) then
  begin
  try
     dm.AQ1.Close;
     dm.AQ1.SQL.Clear;
     dm.AQ1.SQL.Text:='use hm '+
     ' delete from house_histry'+
     ' delete from house'+
     ' delete from client'+
     ' delete from landlord'+
     ' delete from deputy ' ;
     dm.AQ1.ExecSQL;
     showmessage('初始化成功');
  except
  end;   
  end;
end;
end.