unit2.pas

进行图纸的资料归档及管理

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dcOutBar, ExtCtrls, ComCtrls, ImgList;

type
  Tmenuform = class(TForm)
    Panel1: TPanel;
    ImageList1: TImageList;
    DCOutBar1: TDCOutBar;
    DCOutBarGroup1: TDCOutBarGroup;
    DCOutBarVertListView1: TDCOutBarVertListView;
    DCOutBarGroup2: TDCOutBarGroup;
    DCOutBarVertListView2: TDCOutBarVertListView;
    procedure FormCreate(Sender: TObject);
    procedure DCOutBarVertListView1ButtonClick(Sender: TObject;
      Item: TListItem);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DCOutBarVertListView2ButtonClick(Sender: TObject;
      Item: TListItem);
  private
    { Private declarations }
     procedure CompactDB(const DBname, DBtype: string);//数据库压缩
  public
    { Public declarations }
  end;

var
  menuform: Tmenuform;

implementation
uses unit1,unit3,unit6,unit9,data,unit11,JRO_TLB;


{$R *.DFM}
procedure Tmenuform.CompactDB(const DBname, DBtype: string);
var
  MyJetEngine: JetEngine;
  strDataSource,
  strDataDest,
  strDataDestName: string;

begin
  if not FileExists(DBname) then
    begin
      messagedlg('错误:'+DBName+'没有找到',mtconfirmation,[mbYes],0);
      exit;
    end;
  // 删除以前文件
  strDataDestName := ExtractFilePath(DBname) + 'temp.mdb';
  if FileExists(StrDataDestName) then
    begin
      DeleteFile(strDataDestName);
    end;
  strDataSource := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBname + ';';
  strDataDest := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strDataDestName + ';';
  if DBtype = '97' then
    // Use Engine Type 4 for Access 97 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=4'
  else
    // Use Engine Type 5 for Access 2000 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=5';

  MyJetEngine := CoJetEngine.Create();
  try
    MyJetEngine.CompactDatabase(strDataSource, strDataDest);
    //writeln(DBname, ' compacted into ', strDataDestName + '.');
    MyJetEngine := nil;
    if DeleteFile(DBname) then
      begin
//        writeln(DBname, ' deleted.');
        if RenameFile(strDataDestName, DBName) then
 //         writeln(strDataDestName, ' renamed ', DBname + '.')
        else
//          writeln('Error: ', strDataDestName, ' could not be renamed ', DBname, '.');
            messagedlg('错误:'+strDataDestName+'不能改名为'+DBname ,mtconfirmation,[mbYes],0);
      end
    else
      //writeln('Error: ', DBname, ' could not be deleted.');
        messagedlg('错误:'+DBname+'不能被删除！' ,mtconfirmation,[mbYes],0);
  except
    on E: Exception do
    //writeln('Error: ', E.Message);
     messagedlg('发生错误:' ,mtconfirmation,[mbYes],0);
  end
end;


procedure Tmenuform.FormCreate(Sender: TObject);
begin
manualdock(mainform.panel1);
end;

procedure Tmenuform.DCOutBarVertListView1ButtonClick(Sender: TObject;
  Item: TListItem);
begin
case item.index of
    0:begin
      mainform.setcurrentform(tform6);
      end;
    3:begin
      mainform.setcurrentform(Tform3);
      end;
    1:begin
     mainform.setcurrentform(Tsearch);
      end;
    2:begin
      end;
    5:begin
 //     mainform.setcurrentform(Tform8);
      end;
end;
end;

procedure Tmenuform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
abort;
end;

procedure Tmenuform.DCOutBarVertListView2ButtonClick(Sender: TObject;
  Item: TListItem);
var
  tempform:tform5;
begin
case item.index of
    0:begin
      if MessageDlg('进行压缩数据库吗？', mtWarning,[mbYes,mbNo], 0 ) = mrYes then
      begin
         maindata.maindataset.connected:=false;
         maindata.tzdata.active:=false;
         maindata.outdata.active:=false;
         //s:=
         CompactDB('图纸管理.mdb','97');
         MessageDlg('压缩数据库完成,请按确定键退出系统，重新启动程序。', mtWarning,[mbYes], 0 );
         mainform.close;
      end;
      end;
    1:begin
      tempform:=tform5.create(self);
      tempform.caption:='编辑物资名称';
      try
      tempform.listbox1.items.loadfromfile('wz_name.txt');
      tempform.filenames:='wz_name.txt';
      tempform.showmodal;
      except
        MessageDlg('文件wz_name.txt不存在！', mtWarning,[mbYes], 0 );
        tempform.free;
      end;
      end;
     2:begin
       tempform:=tform5.create(self);
       tempform.caption:='编辑借阅人数据';
       try
       tempform.listbox1.items.loadfromfile('ry_name.txt');
       tempform.filenames:='ry_name.txt';
       tempform.showmodal;
       except
         MessageDlg('文件ry_name.txt不存在！', mtWarning,[mbYes], 0 );
         tempform.free;
       end;
       end;
     3:begin
        tempform:=tform5.create(self);
      tempform.caption:='编辑厂家名称数据';
      try
      tempform.listbox1.items.loadfromfile('cj_name.txt');
      tempform.filenames:='cj_name.txt';
      tempform.showmodal;
      except
        MessageDlg('文件cj_name.txt不存在！', mtWarning,[mbYes], 0 );
        tempform.free;
      end;
       end;

end;
end;
end.