unit6.pas

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

unit Unit6;

interface

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

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

var
  frm_pwdcheck: Tfrm_pwdcheck;

implementation

uses Unit8, unit9,  Unit3, Unit10, Unit2;

{$R *.DFM}

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_wage.show;
   0:begin
      if query1.FieldByName('权限').asstring='管理' then
         begin
           frm_pass.show;
         end
      else
         begin
           frm_pwdcheck.Global_UserName:=cob_user.Text;
           frm_chg.show;
         end;
     end;
end;
end;
edt_pass.Clear;
close;
end;


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

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

procedure Tfrm_pwdcheck.cob_userClick(Sender: TObject);
begin
  edt_pass.SetFocus;
end;

procedure Tfrm_pwdcheck.FormActivate(Sender: TObject);
begin
  edt_pass.setfocus;
end;

end.