【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MC_JG.pas”一文，供大家参考学习!

    unit MC_JG;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, StdCtrls, Buttons, DBTables, Grids, DBGrids;
    
    type
      TJG = class(TForm)
        GroupBox1: TGroupBox;
        Edit1: TEdit;
        DBGrid1: TDBGrid;
        Table1: TTable;
        DataSource1: TDataSource;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Table1BDEDesigner: TStringField;
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      JG: TJG;
    
    implementation
    
    {$R *.DFM}
    
    procedure TJG.BitBtn1Click(Sender: TObject);
    begin
         if Length(Edit1.Text)=0 then
            ShowMessage('请输入添加的籍贯信息')
         else
            Table1.AppendRecord([Edit1.Text]);
    end;
    
    procedure TJG.BitBtn2Click(Sender: TObject);
    begin
         if Table1.RecordCount<>0 then Table1.Delete;
    end;
    
    procedure TJG.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         JG.Release;
         JG:=Nil;
    end;
    
    end.