unit16.pas

人寿保险的管理信息系统

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, DB, ADODB,read, ExtCtrls, StdCtrls,strutils, Grids, DBGrids, ComCtrls;


type
  TF_beifen = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SaveDialog1: TSaveDialog;
    SpeedButton2: TSpeedButton;
    ProgressBar1: TProgressBar;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  cou:string;//还原位置
  uu:integer;
  comindex:integer;//combox的索引号
  end;

var
  F_beifen: TF_beifen;

  bar:Tmythread ;

implementation
  uses Unit11;

{$R *.dfm}

procedure TF_beifen.SpeedButton1Click(Sender: TObject);
begin
  Savedialog1.Title:='保存文件*.bak!';
  if Savedialog1.Execute  then
    if not ansicontainsstr(savedialog1.FileName,'.') then //判断是否输入了扩展名
      Edit1.Text:=savedialog1.FileName +'.bak'
    else
      Edit1.Text:=savedialog1.FileName;
  If Trim(savedialog1.FileName)<>'' then
  begin
    bar:=Tmythread.Create(False); //创建线程
    bar.Synchronize(bar,bar.backup);//调用线程
    bar.FreeOnTerminate := True;
  end;
end;
procedure TF_beifen.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  with mydm.back do
  begin
    Close;
    SQL.Clear;
    SQL.Add('use ghyy');
    ExecSQL;
  end;
  Progressbar1.Position:=0;
  Edit1.Clear;
  with mydm do
  begin
    Cust1query.Open;
    Policyquery.Open;
    Insquery.Open;
    Benequery.open;
    Clasquery.Open;
    Custquery.Open;
    Query.Open;
    Userquery.Open;
    Fanquery.Open;
    Billquery.Open ;
    guo.Open;
  end;
end;

procedure TF_beifen.FormShow(Sender: TObject);
begin
  speedbutton1.Enabled:=true;
end;


procedure TF_beifen.SpeedButton2Click(Sender: TObject);
begin
    close;
end;


end.