unit6.pas

停车厂管理系统 麻雀虽小 但是五脏齐全

unit Unit6;

interface

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

type
  Tform6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form6: Tform6;

implementation

uses Unit11;

{$R *.dfm}
procedure clearface();
begin
  with form6 do
  begin
    edit1.Clear;
    edit2.Clear;
    edit1.SetFocus;
  end
end;

function check(s1,s2:String):boolean;
begin
    check:=false;
    if trim(s1)='' then
    begin
      showmessage('请输入停车类型');
      form6.edit1.SetFocus;
    end
  else if trim(s2)='' then
    begin
      showmessage('请输入每分钟收费标准');
      form6.edit2.SetFocus;
    end
  else
    check:=true;
end;

procedure Tform6.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in['0'..'9',#008,'.']) then
     begin
       key:=#0;
       messagebox(handle,'有效输入字符为数字与小数点','系统提示',mb_ok+mb_iconinformation);
     end
end;

procedure Tform6.Edit2Exit(Sender: TObject);
begin
  if trim(edit2.Text)<>'' then
  try
  strtofloat(edit2.Text)
  except
  messagebox(handle,'无效数字，请重新输入','系统提示',mb_ok+mb_iconinformation);
  edit2.Clear;
  edit2.SetFocus;
  end;
end;

procedure Tform6.BitBtn1Click(Sender: TObject);
begin
  if check(edit1.Text,edit2.Text) then
    begin
      adotable1.Open;
      if adotable1.Locate('carclass',trim(edit1.Text),[locaseInsensitive]) then
        begin
        messagebox(handle,'该停车类型已存在','系统提示',mb_ok+mb_iconinformation);
        edit1.SetFocus;
        end
      else
      begin
      adotable1.Edit;
      adotable1.AppendRecord([trim(edit1.Text),trim(edit2.Text)]);
      clearface();
      end;
    end;
end;

procedure Tform6.BitBtn2Click(Sender: TObject);
begin
   if check(edit1.Text,edit2.Text) then
     begin
       if adotable1.Locate('carclass',trim(edit1.Text),[locaseInsensitive]) then
       begin
       adotable1.Open;
       adotable1.Edit;
       adotable1.Fields[1].Value:=trim(edit2.Text);
       adotable1.Post;
       clearface();
       end
       else
       begin
       messagebox(handle,'没有找到要修改的类型','系统提示',mb_ok+mb_iconinformation);
       edit1.SetFocus;
       end;
     end
end;

procedure Tform6.BitBtn3Click(Sender: TObject);
var
  carclass:string;
begin
  if trim(edit1.Text)<>'' then
    begin
      adotable1.Open;
      if adotable1.Locate('carclass',trim(edit1.Text),[locaseInsensitive]) then
      begin //找到了要删除的类型
        carclass:=trim(adotable1.Fields[0].Value);
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from car where carclass=:carclass');
        adoquery1.Parameters.ParamByName('carclass').Value:=carclass;
        adoquery1.Open;  //查找要删除的停车类型是否在使用
        if adoquery1.IsEmpty then
        begin
          adotable1.Delete;
          clearface();
        end
        else
          begin
          messagebox(handle,'对不起！该类型正在使用'+#10+'只有在没有使用时才能删除','系统提示',mb_ok+mb_iconinformation);
          edit1.SetFocus;
          end;
      end
      else
      begin
        messagebox(handle,'未找到您要删除的类型'+#10+'请确认类型正确','系统提示',mb_ok+mb_iconinformation);
        edit1.SetFocus;
      end;
    end
    else
      begin
      messagebox(handle,'对不起！请输入要删除的类型','系统提示',mb_ok+mb_iconinformation);
      edit1.SetFocus;
      end;
end;

procedure Tform6.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=false;
end;

procedure Tform6.FormActivate(Sender: TObject);
begin
  adotable1.Open;
  clearface();
end;

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

procedure Tform6.DBGrid1CellClick(Column: TColumn);
begin
  if not adotable1.IsEmpty then
  begin
  edit1.Text:=trim(adotable1.Fields[0].Value);
  edit2.Text:=trim(adotable1.Fields[1].Value);
  end;
end;

end.