jbxx_bjxx_tjform.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit JBXX_BJXX_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_BJXX_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;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(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);
  private
    { Private declarations }
    Function bc:integer;
  public
    { Public declarations }
  end;

var
  JBXX_BJXX_TJ: TJBXX_BJXX_TJ;

implementation

uses JBXX_BJXXFORM;

{$R *.DFM}
Function tJBXX_BJXX_TJ.bc;   //保存数据
begin
if (edit2.text='')or (edit3.text='')or (edit4.text='')or(edit5.text='')or (edit6.text='') then begin
  messagedlg('数据不能为空,请添加',mterror,[mbok],0);
  edit2.setfocus;
end;
 JBXX_BJXX.ADOQuery1.insert;
 if edit1.text<>'' then JBXX_BJXX.ADOQUERY1['备件编号']:=edit1.text;
 if edit2.text<>'' then JBXX_BJXX.ADOQUERY1['备件名称']:=edit2.text;
 if edit3.text<>'' then JBXX_BJXX.ADOQUERY1['备件型号']:=edit3.text;
 if edit4.text<>'' then JBXX_BJXX.ADOQUERY1['备件规格']:=edit4.text;
 if edit5.text<>'' then JBXX_BJXX.ADOQUERY1['单位']:=edit5.text;
 if edit6.text<>'' then JBXX_BJXX.ADOQUERY1['替代型号']:=edit6.text;
 if edit7.text<>'' then JBXX_BJXX.ADOQUERY1['备注']:=edit7.text;
 JBXX_BJXX.ADOQUERY1.Post;
 edit2.text:='';
 edit3.text:='';
 edit4.text:='';
 edit5.text:='';
 edit6.text:='';
 edit7.text:='';
 edit2.SetFocus ;
end;
procedure TJBXX_BJXX_TJ.FormShow(Sender: TObject);
begin
 edit2.setfocus;      //设定焦点
end;
procedure TJBXX_BJXX_TJ.BitBtn1Click(Sender: TObject);  //保存并添加
var stringgridi,stri:integer;
astr:string;
begin
 bc ;
 edit1.text:=inttostr(strtoint(edit1.text)+1);
 stringgridi:=6-length(edit1.text);
 for stri:=1 to stringgridi do begin
  edit1.text:='0'+edit1.text ;    //自动生成备件编号
 end;
end;
procedure TJBXX_BJXX_TJ.BitBtn2Click(Sender: TObject);  //保存并退出
begin
 bc;
 close;
end;
procedure TJBXX_BJXX_TJ.Edit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 If Key = 13 Then  edit3.SetFocus ;  //回车焦点移到下一个输入点
end;
procedure TJBXX_BJXX_TJ.Edit3KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 If Key = 13 Then  edit4.SetFocus ;  //回车焦点移到下一个输入点
 If Key = 38 Then  edit2.SetFocus ;  //使用向上键焦点移到上一个输入点
end;
procedure TJBXX_BJXX_TJ.Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then  edit5.SetFocus ;  //回车焦点移到下一个输入点
 If Key = 38 Then  edit3.SetFocus ;  //使用向上键焦点移到上一个输入点
end;
procedure TJBXX_BJXX_TJ.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then edit6.SetFocus ;   //回车焦点移到下一个输入点
 If Key = 38 Then edit4.SetFocus ;   //使用向上键焦点移到上一个输入点
end;

procedure TJBXX_BJXX_TJ.Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then edit7.SetFocus ;  //回车焦点移到下一个输入点
 If Key = 38 Then edit5.SetFocus ;  //使用向上键焦点移到上一个输入点
end;

procedure TJBXX_BJXX_TJ.Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then bitbtn1.SetFocus ; //回车焦点移到保存并添加按钮
 If Key = 38 Then edit6.SetFocus ;   //使用向上键焦点移到上一个输入点
end;
procedure TJBXX_BJXX_TJ.BitBtn3Click(Sender: TObject);
begin
 close;    //退出
end;
end.