dataconfig.~pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit dataconfig;

interface

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

type
  Tfrm_config = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_config: Tfrm_config;

implementation

uses date1;

{$R *.dfm}

procedure Tfrm_config.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   perform(wm_nextdlgctl,0,0);
end;

procedure Tfrm_config.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   perform(wm_nextdlgctl,0,0);
end;

procedure Tfrm_config.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_config.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_config.SpeedButton1Click(Sender: TObject);
var ini,iniw:tinifile;
begin
if (edit1.text='') and (edit2.Text='') then
   begin
   messagebox(frm_config.Handle,'服务器不能为空','提示信息窗口',0);
   edit1.SetFocus;
   edit1.Color:=clskyblue;
   exit;
   end;
ini:=tinifile.Create(changefileext(application.ExeName,'.ini'));
ini.WriteString('database','initial catalog',edit2.Text);
ini.WriteString('database','datasoure',edit1.Text);
data.servername:=trim(edit1.text);
close;
end;
end.