unit3.pas

一些關於查詢的簡單源碼...........................................................................

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, FileCtrl;

type
  TForm3 = class(TForm)
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    FileListBox1: TFileListBox;
    procedure FormCreate(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure FileListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
DirectoryListBox1.FileList:= FileListBox1 ;
DirectoryListBox1.DirLabel :=Label1;
DriveComboBox1.DirList:= DirectoryListBox1;
FileListBox1.FileEdit:=EDIT1;

end;

procedure TForm3.FileListBox1DblClick(Sender: TObject);
begin
showmessage(FileListBox1.FileName);
end;

procedure TForm3.FileListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
   FileListBox1DblClick(Sender);
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
FORM3.CLOSE;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
Var
   TF:textfile;
    DD1,DD2,DD3,DD4,DD5,DD6,DD7,DD8,DD9,DD10,DD11,DD12:string;
    str,filepath,str2,S,W1,R1,O1,A1,RR1,M1,rq1,p1,l1,MM1,c1,h1,q1:string;
    W2,R2,O2,A2,RR2,M2,rq2,p2,l2,MM2,c2,h2,q2:string;
    W3,R3,O3,A3,RR3,M3,rq3,p3,l3,MM3,c3,h3,q3:string;
    W4,R4,O4,A4,RR4,M4,rq4,p4,l4,MM4,c4,h4,q4:string;
    W5,R5,O5,A5,RR5,M5,rq5,p5,l5,MM5,c5,h5,q5:string;
    W6,R6,O6,A6,RR6,M6,rq6,p6,l6,MM6,c6,h6,q6:string;
    W7,R7,O7,A7,RR7,M7,rq7,p7,l7,MM7,c7,h7,q7:string;
    W8,R8,O8,A8,RR8,M8,rq8,p8,l8,MM8,c8,h8,q8:string;
    W9,R9,O9,A9,RR9,M9,rq9,p9,l9,MM9,c9,h9,q9:string;
    W10,R10,O10,A10,RR10,M10,rq10,p10,l10,MM10,c10,h10,q10:string;
    W11,R11,O11,A11,RR11,M11,rq11,p11,l11,MM11,c11,h11,q11:string;
    W12,R12,O12,A12,RR12,M12,rq12,p12,l12,MM12,c12,h12,q12:string;
    str3,str4,str5,str6,str7,str8,str9,str10,str11,str12,str13,str14,str15,a:string;
    s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20:string;
    i,j,k,l:Integer;

begin
   DM1.ADOCommand1.CommandText:='delete from data';
   DM1.ADOCommand1.Execute;
    i:=0;
    k:=0;
   if self.FileListBox1.Count=0 then
       begin
       showmessage('叫匡拒