repfileedfrm.pas

来自「医药连锁经营管理系统源码」· PAS 代码 · 共 59 行

unit RepFileEdFrm;

interface

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

type
  TRepFileEdForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edRepName: TEdit;
    edRepFile: TEdit;
    edRemark: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure edRepNameExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RepFileEdForm: TRepFileEdForm;

implementation

{$R *.DFM}

procedure TRepFileEdForm.BitBtn1Click(Sender: TObject);
var sRepFile: String;
		i: integer;
begin
	if edRepName.Text='' then begin
  	Application.MessageBox('请指定报表名称！', '消息', MB_ICONINFORMATION);
    Exit;
  end;
  sRepFile := edRepFile.Text;
  i := Length(sRepFile);
	if sRepFile='' then
  	raise Exception.Create('请指定报表文件的名称！')
  else if UpperCase(Copy(sRepFile, i-3, 4))<>'.FRF' then
  	EdRepFile.Text := sRepFile+'.FRF';
  ModalResult := mrOK;
end;

procedure TRepFileEdForm.edRepNameExit(Sender: TObject);
begin
  if edRepFile.Text='' then
    edRepFile.Text := edRepName.Text;
end;

end.