unit4.pas

一个大地科贸公司的公司管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables;

type
  TFrm_model = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Btn_Add: TBitBtn;
    Btn_Ins: TBitBtn;
    Btn_Del: TBitBtn;
    Btn_Exit: TBitBtn;
    procedure Btn_AddClick(Sender: TObject);
    procedure Btn_InsClick(Sender: TObject);
    procedure Btn_ExitClick(Sender: TObject);
    procedure Btn_DelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_model: TFrm_model;

implementation

{$R *.dfm}

procedure TFrm_model.Btn_AddClick(Sender: TObject);
begin
Table1.Append;
Table1.Post;
end;

procedure TFrm_model.Btn_InsClick(Sender: TObject);
begin
Table1.Insert;
Table1.Post;
end;

procedure TFrm_model.Btn_ExitClick(Sender: TObject);
begin
self.Close;
end;

procedure TFrm_model.Btn_DelClick(Sender: TObject);
begin
   if table1.RecordCount>0 then
begin
   if messagedlg('真的要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
      table1.Delete;
end
else
messagedlg('无记录可删除！ ',mtwarning,[mbyes],0);
end;




end.