free.pas

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

unit Free;

interface

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

type
  TFrFree = class(TFrame)
    bsSkinPanel1: TbsSkinPanel;
    RzButton1: TbsSkinButton;
    RzButton4: TbsSkinButton;
    RzButton3: TbsSkinButton;
    RzButton2: TbsSkinButton;
    RzButton: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    List1: TbsSkinListView;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinLabel9: 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 TFrFree.init(wer:String);
var
  SqlStr:String;
begin
  SqlStr:='SELECT Leasefree.记录时间,Leasefree.凭证号,Lease.箱号,lzCode_MoneyType.iName,';
  SqlStr:=SqlStr+'Leasefree.借贷,Leasefree.发生额,Leasefree.备注,Leasefree.经办人';
  SqlStr:=SqlStr+' FROM Lease,Leasefree,lzCode_MoneyType WHERE Lease.ID=Leasefree.租约号 AND lzCode_MoneyType.ID=Leasefree.科目 ';
  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 TFrFree.ShowData();
var
  i:Integer;
  nID:Integer;
  Item:TListItem;
  ReqDate:String;
  SqlStr:String;
begin
  try
      pID:=0;
      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 27+1;
        bsSkinLabel1.Caption:='共'+IntToStr(i)+'页  第'+
                        IntToStr(pPapeCount)+'页 共'+
                        IntToStr(GDBManager.Query.RecordCount)+'条记录';
      end;
      for i:=1 to 27 do begin
        if not GDBManager.Query.Eof then begin
          Item:=List1.Items.Add();
          DateTimeToString(ReqDate,'yyyy/mm/dd',GDBManager.Query.Fields[0].Value);
          Item.Caption:=ReqDate;
          Item.SubItems.Add(GDBManager.Query.Fields[1].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[2].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[3].Value); 
          if GDBManager.Query.Fields[4].Value=0 then begin
            Item.SubItems.Add('收入');
          end else begin
            Item.SubItems.Add('支出');
          end;
          Item.SubItems.Add(GDBManager.Query.Fields[5].Value);
          Item.SubItems.Add(GDBManager.Query.Fields[6].Value);
          nID:= GDBManager.Query.Fields[7].Value;
          SqlStr:=Format('Select * from Manager where ID=%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(GDBManager.ADOQuery.Fields[1].Value);
          end else begin
            Item.SubItems.Add('');
          end;
          GDBManager.Query.Next;
          pID:=pID+1;
        End else begin
          exit;
        end;
      end;
    finally
      List1.Refresh;
    end;
end;

procedure TFrFree.RzButton2Click(Sender: TObject);
var
  i:integer;
begin
  pPapeCount:=pPapeCount-2;
  if pID<27 then begin
    pID:=pID-1;
  end;
  for i:=1 to pID+27 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 TFrFree.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 TFrFree.RzButton3Click(Sender: TObject);
begin
  ShowData();
end;

end.