carddele.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit CardDele;

interface

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

type
  TFrm_CardDele = class(TForm)
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Lb_kysj: TLabel;
    Lb_ZS: TLabel;
    Lb_X: TLabel;
    Lb_Y: TLabel;
    LB_CardType: TLabel;
    Lb_Deposit: TLabel;
    LB_Payment: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    LB_Gift: TLabel;
    LB_JSSS: TLabel;
    Label11: TLabel;
    LB_SYJE: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Btn_Read: TButton;
    Btn_Dele: TButton;
    Btn_Close: TButton;
    Bevel2: TBevel;
    LB_CardDate: TLabel;
    LB_CardTime: TLabel;
    LB_Gname: TLabel;
    LB_IdentityNo: TLabel;
    LB_Tele: TLabel;
    edt_HT: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Btn_ReadClick(Sender: TObject);
    procedure Btn_DeleClick(Sender: TObject);
  private
    procedure ValidCheck(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_CardDele: TFrm_CardDele;

implementation

uses sys_dm, sys_global, DllDef ;

{$R *.dfm}

var
  checkFlag: char;

procedure TFrm_CardDele.FormShow(Sender: TObject);
begin
  LB_CardType.Caption := '' ;
  Lb_Deposit.Caption := '' ;
  LB_Payment.Caption := '' ;
  LB_Gift.Caption := '' ;
  LB_JSSS.Caption := '' ;
  LB_SYJE.Caption := '' ;
  LB_CardDate.Caption  := '' ;
  LB_CardTime.Caption  := '' ;
  LB_Gname.Caption  := '' ;
  LB_IdentityNo.Caption  := '';
  LB_Tele.Caption  := '' ;
  if ChkCard(m_com) = 0  then Btn_Read.Click ;  // 如果插入了卡，则读卡
end;

procedure TFrm_CardDele.Btn_ReadClick(Sender: TObject);
var
  p: array[0..32] of char;
  I:INTEGER;
begin
  if ChkCard(m_com) <> 0  then  begin
     messagebox(handle,' 请插入IC卡  ', '提示', mb_ok+MB_ICONWARNING);
     exit ;
  end;
  // 检查IC卡是否是新卡
  I:=GETNO(m_com, p);
  if I<>0 then  begin
     messagebox(handle,PCHAR(GETMSG(I)), '提示', mb_ok+MB_ICONWARNING);
     exit;
  end;
  if CardInfo(m_ICtype, m_ICno, m_ICmoney, m_ICdate)= 0 then  // 读卡成功
  begin
     if m_ICtype='4' then begin   // 计时卡
        Lb_kysj.Visible := true ;
        LB_JSSS.visible := true ;     //显示可用时间
        Lb_X.Visible := true ;
        Lb_ZS.Visible := false ;
        LB_Gift.Visible := false ;   //不显示赠送
        Lb_Y.Visible := false ;
     end else begin
        Lb_kysj.Visible := false ;
        Lb_JSSS.visible := false ;     //不显示可用时间
        Lb_X.Visible := false ;
        Lb_ZS.Visible := true ;
        LB_Gift.Visible := true ;   //显示赠送
        Lb_Y.Visible := true ;
     end;
  end else begin
        messagebox(handle,' 卡已损坏, 请再试几次 ', '提示', mb_ok+MB_ICONWARNING);
        exit ;
  end;

  if m_ICtype <> '4' then      // 对非计时卡，四舍五入
     m_ICmoney := round(m_ICmoney);

  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.clear;
    sql.text := 'select * from card where Icno='+intTostr(strToint(m_ICno)) ;
    open;
    LB_CardType.Caption := fieldbyname('icType').AsString ;
    Lb_Deposit.Caption := floatTostr(fieldbyname('Deposit').AsFloat);
    LB_Payment.Caption := floatTostr(fieldbyname('Payment').AsFloat);
    LB_Gift.Caption := floatTostr(fieldbyname('Gift').AsFloat);
    LB_JSSS.Caption := floatTostr(fieldbyname('JSSS').AsFloat /60) ;
    if m_ICtype='4' then begin  // 计时卡
       LB_SYJE.caption := GetHourMinute(Trunc(m_ICmoney)) ;
       edt_HT.Text := Lb_Deposit.Caption ;
       edt_HT.Enabled := true ;
    end else begin
       LB_SYJE.caption := floatTostr(m_ICmoney)+'   元' ;
       edt_HT.Text := floatTostr(m_ICmoney+strTofloat(Lb_Deposit.Caption)) ;
       edt_HT.Enabled := false ;
    end;

    LB_CardDate.Caption := formatdatetime('yyyy"-"mm"-"dd', m_ICdate) ;
    LB_CardTime.Caption := formatdatetime('hh":"nn":"ss', m_ICdate) ;
    LB_Gname.caption := fieldbyname('Gname').AsString ;
    LB_IdentityNo.caption := fieldbyname('IdentityNo').AsString ;
    LB_Tele.caption := fieldbyname('Tele').AsString ;
  end;
  Btn_Read.Tag := 1 ;
end;

procedure TFrm_CardDele.ValidCheck(Sender: TObject);
var
  p: array[0..32] of char;
  IcCardNo: string ;
begin
  // 检查有无IC卡插入
  if ChkCard(m_com) <> 0  then  begin
     messagebox(handle,' 请插入IC卡  ', '提示', mb_ok+MB_ICONWARNING);
     checkFlag :='0' ;
     exit ;
  end;
  // 检查是否更换了其它的卡
  if getno(m_com, p) = 7 then  begin
     messagebox(handle,pchar(' 这已是一张新卡.'+#13+#13+' 按确定键退出 ! '), '提示', mb_ok+MB_ICONWARNING);
     checkFlag :='0' ;
     exit ;
  end else begin
     IcCardNo := copy(p,2,5) ;
     if IcCardNo <> m_ICno then begin
       messagebox(handle,' 已换了另一张卡, 按确定键退出 ! ', '提示', mb_ok+MB_ICONWARNING);
       checkFlag :='0' ;
       exit ;
     end;
  end;
  // 检查网络是否正常
  m_Stop := '0' ;
  ServerDateTime ;
  if m_Stop = '9' then begin
     messagebox(handle,' 网络不通, 该卡暂时不能注销! ', '提示', mb_ok+MB_ICONWARNING);
     checkFlag :='0' ;
     exit ;
  end;

  edt_HT.text := trim(edt_HT.text);
  if Trim(edt_HT.text)='' then  edt_HT.text := '0' ;
  try
    strTofloat(edt_HT.text)
  except
    MessageBox(handle, ' 退回的金额有错！','提示', mb_ok+mb_iconstop);
    edt_HT.SetFocus ;
    checkFlag :='0' ;
    exit;
  end;
end;


procedure TFrm_CardDele.Btn_DeleClick(Sender: TObject);
begin
  if Btn_Read.Tag = 0 then begin
     messagebox(handle, '请先读卡, 再注销.', '提示', mb_ok+mb_iconstop);
     exit ;
  end;

  checkFlag := '1' ;     // 假定能通过有效性检查
  ValidCheck(sender);    // 进行有效性检查
  if checkFlag='0' then exit; // 若检查通不过, 则自动退出

  if messagebox(handle,pchar('退回客人 '+edt_ht.Text+' 元'+#13+#13+'　您要注销吗? '), '提示',mb_okcancel+mb_iconquestion)=idcancel then
     exit ;

  // 注销IC卡
  if canc(m_com,pchar(m_ICtype+m_ICno))<>0 then begin
      messagebox(handle, pchar(' 卡可能损坏, 请重新注销.'+#13+' 按确定键退出! '), '提示', mb_ok+MB_ICONWARNING);
      exit ;
  end;
  // 删除CARD中相应的记录, 在delcard 中插入一条记录
  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.clear;
    sql.text := 'delete from card where Icno='+intTostr(strToint(m_ICno)) ;
    try
      execsql;
    except
      beep;
    end;

    close ;
    sql.clear;
    sql.text := 'insert into DelCard (CardNo, DelTime)  values (:CardNo, :DelTime)' ;
    Parameters.parambyname('CardNo').Value := strToint(m_ICno) ;
    Parameters.parambyname('DelTime').value := now ;
    try
      execsql
    except
      beep;
    end;
  end;

  // 向借贷表插入一条记录
  if strTofloat(edt_HT.text)>=0.5 then
  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.clear;
    sql.Text := 'insert into Pbill (icNo, Edate, itemName, DF, Operator) values (:icNo, :Edate, :itemName, :DF, :Operator)' ;
    Parameters.parambyname('icNo').Value := strToint(m_ICno) ;
    Parameters.parambyname('Edate').value := now ;
    Parameters.parambyname('itemName').value := 'HT' ;
    Parameters.parambyname('DF').value := strTofloat(edt_HT.text);
    Parameters.parambyname('Operator').value := m_OpName ;
    try
      execsql;
    except
      beep;
    end;
  end;
  beep;
  messagebox(handle,'注销成功！','提示信息',64);
end;

end.