doneform.pas

Delphi高级开发指南是开发程序的好帮手

unit DOneForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, Grids, DBGrids, ExtCtrls, DBCtrls, DdhDsOne;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DdhDataSetOne1: TDdhDataSetOne;
    DdhDataSetOne1Name: TStringField;
    DdhDataSetOne1Level: TIntegerField;
    DdhDataSetOne1BirthDate: TDateField;
    DdhDataSetOne1Email: TStringField;
    DdhDataSetOne1Editor: TBooleanField;
    Panel1: TPanel;
    Button1: TButton;
    CheckBox1: TCheckBox;
    DBNavigator1: TDBNavigator;
    DdhDataSetOne1Stipend: TCurrencyField;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DdhDataSetOne1.CreateTable;
  DdhDataSetOne1.Open;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  DdhDataSetOne1.Active := CheckBox1.Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DdhDataSetOne1.TableName :=
    ExtractFilePath (ParamStr (0)) +
    'Contrib.dso';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  bm: TBookmark;
begin
  bm := DdhDataSetOne1.GetBookmark;
  DdhDataSetOne1.First;
  while not DdhDataSetOne1.EOF do
    DdhDataSetOne1.Next;
  DdhDataSetOne1.GotoBookmark (bm);
  DdhDataSetOne1.FreeBookmark (bm);
end;

end.