unit3.pas

来自「使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL」· PAS 代码 · 共 58 行

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  Ttishi1 = class(TForm)
    Panel1: TPanel;
    StaticText3: TStaticText;
    StaticText1: TStaticText;
    Panel2: TPanel;
    Image1: TImage;
    Image2: TImage;
    procedure Image3Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tishi1: Ttishi1;

implementation

uses dengji;

{$R *.dfm}

procedure Ttishi1.Image3Click(Sender: TObject);
begin
tishi1.close;
end;

procedure Ttishi1.Panel1Click(Sender: TObject);
begin
dengjitab1.show;
dengjitab1.Edit1.Text :='';
dengjitab1.Edit2.Text :='';
dengjitab1.Edit3.Text :='';
dengjitab1.Edit4.Text :='';
dengjitab1.ComboBox1.Text :='选择车型';
dengjitab1.Edit2.Text :=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
close;
end;

procedure Ttishi1.Image1Click(Sender: TObject);
begin
close;
end;

end.