tcgl.pas.~2~

Delphi数据库开发毕业设计指导及实例 一书的源码

unit tcgl;

interface

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

type
  Ttcgl_Form = class(TForm)
    bh_LEdit: TLabeledEdit;
    rcsj_LEdit: TLabeledEdit;
    lcsj_LEdit: TLabeledEdit;
    je_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bh_LEditExit(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tcgl_Form: Ttcgl_Form;

implementation

uses main;

{$R *.dfm}

procedure Ttcgl_Form.cmdokClick(Sender: TObject);
var
    sqlstr,id,je,lcsj:string;
begin
    try
    je:=trim(je_ledit.Text);
    if strtofloat(je) <=0 then
    begin
        ShowMessage('请输入收费金额');
        exit;
    end;
    lcsj:=trim(lcsj_ledit.Text);
    id:=Query1.fieldbyname('id').AsString;
    sqlstr:='update t_tcb set lcsj='''+lcsj+''',je='''+je+''',zt=1 where(id='''+id+''')';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.ExecSQL;
    Close;
    except
    ShowMessage('请输入合法的收费金额');
    end;
end;

procedure Ttcgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N41.Enabled:=true;
end;

procedure Ttcgl_Form.bh_LEditExit(Sender: TObject);
var
    rcsj,zt,sqlstr,bh:string;
begin
    bh:=trim(bh_ledit.Text);
    strtoint(bh);
    sqlstr:='select * from t_tcb where(bh='''+bh+''')and(zt=0)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount > 0 then
    begin
        rcsj_ledit.Text:=Query1.fieldbyname('rcsj').AsString;
        lcsj_ledit.Text:=datetimetostr(now);
    end
    else
    begin
        zt:='0';
        rcsj:=datetimetostr(now);
        sqlstr:='insert into t_tcb(bh,rcsj,zt)valuse('''+bh+''','''+rcsj+''','''+zt+''')';
        ShowMessage(sqlstr);
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add(sqlstr);
        Query1.ExecSQL;
        Close;
    end;
end;

procedure Ttcgl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Ttcgl_Form.FormCreate(Sender: TObject);
begin
  Query1.SessionName:=MainForm.Database1.SessionName;
  Query1.DatabaseName:=MainForm.Database1.DatabaseName;
end;

end.