showbook_form.pas

sql版功能齐全

unit ShowBook_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, ComCtrls, ExtCtrls,DB,DBTables;

type
  TShowBook_F = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    HSXX_LV: TListView;
    QD_FBtn: TFlatButton;
    QX_FBtn: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure QX_FBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowBook_F: TShowBook_F;

implementation

uses
  JSHS_Form, Common_Unit,IniFiles;

{$R *.dfm}

procedure TShowBook_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TShowBook_F.FormDestroy(Sender: TObject);
begin
  ShowBook_F:=nil;
end;
//***********************************************************************************
procedure TShowBook_F.QX_FBtnClick(Sender: TObject);
begin
  close;
end;

procedure TShowBook_F.FormCreate(Sender: TObject);
var
  HSXX_Q:TQuery;
  Book:TListItem;
begin
  HSXX_Q:=TQuery.Create(nil);
  HSXX_Q.DatabaseName:=DataPath;
  HSXX_Q.SQL.Add('Select A.TSBH,HDate,Name,Num From JYXXB A,TSJBXX B ');
  HSXX_Q.SQL.Add('Where A.UserID=:UserID and A.TSBH=B.TSBH');
//  HSXX_Q.ParamByName('UserID').AsString:=TJSHS_F(Share_JSHS).TSBH_FE.Text; //BH;//JSHS_F.TSBH_FE.Text;后面的不能用
  HSXX_Q.Open;
  if not(HSXX_Q.Bof and HSXX_Q.Eof) then
    while not HSXX_Q.Eof do
      begin
        if HSXX_Q.FieldByName('HDate').IsNull then      //显示没有还的书的信息
          begin
            Book:=HSXX_LV.Items.Add;
            Book.Caption:=HSXX_Q.FieldValues['TSBH'];
            Book.SubItems.Add(HSXX_Q.FieldValues['Name']);
            Book.SubItems.Add(HSXX_Q.FieldValues['Num']);
          end;
        HSXX_Q.Next;
      end;
  FreeAndNil(HSXX_Q);    
end;
//***********************************************************************************

//***********************************************************************************

end.