u_dm.pas

delphi写的对学习delphi初级入门的数据编程很有用。是用用来查找硬盘mp3文件

unit u_DM;

interface

uses
  SysUtils, Classes, DB, ADODB,Variants;

type
  TDM = class(TDataModule)
    Conn1: TADOConnection;
    Temp: TADOQuery;
    Query: TADOQuery;
    DSQuery: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetMaxID:String;
    function AddFileInfoToDataBase(AName,Autor,DiskName,OtherInfo,Path:string;IndexN:integer;IndexC:string;Size:integer;aFileExt:string):boolean;
  end;

var
  DM: TDM;

implementation

{$R *.dfm}
function TDM.GetMaxID:string;
begin
 with temp do
 begin
  if active then close;
  sql.Text := 'select Max(ID) from MP3Table';
  Open;
  if Fields[0].Value=NULL then
  Result := '10001'
  else
  Result := IntToStr(Fields[0].asInteger+1);
  Close;
 end;
end;
function TDM.AddFileInfoToDataBase(AName,Autor,DiskName,OtherInfo,Path:string;IndexN:integer;IndexC:string;Size:integer;aFileExt:string):boolean;
var aMaxID: string;
    aSQL: string;
begin
 result := false;
 aMaxID := GetMaxID;
 //aSQL := 'Insert Into MP3Table(ID,Name,Autor,DiskName,OtherInfo,Path,IndexN,IndexC,Size,Type) values ('''+aMaxID+''''+','+''''+Name+''''+','+''''+Autor+''''+','
 //            +''''+DiskName+''''+','+''''+OtherInfo+''''+','+''''+Path+''''+','
 //            +IntToStr(IndexN)+','+''''+IndexC+''''+','+IntToStr(Size)+',''.MP3'')';
 try
 with temp do
 begin
  if active then close;
  sql.Text := 'select * from MP3Table where Path='''+Path+'''';
  Open;
  if RecordCount>0 then
  begin
  close;
  exit;
  end;
  //if active then close;
  //sql.Text := 'select * from MP3Table where 1=0';
  //Open;
  Insert;
  FieldByName('ID').AsString :=aMaxID;
  FieldByName('AName').AsString :=AName;
  FieldByName('Autor').AsString :=Autor;
  FieldByName('DiskName').AsString :=DiskName;
  FieldByName('OtherInfo').AsString :=OtherInfo;
  FieldByName('Path').AsString :=Path;
  FieldByName('IndexN').AsInteger :=IndexN;
  FieldByName('IndexC').AsString :=IndexC;
  FieldByName('Size').AsInteger :=Size;
  FieldByName('Type').AsString :=aFileExt;
  Post;
  Result := true;
 end;
 except
 end;
end;
procedure TDM.DataModuleCreate(Sender: TObject);
begin
try
 Query.Open;
 except
 end;
end;

end.