seekcarunit.pas

完整的ic卡管理软件

unit seekCarUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, Grids, DBGrids, StdCtrls, Mask, bsSkinBoxCtrls,
  BusinessSkinForm, bsSkinGrids, bsDBGrids;

type
  TseekCarForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBGrid1TitleClick(Column: TbsColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seekCarForm: TseekCarForm;
  bSort:boolean; //**定义排序
implementation
uses
datamodel,ReportUnit;

{$R *.dfm}

procedure TseekCarForm.bsSkinButton1Click(Sender: TObject);
begin
close;
end;

procedure TseekCarForm.bsSkinButton2Click(Sender: TObject);
var
car:string;
begin
     bsskinbutton4.Enabled:=true;
      if bsSkinEdit1.Text='' then
       begin
         MessageDlg('输入要查询的卡号!',mtError,[mbok],0);
         bsSkinEdit1.SetFocus;
         exit;
       end;
       car:=bsSkinEdit1.Text;
       with datamodule1.seekCARQuery do
        begin
           close;
           sql.Clear;

           sql.Add('select a.carid as 报警卡编号,a.userid as 人员编号,b.Pname as 人员姓名,a.date as 办卡日期,a.alterdate as 修改日期,lost as 挂失 ' );
           sql.Add('from carMIS as a inner join personMIS as b on a.userid=b.persionID ' );
           sql.Add('where a.carid=:a');
           parameters[0].Value:=bsSkinEdit1.Text ;
           open;
        end;
     bsSkinDBGrid1.Columns[0].Width:=100;
     bsSkinDBGrid1.Columns[1].Width:=100;
     bsSkinDBGrid1.Columns[2].Width:=100;
     bsSkinDBGrid1.Columns[3].Width:=150;
     bsSkinDBGrid1.Columns[4].Width:=80;
     bsSkinDBGrid1.Columns[5].Width:=80;
end;


procedure TseekCarForm.bsSkinButton3Click(Sender: TObject);
begin
   bsskinbutton4.Enabled:=true;
   with datamodule1.seekCARQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select a.carid as 报警卡编号,a.userid as 人员编号,b.Pname as 人员姓名,'+
              ' a.date as 办卡日期,a.alterdate as 修改日期,lost as 挂失 ' );
      sql.Add('from carMIS as a inner join personMIS as b on a.userid=b.persionID ' );
      open;
     end;
     bsSkinDBGrid1.Columns[0].Width:=100;
     bsSkinDBGrid1.Columns[1].Width:=100;
     bsSkinDBGrid1.Columns[2].Width:=100;
     bsSkinDBGrid1.Columns[3].Width:=150;
     bsSkinDBGrid1.Columns[4].Width:=80;
     bsSkinDBGrid1.Columns[5].Width:=80;
     

end;

procedure TseekCarForm.bsSkinButton4Click(Sender: TObject);
begin
 Reportform:=TReportform.Create(application);
 //Reportform.Show;
 with datamodule1.seekCARQuery do
 begin
 Reportform.QRDBText1.DataField:='报警卡编号';
 Reportform.QRDBText2.DataField:='人员编号';
 Reportform.QRDBText3.DataField:='人员姓名';
 Reportform.QRDBText4.DataField:='办卡日期';
 Reportform.QRDBText5.DataField:='修改日期';
 Reportform.QRDBText6.DataField:='挂失';
// Reportform.QRDBText7.DataField:='注销';
 datamodule1.seekCARQuery.Open;
 if datamodule1.seekCARQuery.Active=true then
 begin
 datamodule1.seekCARQuery.First;
 Reportform.QuickRep1.Preview;
 end;
 //Reportform.Close;
 //Reportform.QuickRep1.Print;

 end;
end;

procedure TseekCarForm.FormShow(Sender: TObject);
begin
    bsskinbutton4.Enabled:=false;
    bSort:=true; //***排序付值****
end;

procedure TseekCarForm.bsSkinDBGrid1TitleClick(Column: TbsColumn);
var
    i:integer;
    fieldname:string;
    
begin//排序

    i:=Column.Index;
    if bSort then
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' ASC';
        bSort:=False;
    end
    else
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' DESC';
        bSort:=True;
    end;
   datamodule1.seekCARQuery.Sort:=fieldname;
    
end;

end.