lease.pas

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

unit Lease;

interface

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

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

implementation

{$R *.dfm}
procedure TFrLease.init(wer:String);
var
  SqlStr:String;
begin
  SqlStr:='SELECT Lease.编号,Lease.箱号,Lease.租期类型ID,Lease.开始日期,Lease.终止日期,Client.iName,CLIENT.TeleNO,Lease.租约状态,Lease.主租人,Lease.操作类型';
  SqlStr:=SqlStr+' FROM Lease,Client WHERE Lease.主租人=Client.ID ';
  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 TFrLease.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[0].Value;
          Item.SubItems.Add(GDBManager.Query.Fields[1].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[5].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[6].Value);
          if GDBManager.Query.Fields[9].Value<>16 then begin
             if (GDBManager.Query.Fields[4].Value<date()) and(GDBManager.Query.Fields[7].Value=0) then begin
              Item.SubItems.Add('超期');
             end else begin
               if GDBManager.Query.Fields[9].Value=0 then begin
                Item.SubItems.Add('正常');
               end else if GDBManager.Query.Fields[7].Value=1 then begin
                Item.SubItems.Add('挂失');
               end else if GDBManager.Query.Fields[7].Value=3 then begin
                Item.SubItems.Add('禁用');
               end else if GDBManager.Query.Fields[7].Value=5 then begin
                Item.SubItems.Add('退箱');
               end;
             end;
          end else begin
             Item.SubItems.Add('退箱');
          end;

          nID:= GDBManager.Query.Fields[8].Value;
          SqlStr:=Format('Select * from Accredit where AuthorityID=%d',[nID]);
          GDBManager.ADOQuery.Close();
          GDBManager.ADOQuery.SQL.Clear();
          GDBManager.ADOQuery.SQL.Add(SqlStr);
          GDBManager.ADOQuery.Open();
          GDBManager.ADOQuery.ExecSQL();
          if GDBManager.ADOQuery.RecordCount>0 then begin
            Item.SubItems.Add('有');
          end else begin
            Item.SubItems.Add('无');
          end;

          nID:= GDBManager.Query.Fields[2].Value;
          SqlStr:=Format('Select * from lzCode_RentDate where ID=%d',[nID]);
          GDBManager.QueryMain.Close();
          GDBManager.QueryMain.SQL.Clear();
          GDBManager.QueryMain.SQL.Add(SqlStr);
          GDBManager.QueryMain.Open();
          GDBManager.QueryMain.ExecSQL();
          if GDBManager.QueryMain.RecordCount>0 then begin
            Item.SubItems.Add(GDBManager.QueryMain.Fields[1].Value);
          end else begin
            Item.SubItems.Add('');
          end;
          DateTimeToString(ReqDate,'yyyy/mm/dd',GDBManager.Query.Fields[3].Value);
          Item.SubItems.Add(ReqDate);                                 //凭证号
          DateTimeToString(ReqDate,'yyyy/mm/dd',GDBManager.Query.Fields[4].Value);
          Item.SubItems.Add(ReqDate);
          GDBManager.Query.Next;
          pID:=pID+1;
        End else begin
          exit;
        end;
      end;
    finally
      List1.Items.EndUpdate();
    end;
end;
procedure TFrLease.RzButton3Click(Sender: TObject);
begin
  ShowData();
end;

procedure TFrLease.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 TFrLease.RzButton1Click(Sender: TObject);
begin
  if (not GDBManager.Query.Bof) and (GDBManager.Query.RecordCount>0) then begin
    GDBManager.Query.First ;
    pPapeCount:=0;
    ShowData();
  end;
end;

end.