ybdy.pas

希望大家能多多指教这是我给我们同学编的系统

unit YBDY;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, DBTables;

type
  TYBDYFORM = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Table1: TTable;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YBDYFORM: TYBDYFORM;

implementation

{$R *.dfm}

procedure TYBDYFORM.BitBtn1Click(Sender: TObject);
begin
Query1.Params.Clear ;
            Query1.SQL.Clear ;
            Query1.Params.CreateParam(ftstring,'BJ',ptinput).AsString :=Edit1.Text ;
            Query1.Params.CreateParam(ftstring,'XM',ptinput).AsString :=Edit2.Text ;
            Query1.Params.CreateParam(ftstring,'XB',ptinput).AsString :=Edit3.Text ;
            Query1.Params.CreateParam(ftstring,'MZ',ptinput).AsString :=Edit4.Text ;
            Query1.Params.CreateParam(ftstring,'XL',ptinput).AsString :=Edit5.Text ;
            Query1.Params.CreateParam(ftstring,'PYR',ptinput).AsString :=Edit6.Text ;
            Query1.SQL.Add('insert into YuBeiDangYuan(banji,xingming,xingbie,minzu,xueli,peiyangren) values(:BJ,:XM,:XB,:MZ,:XL,:PYR)');
            Query1.ExecSQL ;
           Edit1.Clear ;
           Edit2.Clear ;
           Edit3.Clear ;
           Edit4.Clear ;
           Edit5.Clear ;
           Edit6.Clear ;
           Edit1.SetFocus ;
           Edit1.Focused ;

end;

procedure TYBDYFORM.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TYBDYFORM.Edit6Change(Sender: TObject);
begin
bitbtn1.Enabled :=true;

end;

procedure TYBDYFORM.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key =#13 then
 begin
 Edit2.SetFocus ;
 Edit2.Focused ;
  end;
end;

procedure TYBDYFORM.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
       if key =#13 then
 begin
 Edit3.SetFocus ;
 Edit3.Focused ;
  end;
end;

procedure TYBDYFORM.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
       if key =#13 then
 begin
 Edit4.SetFocus ;
 Edit4.Focused ;
  end;
end;

procedure TYBDYFORM.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
      if key =#13 then
 begin
 Edit5.SetFocus ;
 Edit5.Focused ;
  end;
end;

procedure TYBDYFORM.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
       if key =#13 then
 begin
 Edit6.SetFocus ;
 Edit6.Focused ;
  end;
end;

procedure TYBDYFORM.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
      if key =#13 then
 begin
 bitbtn1.SetFocus ;
 bitbtn1.Focused ;
  end;
end;

end.