client.pas

指纹保管箱查询系统(delphi数据库编程)

unit Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, bsSkinCtrls, StdCtrls, bsSkinData,DbMgr;

type
  TFrClient = class(TFrame)
    RzButton1: TbsSkinButton;
    List1: TbsSkinListView;
    RzButton4: TbsSkinButton;
    RzButton3: TbsSkinButton;
    RzButton2: TbsSkinButton;
    RzButton: TbsSkinButton;
    bsSkinLabel1: TbsSkinLabel;
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
  private
    { Private declarations }
    pID,pPapeCount:Integer;
  public
    { Public declarations }
    procedure init(wer:String);
    procedure ShowData();
  end;

implementation

{$R *.dfm}
procedure TFrClient.init(wer:String);
var
  SqlStr:String;
begin
  SqlStr:='SELECT Client.iSerial,lzCode_CardType.iName,Client.IdCardCode,Client.Sex,Client.Address,Client.iName,CLIENT.TeleNO,Client.iType,Client.ID';
  SqlStr:=SqlStr+' FROM Client,lzCode_CardType ';
  SqlStr:=SqlStr+wer;
  GDBManager.Query.Close();
  GDBManager.Query.SQL.Clear();
  GDBManager.Query.SQL.Add(SqlStr);
  GDBManager.Query.Open();
  GDBManager.Query.ExecSQL();
  pPapeCount:=0;
  ShowData();
end;

procedure TFrClient.ShowData();
var
  i:Integer;
  nID:Integer;
  Item:TListItem;
  ReqDate:String;
  SqlStr:String;
begin
  try
      pID:=0;
      List1.Items.BeginUpdate();
      List1.Items.Clear();
      pPapeCount:=pPapeCount+1;
      if GDBManager.Query.Eof then begin
        pPapeCount:=1;
        GDBManager.Query.First;
      end;
      if (GDBManager.Query.RecordCount>0) then begin
        i:=(GDBManager.Query.RecordCount-1) div 30+1;
        bsSkinLabel1.Caption:='共'+IntToStr(i)+'页  第'+
                        IntToStr(pPapeCount)+'页 共'+
                        IntToStr(GDBManager.Query.RecordCount)+'条记录';
      end;
      for i:=1 to 30 do begin
        if not GDBManager.Query.Eof then begin
          Item:=List1.Items.Add();
          Item.Caption:=GDBManager.Query.Fields[5].Value;
          if GDBManager.Query.Fields[3].Value=0 then begin
             Item.SubItems.Add('男');
          end else begin
             Item.SubItems.Add('女');
          end;
          Item.SubItems.Add(GDBManager.Query.Fields[4].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[6].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[1].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[2].Value);
          GDBManager.Query.Next;
          pID:=pID+1;
        End else begin
          exit;
        end;
      end;
    finally
      List1.Items.EndUpdate();
    end;
end;
procedure TFrClient.RzButton1Click(Sender: TObject);
begin
  if (not GDBManager.Query.Bof) and (GDBManager.Query.RecordCount>0) then begin
    GDBManager.Query.First ;
    pPapeCount:=0;
    ShowData();
  end;
end;

procedure TFrClient.RzButton2Click(Sender: TObject);
var
  i:integer;
begin
  pPapeCount:=pPapeCount-2;
  if pID<30 then begin
    pID:=pID-1;
  end;
  for i:=1 to pID+30 do begin
    if (not GDBManager.Query.Bof) and (GDBManager.Query.RecordCount>0) then begin
       GDBManager.Query.Prior;
    end else begin
       GDBManager.Query.First ;
       pPapeCount:=0;
       break;
    end;
  end;
  ShowData;

end;

procedure TFrClient.RzButton3Click(Sender: TObject);
begin
  ShowData();
end;

end.