陆地运输运费及路线查询程序界面代码.pdfVIP

用户界面及代码 点击开始，进入信息选择界面 运行信息选择界面，如下： 在费用部分点击进入，得： 输入数据，计算得（图中数据为测试数据，非真实数据）： 然后在选择路线部分点击进入，得到简易 路线查找器： 本次试验如下：选择最短时间，点击确定；在起点和终点的下拉菜单中选择城市，如起点 定为无锡，终点定位苏州，得到路径和地图信息； unit Unit2; erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm2 = class(TForm) Panel1: TPanel; Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implemen ion uses Unit1; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin form1:=tform1.Create(application); form1.ShowModal; form1.Hide; form1.Free; end; end. unit Unit3; erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm3 = class(TForm) Panel1: TPanel; Button1: TButton; Label1: TLabel; Label2: TLabel; Panel2: TPanel; Label3: TLabel; Label4: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implemen ion uses Unit1, Unit4; {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin form1:=tform1.Create(application); form1.ShowModal; form1.Hide; form1.Free; end; procedure TForm3.Button2Click(Sender: TObject); begin form4:=tform4.Create(application); form4.ShowModal; form4.Hide; form4.Free; end; end. unit Unit1; erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;