unit Unit3;

interface

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

type
  Tjaqang = class(TForm)
    P1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jaqang: Tjaqang;

implementation

uses Unit1;

{$R *.dfm}

procedure Tjaqang.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tjaqang.Button1Click(Sender: TObject);
label jlsk;  //標簽
var
 jlsk1:string;
 jlsk2:integer;
//在表控件table1中查找記錄
begin
jlsk2:=234123;
jlsk1:=form1.lv1.Selected.Caption;
      form1.Table1.First;
      while not (form1.Table1.Eof) do
       begin
           if form1.Table1a1.Value=jlsk1 then  goto jlsk;
           form1.Table1.Next;
       end;
jlsk2:=0;
jlsk:  //標簽
if jlsk2<>0 then
begin
form1.table1.edit;
form1.table1a7.Value:=form1.table1a7.value+strtofloat(edit1.Text);
form1.table1.post;
close;
form1.tb1.Close;
form1.tb1.Prepared;
form1.tb1.Open;
form1.lv1_create_date;
form1.lv2sx(jlsk1,edit1.Text,'加錢');
end
else
 close;

end;

procedure Tjaqang.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.