cssz.pas

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

unit Cssz;

interface

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

type
  TFormCssz = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCssz: TFormCssz;

implementation

uses publicfun;
{$R *.dfm}

procedure TFormCssz.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TFormCssz.Button1Click(Sender: TObject);
begin
  if trim(edit1.Text)='' then
    begin
      showmessage('服务器名不能为空，请重新设置！');
      edit1.SetFocus;
      exit;
    end;
  if trim(edit2.Text)='' then
    begin
      showmessage('数据库名不能为空，请重新设置！');
      edit2.SetFocus;
      exit;
    end;
  if trim(edit3.Text)='' then
    begin
      showmessage('用户名不能为空，请重新设置！');
      edit3.SetFocus;
      exit;
    end;
   writeinfo('zffp','server',trim(edit1.Text));
   writeinfo('zffp','database',trim(edit2.Text));
   writeinfo('zffp','uid',trim(edit3.Text));
   writeinfo('zffp','pwd',trim(edit4.Text));
   showmessage('参数设置成功！');
end;

procedure TFormCssz.FormCreate(Sender: TObject);
begin
  edit1.Text:= readinfo('zffp','server');
  edit2.Text:= readinfo('zffp','database');
  edit3.Text:= readinfo('zffp','uid');
  edit4.Text:= readinfo('zffp','pwd');
end;

procedure TFormCssz.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

end.