unit14.pas

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

unit Unit14;

interface

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

type
  Tfrm_check = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    edt_pass: TEdit;
    cob_user: TComboBox;
    btn_login: TBitBtn;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure btn_loginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_check: Tfrm_check;

implementation

uses Unit3, Unit6, Unit8;

{$R *.DFM}

procedure Tfrm_check.FormCreate(Sender: TObject);
var
  i:integer;
begin
    with query1 do
    begin
    sql.Text:='select distinct 姓名 from 口令表.db';
    open;
    for i:=1 to RecordCount do
    begin
    cob_user.Items.add(fieldbyname('姓名').asstring);
    next;
    end;
    close;
    end;
end;

procedure Tfrm_check.btn_loginClick(Sender: TObject);
var
asql:string;
begin
  asql:='select * from  口令表.db where 姓名="'+
  cob_user.text+'" and 口令="'+edt_pass.text+'"';
  query1.sql.text:=asql;
  query1.open;
if query1.RecordCount <>0 then
begin
case frm_check.Tag  of
1:frm_worker.show;
2:frm_setup.show;
3:frm_wage.show;
end;


end else
tag:=0;
query1.close;
edt_pass.Clear;
close;
end;

end.