unit4.pas

来自「非常实用本人心血研制不是为了更多我需要的代码不会轻易拿出来换东东的关于盘刻录程序」· PAS 代码 · 共 63 行

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Dt1: TDateTimePicker;
    Dt2: TDateTimePicker;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin

with form1.Q1.SQL do
begin
    Clear;
    Add('select filen as 盘号,path01 as 路径,date01 as 刻录日期  from cdrw'+
    ' where date01>=:d1 and date01<=:d2 order by  date01 desc');

    form1.Q1.Parameters.ParamByName('d1').Value :=Dt1.DateTime;
    form1.Q1.Parameters.ParamByName('d2').Value :=Dt2.DateTime;
     form1.Q1.open;


end;


DataSource1.DataSet:=Form1.Q1;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
       Dt1.DateTime :=Now;
              Dt2.DateTime :=Now;
end;

end.