unit14.pas

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

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    adt_set: TADOTable;
    Button1: TBitBtn;
    Button2: TBitBtn;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses Unit11;

{$R *.dfm}

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

procedure TForm14.Button2Click(Sender: TObject);
begin
 self.Close;
end;

procedure TForm14.FormShow(Sender: TObject);
begin
  adt_set.First;
  edit2.Text:=trim(adt_set.FieldByName('ltime').Value);
  edit1.Text:=trim(adt_set.fieldbyname('lmoney').Value);
end;

procedure TForm14.Edit1KeyPress(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 TForm14.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 TForm14.Button1Click(Sender: TObject);
begin
   if trim(edit1.Text)='' then
     begin
       messagebox(handle,'余额不足提醒不能为空','系统提示',mb_ok+mb_iconinformation);
       edit1.SetFocus;
     end
   else if trim(edit2.Text)='' then
     begin
       messagebox(handle,'免费停车时间不能为空','系统提示',mb_ok+mb_iconinformation);
       edit2.SetFocus;
     end
   else
     begin
       adt_set.Edit;
       adt_set.FieldByName('ltime').Value:=trim(edit2.Text);
       adt_set.FieldByName('lmoney').Value:=trim(edit1.Text);
       adt_set.Post;
       self.Close;
     end
end;

procedure TForm14.FormActivate(Sender: TObject);
begin
adt_set.Open;
end;
end.