【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:JBXX_SBXX_XGFORM.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit JBXX_SBXX_XGFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB, Grids, DBGrids;
type
TJBXX_SBXX_XG = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Label8: TLabel;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
JBXX_SBXX_XG: TJBXX_SBXX_XG;
implementation
uses JBXX_SBXX_TJFORM, JBXX_SBXXFORM;
{$R *.DFM}
procedure TJBXX_SBXX_XG.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TJBXX_SBXX_XG.BitBtn1Click(Sender: TObject);
begin
if edit2.text='' then
begin
messagedlg('备件名称不能为空,请添加',mterror,[mbok],0);
edit2.setfocus;
EXIT ;
END;
if edit3.text='' then
begin
messagedlg('备件型号不能为空,请添加',mterror,[mbok],0);
edit3.setfocus;
EXIT ;
END ;
if edit4.text='' then begin
messagedlg('备件规格不能为空,请添加',mterror,[mbok],0);
edit4.setfocus;
EXIT;
end;
JBXX_SBXX.ADOQuery1.EDIT;
if edit1.text<>'' then JBXX_SBXX.ADOQUERY1['编号']:=edit1.text;
if edit2.text<>'' then JBXX_SBXX.ADOQUERY1['产品名称']:=edit2.text;
if edit3.text<>'' then JBXX_SBXX.ADOQUERY1['产品品牌']:=edit3.text;
if edit4.text<>'' then JBXX_SBXX.ADOQUERY1['产品型号']:=edit4.text;
if edit5.text<>'' then JBXX_SBXX.ADOQUERY1['产品序号']:=edit5.text;
if edit6.text<>'' then JBXX_SBXX.ADOQUERY1['整机机号']:=edit6.text ;
if edit7.text<>'' then JBXX_SBXX.ADOQUERY1['厂商']:=edit7.text;
if edit8.text<>'' then JBXX_SBXX.ADOQUERY1['产地']:=edit8.text;
JBXX_SBXX.ADOQUERY1.Post;
end;
procedure TJBXX_SBXX_XG.FormShow(Sender: TObject);
begin
edit2.setfocus;
end;
procedure TJBXX_SBXX_XG.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit3.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit4.SetFocus ;
end;
if key=38 then begin
edit2.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit5.SetFocus ;
end;
if key=38 then begin
edit3.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit6.SetFocus ;
end;
if key=38 then begin
edit4.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit7.SetFocus ;
end;
if key=38 then begin
edit5.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit8.SetFocus ;
end;
if key=38 then begin
edit6.SetFocus ;
end;
end;
procedure TJBXX_SBXX_XG.Edit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
bitbtn1.SetFocus ;
end;
if key=38 then begin
edit7.SetFocus ;
end;
end;
end.