unit12.~pas

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

unit Unit12;

interface

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

type
  Tfrm_pwdcheck = class(TForm)
    edt_pass: TEdit;
    Label2: TLabel;
    Query1: TQuery;
    Label1: TLabel;
    cob_user: TComboBox;
    btn_login: TBitBtn;
    procedure edt_passKeyPress(Sender: TObject; var Key: Char);
    procedure btn_loginClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pwdcheck: Tfrm_pwdcheck;

implementation

uses Unit11, Unit13, Unit14, Unit3, Unit6, Unit8;

{$R *.DFM}

procedure Tfrm_pwdcheck.edt_passKeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
  begin
  key:=chr(0);
  btn_login.click;

end;
end;

procedure Tfrm_pwdcheck.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_pwdcheck.Tag  of
   1:frm_worker.show;
   2:frm_setup.show;
   3:frm_wage.show;
   0: begin
   if query1.FieldByName('权限').asstring='管理' then
      begin
      frm_pass.show;
      close;
      end
      else
      begin
      frm_change.show;
      end;
end;
end;
end;
edt_pass.Clear;
close;
end;

procedure Tfrm_pwdcheck.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tag:=0;
end;

procedure Tfrm_pwdcheck.FormShow(Sender: TObject);
var
  i:integer;
begin
  with query1 do
  begin
  sql.text:='select distinct 姓名 from 口令表.db';
  open;
  cob_user.items.clear;
  for i:=1 to recordcount do
  begin
  cob_user.items.add(fieldbyname('姓名').asstring);
  next;
  end;
  close;
  end;
end;

end.