【delphi开源代码栏目提醒】:本文主要为网学会员提供mrkhxxxg.pas,希望对需要mrkhxxxg.pas网友有所帮助,学习一下!
unit mrkhxxxg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Mask, DBCtrls;
type
Tkhxxxg = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
khxxxg: Tkhxxxg;
implementation
uses mrkhxxcx;
{$R *.DFM}
procedure Tkhxxxg.FormShow(Sender: TObject);
begin
try
khxxcx.TAble1.edit;
except on exception do showmessage('数据不能修改!');
end;
end;
procedure Tkhxxxg.BitBtn1Click(Sender: TObject);
begin
try
khxxcx.table1.post;
khxxcx.table1.Refresh;
close;
except on exception do showmessage('数据无法保存!');
end;
end;
procedure Tkhxxxg.BitBtn2Click(Sender: TObject);
begin
khxxcx.Table1.cancel;
close;
end;
procedure Tkhxxxg.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if (activecontrol is TDBedit) then
Perform(WM_nextdlgctl,0,0);
end;
end.
上一篇:
mrkhxxtj.pas
下一篇:
儿童四肢皮肤挫伤采用美宝疮疡贴治疗的疗效