dropcardf.pas

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

unit dropcardF;

interface

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

type
  Tdropcard = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clear(); //定义清除函数clear();
     end;

var
  dropcard: Tdropcard;

implementation

{$R *.dfm}
uses mainF;
//*****清除各选选项的信息*******
procedure Tdropcard.clear;
begin
edit1.Clear;
edit2.Clear;
checkbox1.Checked:=false;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
end;

//***********搜索卡信息*************
procedure Tdropcard.BitBtn3Click(Sender: TObject);
begin
   if (trim(edit1.Text)='')and (trim(edit2.Text)='') then
   begin
   messagedlg('请输入查询条件!!',mtWarning,[mbOK],0);
   edit1.SetFocus;
   exit;
   end;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from '+adotable1.TableName);
  if radiobutton1.Checked then
   begin
   adoquery1.SQL.Add('where('+radiobutton1.Caption+' like ''%'+edit1.Text+'%'')');
   edit1.SetFocus;
   edit2.Clear;
   end
  else
   begin
   adoquery1.SQL.Add('where('+radiobutton2.Caption+' like ''%'+edit2.Text+'%'')');
   edit2.SetFocus;
   edit1.Clear;
   end;
   adoquery1.open;
   adotable1.Clone(adoquery1,ltUnspecified);
   adoquery1.Close;
   clear();
end;
//*************注销IC卡*******************
procedure Tdropcard.BitBtn1Click(Sender: TObject);
begin
  if (trim(edit1.Text)='')and (trim(edit2.Text)='') then
   begin
   messagedlg('请输入要注销的卡号或相应学号!!',mtWarning,[mbOK],0);
   edit1.SetFocus;
   exit;
   end;
   if checkbox1.Checked then
      begin
          //********删除卡用户信息表中的记录******
        adoquery1.Close;
        adoquery1.SQL.Clear;
        if radiobutton1.Checked then
        adoquery1.SQL.Add('delete from 卡用户信息 where 卡号='''+trim(edit1.Text)+'''')
        else
        adoquery1.SQL.Add('delete from 卡用户信息 where 学号='''+edit2.Text+'''');
        adoquery1.ExecSQL;
        //********删除卡信息表中的记录*******
        adoquery2.Close;
        adoquery2.SQL.Clear;
        if radiobutton1.Checked then
         adoquery2.SQL.Add('delete from 卡信息 where 卡号='''+trim(edit1.Text)+'''')
        else
         adoquery2.SQL.Add('delete from 卡信息 where 学号='''+trim(edit2.Text)+'''');
        adoquery2.ExecSQL;
        adoquery2.Close;
        //*********删除用户消费中的相应记录*********
        adoquery1.SQL.Clear;
        if radiobutton1.Checked then
        adoquery1.SQL.Add('delete from 用户消费 where 卡号='''+trim(edit1.Text)+'''')
        else
        adoquery1.SQL.Add('delete from 用户消费 where 学号='''+trim(edit2.Text)+'''');
        adoquery1.ExecSQL;
        adoquery1.Close;
        showmessage('注销成功！');
      end
   else
        showmessage('未选择是否注销，请确定！');
 clear();
end;
//************退出窗口并清空信息***********
procedure Tdropcard.BitBtn2Click(Sender: TObject);
begin
clear();
close;
end;
//*************按回车鍵跳到相应条件输入框 ***********
procedure Tdropcard.RadioButton1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 begin
edit1.SetFocus;
edit1.Clear;
 end;
end;

procedure Tdropcard.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn3.Click;
end;

procedure Tdropcard.RadioButton2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.Clear;
end;
//*******打开窗口时清空信息***********
procedure Tdropcard.FormCreate(Sender: TObject);
begin
clear();
end;

end.