unit8.pas

来自「停车厂管理系统 麻雀虽小 但是五脏齐全」· PAS 代码 · 共 102 行

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
begin  //增加车位
  adotable1.Open;
  if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
    begin
       if not adotable1.Locate('addressid',edit1.Text,[locaseinsensitive]) then
         begin
         adotable1.Edit;
         adotable1.AppendRecord([edit1.Text,edit2.Text,0]);
         end
       else
         messagebox(handle,'该停车场编号已存在，请换个编号','系统提示',mb_ok+mb_iconinformation);
    end
  else
    messagebox(handle,'编号与地址不能为空','系统提示提示',mb_ok+mb_iconinformation);
end;

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not(key in['0'..'9','a'..'z',#008]) then
    begin
      key:=#0;
     end
end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin  //删除车位
  if adotable1.FieldByName('addresscase').Value=0 then
   begin
   adotable1.Edit;
   adotable1.Delete;
   adotable1.Next;
   end
   else
   messagebox(handle,'该车位正在使用不能删除','系统提示',mb_ok+mb_iconinformation);
end;

procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
  if   not (adotable1.FieldByName('addressid').Value=null) then
  begin
  edit1.Text:=trim(adotable1.FieldByName('addressid').Value);
  edit2.Text:=trim(adotable1.FieldByName('address').Value);
  end;
end;

procedure TForm8.FormActivate(Sender: TObject);
begin
adotable1.Open;
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Close;
end;

end.