unit1.pas.~2~

涉及表格方面的

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ZJGrid, ZcDBGrids, StdCtrls, ZcDataGrid, ZcExGrid, DB, ADODB,
  ZcDBGridDsgner, ExtCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    tbl1: TADOTable;
    EjunDBGrid1: TEjunDBGrid;
    pnl1: TPanel;
    btn1: TButton;
    btnInsert: TButton;
    btnDelete: TButton;
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btnInsertClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const
  ConnStr: string = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;'
                    +'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'
                    +'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'
                    +'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'
                    +'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'
                    +'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'
                    +'Jet OLEDB:Encrypt Database=False';

procedure TForm1.FormCreate(Sender: TObject);
begin
  con1.Connected := False;
  con1.ConnectionString := Format(ConnStr, [ExtractFilePath(Application.ExeName) + 'Database1.mdb']);
  con1.Connected := True;
  tbl1.Active := True;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if EjunDBGridDsgner.Execute(EjunDBGrid1) then
    EjunDBGridDsgner.Activate(True);
end;

procedure TForm1.btnInsertClick(Sender: TObject);
begin
  EjunDBGrid1.InsertRow(EjunDBGrid1.CurRow);
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  EjunDBGrid1.DeleteRow(EjunDBGrid1.CurRow);
end;

end.