mrcpxxlb.pas

这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理

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.