【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:MC_FJJGSD.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit MC_FJJGSD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, Mask, DBCtrls, DBTables, Grids, DBGrids, Buttons;
type
TFJJGSD = class(TForm)
GroupBox1: TGroupBox;
Table1: TTable;
Table1BDEDesigner: TStringField;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FJJGSD: TFJJGSD;
implementation
{$R *.DFM}
procedure TFJJGSD.BitBtn2Click(Sender: TObject);
begin
if Table1.RecordCount<>0 then
if MessageDLG('是否删除['+Table1.FieldbyName('房间结构').AsString+']的信息?'
,mtCustom,[mbYes,mbNo],0)=mrYes then Table1.Delete;
end;
procedure TFJJGSD.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;
procedure TFJJGSD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FJJGSD.Release;
FJJGSD:=Nil;
end;
end.
上一篇:
MC_FJBMSZ.pas
下一篇:
公共政策价值观的构成、功能及整合