unit viptz;

interface

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

type
  TF_viptz = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    e_zh: TEdit;
    e_name: TEdit;
    e_date: TEdit;
    e_zlx: TEdit;
    e_yj: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    e_qk: TEdit;
    e_hk: TEdit;
    b_tz: TBitBtn;
    b_exit: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure e_zhExit(Sender: TObject);
    procedure e_zhKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure b_tzClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_viptz: TF_viptz;

implementation

uses datam;

{$R *.dfm}

procedure TF_viptz.FormShow(Sender: TObject);
begin
  e_zh.SetFocus();
  e_qk.Text:='0.00';
  e_hk.Text:='0.00';
end;

procedure TF_viptz.e_zhExit(Sender: TObject);
begin
  if e_zh.Text='' then exit
  else
   begin
     if Length(e_zh.Text)<5 then
       case Length(e_zh.Text) of
          1: e_zh.text:='0000'+e_zh.text;
          2: e_zh.text:='000'+e_zh.text;
          3: e_zh.text:='00'+e_zh.text;
          4: e_zh.text:='0'+e_zh.text;
       end
   end;
  if dm.ADO_vip.Locate('證號',e_zh.Text,[]) then
    begin
      e_name.Text:=dm.ADO_vip.fieldbyname('姓名').AsString;
      e_date.Text:=dm.ADO_vip.fieldbyname('辦證日期').AsString;
      e_zlx.Text:=dm.ADO_vip.fieldbyname('證類型').AsString;
      e_yj.Text:=formatfloat('0.00',dm.ADO_vip.fieldbyname('押金').Asfloat);
      dm.ADO_qk.Open;
      dm.ADO_qk.First;
      if dm.ADO_qk.Locate('證號',e_zh.Text,[]) then
         e_qk.Text:=formatfloat('0.00',dm.ADO_qk.FieldByName('金額').AsFloat);
      dm.ADOQ_cx.Close;
      dm.ADOQ_cx.SQL.Clear;
      dm.ADOQ_cx.SQL.add('select 編號,名稱,出租日期 from czb where 證號='+'"'+e_zh.Text+'"');
      dm.ADOQ_cx.Open;
    end;
end;

procedure TF_viptz.e_zhKeyPress(Sender: TObject; var Key: Char);
begin
   if not ( Key in ['0'..'9',#13,#8]) then Key := #0;
    if key=#13 then
      begin
       e_hk.SetFocus();
      end;
end;

procedure TF_viptz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   dm.ADOQ_cx.Close;
   dm.ADOQ_cx.SQL.Clear;
   dm.ado_qk.Close;
   dm.ADO_cash.Close;
   dm.ADO_czb.Close;
   release;
end;

procedure TF_viptz.b_tzClick(Sender: TObject);
begin
   if e_hk.Text='' then e_hk.Text:='0.00';
   if e_name.Text='' then exit;
   if not dm.ADOQ_cx.IsEmpty then
     begin
      application.MessageBox(pchar('存在未還資料,不能退證！'),pchar('提示'),48);
      exit;
     end;
   if e_qk.Text<>e_hk.Text then
     begin
      application.MessageBox(pchar('欠款未結清,不能退證！'),pchar('提示'),48);
      exit;
     end;
   //刪除欠款記錄
   if dm.ADO_qk.Locate('證號',e_zh.Text,[]) then
      dm.ado_qk.Delete;
      dm.ADO_qk.Close;
   if e_yj.text<>'0.00' then
    begin
      dm.ADO_cash.Open;
      dm.ADO_cash.AppendRecord([e_zh.text,date(),'退會員押金','0.00',e_yj.text]);
      dm.ADO_cash.Close;
    end;
   if e_hk.text<>'0.00' then
    begin
      dm.ADO_cash.Open;
      dm.ADO_cash.AppendRecord([e_zh.text,date(),'收租金',e_hk.text,'0.00']);
      dm.ADO_cash.Close;
    end;
   dm.ADO_vip.Delete;
   application.MessageBox(pchar('會員退證完成！'),pchar('提示'),64);
   close;
end;

procedure TF_viptz.b_exitClick(Sender: TObject);
begin
  close;
end;

end.