u_outputparam.pas

一个简单的学籍管理软件

unit U_OutputParam;

interface

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

type
  TFm_OutPutParam = class(TForm)
    Button_Ok: TButton;
    Button_Cancel: TButton;
    Label3: TLabel;
    CmbBox_OutType: TComboBox;
    Label4: TLabel;
    Edit_OutPath: TEdit;
    SpBto_SelectPathTwo: TSpeedButton;
    procedure SpBto_SelectPathTwoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_OutPutParam: TFm_OutPutParam;
function Show_OutPutParam(var BkpType: integer; var bkpPath: string): boolean;
implementation

uses U_SelectDir;

{$R *.DFM}

function Show_OutPutParam(var BkpType: integer; var bkpPath: string): boolean;
begin
  Result := False;
  Fm_OutPutParam := TFm_OutPutParam.Create(Application);
  with Fm_OutPutParam do
  begin
    CmbBox_OutType.ItemIndex := 0;
    Edit_OutPath.Text := 'A:\';
    try
      if Showmodal = mrOk then
      begin
        BkpType := CmbBox_OutType.ItemIndex;
        BkpPath := Edit_OutPath.Text;
        Result := True;
      end;
    finally
      Free;
    end;
  end;
end;

procedure TFm_OutPutParam.SpBto_SelectPathTwoClick(Sender: TObject);
var
  tmpS: string;
begin
  tmpS := U_SelectDir.Show_SelectDir;
  if tmpS <> '' then
    Edit_OutPath.Text := tmpS;
end;

end.