dengji.~pas

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

unit dengji;

interface

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

type
  Tdengjitab1 = class(TForm)
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    StaticText1: TStaticText;
    Edit3: TEdit;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    Table1: TTable;
    BitBtn1: TBitBtn;
    StaticText6: TStaticText;
    Edit5: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Query2: TQuery;
    Table2: TTable;
    DataSource4: TDataSource;
    Query3: TQuery;
    Query4: TQuery;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dengjitab1: Tdengjitab1;
  num: integer;
  cwh: integer;
  implementation

{$R *.dfm}




procedure Tdengjitab1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'A型' then
 dengjitab1.Edit3.Text :='3 元/小时';
if ComboBox1.Text = 'B型' then
 dengjitab1.Edit3.Text :='2 元/小时';
if ComboBox1.Text = 'C型' then
 dengjitab1.Edit3.Text :='1.5 元/小时';
end;



procedure Tdengjitab1.BitBtn1Click(Sender: TObject);
begin
 with Query1 do
  begin
  num :=FieldValues['编号'];
  num :=num+1;
  end;

if ComboBox1.Text = 'A型' then
begin
 with Query2 do
  begin
   Query2.Active:=True;
   cwh :=FieldValues['车位号码'];
  end;
end;

if ComboBox1.Text = 'B型' then
begin
 with Query3 do
  begin
   Query3.Active:=True;
   cwh :=FieldValues['车位号码'];
  end;
end;

if ComboBox1.Text = 'C型' then
begin
 with Query4 do
  begin
   Query4.Active:=True;
   cwh :=FieldValues['车位号码'];
  end;
end;

 with Table1 do
  begin
 Insert;
 FieldValues['车牌号码'] :=Edit1.Text;
 FieldValues['车辆型号'] :=ComboBox1.Text;
// FieldValues['入场时间'] :=Edit2.Text;
 FieldValues['入场时间'] :=now;
 FieldValues['计费标准'] :=Edit3.Text;
 FieldValues['分配车位'] :=cwh;
 FieldValues['备注'] :=Edit5.Text;
 FieldValues['编号'] :=num;
 Post;
 dengjitab1.Edit4.Text :=FieldValues['分配车位'];
  end;

 with Table2 do
  begin
  Table2.FindKey([cwh]);
  Table2.Delete;
  Insert;
  FieldValues['车位号码']:=cwh;
  FieldValues['是否占用']:='Yes';
  Post;
  Table2.Refresh;
  end;
 dengjitab1.Edit2.Text :=formatdatetime('yyyy-mm-dd hh:mm:ss',now);


end;


procedure Tdengjitab1.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tdengjitab1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName:='PMIS1';
  DataSource1.DataSet:=Table1;
  Table1.Active:=True;
  Table2.DatabaseName:='PMIS1';
  DataSource2.DataSet:=Table2;
  Table2.Active:=True;
end;

end.