火车售票系统（毕业论文）

'+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=\ end else

if edit2.Text='' then

sq:='and train_node.train_no=\ else sq:='and

train_node.train_no=\

train_node.zhanm=\

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

and

where