unit17.~pas

这是个才财务管理系统！可能是哪个语言！但是我不认识！

unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls;

type
  Tfrm_add = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    DBEdit1: TEdit;
    DBEdit3: TEdit;
    DBEdit5: TEdit;
    DBEdit4: TEdit;
    Button2: TButton;
    Label6: TLabel;
    DBEdit6: TEdit;
    Label7: TLabel;
    DBEdit7: TEdit;
    DBEdit2: TMaskEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_add: Tfrm_add;

implementation

uses Unit4, Unit3;

{$R *.DFM}

procedure Tfrm_add.Button1Click(Sender: TObject);
var
  id:integer;
begin
  if DBEdit1.text='' then
    begin
      messagedlg('请输入姓名!',mtwarning,[mbok],0);
      DBEdit1.SetFocus;
    end
    else
         if frm_worker.table1.locate('姓名',dbedit1.text,[]) then
          begin
              messagedlg('该人已在数据库中!',mtwarning,[mbok],0);
              DBEdit2.clear;
              DBEdit3.clear;
              DBEdit4.clear;
              DBEdit5.clear;
              DBEdit6.clear;
              DBEdit7.clear;
              DBComboBox1.clear;
              DBComboBox2.clear;
              DBEdit1.SetFocus;
          end
         else
           with frm_worker.table1 do
            begin
              last;
              id:=fieldbyname('序号').asinteger;
              append;
              edit;
              //fieldbyname('序号').asinteger:=id+1;
              id:=id+1;
              setfields([id,DBEdit1.text,DBEdit2.text,DBEdit3.text,DBComboBox1.text,DBComboBox2.text,DBEdit4.text,DBEdit5.text,DBEdit6.text,DBEdit7.text]);
              post;
              showmessage('已成功加入数据库!');
              DBEdit2.clear;
              DBEdit3.clear;
              DBEdit4.clear;
              DBEdit5.clear;
              DBEdit6.clear;
              DBEdit7.clear;
              DBEdit1.SetFocus;
           end;

end;

procedure Tfrm_add.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_add.FormActivate(Sender: TObject);
begin
  DBEdit1.setfocus;
end;

procedure Tfrm_add.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBEdit2.setfocus;
  end;
end;

procedure Tfrm_add.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    DBEdit3.setfocus;
  end;
end;

procedure Tfrm_add.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBComboBox1.setfocus;
  end;
end;

procedure Tfrm_add.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    button1.click;
  end;
end;

procedure Tfrm_add.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
   begin
    key:=chr(0);
    DBEdit6.setfocus;
  end;
end;

procedure Tfrm_add.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
   begin
    key:=chr(0);
    DBEdit7.setfocus;
  end;
end;

procedure Tfrm_add.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
   begin
    key:=chr(0);
    DBEdit5.setfocus;
  end;
end;

procedure Tfrm_add.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
  DBComboBox2.setfocus;
  end;
end;

procedure Tfrm_add.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBEdit4.setfocus;
  end;
end;

end.