readermachinef.pas

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

unit readermachineF;

interface

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

type
  Treadermachine = class(TForm)
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    TabSheet2: TTabSheet;
    Label3: TLabel;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clear();
  end;

var
  readermachine: Treadermachine;

implementation

{$R *.dfm}
uses mainF;
//**********清空输入框函数clear();**********
procedure Treadermachine.clear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

//*********退出并清空信息*************
procedure Treadermachine.BitBtn3Click(Sender: TObject);
begin
clear();
close;
end;
//************查看刷卡机属性*************
procedure Treadermachine.BitBtn1Click(Sender: TObject);
var
department:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 刷卡机属性 where 编号='''+trim(edit1.Text)+'''');
adoquery1.Open;
department:=adoquery1.FieldByName('位置').AsString;
adotable1.Clone(adoquery1,ltUnspecified);
adoquery1.Close;

end;
//*********新增刷卡机,并设置属性**************
procedure Treadermachine.BitBtn2Click(Sender: TObject);
begin
if (trim(edit1.Text))='' then
 begin
  messagedlg('请输入编号!',mtWarning,[mbOK],0);
  exit;
 end;
if (trim(edit2.Text))='' then
 begin
 messageDlg('未输入部门信息！',mtWarning,[mbOK],0);
 exit;
 end;
if (trim(edit3.Text))='' then
  begin
   messageDlg('请确定刷卡机状态！',mtWarning,[mbOK],0);
   exit;
  end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 刷卡机属性(编号,位置,状态) values('''+trim(edit1.Text)+''','''+trim(edit2.Text)+''','''+trim(edit3.Text)+''')');
adoquery1.ExecSQL;
adoquery1.Close;
MessageDlg('输入成功！',mtInformation,[mbOk], 0);
clear();
end;
//**********启动窗口时清空信息***********
procedure Treadermachine.FormCreate(Sender: TObject);
begin
clear();
end;

end.