cheku.pas

使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL数据库 是我计算机双学位的毕业设计

unit cheku;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, jpeg;

type
  TPagesDlg = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    OKBtn: TButton;
    CancelBtn: TButton;
    HelpBtn: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Panel3: TPanel;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure PageControl1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PagesDlg: TPagesDlg;
  BitBtn:  array[0..60] of array[0..60] of TBitBtn;
  i,j,t: integer;
  implementation

uses zdengji;

{$R *.dfm}

procedure TPagesDlg.PageControl1Change(Sender: TObject);
begin
Query1.Active :=False;
Query1.Active :=True;
end;

procedure TPagesDlg.Image1Click(Sender: TObject);
begin
for i:=0 to 9 do
begin
for j:=0 to 5 do
begin
BitBtn[i][j]:=TBitBtn.Create(self);
BitBtn[i][j].Parent:=self;
t:= 0;
BitBtn[i][j].Glyph.LoadFromFile('F:\Program Files\MY PMIS\logo\2.bmp');
if (j=2)or(j=3) then
begin
t:= 10;
BitBtn[i][j].Glyph.LoadFromFile('F:\Program Files\MY PMIS\logo\1.bmp');
end;
if (j=4)or(j=5) then
begin
t:= 20;
BitBtn[i][j].Glyph.LoadFromFile('F:\Program Files\MY PMIS\logo\3.bmp');
end;
BitBtn[i][j].Left:=100+60*i;
BitBtn[i][j].Top:=40+60*j+t;
BitBtn[i][j].Height:=50;
BitBtn[i][j].Width:=50;
BitBtn[i][j].Cursor:=crHandPoint;
BitBtn[i][j].OnClick:=Button1Click;
end;
//Image1.Picture.LoadFromFile('C:\Documents and Settings\victor\桌面\dd\Xmas03.jpg');
end;
end;
procedure TPagesDlg.Button1Click(Sender: TObject);
begin
 BitBtn[4][1].Glyph.LoadFromFile('F:\Program Files\MY PMIS\logo\22.bmp');
 dengji2.show;
end;





end.