xtdl.~pas

这是用Delphi编写的中小企业管理系统

unit xtdl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,main,xpman;

type
  Tf_xtdl = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    yhmc: TEdit;
    dlkl: TEdit;
    Commit: TBitBtn;
    cancel: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    Bevel1: TBevel;
    Image3: TImage;
    procedure cancelClick(Sender: TObject);
    procedure CommitClick(Sender: TObject);
    procedure yhmcKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dlklKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_xtdl: Tf_xtdl;
  m: Boolean;
implementation
  uses dataModal;
{$R *.dfm}

procedure Tf_xtdl.cancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tf_xtdl.CommitClick(Sender: TObject);
begin
  if (Trim(yhmc.Text)<>'')and(Trim(dlkl.Text)<>'')then
  begin
    with Data.Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from t_czyxx where czymc = :a and czymm = :b');
      ParamByName('a').AsString := Trim(yhmc.Text);
      ParamByName('b').AsString := Trim(dlkl.Text);
      Open;
    end;
    if Data.Query1.RecordCount>0 then
    begin
      m := True;
      czyxx.czymc := Data.Query1.FieldByName('czymc').AsString;
      czyxx.czymm := Data.Query1.FieldByName('czymm').AsString;
      if Data.Query1.FieldByName('czyjb').asinteger= 1 then
        czyxx.czyjb := '系统管理员'
      else
        czyxx.czyjb := '普通职员';
      with Data.Query2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from t_czyqx where czymc = :a');
        ParamByName('a').AsString := Trim(yhmc.Text);
        Open;
      end;
      with czyxx do
      begin
        bmdm := Data.Query2.FieldByName('bmdm').AsInteger;
        fkdm := Data.Query2.FieldByName('fkdm').AsInteger;
        cgth := Data.Query2.FieldByName('cgth').AsInteger;
        kcjgtz := Data.Query2.FieldByName('kcjgtz').AsInteger;
        spdj := Data.Query2.FieldByName('spdj').AsInteger;
        kcsxsgl := Data.Query2.FieldByName('kcsxsgl').AsInteger;
        kczlwh := Data.Query2.FieldByName('kczlwh').AsInteger;
        bscl := Data.Query2.FieldByName('bscl').AsInteger;
        bycl := Data.Query2.FieldByName('bycl').AsInteger;
        xsth := Data.Query2.FieldByName('xsth').AsInteger;
        csjk := Data.Query2.FieldByName('csjk').AsInteger;
        csyfk := Data.Query2.FieldByName('csyfk').AsInteger;
        khjk := Data.Query2.FieldByName('khjk').AsInteger;
        khyfk := Data.Query2.FieldByName('khyfk').AsInteger;
        ycbhs := Data.Query2.FieldByName('ycbhs').AsInteger;
        lrfx := Data.Query2.FieldByName('lrfx').AsInteger;
      end;
      f_main.StatusBar1.Panels[3].Text:= Trim(yhmc.Text);
      Close;
    end
    else
    begin
      Application.MessageBox('用户名或口令不正确,请重新输入.','提示',64);
      yhmc.Clear;
      dlkl.Clear;
      yhmc.SetFocus;
    end;
  end
  else
  begin
    Application.MessageBox('请输入用户名称和口令.','提示',64);
    yhmc.SetFocus;
  end;
end;

procedure Tf_xtdl.yhmcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    dlkl.SetFocus; 
end;

procedure Tf_xtdl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if m = True then
    action := caFree
  else
    Application.Terminate;
end;

procedure Tf_xtdl.dlklKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    Commit.SetFocus;         
end;

procedure Tf_xtdl.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if m = True then
    AnimateWindow(Handle,500,AW_HOR_NEGATIVE+AW_HIDE+AW_CENTER);
end;

procedure Tf_xtdl.FormShow(Sender: TObject);
begin
  AnimateWindow(Handle,500,AW_HOR_NEGATIVE+AW_ACTIVATE+AW_CENTER);
  yhmc.Ctl3D := False;
  yhmc.Ctl3D := True;
  dlkl.Ctl3D := False;
  dlkl.Ctl3D := True;
end;

end.