new_cheku.pas

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

unit new_cheku;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables;

type
  Tchewei = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chewei: Tchewei;
  BitBtn:  array[0..60] of array[0..60] of TBitBtn;
  i,j,t,m: integer;
  yn,yy: string;
implementation

uses zdengji;

{$R *.dfm}

procedure Tchewei.FormCreate(Sender: TObject);
begin
m:=1;
for i:=0 to 5 do
begin
for j:=0 to 9 do
begin
str(m,yy);
with Query1 do
 begin
   Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('SELECT 是否占用 FROM 车库状况表 WHERE 车位号码 =:Param1');
   Unprepare;
   ParamByName('Param1').Asstring:=yy;
   Open;
   Query1.Active:=True;
   yn:=FieldValues['是否占用'];

 end;

BitBtn[i][j]:=TBitBtn.Create(self);
BitBtn[i][j].Parent:=self;
t:= 0;
if yn='Yes' then
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\33.bmp')
else
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\3.bmp');
if (i=2)or(i=3) then
begin
t:= 10;
if yn='Yes' then
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\11.bmp')
else
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\1.bmp');
end;
if (i=4)or(i=5) then
begin
t:= 25;
if yn='Yes' then
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\22.bmp')
else
BitBtn[i][j].Glyph.LoadFromFile('c:\PMIS\logo\2.bmp');
end;
BitBtn[i][j].Left:=80+60*j;
BitBtn[i][j].Top:=40+60*i+t;
BitBtn[i][j].Height:=50;
BitBtn[i][j].Width:=50;
BitBtn[i][j].Cursor:=crHandPoint;
BitBtn[i][j].Tag:=m;
m:=m+1;
end;

end;
end;

end.