unitconnectconfig.pas

来自「delphi基于工业控制的串口通讯」· PAS 代码 · 共 106 行

unit UnitConnectConfig;

interface

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

type
  Tfrm_ConnectConfig = class(TForm)
    Edit_DBName: TLabeledEdit;
    Edit_ServerName: TLabeledEdit;
    Edit_UserName: TLabeledEdit;
    Edit_UserPwd: TLabeledEdit;
    Panel2: TPanel;
    Image1: TImage;
    BtOK: TSpeedButton;
    BtNO: TSpeedButton;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    R1: TRadioButton;
    R2: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtNOClick(Sender: TObject);
    procedure BtOKClick(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure R2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ConnectConfig: Tfrm_ConnectConfig;

implementation

{$R *.dfm}

procedure Tfrm_ConnectConfig.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=Cafree;
end;

procedure Tfrm_ConnectConfig.BtNOClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_ConnectConfig.BtOKClick(Sender: TObject);
var
    MyIni       : TIniFile;
    DBTypeStr   : String;
begin
    if ((R1.Checked=False) and (R2.Checked=False)) then
    begin
        Application.MessageBox('请选择【数据库类别】，请确认！',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Exit;
    end;
    if R1.Checked=True then
    begin
        Edit_ServerName.Clear;
        Edit_UserName.Clear;
        Edit_UserPwd.Clear;
        DBTypeStr:='mdb';
    end
    else if R2.Checked=True then
    begin
        DBTypeStr:='sql';
    end;
    Myini:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
    Myini.WriteString('DBConnectSet','DBType',Trim(DBTypeStr));
    Myini.WriteString('DBConnectSet','DBName',Trim(Edit_DBName.Text));
    Myini.WriteString('DBConnectSet','ServerName',Trim(Edit_ServerName.Text));
    Myini.WriteString('DBConnectSet','UserName',Trim(Edit_UserName.Text));
    Myini.WriteString('DBConnectSet','UserPwd',Trim(Edit_UserPwd.Text));
    Myini.Free;
    Close;
end;

procedure Tfrm_ConnectConfig.R1Click(Sender: TObject);
begin
    if R1.Checked=True then
    begin
        Edit_ServerName.Enabled :=False;
        Edit_UserName.Enabled   :=False;
        Edit_UserPwd.Enabled    :=False;
        Edit_DBName.Text        :='Warn_iControl.mdb';
    end;
end;

procedure Tfrm_ConnectConfig.R2Click(Sender: TObject);
begin
    if R2.Checked=True then
    begin
        Edit_ServerName.Enabled :=True;
        Edit_UserName.Enabled   :=True;
        Edit_UserPwd.Enabled    :=True;
        Edit_DBName.Text        :='Warn_iControl';
    end;
end;

end.