unit14.pas

人寿保险管理系统,没有解压密码

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    SpeedButton3: TSpeedButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    Bevel1: TBevel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  cou:string;//还原位置
  uu:integer;
  comindex:integer;//combox的索引号
  end;

var
  Form14: TForm14;
  
  bar:Tmythread ;
implementation
  uses Unit11;

{$R *.dfm}

procedure TForm14.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 TForm14.SpeedButton2Click(Sender: TObject);
begin
  if Trim(Combobox1.Text)<>'' then
  begin
    Application.MessageBox(pAnsichar('你还原的数据库为：'+#13+'备份时间为：'+combobox1.text),'提示',mb_ok);
    bar:=Tmythread.Create(False);
    bar.Synchronize(bar,bar.cc);//调用线程
    bar.FreeOnTerminate := True;
    Speedbutton2.Enabled:=False;
  end;
end;

procedure TForm14.SpeedButton3Click(Sender: TObject);
var
  i:integer;//判断日期个数
begin
  i:=0;
  Opendialog1.Title:='选择文件。';
  if OPendialog1.Execute then
    Edit2.Text:=opendialog1.FileName;
  If Trim(opendialog1.FileName)<>'' then
  begin
    speedbutton3.Enabled:=False;
    Combobox1.Enabled:=True;
    try
      With mydm.back do
      begin
        Close;
        SQL.Clear;
        SQL.Add('use master restore headeronly from disk='''+edit2.text+'''');
        Open;
      end;
      Mydm.back.Last;
      Cou:=trim(mydm.back.Fields.Fields[5].AsString);
      Combobox1.Clear;
      While not mydm.back.bof do
      begin
        Combobox1.Items.Add(mydm.back.Fields.Fields[17].asstring);
        Mydm.back.Prior;
        Inc(i);   //加1操作
        If i=3 then break; //如果有三条记录退出
      end;
    except
      Application.MessageBox('错误！','提示',mb_ok);
    end;
  end;
end;

procedure TForm14.ComboBox1Change(Sender: TObject);
begin
  Speedbutton2.Enabled:=true;
end;

procedure TForm14.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Releasecapture;
  Perform(Wm_syscommand,$f012,0);
end;

procedure TForm14.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;
  Edit2.Clear;
  combobox1.Items.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 TForm14.FormShow(Sender: TObject);
begin
  speedbutton1.Enabled:=true;
  speedbutton3.Enabled:=true;
end;

end.