unit1.pas

来自「漳大图书馆管理系统利用Delphi6.0和MS Server2000为主要开发工」· PAS 代码 · 共 70 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids;

type
  TFm_borrow = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_borrow: TFm_borrow;

implementation

uses data;

{$R *.dfm}

procedure TFm_borrow.DBGrid1CellClick(Column: TColumn);
var
dtr,dts,dte : TDateTime;
begin
   edit2.Text:=Fm_data.Cd_borrow.fieldbyname('borrowdate').AsString;
dts :=date();

dte :=Fm_data.Cd_borrow.fieldbyname('borrowdate').AsDateTime;

dtr :=dts-dte;
if dtr>20 then
edit3.Text:=floattostr(dtr)+'天'
else edit3.Text:='0';
end;

procedure TFm_borrow.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
    showmessage('请入图书证号')
 else
 begin
  fm_data.Cd_borrow.Close;
  fm_data.Cd_borrow.CommandText:='select * from v_borrow where cardNo='+edit1.Text;
  fm_data.Cd_borrow.Execute;
  fm_data.Cd_borrow.Open;
  fm_data.Cd_borrow.Refresh;
  end;
end;

end.