zdengji.pas

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

unit zdengji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DBTables, DB, Grids, DBGrids, jpeg, ADODB;

type
  Tdengji2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    StaticText1: TStaticText;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Image6: TImage;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    Image2: TImage;
    StaticText10: TStaticText;
    Image3: TImage;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText6: TStaticText;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dengji2: Tdengji2;
  m:integer;
  car:string;

implementation

uses new_cheku;



{$R *.dfm}

procedure Tdengji2.Button1Click(Sender: TObject);
begin
//        m:=new_cheku.m;
//        statictext8.Caption := IntToStr(m);   .
//        edit2.text:='faint';
end;


procedure Tdengji2.FormCreate(Sender: TObject);
begin
//        m:=new_cheku.bitbutton[i][j].tag;
//        statictext8.Caption := IntToStr(m);
        edit2.text:='faint';
        statictext8.Caption := inttostr(m);
     //   car:=bitbutton.tag;
end;

end.