train_main.pas

火车票管理系统火车票管理系统火车票管理系统火车票管理系统火车票管理系统火车票管理系统

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;