u_form2.pas

很好地delphi书籍源码

unit U_Form2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, DBActns, ActnList, StdCtrls, ComCtrls, DBCtrls,
  ExtCtrls, ToolWin, Grids, DBGrids, DBClientActns;

type
  TForm2 = class(TForm)
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ActionList1: TActionList;
    DSAppend: TDataSetInsert;
    DSEdit: TDataSetEdit;
    DSDelete: TDataSetDelete;
    DSPost: TDataSetPost;
    Print: TAction;
    ImageList1: TImageList;
    OkButton: TAction;
    CancelButton: TAction;
    Return: TAction;
    ToolButton5: TToolButton;
    ClientDataSetUndo1: TClientDataSetUndo;
    procedure FormCreate(Sender: TObject);
    procedure DSAppendExecute(Sender: TObject);
    procedure ReturnExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses U_DataModule, U_Form1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  i:byte;
begin
  DBGrid1.Columns[0].Visible:=false;
  for i:=1 to 6 do
    DBGrid1.Columns[2].PickList.Add(Nation[i]);
end;

procedure TForm2.DSAppendExecute(Sender: TObject);
begin
  DM.TeamTable.Append;
end;

procedure TForm2.ReturnExecute(Sender: TObject);
begin
  Close;
  Form1.Show;
end;

end.