'+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