unit5.~pas

采用JAVA语言实现的出租车计价器的程序

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ADODB;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.DFM}

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

procedure TForm5.Button1Click(Sender: TObject);
var
       strSQL,e1,e2,e3:string;
begin
           e1:=Edit1.Text; e2:=Edit2.Text; e3:=Edit3.Text;
           strSQL:='insert into ygxx(出租车号,单位,司机) values('''+e1+''','''+e2+''', '''+e3+''')';
           with TADOQuery.Create(nil) do
           begin
           try
           Close;
           Connection:=MainForm.ADOConnection1;
           SQL.Clear;
           SQL.Add(strSQL);
           ExecSQL;
           finally
           Free;
           end;
           end;
end;

end.