ckdengji.~pas

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

unit ckdengji;

interface

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

type
  Tchukou = class(TForm)
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DataSource2: TDataSource;
    Edit8: TEdit;
    Edit9: TEdit;
    DataSource3: TDataSource;
    Table2: TTable;
    DBGrid2: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    DataSource4: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chukou: Tchukou;
  cwh: integer;
  t1: TdateTime;
  t2: TdateTime;
  t:  TdateTime;
  money: Single;
  m:string;
  cx:string;
implementation

{$R *.dfm}

procedure Tchukou.Button1Click(Sender: TObject);
begin
with Query1 do
 begin
   Close;
   Unprepare;
   ParamByName('Param1').Asstring:=Edit1.Text;
   Prepare;
   Open;
   Edit1.Text:=FieldValues['车牌号码'];
   Edit2.Text:=FieldValues['车辆型号'];
   Edit3.Text:=FieldValues['分配车位'];
   Edit4.Text:=FieldValues['入场时间'];
   Edit5.Text:=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
   Edit8.Text:=FieldValues['编号'];
   Edit9.Text:=FieldValues['备注'];
   cwh:=FieldValues['分配车位'];
   cx:=FieldValues['车辆型号'];
  end;

  with Table1 do
   begin
   Insert;
   FieldValues['车牌号码'] :=Edit1.Text;
   FieldValues['车辆型号'] :=Edit2.Text;
   FieldValues['车位号码'] :=Edit3.Text;
   FieldValues['入场时间'] :=Edit4.Text;
   FieldValues['出场时间'] :=Edit5.Text;
   FieldValues['编号'] :=Edit8.Text;
   FieldValues['是否在场'] :='已离开';
   FieldValues['备注'] :=Edit9.Text;
   Post;
   t1:=FieldValues['入场时间'];
   t2:=FieldValues['出场时间'];
   t:=t2-t1;
   if t<1 then
   Edit6.Text:=formatdatetime('00  hh:mm:ss',t)
   else
   Edit6.Text:=formatdatetime('dd  hh:mm:ss',t);
   if cx='A型' then
    money:= t*24*3
   else if cx='B型' then
    money:= t*24*2
   else
    money:= t*24*1.5;
    str(money,m);
    Edit7.Text:=m;
  end;

 with Table2 do
  begin
   Table2.FindKey([cwh]);
   Table2.Delete;
   Insert;
   FieldValues['车位号码']:=cwh;
   FieldValues['是否占用']:='No';
   Post;
   Table2.Refresh;
  end;

end;
procedure Tchukou.FormCreate(Sender: TObject);
begin
Query1.DatabaseName:='PMIS1';
  Query1.SQL.Add('SELECT * FROM 入场车辆登记表 WHERE 车牌号码 =:Param1');

  Query1.ParamByName('Param1').Asstring :='';
  DataSource2.DataSet:=Query1;

  Query1.Active:=True;

end;

end.