excelmessage.pas

适合Delphi初学者使用。其中涉及XML文件导入

unit ExcelMessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, genSimpleModal, Mask, DBCtrlsEh, StdCtrls;

type
  TfrmExcelMessage = class(TfrmGenSimpleModal)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    procedure Button1Click(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExcelMessage: TfrmExcelMessage;
function ShowExcelMessage(out sFileName: string; out iNo, iRow: Integer): Boolean;

implementation

{$R *.dfm}

function ShowExcelMessage(out sFileName: string; out iNo, iRow: Integer): Boolean;
begin
  Result := False;
  frmExcelMessage := TfrmExcelMessage.Create(Application);
  frmExcelMessage.ShowModal;
  if frmExcelMessage.m_bOKClick then
  begin
    Result := True;
    sFileName := frmExcelMessage.Edit1.Text;
    iNo := frmExcelMessage.DBNumberEditEh2.Value;
    iRow := frmExcelMessage.DBNumberEditEh1.Value;
  end;
  frmExcelMessage.Free;
end;

procedure TfrmExcelMessage.Button1Click(Sender: TObject);
begin
  inherited;
  with TOpenDialog.Create(Self) do
  begin
    Title := '请选择工作表';
    Filter := 'Excel File(*.xls)|*.xls';
    if Execute then
    begin
      Edit1.Text := FileName;
    end;
    Free;
  end;
end;

procedure TfrmExcelMessage.btnOKClick(Sender: TObject);
begin
  if Trim(Edit1.Text) = '' then
  begin
    Exit;
  end;
  if (DBNumberEditEh1.Value < 1) or (DBNumberEditEh2.Value < 1) then
  begin
    Exit;
  end;
  inherited;

end;

end.