【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：Frm_Between.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit Frm_Between;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, StdCtrls, ComCtrls,  Grids, DBGrids,xpman;
    
    type
      TFrmBetween = class(TForm)
        GBxList: TGroupBox;
        ADOConn: TADOConnection;
        AQLIst: TADOQuery;
        DSList: TDataSource;
        GBxQuery: TGroupBox;
        Label1: TLabel;
        Label3: TLabel;
        BtnQuery: TButton;
        BtnClose: TButton;
        DBGrid1: TDBGrid;
        Edit1: TEdit;
        Edit2: TEdit;
        UpDown1: TUpDown;
        UpDown2: TUpDown;
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure BtnQueryClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmBetween: TFrmBetween;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmBetween.FormCreate(Sender: TObject);
    begin
      ADoConn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DelphiClassical200';
      ADOConn.Open;
    end;
    
    procedure TFrmBetween.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmBetween.BtnQueryClick(Sender: TObject);
    begin
     { with AQList do
      begin
        close;
        sql.Clear;
        sql.Add('select * from TB_Worker Where JoinDate between :d1 And :d2');
        Parameters.ParamByName('d1').Value:=DTPfrom.Date;
        Parameters.ParamByName('d2').Value:=DTPEnd.Date+1;
        open;
      end; }
      with AQList do
      begin
        close;
        sql.Clear;
        sql.Add('select * from TB_Worker Where old between :d1 And :d2');
        Parameters.ParamByName('d1').Value:=edit1.Text;
        Parameters.ParamByName('d2').Value:=edit2.Text;
        open;
      end;
    end;
    
    procedure TFrmBetween.FormShow(Sender: TObject);
    begin
      with AQList do
      begin
        close;
        sql.Clear;
        sql.Add('select * from TB_Worker');
        open;
      end;
    end;
    
    end.