zfrm_setup.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_Setup                                             *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_Setup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg, ExtCtrls, Db, DBTables;

type
  Tzfrm_Setups = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Query2: TQuery;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_Setups: Tzfrm_Setups;

implementation

uses zfrm_MainBiddingU, zmod_commonDateU, zmod_CommonFuncProcU,
  zmod_commonDataFileU;

{$R *.DFM}

procedure Tzfrm_Setups.Button2Click(Sender: TObject);
begin
  // 退出系统
  Close ;
  //
end;

procedure Tzfrm_Setups.Button1Click(Sender: TObject);
var
  ServerName :String;
begin
  // 检验密码
  if Trim(Edit1.Text) ='' then
  begin
    Edit1.SetFocus ;
    Exit ;
  end;

  zh_WritePathnameP(zh_cur_filepath + '\DbSetup.txt',Trim(Edit1.text));

  // 检测数据库连通
  try  {try <1> S}
    zmod_CommonFuncProc.Database1.Connected := False ;
    ServerName := Trim(Edit1.text) ;
    // 数据库参数赋值
    zh_DatabaseParamSetP(ServerName) ; //*****//
    zmod_CommonFuncProc.Database1.Connected := True ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  // 数据库错
  Application.MessageBox(
      '数据库连接成功，请您重新启动系统',
      '数据库',
      MB_OK+MB_ICONINFORMATION) ;
  Close ;
  //
end;

procedure Tzfrm_Setups.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Button1.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_Setups.FormCreate(Sender: TObject);
begin
  //
  try
    Edit1.text := zh_ReadPathnameF(zh_cur_filepath + '\DbSetup.txt');
  except
  end;
  //
end;

end.