main.~pas

Delphi7数据库开发教程,包含该书21套实例

unit main;

interface

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

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBText1: TDBText;
    DBEdit1: TDBEdit;
    DBImage1: TDBImage;
    GroupBox1: TGroupBox;
    DBNavigator1: TDBNavigator;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  //定义一个数组常量便于访问
  const VisibleButtonArray:Array[0..9] of  TButtonSet = (
        [nbFirst],
        [nbPrior],
        [nbNext],
        [nbLast],
        [nbInsert],
        [nbDelete],
        [nbEdit],
        [nbPost],
        [nbCancel],
        [nbRefresh]);
var
  Form1: TForm1;

implementation

{$R *.dfm}

//设置显示哪个按钮
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  with Sender as TCheckBox do
  begin
    if Checked then
       DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons +
                                        VisibleButtonArray[tag]
    else
       DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons -
                                        VisibleButtonArray[tag];
  end; 
end;

end.