delphi中DBgrid按时间查找，并做运算（测试小软件）

功能是按时间检查表格数字是否连续

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, RzDBGrid, ExtCtrls, sMemo,  ComCtrls, sTreeView, sListView, Mask, RzEdit,inifiles;type  TForm1 = class(TForm)    Panel1: TPanel;    RzDBGrid1: TRzDBGrid;    Label1: TLabel;    ADOConnection1: TADOConnection;    ADOQuery1: TADOQuery;    DataSource1: TDataSource;    Edit1: TEdit;    Button1: TButton;    Button2: TButton;    ComboBox1: TComboBox;    DateTimePicker1: TDateTimePicker;    DateTimePicker2: TDateTimePicker;    Label2: TLabel;    Label3: TLabel;    DateTimePicker3: TDateTimePicker;    DateTimePicker4: TDateTimePicker;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Read_inifile;    procedure Initialize;  private    { Private declarations }  public    { Public declarations }  end;var   Server,         //登录的服务器名   UserName,        //登录用户名   Password:string;//登录密码  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);vartemp :string; str:string; date1,date2:string;begin        //showmessage(datetostr(datetimepicker1.date));       // showmessage(timetostr(datetimepicker2.time));         date1 :=quotedstr(formatdatetime('yyyy-mm-dd',datetimepicker1.date)+' '+formatdatetime('HH:mm:ss',datetimepicker2.time));         date2 :=quotedstr(formatdatetime('yyyy-mm-dd',datetimepicker4.date)+' '+formatdatetime('HH:mm:ss',datetimepicker3.time));        // showmessage(date1);        // showmessage(date2);       if Edit1.Text <> '' then        begin            temp := Edit1.Text;            ADOQuery1.Close;            ADOQuery1.SQL.Clear;            str:='select *,serialno = substring(zzbdata,1,4) from tbl_zzbinfo where zzbdate > '+date1+'and zzbdate < '+date2+'and productidno = '''+temp+''' order by zzbdate asc ';            //showmessage(str) ;            adoquery1.SQL.text:= str;            adoquery1.Open;       end       else       showmessage('输入查询的IDNum');end;procedure TForm1.Button2Click(Sender: TObject);vartemp : string;FNum : integer;HNum : integer;Inum : integer;begin       combobox1.Clear;       temp := adoquery1.fieldbyname('serialno').asstring;       HNum :=strtoint(temp);     while not adoquery1.Eof do       begin       temp := adoquery1.fieldbyname('serialno').asstring;       FNum :=strtoint(temp);       while HNum+1<FNum do       begin       temp :=inttostr(HNum+1) ;       combobox1.items.Add(temp);       HNum :=HNum+1;       end;       HNum :=HNum+1;       adoquery1.Next;       end;end;procedure TForm1.Button3Click(Sender: TObject);begin            ADOQuery1.Close;            ADOQuery1.SQL.Clear;            adoquery1.SQL.text:= 'select *,serialno = substring(zzbdata,1,4) from tbl_zzbinfo';            //adoquery1.ExecSQL;            adoquery1.Open;end;procedure TForm1.Read_inifile;var    Myini:Tinifile;begin    Myini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'config\SqlSet.ini');    Server:=Myini.readstring('information','Server','');    UserName:=Myini.readstring('information','UserName','');    Password:=Myini.readstring('information','Password','');    Myini.Free;end;procedure TForm1.Initialize;begin  try    ADOConnection1.close;    ADOConnection1.Connected := False;    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=' + PassWord  +       ';Persist Security Info=True;User ID=' + UserName+       ';Initial Catalog=AponZZBDB;Data Source=' +Server+       ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;' +       'Use Encryption for Data=False;Tag with column collation when possible=False';    ADOConnection1.loginprompt := false;  except  end;end;procedure TForm1.FormCreate(Sender: TObject);begin      Read_inifile;      Initialize;      ADOQuery1.Close;      ADOQuery1.SQL.Clear;      adoquery1.SQL.text:= 'select *,serialno = substring(zzbdata,1,4) from tbl_zzbinfo';      adoquery1.Open;end;end.