【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MRCPXXLB.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit MRCPXXLB;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids;
type
TCPXXLB = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure DBGrid1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CPXXLB: TCPXXLB;
implementation
uses MRCPRK;
{$R *.DFM}
procedure TCPXXLB.DBGrid1DblClick(Sender: TObject);
begin
try
CPRK.edit12.text:=
CPRK.Table3.FieldbyName('cpbh').Asstring;
CPRK.edit13.text:=
CPRK.Table3.FieldByName('cpmc').Asstring;
CPRK.edit14.text:=
CPRK.Table3.FieldByName('cpxh').Asstring;
CPRK.edit19.text:=inttostr(
CPRK.Table3.FieldByName('danjia').Asinteger);
a11:=CPRK.TAble3.FieldByName('dan').Asstring;
a12:=CPRK.Table3.FieldByName('cx').Asstring;
a13:=CPRK.Table3.FieldByName('cd').Asstring;
CPRK.edit16.text:=inttostr(
CPRK.Table3.FieldbYName('pi').Asinteger);
CPRK.edit17.text:=inttostr(
CPRK.Table3.FieldByName('ling').Asinteger);
CPRK.edit18.text:=inttostr(
CPRK.Table3.FieldByName('jy').Asinteger);
CPRK.edit15.setfocus;
Except on Exception do showmessage('数据连接错误。');end;
close;
end;
procedure TCPXXLB.FormCreate(Sender: TObject);
begin
CPRK.Table1.open;
end;
procedure TCPXXLB.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
try
//CPRK.Dbedit1.Text:=CPRK.Table2.fieldbyName('cpbh').Asstring;
CPRK.Table1.FieldByName('cpbh').Asstring:=
CPRK.Table3.FieldbyName('cpbh').Asstring;
//CPRK.Dbedit2.Text:=CPRK.Table2.FielDbyName('cpmc').Asstring;
CPRK.Table1.FieldByName('cpmc').Asstring:=
CPRK.Table3.FieldByName('cpmc').Asstring;
//CPRK.DBEdit3.Text:=CPRK.Table2.FieldByName('cpxh').Asstring;
CPRK.Table1.FielDbyName('cpxh').Asstring:=
CPRK.Table3.FieldByName('cpxh').Asstring;
//CPRK.Dbedit5.Text:=CPRK.Table2.FieldByName('danjia').Asstring;
CPRK.Table1.FieldByName('danjia').Asinteger:=
CPRK.Table3.FieldByName('danjia').Asinteger;
CPRK.Table1.FieldByName('dan').Asstring:=
CPRK.TAble3.FieldByName('dan').Asstring;
CPRK.Table1.FieldByName('cx').Asstring:=
CPRK.Table3.FieldByName('cx').Asstring;
CPRK.TAble1.FieldByName('cd').Asstring:=
CPRK.Table3.FieldByName('cd').Asstring;
CPRK.Table1.FieldByName('pi').Asinteger:=
CPRK.Table3.FieldbYName('pi').Asinteger;
CPRK.Table1.FieldByName('ling').Asinteger:=
CPRK.Table3.FieldByName('ling').Asinteger;
CPRK.Table1.FieldByName('jy').Asinteger:=
CPRK.Table3.FieldByName('jy').Asinteger;
// CPRK.dbedit14.setfocus;
Except on Exception do showmessage('数据连接错误。');end;
close;
end;
end;
end.
上一篇:
mrcpxxgl_cx.pas
下一篇:
"夜"