mrcpxxlb.~pas

汽配管理系统 数据库：Access ODBC user 操作员 密码 mr 111

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);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CPXXLB: TCPXXLB;

implementation

uses Unit6;

{$R *.DFM}

procedure TCPXXLB.DBGrid1DblClick(Sender: TObject);
begin
try
Form6.edit12.text:=
       Form6.Table3.FieldbyName('cpbh').Asstring;
Form6.edit13.text:=
       Form6.Table3.FieldByName('cpmc').Asstring;
Form6.edit14.text:=
       Form6.Table3.FieldByName('cpxh').Asstring;
Form6.edit19.text:=inttostr(
       Form6.Table3.FieldByName('danjia').Asinteger);
a11:=Form6.TAble3.FieldByName('dan').Asstring;
a12:=Form6.Table3.FieldByName('cx').Asstring;
a13:=Form6.Table3.FieldByName('cd').Asstring;
Form6.edit16.text:=inttostr(
       Form6.Table3.FieldbYName('pi').Asinteger);
Form6.edit17.text:=inttostr(
       Form6.Table3.FieldByName('ling').Asinteger);
Form6.edit18.text:=inttostr(
       Form6.Table3.FieldByName('jy').Asinteger);
form6.edit15.setfocus;

Except on Exception do showmessage('数据连接错误。');end;
close;


end;

procedure TCPXXLB.FormCreate(Sender: TObject);
begin
Form6.Table1.open;
end;

procedure TCPXXLB.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
try
//Form6.Dbedit1.Text:=Form6.Table2.fieldbyName('cpbh').Asstring;
Form6.Table1.FieldByName('cpbh').Asstring:=
       Form6.Table3.FieldbyName('cpbh').Asstring;
//Form6.Dbedit2.Text:=Form6.Table2.FielDbyName('cpmc').Asstring;
Form6.Table1.FieldByName('cpmc').Asstring:=
       Form6.Table3.FieldByName('cpmc').Asstring;
//Form6.DBEdit3.Text:=Form6.Table2.FieldByName('cpxh').Asstring;
Form6.Table1.FielDbyName('cpxh').Asstring:=
       Form6.Table3.FieldByName('cpxh').Asstring;
//Form6.Dbedit5.Text:=Form6.Table2.FieldByName('danjia').Asstring;
Form6.Table1.FieldByName('danjia').Asinteger:=
       Form6.Table3.FieldByName('danjia').Asinteger;
Form6.Table1.FieldByName('dan').Asstring:=
       Form6.TAble3.FieldByName('dan').Asstring;
Form6.Table1.FieldByName('cx').Asstring:=
       Form6.Table3.FieldByName('cx').Asstring;
Form6.TAble1.FieldByName('cd').Asstring:=
       Form6.Table3.FieldByName('cd').Asstring;
Form6.Table1.FieldByName('pi').Asinteger:=
       Form6.Table3.FieldbYName('pi').Asinteger;
Form6.Table1.FieldByName('ling').Asinteger:=
       Form6.Table3.FieldByName('ling').Asinteger;
Form6.Table1.FieldByName('jy').Asinteger:=
       Form6.Table3.FieldByName('jy').Asinteger;

       form6.dbedit14.setfocus;

Except on Exception do showmessage('数据连接错误。');end;
close;
end;
end;

procedure TCPXXLB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form6.dbedit14.enabled:=true;
form6.dbedit4.Enabled:=true;
form6.dbedit5.enabled:=true;
form6.dbedit7.enabled:=true;
end;

end.