untserverinfo.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit untServerInfo;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  Mask,
  RzEdit,
  RzButton,
  ExtCtrls,
  IniFiles,
  JCAMConsts,
  JCAMDialogForm,
  JCAMServerInfo;

type
  TfrmServerInfo = class( TfrmJCAMDialogForm )
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtDataSource: TRzEdit;
    edtUserID: TRzEdit;
    edtPassword: TRzEdit;
    procedure pServerInfoChange( Sender: TObject );
    procedure FormCreate( Sender: TObject );
    procedure btnOKClick( Sender: TObject );
  private
  public
    { Public declarations }
  end;

var
  frmServerInfo: TfrmServerInfo;

implementation

{$R *.dfm}

{ TfrmServerInfo }

procedure TfrmServerInfo.btnOKClick( Sender: TObject );
var
  ini: TIniFile;
  si: TJCAMServerInfo;
  sServerInfoString: string;
begin
  inherited;

  si := TJCAMServerInfo.Create;
  with si do
  begin
    DataSource := edtDataSource.Text;
    UserID := edtUserID.Text;
    Password := edtPassword.Text;
    sServerInfoString := ServerInfoString;
  end;
  FreeAndNil( si );

  ini := TIniFile.Create( g_sConfigFileName );
  ini.WriteString( STR_SERVERINFO, STR_SERVERINFOSTRING, sServerInfoString );
  FreeAndNil( ini );
end;

procedure TfrmServerInfo.FormCreate( Sender: TObject );
var
  ini: TIniFile;
  si: TJCAMServerInfo;
  sServerInfoString: string;
begin
  inherited;

  ini := TIniFile.Create( g_sConfigFileName );
  sServerInfoString := ini.ReadString( STR_SERVERINFO, STR_SERVERINFOSTRING,
    EmptyStr );
  FreeAndNil( ini );

  si := TJCAMServerInfo.Create;
  with si do
  begin
    ServerInfoString := sServerInfoString;
    edtDataSource.Text := DataSource;
    edtUserID.Text := UserID;
    edtPassword.Text := Password;
  end;
  FreeAndNil( si );
end;

procedure TfrmServerInfo.pServerInfoChange( Sender: TObject );
begin
  btnOK.Enabled := ( edtDataSource.Text <> EmptyStr ) and
    ( edtUserID.Text <> EmptyStr );
end;

end.