uqueryform.pas

三层图书管理系统

unit uQueryForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, DBClient, Grids, DBGrids, StdCtrls, Buttons;

type
  TfrmQuery = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    procedure DBGridByUserIDInJSB;
    procedure DBGridByBookIDInJSB;
    procedure DBGridByBookIDInBooks;
    procedure DBGridByBookIDIsActived;
    { Public declarations }
  end;

var
  frmQuery: TfrmQuery;

implementation

{$R *.dfm}

procedure TfrmQuery.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmQuery.DBGridByBookIDInBooks;
var
  i:integer;
begin
  DBGrid1.Columns[0].Title.Caption:='图书名';
  DBGrid1.Columns[0].Width :=187;
  DBGrid1.Columns[1].Title.Caption:='作者';
  DBGrid1.Columns[1].Width :=67;
  DBGrid1.Columns[2].Title.Caption:='出版社';
  DBGrid1.Columns[2].Width :=167;
  DBGrid1.Columns[3].Title.Caption:='价格';
  DBGrid1.Columns[3].Width :=53;
  DBGrid1.Columns[4].Title.Caption:='入库时间';
  DBGrid1.Columns[4].Width :=67;
  DBGrid1.Columns[5].Title.Caption:='已借出';
  DBGrid1.Columns[5].Width :=53;
  DBGrid1.Columns[6].Title.Caption:='借出次数';
  DBGrid1.Columns[6].Width :=67;
  for i:=0 to DBGrid1.Columns.Count-1 do
    DBGrid1.Columns[i].Title.Alignment :=taCenter;
end;

procedure TfrmQuery.DBGridByBookIDInJSB;
var
  i:integer;
begin
  DBGrid1.Columns[0].Title.Caption:='图书名';
  DBGrid1.Columns[0].Width :=187;
  DBGrid1.Columns[1].Title.Caption:='借阅人';
  DBGrid1.Columns[1].Width :=67;
  DBGrid1.Columns[2].Title.Caption:='单价';
  DBGrid1.Columns[2].Width :=67;
  DBGrid1.Columns[3].Title.Caption:='册数';
  DBGrid1.Columns[3].Width :=40;
  for i:=0 to DBGrid1.Columns.Count-1 do
    DBGrid1.Columns[i].Title.Alignment :=taCenter;
end;

procedure TfrmQuery.DBGridByBookIDIsActived;
var
  i:integer;
begin
  with DBGrid1 do
  begin
    Columns[0].Title.Caption:='ID';
    Columns[0].Width :=53;
    Columns[1].Title.Caption:='图书名';
    Columns[1].Width :=153;
    Columns[2].Title.Caption:='作者';
    Columns[2].Width :=67;
    Columns[3].Title.Caption:='册数';
    Columns[3].Width :=36;
    Columns[4].Title.Caption:='出版社';
    Columns[4].Width :=122;
    Columns[5].Title.Caption:='价格';
    Columns[5].Width :=53;
    Columns[6].Title.Caption:='入库日期';
    Columns[6].Width :=67;
  end;
  for i:=0 to DBGrid1.Columns.Count-1 do
    DBGrid1.Columns[i].Title.Alignment :=taCenter;
end;

procedure TfrmQuery.DBGridByUserIDInJSB;
var
  i:integer;
begin
  DBGrid1.Columns[0].Title.Caption:='借阅人';
  DBGrid1.Columns[0].Width :=67;
  DBGrid1.Columns[1].Title.Caption:='图书名';
  DBGrid1.Columns[1].Width :=187;
  DBGrid1.Columns[2].Title.Caption:='单价';
  DBGrid1.Columns[2].Width :=67;
  DBGrid1.Columns[3].Title.Caption:='册数';
  DBGrid1.Columns[3].Width :=40;
  for i:=0 to DBGrid1.Columns.Count-1 do
    DBGrid1.Columns[i].Title.Alignment :=taCenter;
end;

procedure TfrmQuery.FormResize(Sender: TObject);
begin
  Top:=(Screen.Height -Height) div 2;
  Left:=(Screen.Width -Width) div 2;
end;

end.