【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MC_BM.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit MC_BM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables, Grids, DBGrids;
type
TBM = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BM: TBM;
implementation
{$R *.DFM}
procedure TBM.FormClose(Sender: TObject; var Action: TCloseAction);
begin
BM.Release;
BM:=Nil;
end;
procedure TBM.BitBtn1Click(Sender: TObject);
begin
if Length(Edit1.Text)=0 then
ShowMessage('请输入添加的部门信息')
else
Table1.AppendRecord([Edit1.Text]);
end;
procedure TBM.BitBtn2Click(Sender: TObject);
begin
if Table1.RecordCount<>0 then Table1.Delete;
end;
end.
上一篇:
MC_BGSWD.pas
下一篇:
浅析普外科围手术期抗菌药物的应用