cw_spcx.pas

结于初学者来说这对数据库是一个很好的例子

unit cw_spcx;

interface

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

type
  TForm51 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    CB_menu: TComboBox;
    Button1: TButton;
    GroupBox3: TGroupBox;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    Label2: TLabel;
    E_handno: TEdit;
    Button2: TButton;
    Label4: TLabel;
    rqq: TDateTimePicker;
    Label5: TLabel;
    rqh: TDateTimePicker;
    T_snmenu: TTable;
    Q_zhangdan: TQuery;
    DS_zhangdan: TDataSource;
    DBGrid1: TDBGrid;
    Label6: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form51: TForm51;

implementation

{$R *.dfm}

procedure TForm51.SpeedButton1Click(Sender: TObject);
begin
 close;
end;

procedure TForm51.FormShow(Sender: TObject);
begin
  T_snmenu.Active:=False;
  T_snmenu.Active:=true;
  cb_menu.Clear;
  while not T_snmenu.Eof do
  begin
   Cb_menu.Items.Add(t_snmenu.fieldbyname('menuname').AsString);
   T_snmenu.Next;
  end;
  rqq.Date:=date-1;
  rqh.Date:=date;
  E_handno.Clear;
  Q_zhangdan.Active:=False;
end;

procedure TForm51.Button1Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  Q_zhangdan.SQL.Clear;
  Q_zhangdan.SQL.Add('select * from h_sn_dinlist where (begintime is not null) and (endtime is not null) and menuname='''+CB_menu.Text+''' and cstr(EndTime) between '''+aaa+''' and '''+bbb+''' order by begintime');
  Q_zhangdan.Active:=true;
  label6.Caption:='共'+inttostr(Q_zhangdan.RecordCount)+'条记录';
end;

procedure TForm51.Button2Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  Q_zhangdan.SQL.Clear;
  Q_zhangdan.SQL.Add('select * from h_sn_dinlist where (begintime is not null) and (endtime is not null) and handno='''+E_handno.Text+''' and cstr(EndTime) between '''+aaa+''' and '''+bbb+''' order by begintime');
  Q_zhangdan.Active:=true;
  label6.Caption:='共'+inttostr(Q_zhangdan.RecordCount)+'条记录';

end;

end.