【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：MC_PBSSDJ.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit MC_PBSSDJ;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, StdCtrls, Mask, DBCtrls, DBTables, Grids, DBGrids, Buttons;
    
    type
      TPBSSDJ = class(TForm)
        GroupBox1: TGroupBox;
        Table1: TTable;
        Table1BDEDesigner: TStringField;
        Label1: TLabel;
        DBEdit1: TDBEdit;
        DataSource1: TDataSource;
        GroupBox2: TGroupBox;
        DBGrid1: TDBGrid;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      PBSSDJ: TPBSSDJ;
    
    implementation
    
    {$R *.DFM}
    
    procedure TPBSSDJ.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         PBSSDJ.Release;
         PBSSDJ:=Nil;
    end;
    
    procedure TPBSSDJ.BitBtn2Click(Sender: TObject);
    begin
         if Table1.RecordCount<>0 then
         if MessageDLG('是否删除['+Table1.FieldbyName('配备信息').AsString+']的信息?'
            ,mtCustom,[mbYes,mbNo],0)=mrYes then Table1.Delete;
    end;
    
    procedure TPBSSDJ.BitBtn1Click(Sender: TObject);
    begin
         if BitBtn1.Caption='添加[&I]' then
            begin
                 Table1.Append;
                 BitBtn1.Caption:='保存[&S]';
                 DBEDit1.SetFocus;
                 BitBtn2.Enabled:=False;
            end
         else
            begin
                 if Length(Table1.FieldByName('配备信息').AsString)=0 then
                    begin
                         ShowMessage('请输入信息');
                         DBEdit1.Setfocus;
                    end
                 else
                    begin
                         BitBtn1.Caption:='添加[&I]';
                         BitBtn2.Enabled:=True;
                         Table1.Post;
                    end;
            end;
    end;
    
    end.