u_setparams.~pas

对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值

unit u_setParams;

interface

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

type
  TfrmSetParams = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cbxIme: TComboBox;
    Label2: TLabel;
    edtCurrIme: TEdit;
    GroupBox2: TGroupBox;
    btnClose: TBitBtn;
    button1: TBitBtn;
    button2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetParams: TfrmSetParams;

implementation

uses U_datamodule, U_filmrecord;

{$R *.dfm}

procedure TfrmSetParams.FormShow(Sender: TObject);
begin
edtCurrIme.Text:=currImeName;
cbxIme.items.assign(screen.Imes);
cbxIme.text:=screen.DefaultIme;
end;

procedure TfrmSetParams.Button1Click(Sender: TObject);
begin
if cbxIme.Text='' then
begin
showmessage('错误:输入法为空,请重新选择');
cbxime.SetFocus;
exit;
end;
set_inicsxx('IMENAME',cbxime.Text);
currImeName:=cbxime.text;
edtCurrIme.text:=currImeName;
setImeName(currImeName);
//if assigned(F_filmrecord) then
//setImeName(F_filmrecord,currImeName);

end;

procedure TfrmSetParams.Button2Click(Sender: TObject);
begin
if cbxIme.Text='' then
begin
showmessage('错误:输入法为空,请重新选择');
cbxime.SetFocus;
exit;
end;

currImeName:=cbxime.text;
edtCurrIme.text:=currImeName;
//if assigned(F_filmrecord) then
setImeName(currImeName);
end;

procedure TfrmSetParams.btnCloseClick(Sender: TObject);
begin
close;
end;

procedure TfrmSetParams.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_escape then
close;
end;

end.