unit18.~pas

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

unit Unit18;

interface

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

type
  Tfrm_add1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TMaskEdit;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit2: TMaskEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit2: TEdit;
    Label9: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    EditDBEdit7: TDBEdit;
    EditDBEdit8: TDBEdit;
    EditDBEdit9: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edit10: TEdit;
    ComboBox1: TComboBox;
    Label17: TLabel;
    ComboBox2: TComboBox;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    DBLookupComboBox6: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBLookupComboBox8: TDBLookupComboBox;
    DBLookupComboBox9: TDBLookupComboBox;
    DBLookupComboBox7: TDBLookupComboBox;
    Label25: TLabel;
    DBComboBox1: TDBComboBox;
    ComboBox3: TComboBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    ComboBox4: TComboBox;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(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 FormActivate(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button3KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure EditDBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure EditDBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure EditDBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox8KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox9KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_add1: Tfrm_add1;

implementation

uses Unit4, Unit3, Unit5;

{$R *.DFM}

procedure Tfrm_add1.Button1Click(Sender: TObject);
var
  id:integer;
begin
  with frm_setup.table1 do
            begin
              last;
              id:=fieldbyname('序号').asinteger;
              append;
              edit;
              id:=id+1;
              setfields([id,ComboBox1.text,ComboBox2.text,combobox4.text,Edit2.text,Edit3.text,EditDBEdit7.text,EditDBEdit8.text,EditDBEdit9.text,DBEdit1.text,Edit4.text,DBEdit2.text,Edit1.text,Edit5.text,edit6.text,Edit7.text,Edit8.text,DBLookupComboBox6.text,DBLookupComboBox5.text,DBLookupComboBox4.text,DBLookupComboBox7.text,DBLookupComboBox8.text,DBLookupComboBox9.text,DBComboBox1.text,Edit9.text]);
              post;
              Edit1.clear;
              Edit2.clear;
              Edit3.clear;
              Edit4.clear;
              Edit5.clear;
              Edit6.clear;
              Edit7.clear;
              Edit8.clear;
              Edit9.clear;
              dbedit1.clear;
              dbedit2.clear;
              EditDBEdit7.clear;
              EditDBEdit8.clear;
              EditDBEdit9.clear;
              showmessage('已成功加入数据库!');
              ComboBox1.SetFocus;
           end;
      end;

procedure Tfrm_add1.Button2Click(Sender: TObject);
begin
              Edit1.clear;
              Edit2.clear;
              Edit3.clear;
              Edit4.clear;
              Edit5.clear;
              Edit6.clear;
              Edit7.clear;
              Edit8.clear;
              Edit9.clear;
              dbedit1.clear;
              dbedit2.clear;
              ComboBox1.clear;
              ComboBox2.clear;
              ComboBox4.clear;
              EditDBEdit7.clear;
              EditDBEdit8.clear;
              EditDBEdit9.clear;
              close;
end;



procedure Tfrm_add1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=chr(13) then
  begin
    key:=chr(0);
    Edit5.setfocus;
  end;
end;

procedure Tfrm_add1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=chr(13) then
  begin
    key:=chr(0);
    Edit3.setfocus;
  end;
end;

procedure Tfrm_add1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    EditDBEdit7.setfocus;
  end;
end;

procedure Tfrm_add1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    edit6.setfocus;
  end;
end;

procedure Tfrm_add1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    Edit7.setfocus;
  end;
end;

procedure Tfrm_add1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    Edit8.setfocus;
  end;
end;

procedure Tfrm_add1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox6.setfocus;
  end;
end;

procedure Tfrm_add1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
  begin
    key:=chr(0);
    Button1.click;
  end;
end;

procedure Tfrm_add1.FormActivate(Sender: TObject);
begin
  ComboBox1.SetFocus;
end;

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

procedure Tfrm_add1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
    key:=chr(0);
    dbEdit2.setfocus;
  end;
end;

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

procedure Tfrm_add1.FormCreate(Sender: TObject);
var
  id:integer;
begin
  with frm_setup.table1 do
            begin
              last;
              id:=fieldbyname('序号').asinteger;
              edit10.text:=inttostr(id+1);
            end;
end;

procedure Tfrm_add1.ComboBox1Change(Sender: TObject);
var
  i:integer;
  s:string;
begin
   with query1 do
    begin
      s:='select distinct 空调名称,规格型号 from 空调名称及型号表.db'
      +' where 空调名称="'
      + ComboBox1.Text
      +'"';
    sql.text:=s;
    open;

    ComboBox2.items.clear;
    ComboBox2.items.add('');
    for i:=1 to RecordCount do
    begin
    ComboBox2.items.add(fieldbyname('规格型号').asstring);
    next;
    end;
    close;
    end;

end;

procedure Tfrm_add1.Button3Click(Sender: TObject);
var
  id:integer;
begin
   with frm_setup.table1 do
            begin
              last;
              id:=fieldbyname('序号').asinteger;
              edit10.text:=inttostr(id+1);
            end;
    
              Edit1.clear;
              Edit2.clear;
              Edit3.clear;
              Edit4.clear;
              Edit5.clear;
              Edit6.clear;
              Edit7.clear;
              Edit8.clear;
              Edit9.clear;
              dbedit1.clear;
              dbedit2.clear;
              EditDBEdit7.clear;
              EditDBEdit8.clear;
              EditDBEdit9.clear;
    ComboBox1.setfocus;
end;

procedure Tfrm_add1.Button3KeyPress(Sender: TObject; var Key: Char);
begin
   if key=chr(13) then
  begin
    key:=chr(0);
    ComboBox1.setfocus;
  end;
end;

procedure Tfrm_add1.FormShow(Sender: TObject);
var
  i:integer;
begin
   with query1 do
    begin
    sql.clear;
    sql.Add('select distinct 空调名称 from 空调名称及型号表.db');
    open;
     combobox1.items.clear;
    for i:=1 to RecordCount do
    begin
    combobox1.items.add(fieldbyname('空调名称').asstring);
    next;
    end;
    close;

    sql.clear;
    sql.Add('select distinct 姓名 from 人员信息表.db');
    open;
    combobox4.items.clear;
    for i:=1 to RecordCount do
    begin
    combobox4.items.add(fieldbyname('姓名').asstring);
    next;
    end;
    close;
    end;
end;

procedure Tfrm_add1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    combobox2.setfocus;
  end;
end;

procedure Tfrm_add1.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    combobox4.setfocus;
  end;
end;

procedure Tfrm_add1.ComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    Edit2.setfocus;
  end;
end;

procedure Tfrm_add1.EditDBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    EditDBEdit8.setfocus;
end;
end;



procedure Tfrm_add1.EditDBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    dbEdit1.setfocus;
  end;
end;

procedure Tfrm_add1.EditDBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    EditDBEdit9.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox6KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox5.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox5KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox4.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox4KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox7.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox7KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox8.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox8KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    DBLookupComboBox9.setfocus;
  end;
end;

procedure Tfrm_add1.DBLookupComboBox9KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    combobox3.setfocus;
  end;
end;

procedure Tfrm_add1.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
    key:=chr(0);
    edit9.setfocus;
  end;
end;

end.