【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“mrcpckxg.pas”一文,供大家参考学习
unit mrcpckxg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, Mask, DBCtrls;
type
Tcpckxg = class(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
DBEdit13: TDBEdit;
Label14: TLabel;
DBEdit14: TDBEdit;
Label15: TLabel;
DBEdit15: TDBEdit;
Label16: TLabel;
DBEdit16: TDBEdit;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
cpckxg: Tcpckxg;
implementation
uses main;
{$R *.DFM}
var shu,shi,ying:integer;
procedure Tcpckxg.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure Tcpckxg.FormShow(Sender: TObject);
begin
form36.table1.edit;
shu:=strtoint(form36.edit1.text)-form36.table1.fieldbyname('shuliang').asinteger;
shi:=strtoint(form36.edit4.text)-form36.table1.fieldbyname('je').asinteger;
ying:=strtoint(form36.edit5.text)-form36.table1.fieldbyname('je').asinteger;
end;
procedure Tcpckxg.BitBtn2Click(Sender: TObject);
begin
form36.table1.Post;
form36.edit1.text:=inttostr(shu+strtoint(dbedit8.text));
form36.edit4.text:=inttostr(shi+strtoint(dbedit16.text));
form36.edit5.text:=inttostr(ying+strtoint(dbedit16.text));
end;
procedure Tcpckxg.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if (Activecontrol is Tdbedit) then
PerForm(WM_NextDlgctl,0,0);
end;
end.
上一篇:
mrcpckthsl.pas
下一篇:
竞赛中运动员的心理障碍与心理训练分析