forfeitform.~pas

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· ~PAS 代码 · 共 107 行

unit ForfeitForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ADODB, ImgList, DB, Grids, DBGrids, ExtCtrls, StdCtrls,
  Buttons, ComCtrls, ToolWin;

type
  TForfeit = class(TParent)
    ADOCommand1: TADOCommand;
    ADOQuery2: TADOQuery;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    Edit4: TEdit;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Forfeit: TForfeit;

implementation

{$R *.dfm}
uses
DataMod;

procedure TForfeit.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
  dbgrid1.Columns[0].Width:=64;
  dbgrid1.Columns[1].Width:=64;
  dbgrid1.Columns[2].Width:=64;
  dbgrid1.Columns[3].Width:=80;
  dbgrid1.Columns[4].Width:=164;
  dbgrid1.Columns[5].Width:=64;
  dbgrid1.Columns[6].Width:=64;
  dbgrid1.Columns[7].Width:=64;
  dbgrid1.Columns[8].Width:=48;
  dbgrid1.Columns[9].Width:=48;
  //
  edit4.Text:=dbgrid1.Fields[6].Text;
end;

procedure TForfeit.FormShow(Sender: TObject);
begin
  inherited;
//
//adoquery2.active:=true;
//adotable1.Clone(adoquery2,ltunspecified);
end;

procedure TForfeit.BitBtn1Click(Sender: TObject);
begin
//  inherited;
//
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select a.*,b.ReaderInfo_Name,c.BookInfo_No from BookForfeit a,ReaderInfo b,BookInfo c');
adoquery1.SQL.Add('where (a.ReaderInfo_No=b.ReaderInfo_No)and(a.BookForfeit_IsDone=0)and(a.BookInfo_No=c.BookInfo_No)');
adoquery1.SQL.Add('and(a.ReaderInfo_No like ''%'+edit1.Text+'%'')');
adoquery1.SQL.Add('and(a.BookInfo_No like ''%'+edit2.Text+'%'')');
adoquery1.SQL.Add('and(b.ReaderInfo_Name like ''%'+edit2.Text+'%'')');
adoquery1.Open;
//
adotable1.Clone(adoquery2,ltunspecified);

end;

procedure TForfeit.BitBtn2Click(Sender: TObject);
begin
  inherited;
  //
  if edit4.Text='' then
    adocommand1.CommandText:='update BookForfeit set BookForfeit_Income=cast('''+edit4.Text+''' as money),BookForfeit_IsDone=1 where BookForfeit_No='''+dbgrid1.Fields[0].Text+'''';
    adocommand1.Execute;
    adoquery2.Active:=false;
    adoquery2.Active:=true;
    adotable1.Clone(adoquery2,ltunspecified);
end;

procedure TForfeit.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if(key>=#30)and(key<=#39) then
  edit4.Text:=edit4.Text+key;
end;

procedure TForfeit.FormCreate(Sender: TObject);
begin
  inherited;
adoquery2.active:=true;
adotable1.Clone(adoquery2,ltunspecified);
end;

end.