losecardf.pas

用delphi和sql server编写的校园IC卡管理系统。

unit losecardF;

interface

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

type
  Tlosecard = class(TForm)
    DBGrid1: TDBGrid;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Edit2: TEdit;
    Timer1: TTimer;
    Label3: TLabel;
    Edit3: TEdit;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    
     private
    { Private declarations }
  public
    { Public declarations }
    procedure clear();//定义清空函数clear();
  end;

var
  losecard: Tlosecard;

implementation

{$R *.dfm}
uses mainF;
//********清空输入框函数clear()**********
procedure Tlosecard.clear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
//*********edit2显示当前时间***********
procedure Tlosecard.Timer1Timer(Sender: TObject);
begin
edit2.Text:=timetostr(now);
end;


//*********挂失IC卡***********
procedure Tlosecard.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)='')and (trim(edit3.Text)='') then
begin
messagedlg('请输入要挂失的IC卡号或相应学号!',mtWarning,[mbOK],0);
exit;
end;
adoquery1.SQL.Clear;
if (pagecontrol1.ActivePage=tabsheet1) then
adoquery1.SQL.Add('update 卡信息 set 状态=''挂失'' where 学号='''+trim(edit1.text)+'''')
else
adoquery1.SQL.Add('update 卡信息 set 状态=''挂失'' where 卡号='''+trim(edit3.text)+'''');
adoquery1.ExecSQL;
adoquery1.Close;
showmessage('挂失成功！');
clear();
end;
//********解挂IC卡************
procedure Tlosecard.BitBtn2Click(Sender: TObject);
begin
if (trim(edit1.Text)='')and (trim(edit3.Text)='') then
begin
messagedlg('请输入要解挂IC卡号或相应学号!',mtWarning,[mbOK],0);
exit;
end;
adoquery1.SQL.Clear;
if (pagecontrol1.ActivePage=tabsheet1) then
adoquery1.SQL.Add('update 卡信息 set 状态=''正常'' where 学号='''+trim(edit1.text)+'''')
else
adoquery1.SQL.Add('update 卡信息 set 状态=''正常'' where 卡号='''+trim(edit3.text)+'''');
adoquery1.ExecSQL;
adoquery1.Close;
showmessage('解挂成功！');
clear();
end;
//*************退出并清空信息************
procedure Tlosecard.BitBtn3Click(Sender: TObject);
begin
clear();
close;
end;

//**********按学号搜索卡用户信息*******
procedure Tlosecard.BitBtn4Click(Sender: TObject);
begin
if (trim(edit1.Text)='')and (trim(edit3.Text)='') then
begin
messagedlg('请输入要搜索的IC卡号或相应学号!',mtWarning,[mbOK],0);
exit;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
if (pagecontrol1.ActivePage=tabsheet1) then
begin
adoquery1.SQL.Add('select * from 卡用户信息 where 学号='''+trim(edit1.Text)+'''');
end
else
adoquery1.SQL.Add('select * from 卡用户信息 where 卡号='''+trim(edit3.Text)+'''');
adoquery1.Open;
adotable1.Clone(adoquery1,ltUnspecified);
end;
//*******启动窗口时清空信息**********
procedure Tlosecard.FormCreate(Sender: TObject);
begin
clear();
end;

end.