bm_trainu.pas

DELPHI办公全套管理系统

unit BM_TRAINU;

interface

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

type
  TBM_TRAINF = class(TForm)
    AQ_TRAIN: TADOQuery;
    DS_AQ_TRAIN: TDataSource;
    TabbedNotebook1: TTabbedNotebook;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    AQ_BIN: TADOQuery;
    DS_BIN: TDataSource;
    Edit4: TEdit;
    Label4: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BM_TRAINF: TBM_TRAINF;

implementation

uses BM_DMU;

{$R *.dfm}

procedure TBM_TRAINF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TBM_TRAINF.SpeedButton1Click(Sender: TObject);
var tsql:string;
begin
   tsql:='select 车次,始发站,终到站,到达时刻,开车时刻 from 列车';
 if edit1.Text <>'' then
 begin
   tsql:=tsql+' where 车次="' +edit1.Text +'"';
   if edit2.Text <>'' then
    begin
      tsql:=tsql+' and 始发站="'+edit2.Text +'"';
    end;
    if edit3.Text <>'' then
    begin
      tsql:=tsql+' and 终到站="'+edit3.Text +'"';
    end;
 end
 else
  if edit2.Text <>'' then
    begin
        tsql:=tsql+' where 始发站="'+edit2.Text +'"';
        if edit3.Text <>'' then  tsql:=tsql+' and 终到站="'+edit3.Text +'"';
    end
   else
  if  edit3.Text <>'' then
    begin
     tsql:=tsql+' where 终到站="'+edit3.Text +'"';
  end;



   with AQ_TRAIN do
    begin
      close;
      sql.Clear ;
      sql.Add(tsql);
      open;
    end;

end;

procedure TBM_TRAINF.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TBM_TRAINF.SpeedButton6Click(Sender: TObject);
var bsql:string;
begin
   bsql:='select * from 旅馆';

  if Edit4.Text <>'' then
  begin
     bsql:=bsql+' where address like "' +edit4.Text +'%"';
  end;


   with AQ_BIN do
    begin
    close;
    sql.Clear ;
    sql.Add(bsql);
    open;

    end;
end;

end.