pass.pas

本系统前端界面采用WINDOWS 窗口风格

unit pass;

interface

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

type
  TFrmpass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmpass: TFrmpass;

implementation

uses user;

{$R *.DFM}

procedure TFrmpass.FormCreate(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit1.Enabled:=false;
  Frmuser.Query_czy.close;
  Frmuser.Query_czy.open;
  Frmuser.Query_czy.First;
  while not Frmuser.Query_czy.Eof do
    begin
      if (Frmuser.Query_czy.FieldValues['czy_xm']=Frmuser.TreeView1.Selected.Text) then
        begin
          edit1.Text:=Frmuser.Query_czy.fieldvalues['mm'];
          break
        end
      else Frmuser.Query_czy.Next
    end;
end;

procedure TFrmpass.BitBtn1Click(Sender: TObject);
begin
       Frmuser.Query_czy.Edit;
       Frmuser.Query_czy.FieldValues['mm']:=trim(edit2.text);
       try
         Frmuser.Database.StartTransaction;
         Frmuser.Query_czy.Post;
         Frmuser.Database.Commit;
       except
         Frmuser.Query_czy.Cancel;
         Frmuser.Database.Rollback;
       end;
       Self.Close;
end;

procedure TFrmpass.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmpass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TFrmpass.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then  bitbtn2click(self);
end;

end.