unit5.~pas

用delphi写的课堂作业

unit Unit5;

interface

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

type
  TFrame5 = class(TFrame)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Button4: TButton;
    Button5: TButton;
    DBComboBox1: TDBComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
uses Unit2;
{$R *.dfm}

procedure TFrame5.Button1Click(Sender: TObject);
begin
   dbgrid1.Enabled:=false;
   button1.Enabled:=false;
   button2.Enabled:=false;
   button3.Enabled:=false;
   button4.Enabled:=true;
   button5.Enabled:=true;
   DBEdit1.Enabled:=true;
   DBEdit2.Enabled:=true;
   DBEdit3.Enabled:=true;
   DBComboBox1.Enabled:=true;
   DBEdit1.SetFocus;
   ADOQuery1.Append;
end;

procedure TFrame5.Button2Click(Sender: TObject);
begin
  if
    messagebox(handle,'您将要删除此信息，是否删除？','确认删除',mb_iconquestion+mb_yesno)=IDyes
  then
    ADOQuery1.Delete;
end;

procedure TFrame5.Button3Click(Sender: TObject);
begin
   dbgrid1.Enabled:=false;
   button1.Enabled:=false;
   button2.Enabled:=false;
   button3.Enabled:=false;
   button4.Enabled:=true;
   button5.Enabled:=true;
   DBEdit1.Enabled:=true;
   DBEdit2.Enabled:=true;
   DBEdit3.Enabled:=true;
   DBComboBox1.Enabled:=true;
   DBEdit1.SetFocus;
   ADOQuery1.Edit;
end;

procedure TFrame5.Button4Click(Sender: TObject);
begin
    if(DBedit1.Text<>'')and (dbedit2.Text<>'')and(dbedit3.Text<>'')
    then
     ADOQuery1.Post
    else
      if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes
      then
        adoquery1.Cancel
        else
         exit;
   dbgrid1.Enabled:=true;
   button1.Enabled:=true;
   button2.Enabled:=true;
   button3.Enabled:=true;
   button4.Enabled:=false;
   button5.Enabled:=false;
   DBEdit1.Enabled:=false;
   DBEdit2.Enabled:=false;
   DBEdit3.Enabled:=false;
   DBComboBox1.Enabled:=false;
end;

procedure TFrame5.Button5Click(Sender: TObject);
begin
   adoquery1.Cancel;
   dbgrid1.Enabled:=true;
   button1.Enabled:=true;
   button2.Enabled:=true;
   button3.Enabled:=true;
   button4.Enabled:=false;
   button5.Enabled:=false;
   DBEdit1.Enabled:=false;
   DBEdit2.Enabled:=false;
   DBEdit3.Enabled:=false;
   DBComboBox1.Enabled:=false;
end;

end.