selectf.pas

来自「图书管理系统：包括借书、还书、查询、添加、统计等功能。」· PAS 代码 · 共 65 行

unit selectF;

interface

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

type
  Tselect = class(Tinherit)
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  select: Tselect;


implementation
 uses faceF,dataconnect;
{$R *.dfm}

procedure Tselect.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
      //设置表的字段宽度
  dbgrid1.Columns[0].Width:=96;
  dbgrid1.Columns[1].Width:=48;
  dbgrid1.Columns[2].Width:=128;
  dbgrid1.Columns[3].Width:=128;
  dbgrid1.Columns[4].Width:=80;
  dbgrid1.Columns[5].Width:=80;
  dbgrid1.Columns[6].Width:=80;
  dbgrid1.Columns[7].Width:=96;
  dbgrid1.Columns[8].Width:=80;
  dbgrid1.Columns[9].Width:=80;
  dbgrid1.Columns[10].Width:=80;
  dbgrid1.Columns[11].Width:=80;
  dbgrid1.Columns[12].Width:=80;
  dbgrid1.Columns[13].Width:=64;
  dbgrid1.Columns[14].Width:=64;
  dbgrid1.Columns[15].Width:=64;

end;

procedure Tselect.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  //将选择的图书编号存入主窗体的储存区中并关闭窗体
  main.Formcap:=dbgrid1.Fields[1].Text;
  close;

  


end;

end.