unit_readupdate.pas

来自「图书管理系统。可以实现简单的图书管理」· PAS 代码 · 共 90 行

unit Unit_readUPDATE;

interface

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

type
  Treadupdate = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  readupdate: Treadupdate;

implementation

{$R *.dfm}

procedure Treadupdate.BitBtn1Click(Sender: TObject);
begin
with datamodule1.adotable4 do
 begin
   edit;
   post;

 end;
 end;

procedure Treadupdate.FormShow(Sender: TObject);
begin

 with dbgrid1 do
 begin
 font.Charset:=gb2312_charset;
 titlefont.Charset:=gb2312_charset;
 font.Size:=9;
 font.Name:='宋体';
 titlefont.Size:=10;
 titlefont.Name:='楷体_gb2312' ;
 titlefont.style:=[fsitalic]+[fsbold];
  titlefont.Color:= clpurple;
  options:=[dgtitles,dgindicator,dgcollines,dgrowlines];

 end;
end;

procedure Treadupdate.BitBtn2Click(Sender: TObject);
begin
  with datamodule1.ADOTable4 do
  begin
  filtered:=false;
   filter:='读者姓名 like  '+''''+edit1.Text+'%'+'''';
  filtered:=true;

  end;
end;

end.