data.pas

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

unit data;

interface

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

type
  Tdata1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button2: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  data1: Tdata1;

implementation

{$R *.dfm}

procedure Tdata1.Button1Click(Sender: TObject);
begin
        if ComboBox1.Text = '车牌号码' then
            begin
                ComboBox2.Visible := False;
            end
        else
        if  ComboBox1.Text = '车辆型号' then
            begin
                Edit1.Visible := False;
             end
        else
            begin
                ComboBox2.Visible := False;
            end;

end;

procedure Tdata1.FormCreate(Sender: TObject);
begin
        ADOQuery1.close;
        AdoQuery1.SQL.Clear ;
        AdoQuery1.SQL.Add('select * from 入场车辆登记表');
        AdoQuery1.Prepared ;
        AdoQuery1.Active:=true;
end;


procedure Tdata1.Button2Click(Sender: TObject);
begin
        ComboBox1.Visible := True;
        ComboBox2.Visible := True;
        Edit1.Visible := True;

        close;
end;



procedure Tdata1.Button3Click(Sender: TObject);
begin
        if ComboBox1.Text = '车牌号码' then
        begin
        adoquery1.Close ;
        adoquery1.sql.Clear ;
        adoquery1.SQL.Add('select * from 入场车辆登记表 where 车牌号码=:s0');
        adoquery1.Parameters.Clear ;
        adoquery1.Parameters.AddParameter ;
        adoquery1.Parameters[0].Name := '车牌号码';
        adoquery1.parameters[0].DataType := ftstring;
        adoquery1.Parameters[0].Direction :=pdinput;
        adoquery1.Parameters[0].Value := edit1.Text;
        end
        else if ComboBox1.Text = '车辆型号' then
        begin
        adoquery1.Close ;
        adoquery1.sql.Clear ;
        adoquery1.SQL.Add('select * from 入场车辆登记表 where 车辆型号=:s0');
        adoquery1.Parameters.Clear ;
        adoquery1.Parameters.AddParameter ;
        adoquery1.Parameters[0].Name := '车辆型号';
        adoquery1.parameters[0].DataType := ftstring;
        adoquery1.Parameters[0].Direction :=pdinput;
        adoquery1.Parameters[0].Value := ComboBox2.Text;
        end
        else
        begin
        adoquery1.Close ;
        adoquery1.sql.Clear ;
        adoquery1.SQL.Add('select * from 入场车辆登记表 where 编号=:s0');
        adoquery1.Parameters.Clear ;
        adoquery1.Parameters.AddParameter ;
        adoquery1.Parameters[0].Name := '编号';
        adoquery1.parameters[0].DataType := ftstring;
        adoquery1.Parameters[0].Direction :=pdinput;
        adoquery1.Parameters[0].Value := StrToInt(edit1.Text);
        end;
        adoquery1.Prepared ;
        adoquery1.Active:=true;
end;

end.