unit train_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, StdCtrls, Buttons, DB, ADODB, ExtCtrls,
  Grids, DBGrids, DBCtrls, Mask, ActnList, DBActns;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N2: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N3: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N4: TMenuItem;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    ToolButton1: TToolButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolBar2: TToolBar;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    login: TPanel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    Label1: TLabel;
    Label2: TLabel;
    id: TEdit;
    pwd: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    select: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button3: TButton;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    train_no: TComboBox;
    zhanm: TComboBox;
    reach_time: TDBEdit;
    amount: TDBEdit;
    price: TDBEdit;
    emit_time: TDBEdit;
    r_leixing: TComboBox;
    r_riqi: TComboBox;
    buy: TButton;
    ToolBar3: TToolBar;
    GroupBox2: TGroupBox;
    tui: TDBGrid;
    DataSource2: TDataSource;
    ActionList1: TActionList;
    DataSetDelete1: TDataSetDelete;
    Button4: TButton;
    Button5: TButton;
    tuipiao: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label17: TLabel;
    Label22: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit6: TEdit;
    Edit5: TEdit;
    Button6: TButton;
    Button7: TButton;
    Edit7: TEdit;
    ADOQuery2: TADOQuery;
    Action1: TAction;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetDelete2: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetInsert1: TDataSetInsert;
    DataSource3: TDataSource;
    man: TPanel;
    Label23: TLabel;
    Panel3: TPanel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    sex: TDBComboBox;
    DBComboBox1: TDBComboBox;
    N13: TMenuItem;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure train_noChange(Sender: TObject);
    procedure zhanmChange(Sender: TObject);
    procedure r_riqiChange(Sender: TObject);
    procedure r_leixingChange(Sender: TObject);
    procedure buyClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);




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

var
  main: Tmain;

implementation

 uses piao_pas;
 var log:boolean=false;
     leixing,riqi:string;
     Distance:integer;
{$R *.dfm}

procedure Tmain.Button2Click(Sender: TObject);
begin
  main.Close;
end;

procedure Tmain.Button1Click(Sender: TObject);
var userid,userpwd:string;
    Adoquery2:TADOQuery;
begin
   userid:=id.Text;
   userpwd:=pwd.Text;
   if (userid<>'')and(userpwd<>'')then
   begin
       Adoquery2:=TADOQuery.Create(nil);
       Adoquery2.Connection:=ADOConnection1;
       Adoquery2.SQL.Clear;
       Adoquery2.SQL.Add('select id,pwd,name,deng from user0 where id="'+userid+'"');
       Adoquery2.Open;
       if (userid=Adoquery2.FieldByName('id').AsString)and(userpwd=Adoquery2.FieldByName('pwd').AsString) then
       begin
           toolbar1.Visible:=true;
           login.Hide;
           log:=true;
           N5.Caption:='注銷';
           if Adoquery2.FieldValues['deng']='管理員' then
           begin
              toolbar2.Visible:=true;
              N3.Visible:=true;
           end;
           main.Caption:='火車售票系統         歡迎你  :  '+Adoquery2.FieldByName('name').AsString;
       end
       else
           showmessage('你的輸入不正確！請確認以后再輸入');
   end
   else
       showmessage('請輸入操作員 ID和密碼！謝謝！');
   Adoquery2.Close;
   id.Text:='';
   pwd.Text:='';
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
   toolbar2.Visible:=false;
   toolbar1.Visible:=false;
end;


procedure Tmain.N5Click(Sender: TObject);
begin


  if log  then
  begin
   if  MessageDlg('確定要注銷嗎？',
    mtInformation,[mbYes, mbNo], 0)=mryes  then
   begin
    id.Clear;
    pwd.Clear;
    login.Show;
    log:=false;
    N3.Visible:=false;
    toolbar2.Visible:=false;
    toolbar1.Visible:=false;
    man.Hide;
    select.Hide;
    tuipiao.Hide;
   end;
  end
  else
    showmessage('請在下面登陸筐中輸入操作員 ID和密碼！');

end;

procedure Tmain.BitBtn2Click(Sender: TObject);
begin
   tuipiao.Hide;
   man.Hide;
   select.Show;
   combobox2.Clear;
   combobox2.Items.Add(datetostr(date()));
   combobox2.Items.Add(datetostr(date()+1));
   combobox2.Items.Add(datetostr(date()+2));
   combobox2.ItemIndex:=0;
   r_riqi.Clear;
   r_riqi.Items.Add(datetostr(date()));
   r_riqi.Items.Add(datetostr(date()+1));
   r_riqi.Items.Add(datetostr(date()+2));
end;

procedure Tmain.Button3Click(Sender: TObject);
var sq:string;
begin
  if edit1.Text='' then
  begin
    if edit2.Text='' then
    begin
       showmessage('請輸入車次，車站名');
       sq:='';
    end
    else
       sq:='and train_node.zhanm="'+edit2.Text+'"';
  end
  else
    if edit2.Text='' then
       sq:='and train_node.train_no="'+edit1.Text+'"'
    else
       sq:='and train_node.train_no="'+edit1.Text+'" and train_node.zhanm="'+edit2.Text+'"';
   leixing:=inttostr(ComboBox1.ItemIndex+7);
   r_leixing.ItemIndex:=strtoint(leixing)-7;
   riqi:=inttostr(ComboBox2.ItemIndex);
   r_riqi.ItemIndex:=strtoint(riqi);
   with Adoquery1 do
   begin
     SQL.Clear;
     SQL.Add('select * from train_node,checi where train_node.train_no=checi.train_no '+sq);
     Open;
   end;

 if sq<>'' then
   GroupBox1.Show
 else
   GroupBox1.Hide;