【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了Frm_DBPro.pas相关资料，希望对各位网友有所帮助!

    unit Frm_DBPro;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids,
      XPMan;
    
    type
      TfrmDBPro = class(TForm)
        ADOConn: TADOConnection;
        ATable: TADOTable;
        DSTable: TDataSource;
        GBGrid: TGroupBox;
        DBGrid: TDBGrid;
        GBBrow: TGroupBox;
        DBNBrow: TDBNavigator;
        DBEName: TDBEdit;
        DBEOld: TDBEdit;
        DBENum: TDBEdit;
        DBEPhone: TDBEdit;
        DBEPart: TDBEdit;
        DBEJoinDate: TDBEdit;
        DBText1: TDBText;
        DBRGSex: TDBRadioGroup;
        DBRGMary: TDBRadioGroup;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        BtnClose: TButton;
        Bevel1: TBevel;
        procedure ATableAfterEdit(DataSet: TDataSet);
        procedure ATableAfterCancel(DataSet: TDataSet);
        procedure BtnCloseClick(Sender: TObject);
        procedure ATableAfterPost(DataSet: TDataSet);
        procedure ATableAfterInsert(DataSet: TDataSet);
        procedure FormCreate(Sender: TObject);
      private
        procedure ChangReadWrite(bl:Boolean);
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmDBPro: TfrmDBPro;
    
    implementation
    
    {$R *.dfm}
    procedure TfrmDBPro.ChangReadWrite(bl:Boolean);
    begin
        DBEName.ReadOnly:=bl;
        DBEOld.ReadOnly:=bl;
        DBENum.ReadOnly:=bl;
        DBEPhone.ReadOnly:=bl;
        DBEPart.ReadOnly:=bl;
        DBEJoinDate.ReadOnly:=bl;
        DBRGSex.ReadOnly:=bl;
        DBRGMary.ReadOnly:=bl;
    end;
    
    procedure TfrmDBPro.ATableAfterEdit(DataSet: TDataSet);
    begin
      ChangReadWrite(false);
    end;
    
    procedure TfrmDBPro.ATableAfterCancel(DataSet: TDataSet);
    begin
      ChangReadWrite(true);
    end;
    
    procedure TfrmDBPro.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TfrmDBPro.ATableAfterPost(DataSet: TDataSet);
    begin
      ChangReadWrite(true);
    end;
    
    procedure TfrmDBPro.ATableAfterInsert(DataSet: TDataSet);
    begin
      ChangReadWrite(false);
      DBEName.SetFocus;
    end;
    
    procedure TfrmDBPro.FormCreate(Sender: TObject);
    begin
      ADOConn.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=DelphiClassical200';
      AdoConn.Open;
      ATable.Open;
    end;
    
    end.