unitbackuppath.pas

一套宾馆管理系统

unit UnitBackUpPath;

interface

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

type
  TfrmBackUpPath = class(TForm)
    btnNo: TBitBtn;
    btnOK: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    edtName: TEdit;
    Label2: TLabel;
    edtPath: TEdit;
    Label3: TLabel;
    Memo1: TMemo;
    ADOcmd: TADOCommand;
    procedure BitBtn1Click(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnNoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBackUpPath: TfrmBackUpPath;

implementation

uses UnitMain;

{$R *.dfm}

procedure TfrmBackUpPath.BitBtn1Click(Sender: TObject);
var
 mPath:string;
begin
 if selectdirectory('请选择备份文件的存放路径','c:',mPath) then
    edtpath.Text:=mPath;
end;

procedure TfrmBackUpPath.btnOKClick(Sender: TObject);
var
 strCon:string;
 smt:string;
 device,filePath:string;
 //xx:TParameter;
begin
if trim(edtname.text)='' then
   begin
     showmessage('请输入备份设置名');
     exit;
   end;
if trim(edtpath.text)='' then
   begin
     showmessage('请选择文件的备份路径') ;
     exit;
   end;
   frmMain.ReadINI ;
   strCon:=frmMain.strCon ;
   device:=trim(edtname.Text);
   filePath:=trim(edtpath.Text);
   smt:='insert into backupDevice(back_name,back_filepath) values('''+device+''','''+filePath+''')';
   adocmd.ConnectionString :=strcon;
   adocmd.CommandType:=cmdtext;
   adocmd.CommandText:=smt;
   adocmd.Parameters.Clear ;
   //----------------
   //xx:=adocmd.Parameters.AddParameter ;
   //xx.Name:='device' ;
   //xx.Value :=device;
   //----------------
   //xx:=adocmd.Parameters.AddParameter ;
   //xx.Name :='filePath';
   //xx.Value:=filePath;
   try
    adocmd.Execute ;
   finally
    //xx.Free ;
    frmBackupPath.Close;
   end;
end;

procedure TfrmBackUpPath.btnNoClick(Sender: TObject);
begin
 frmBackupPath.Close;
end;

end.