zwcl.pas

信息管理系统

unit zwcl;

interface

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

type
  Tzwclfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    sta: TStatusBar;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  paiche:Tpaichein;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zwclfrm: Tzwclfrm;

implementation

{$R *.dfm}

procedure Tzwclfrm.BitBtn1Click(Sender: TObject);
begin          //退出查询
  paiche.Free;
  close;
end;

procedure Tzwclfrm.FormShow(Sender: TObject);
var
  n:integer;
  sqlstr1:string;
begin
  paiche:=Tpaichein.create;
  sqlstr1:='select * from vehicle_data where vehicle_no not in (select vehicle_no from work_info where (time_from is not NULL) AND (time_to is NULL))';
  n:=paiche.Find(sqlstr1);
  clientdataset1.Data:=paiche.Sel(sqlstr1);       //将查询到的在位车辆记录存入在位车辆表中
  if n<>0 then
     sta.Panels[0].Text :='当前在位车辆有 '+inttostr(n)+' 辆。'
  else
     sta.Panels[0].Text :='当前没有在位车辆。';
end;

end.