u_name.pas

这是一个60吨地磅称量系统

unit U_NAME;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables;

type
  TF_NAME = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    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);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_NAME: TF_NAME;

implementation

{$R *.DFM}

procedure TF_NAME.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if (key=chr(13)) and (edit1.text<>'')then edit2.setfocus;
end;

procedure TF_NAME.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if (key=chr(13)) and (edit2.text<>'')then edit3.setfocus;
end;

procedure TF_NAME.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit3.text<>'')then edit4.setfocus;
end;

procedure TF_NAME.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit4.text<>'')then edit5.setfocus;
end;

procedure TF_NAME.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit5.text<>'')then edit6.setfocus;
end;

procedure TF_NAME.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit6.text<>'')then edit7.setfocus;
end;

procedure TF_NAME.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit7.text<>'')then edit8.setfocus;
end;

procedure TF_NAME.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
      if (key=chr(13)) and (edit8.text<>'')then edit9.setfocus;
end;

procedure TF_NAME.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
     if (key=chr(13)) and (edit9.text<>'')then edit10.setfocus;
end;

procedure TF_NAME.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
    if (key=chr(13)) and (edit10.text<>'')then Button1.setfocus;
end;

procedure TF_NAME.Button1Click(Sender: TObject);

begin

  with Table1 do
begin
     TableName:='NAME.DBF';
 with  Table1 do
       begin
            open;
            first;
    if not EOF then
             begin
               append;
          if Edit1.Text<>'' then
          begin
            Table1['NAME']:=Edit1.Text;
          post;
           end;

         if Edit2.Text<>'' then
         begin
             append;
           Table1['NAME']:=Edit2.Text;
         post;
            end;

         if Edit3.Text<>'' then
         begin
            append;
         Table1['NAME']:=Edit3.Text;
            post;
             end;

          if Edit4.Text<>'' then
             begin
                append;
            Table1['NAME']:=Edit4.Text;
            post;
             end;

          if Edit5.Text<>'' then
            begin
              append;
           Table1['NAME']:=Edit5.Text;
            post;
           end;
          if Edit6.Text<>'' then
            begin
             append;
           Table1['NAME']:=Edit6.Text;
            post;
              end;
          if Edit7.Text<>'' then
            begin
              append;
           Table1['NAME']:=Edit7.Text;
            post;
            end;
          if Edit8.Text<>'' then
          begin
             append;
           Table1['NAME']:=Edit8.Text;
             post;
              end;
          if Edit9.Text<>'' then
           begin
            append;
           Table1['NAME']:=Edit9.Text;
            post;
              end;
          if Edit10.Text<>'' then
           begin
                append;
          Table1['NAME']:=Edit10.Text;
             post;
               end;
                 end;
 if  BOF then
           begin
        if Edit1.Text<>'' then
              begin
              edit;
          Table1['NAME']:=Edit1.Text;
               post;
               end;

          if Edit2.Text<>'' then
              begin
              append;
           Table1['NAME']:=Edit2.Text;
             post;
               end;
          if Edit3.Text<>'' then
             begin
               append;
           Table1['NAME']:=Edit3.Text;
              post;
             end;
          if Edit4.Text<>'' then
            begin
              append;
           Table1['NAME']:=Edit4.Text;
             post;

          if Edit5.Text<>'' then
            begin
                append;
            Table1['NAME']:=Edit5.Text;
             post;

          if Edit6.Text<>'' then
            begin
            append;
          Table1['NAME']:=Edit6.Text;
            post;

          if Edit7.Text<>'' then
             begin
            append;
          Table1['NAME']:=Edit7.Text;
             post;
             end;
          if Edit8.Text<>'' then
              begin
              append;
           Table1['NAME']:=Edit8.Text;
              post;
              end;
          if Edit9.Text<>'' then
              begin
            append;
           Table1['NAME']:=Edit9.Text;
             post;
             end;
          if Edit10.Text<>'' then
             begin
               append;
           Table1['NAME']:=Edit10.Text;
                 post;
                 end;
                 end;
                 end;
                 close;
                  end;
                  end;
          end;
          end;
       Edit1.text:='';
       Edit2.text:='';
       Edit3.text:='';
       Edit4.text:='';
       Edit5.text:='';
       Edit6.text:='';
       Edit7.text:='';
       Edit8.text:='';
       Edit9.text:='';
       Edit10.text:='';
      Edit1.SetFocus;
end;


procedure TF_NAME.Button2Click(Sender: TObject);
begin
Table1.Close;
close;
end;

end.