u_ryb.pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Ryb;

interface

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

type
  TFrm_ryb = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_ryb: TFrm_ryb;

implementation
  uses u_data;
{$R *.dfm}

procedure TFrm_ryb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // g_str_selectkh:='';
 //  g_str_selectkh:=dbedit1.text;
end;

procedure TFrm_ryb.DBGrid1DblClick(Sender: TObject);
begin
   g_str_selectkh:='';
   g_str_selectkh:=dbedit1.text;
   close;
end;

procedure TFrm_ryb.FormShow(Sender: TObject);
begin
    data.Mr_people.Close;
    data.Mr_People.Open;
    
    data.mr_people_add.DataSet:=data.mr_people;
    data.Mr_people.Active:=true;
end;

end.