consumef.pas

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

unit consumeF;

interface

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

type
  Tconsume = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit3: TEdit;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clear();//定义清空各输入框函数clear();
  end;

var
  consume: Tconsume;

implementation

{$R *.dfm}
uses mainF;
//*****清空各个输入框信息函数clear()********
procedure Tconsume.clear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
end;
//******搜索消费记录数***********
procedure Tconsume.BitBtn1Click(Sender: TObject);
var
costAll:string;
begin
//要求输入查询条件
if not radiobutton1.Checked
    and not radiobutton2.Checked then
    begin
    messagedlg('  请确定查询条件：按卡号或是学号查询！',mtWarning,[mbOK],0);
    edit1.SetFocus;
    exit;
    end;
if (trim(edit1.Text)='')
    and (trim(edit2.Text)='') then
    begin
    messagedlg('  请输入查询条件:卡号or学号！',mtWarning,[mbOK],0);
    edit1.SetFocus;
    exit;
    end;
    //查询记录
adoquery1.Close;
adoquery1.SQL.Clear;
if radiobutton1.Checked then
   adoquery1.SQL.Add('select * from 用户消费 where 卡号='''+trim(edit1.Text)+'''')
else
   adoquery1.SQL.Add('select * from 用户消费 where 学号='''+trim(edit2.Text)+'''');
adoquery1.Open;
adotable1.Clone(adoquery1,ltUnspecified);
costAll:=adoquery1.fieldByName('卡号').AsString;
if costAll='' then
messagedlg('没有这个卡号,请正确输入卡号，重新搜索！',mtWarning,[mbOK],0);
adoquery1.Close;
end;
//************退出窗口***************
procedure Tconsume.BitBtn2Click(Sender: TObject);
begin
clear();
close;
end;
//**********在打开窗口时清空各个输入框信息*********
procedure Tconsume.FormCreate(Sender: TObject);
begin
clear();
end;
//**********显示搜索到的记录条数 ***********
procedure Tconsume.DataSource1DataChange(Sender: TObject; Field: TField);
begin
edit3.clear;
edit3.Text:=inttostr(adotable1.RecordCount);
end;

end.