serchtrainid.pas

基于DELPHI的列车时刻查询系统设计与实现

unit SerchTrainID;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinSpeedButtons, KsSkinToolBars, StdCtrls,
  KsSkinComboBoxs, KsSkinLabels, KsSkinPanels, Grids, KsSkinGrids,
  KsSkinEdits;

type
  TfrmSerchTrainID = class(TForm)
    DBGrid: TSeSkinStringGrid;
    SeSkinPanel1: TSeSkinPanel;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinToolBar1: TSeSkinToolBar;
    btnSerch: TSeSkinSpeedButton;
    btnPrint: TSeSkinSpeedButton;
    btnClose: TSeSkinSpeedButton;
    edtTrainName: TSeSkinEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnSerchClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSerchTrainID: TfrmSerchTrainID;

implementation

{$R *.DFM}

uses DataModule,Main;

procedure TfrmSerchTrainID.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmSerchTrainID.FormDestroy(Sender: TObject);
begin
  frmSerchTrainID := nil;
end;

procedure TfrmSerchTrainID.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSerchTrainID.btnSerchClick(Sender: TObject);
var
  strSelect: string;
  i : integer;
begin
  I := 1;
  //strSelect := 'Select * from Student where 1 = 1 ';

  strSelect := 'SELECT TrainBase.TrainID, TrainBase.TrainName, TypeBase.Name AS TypeName, SiteBase.Name AS StartSite,';
  strSelect := strSelect + ' SiteBase_1.Name AS EndSite, TrainBase.StartTime, TrainBase.EndTime, TrainBase.Mileage, ';
  strSelect := strSelect + ' TrainBase.SumTime, TrainPrice.GeneralSeat, TypeBase.Name AS TypeBase_Name, ';
  strSelect := strSelect + ' TrainPrice.SoftSeat, TrainPrice.GeneralBed, TrainPrice.SoftBed ';
  strSelect := strSelect + ' FROM TypeBase RIGHT JOIN ((SiteBase RIGHT JOIN (TrainBase LEFT JOIN SiteBase AS SiteBase_1 ON TrainBase.EndSiteID = SiteBase_1.ID) ';
  strSelect := strSelect + ' ON SiteBase.ID = TrainBase.StartSiteID) INNER JOIN TrainPrice ON TrainBase.TrainID = TrainPrice.TrainID) ';
  strSelect := strSelect + ' ON TypeBase.TypeID = TrainBase.TypeID';
  strSelect := strSelect + ' WHERE 1=1';
  if edtTrainName.Text <> '' then
    strSelect := strSelect + ' AND TrainBase.TrainName = ''' + edtTrainName.Text + '''';  
  with DataModule1.qrySelect do
  begin
    if Active then Close ;
    Sql.Text := strSelect;
    //inputbox('','',strselect);
    Open;
    DBGrid.RowCount := RecordCount + 1 ;
    DBGrid.ColCount := 14;
    DBGrid.ColWidths[0] := 16;
    DBGrid.ColWidths[1] := 40;
    DBGrid.ColWidths[2] := 80;
    DBGrid.ColWidths[3] := 80;
    DBGrid.ColWidths[4] := 80;
    DBGrid.ColWidths[5] := 80;
    DBGrid.ColWidths[6] := 80;
    DBGrid.ColWidths[7] := 80;
    DBGrid.ColWidths[8] := 60;
    DBGrid.ColWidths[9] := 60;
    DBGrid.ColWidths[10] := 100;
    DBGrid.ColWidths[11] := 100;
    DBGrid.ColWidths[10] := 100;
    DBGrid.ColWidths[11] := 100;
    DBGrid.Cells[1,0] := ' 编号';
    DBGrid.Cells[2,0] := ' 车次';
    DBGrid.Cells[3,0] := ' 类型';
    DBGrid.Cells[4,0] := ' 始发站';
    DBGrid.Cells[5,0] := ' 终点站';
    DBGrid.Cells[6,0] := ' 始发时间';
    DBGrid.Cells[7,0] := ' 到点时间';
    DBGrid.Cells[8,0] := ' 公里数';
    DBGrid.Cells[9,0] := ' 共用时间';
    DBGrid.Cells[10,0] := ' 硬座价格';
    DBGrid.Cells[11,0] := ' 软座价格';
    DBGrid.Cells[12,0] := ' 硬卧价格';
    DBGrid.Cells[13,0] := ' 软卧价格';
    first;
    while not eof do
    begin
      DBGrid.Cells[1,i] := FieldByName('TrainID').AsString;
      DBGrid.Cells[2,i] := FieldByName('TrainName').AsString;
      DBGrid.Cells[3,i] := FieldByName('TypeName').AsString;
      DBGrid.Cells[4,i] := FieldByName('StartSite').AsString;
      DBGrid.Cells[5,i] := FieldByName('EndSite').AsString;
      DBGrid.Cells[6,i] := FieldByName('StartTime').AsString;
      DBGrid.Cells[7,i] := FieldByName('EndTime').AsString;
      DBGrid.Cells[8,i] := FieldByName('Mileage').AsString;
      DBGrid.Cells[9,i] := FieldByName('SumTime').AsString;
      DBGrid.Cells[10,i] := FieldByName('GeneralSeat').AsString;
      DBGrid.Cells[11,i] := FieldByName('SoftSeat').AsString;
      DBGrid.Cells[12,i] := FieldByName('GeneralBed').AsString;
      DBGrid.Cells[13,i] := FieldByName('SoftBed').AsString;
      i:= i+1;
      next;
    end;
    first;
    Close;
  end;
end;

procedure TfrmSerchTrainID.FormShow(Sender: TObject);
begin
  btnSerchClick(nil);
end;

end.