jieguo1.pas

一个文件管理的程序

unit jieguo1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, shellapi,DBGrids, jpeg, ExtCtrls;

type
  TForm10 = class(TForm)
    DBGrid1: TDBGrid;
    SpeedButton5: TSpeedButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6Click(Sender: TObject);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image8Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;
  currentdir:string;
implementation

uses edit, xiugai;

{$R *.dfm}

procedure TForm10.SpeedButton5Click(Sender: TObject);
begin
 form9.show;
end;
procedure TForm10.DBGrid1DblClick(Sender: TObject);
var
s:pchar;
p:string;
begin
  p:=currentdir+'\'+dbgrid1.DataSource.DataSet.FieldValues['fileload'];
  s:=pchar(p);
  ShellExecute(handle,'open',s,nil,nil,SW_ShowNormal);
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
 currentdir:=getcurrentdir;
end;

procedure TForm10.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image2.Visible:=true;
  image3.Visible:=false;
end;

procedure TForm10.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image5.Visible:=true;
  image4.Visible:=false;
end;

procedure TForm10.Image2Click(Sender: TObject);
var
s:pchar;
p:string;
begin
  p:=currentdir+'\'+dbgrid1.DataSource.DataSet.FieldValues['fileload'];
  s:=pchar(p);
  ShellExecute(handle,'open',s,nil,nil,SW_ShowNormal);
end;
procedure TForm10.Image4Click(Sender: TObject);
begin
  form11.Edit1.Text:=dbgrid1.DataSource.DataSet.FieldValues['fileload'];
 form11.ComboBox1.Text:=dbgrid1.DataSource.DataSet.FieldValues['filetype'];
 form11.edit4.Text:=dbgrid1.DataSource.DataSet.FieldValues['filename'];
 form11.Edit17.Text:=dbgrid1.DataSource.DataSet.FieldValues['fileload'];
 form11.showmodal;
end;

procedure TForm10.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image2.Visible:=false;
  image3.Visible:=true;
  image7.Visible:=true;
  image6.Visible:=false;
end;

procedure TForm10.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image5.Visible:=false;
  image4.Visible:=true;
end;

procedure TForm10.Image6Click(Sender: TObject);
begin
if messagedlg('数据删除不可恢复是否要删除数据？',mtwarning,[mbyes,mbno],1)=mryes then
  begin
     //删除文件
      deletefile(currentdir+'\'+dbgrid1.DataSource.DataSet.FieldValues['fileload']);
      form9.ADODataSet5.Edit;
      form9.ADODataSet5.Delete;
      showmessage('删除成功！');
    end
  else
  application.MessageBox('记录未删除！请继续使用','提示框',mb_ok);
end;


procedure TForm10.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image4.Visible:=false;
  image5.Visible:=true;
  image8.Visible:=false;
  image9.Visible:=true;
end;

procedure TForm10.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image6.Visible:=true;
  image7.Visible:=false;
end;

procedure TForm10.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image7.Visible:=true;
  image6.Visible:=false;
end;

procedure TForm10.Image8Click(Sender: TObject);
begin
 close;
end;

procedure TForm10.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  image3.Visible:=true;
  image2.Visible:=false;
  image5.Visible:=true;
  image4.Visible:=false;
  image7.Visible:=true;
  image6.Visible:=false;
  image9.Visible:=true;
  image8.Visible:=false;
end;

procedure TForm10.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image8.Visible:=true;
 image9.Visible:=false;
end;

end.