【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供JBXX_SBXX_TJFORM.pas参考,解决您在JBXX_SBXX_TJFORM.pas学习中工作中的难题,参考学习。
unit JBXX_SBXX_TJFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB, Grids, DBGrids;
var bjxxbh:string;
type
TJBXX_SBXX_TJ = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label8: TLabel;
Edit8: TEdit;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
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_TJ: TJBXX_SBXX_TJ;
implementation
uses JBXX_SBXXFORM;
{$R *.DFM}
procedure TJBXX_SBXX_TJ.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TJBXX_SBXX_TJ.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.insert;
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;
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
Edit1.Text:= formatfloat('000000',STRTOINT(EDIT1.TEXT)+1);
edit2.SetFocus ;
end;
procedure TJBXX_SBXX_TJ.BitBtn2Click(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.insert;
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;
close;
end;
procedure TJBXX_SBXX_TJ.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);
end;
procedure TJBXX_SBXX_TJ.FormShow(Sender: TObject);
begin
edit2.setfocus;
end;
procedure TJBXX_SBXX_TJ.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit3.SetFocus ;
end;
end;
procedure TJBXX_SBXX_TJ.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