demo9.pas

《Delphi百例》源码?禗elphi百例》源码

unit demo9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBTables, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    PopupMenu2: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  lasteditcol:integer;
begin
  lasteditcol:=DBGrid1.SelectedIndex ;
  if lasteditcol=1 then
    begin
      DBGrid1.PopupMenu :=PopupMenu2;
      if (Key=VK_RETURN) then
          PopupMenu2.Popup(460,322);
    end;

  if lasteditcol=2 then
    begin
      DBGrid1.PopupMenu :=PopupMenu1;
      if (Key=VK_RETURN) then
          PopupMenu1.Popup(560,322);
    end;

end;

procedure TForm1.N1Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N1.caption,1,length(N1.Caption)-4);
table1.Post ;

end;


procedure TForm1.N2Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N2.caption,1,length(N2.Caption)-4);
table1.Post ;

end;

procedure TForm1.N3Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N3.caption,1,length(N3.Caption)-4);
table1.Post ;

end;

procedure TForm1.N4Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N4.caption,1,length(N4.Caption)-4);
table1.Post ;

end;

procedure TForm1.N5Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N5.caption,1,length(N5.Caption)-4);
table1.Post ;

end;

procedure TForm1.N6Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N6.caption,1,length(N6.Caption)-4);
table1.Post ;

end;

procedure TForm1.N7Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N7.caption,1,length(N7.Caption)-4);
table1.Post ;

end;

procedure TForm1.N8Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_belong']:=copy(N8.caption,1,length(N8.Caption)-4);
table1.Post ;

end;

procedure TForm1.N9Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_sex']:='男';
table1.Post ;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
table1.Edit ;
table1.FieldValues ['student_sex']:='女';
table1.Post ;
end;



end.