ldatebase.pas

执行一些简单的SQL语句。 注：各SQL语句用“GO”区分

unit LDatebase;

interface

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

type
  Tfrm_ljsjk = class(TForm)
    Label1: TLabel;
    IPEdit1: TIPEdit;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ljsjk: Tfrm_ljsjk;
  Sqlini:Tinifile;
implementation

{$R *.dfm}

procedure Tfrm_ljsjk.BitBtn1Click(Sender: TObject);  
begin
  Sqlini:=Tinifile.Create(extractfilepath(application.exename)+'.\TSQL.ini');
  Sqlini.WriteString('服务器配置','服务器IP地址',IPEdit1.IPString);
  Sqlini.WriteString('服务器配置','数据库用户名',trim(edit1.Text));
  Sqlini.WriteString('服务器配置','数据库密码',trim(edit2.Text));
  Sqlini.WriteString('服务器配置','数据库名',trim(edit3.Text));
  Sqlini.writebool('服务器配置','第一次启动',false);
  Sqlini.Destroy;
  frm_ljsjk.Release;
end;

procedure Tfrm_ljsjk.FormCreate(Sender: TObject);
begin
  Sqlini:=Tinifile.Create(extractfilepath(application.exename)+'.\TSQL.ini');
  IPEdit1.IPString:=Sqlini.readString('服务器配置','服务器IP地址','127.0.0.1');
  edit1.text:=Sqlini.readString('服务器配置','数据库用户名','sa');
  edit2.text:=Sqlini.readString('服务器配置','数据库密码','sa');
  edit3.text:=Sqlini.readString('服务器配置','数据库名','contact');
end;

procedure Tfrm_ljsjk.BitBtn2Click(Sender: TObject);
begin
  frm_ljsjk.Show;
end;

procedure Tfrm_ljsjk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Sqlini:=Tinifile.Create(extractfilepath(application.exename)+'.\TSQL.ini');
  if  Sqlini.readbool('服务器配置','第一次启动',true) then
      if messagedlg('是否要退出系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
          frm_ljsjk.Release
      else
          action:=canone
  else
      frm_ljsjk.Release;
  Sqlini.destroy;
end;

end.