logoutunit.pas

完整的ic卡管理软件

unit logoutUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsdbctrls, StdCtrls, Mask, bsSkinBoxCtrls,
  BusinessSkinForm, bsMessages;

type
  TlogoutForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinButton3: TbsSkinButton;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logoutForm: TlogoutForm;

implementation
uses
 datamodel,mainUnit;

{$R *.dfm}

procedure TlogoutForm.bsSkinButton1Click(Sender: TObject);

begin
  if logoutFORM.bsSkinMessage1.MessageDlg('确定要注销IC卡,及相关卡信息?',mtInformation,[mbyes,mbno],0)=mrno  then
   begin
    exit;
   end
   else
   begin
    //********删除卡信息***********
      with datamodule1.carQuery do
       begin
            close;
            sql.Clear;
            sql.Add('delete * from carMIS where carid=:a');
            parameters[0].Value:=bsskinedit2.Text;
            Execsql;
       end;
    //********删除机器编号,名称信息*******
     with datamodule1.alarmadressQuery do
       begin
          close;
          sql.Clear;
          sql.Add('delete * from Car_adress where carid=:a');
          parameters[0].Value:=bsskinedit2.Text;
          ExecSQL;
       end;
     //********删除相关报警信息*******
       with datamodule1.alarmQuery do
         begin
           close;
           sql.Clear;
           sql.Add('delete * from alarm where carid=:a');
           parameters[0].Value:=bsSkinEdit1.Text;
           EXECSQL;
         end;
     //*******删除人员信息**********
       with datamodule1.alarmQuery do
         begin
           close;
           sql.Clear;
           sql.Add('delete * from personMIs where persionID=:a');
           parameters[0].Value:=bsskinedit1.Text;
           EXECSQL;
         end;

   end;

   logoutform.bsSkinMessage1.MessageDlg('注销成功',mtInformation,[mbok],0); 

end;

procedure TlogoutForm.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure TlogoutForm.bsSkinButton3Click(Sender: TObject);
begin
  with datamodule1.carQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select * from carMIS where carid=:a');
     parameters[0].Value:=bsSkinEdit2.Text;
     open;
     bsskinedit1.Text:=fieldByname('userid').AsString;
   end;
end;

end.