unit4.~pas

一个可以用于书店的图书信息管理系统

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    DataSource1: TDataSource;
    Button1: TButton;
    Button3: TButton;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    DataSource2: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses  Unit2, Unit3;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
adoquery1.Open;
adoquery1.Post;
showmessage('新读者增加成功！');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
adoquery1.append;
end;

procedure TForm4.Label13Click(Sender: TObject);
begin
adoquery1.Cancel;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
adoquery1.Open;
adoquery1.Cancel;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form4.close;
form2.show;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
adoquery1.close;
adoquery1.Open;
adoquery2.Open;
adoquery1.Append;
//adoquery1.sql.readonly:=false;
//adoquery1.CanModify:=true;
//dbedit5.text:=datetostr(date);
//dbedit5.Enabled:=false;
DBRadioGroup1.ItemIndex:=0;
end;

procedure TForm4.DBEdit5Change(Sender: TObject);
begin
//Dbedit5.Text:=datetostr(date);
//Dbedit5.Text:='#'+datetostr(date)+'#';
//Dbedit5.Text:='2007-12-11' ;
end;

end.