main.pas

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

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinForms, KsSkinEngine, KsSkinItems, KsSkinMenus,
  ImgList, ksskinstatusbar, XPMenu, ExtCtrls;

type
  TfrmMain = class(TForm)
    SeSkinEngine1: TSeSkinEngine;
    SeSkinForm1: TSeSkinForm;
    SeSkinStatusBar1: TSeSkinStatusBar;
    ImageList1: TImageList;
    SeSkinMenuBar1: TSeSkinMenuBar;
    MBaseData: TSeSkinItem;
    MTrainManage: TSeSkinItem;
    MTrainSerch: TSeSkinItem;
    MSite: TSeSkinItem;
    MTrain: TSeSkinItem;
    MPrice: TSeSkinItem;
    CustomItem1: TSeSkinItem;
    MDataBack: TSeSkinItem;
    MClose: TSeSkinItem;
    MAddTrain: TSeSkinItem;
    MTrainMode: TSeSkinItem;
    MSerchSiteToSite: TSeSkinItem;
    Timer1: TTimer;
    MSerchTrainID: TSeSkinItem;
    procedure FormCreate(Sender: TObject);
    procedure MSiteClick(Sender: TObject);
    procedure MCloseClick(Sender: TObject);
    procedure MTrainClick(Sender: TObject);
    procedure MPriceClick(Sender: TObject);
    procedure MAddTrainClick(Sender: TObject);
    procedure MTrainModeClick(Sender: TObject);
    procedure MSerchSiteToSiteClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MSerchTrainIDClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses Site, TrainType, TrainPrice, AddTrain, TrainMode,
  SiteToSite,DataModule, SerchTrainID;

{$R *.DFM}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  frmMain.Caption := '列车查询决策系统';
end;

procedure TfrmMain.MSiteClick(Sender: TObject);
begin
  frmSite := TfrmSite.Create(self);
  frmSite.Show;
end;

procedure TfrmMain.MCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.MTrainClick(Sender: TObject);
begin
  frmTrainType := TfrmTrainType.Create(self);
  frmTrainType.Show;
end;

procedure TfrmMain.MPriceClick(Sender: TObject);
begin
  frmTrainPrice := TfrmTrainPrice.Create(self);
  frmTrainPrice.show;
end;

procedure TfrmMain.MAddTrainClick(Sender: TObject);
begin
  frmAddTrain := TfrmAddTrain.Create(self);
  frmAddTrain.Show;
end;

procedure TfrmMain.MTrainModeClick(Sender: TObject);
begin
  frmTrainMode := TfrmTrainMode.Create(self);
  frmTrainMode.show;
end;

procedure TfrmMain.MSerchSiteToSiteClick(Sender: TObject);
begin
  frmSiteToSite := TfrmSiteToSite.Create(self);
  frmSiteToSite.Show;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  SeSkinStatusBar1.Panels.Items[0].Text := Formatdatetime('yyyy"年"mm"月"dd"日" hh:mm:ss',now);
end;


procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if DataModule1.qrySelect.Active then
  begin
    try
      DataModule1.qrySelect.Close;
    except
    end;
  end;
  if DataModule1.qrySerchStudent.Active then
  begin
    try
      DataModule1.qrySerchStudent.Close;
    except
    end;
  end;
end;

procedure TfrmMain.MSerchTrainIDClick(Sender: TObject);
begin
  frmSerchTrainID := TfrmSerchTrainID.Create(self);
  frmSerchTrainID.Show;
end;

end.