unitusersz.pas

DELPHI应用一则

unit UnitUSERSZ;

interface

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

type
  TFormUSERSZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    EDczydm: TEdit;
    EDczyxm: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    EDczykl: TEdit;
    BBqr: TBitBtn;
    BBqx: TBitBtn;
    procedure EDczydmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EDczyklKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EDqrklKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BBqrClick(Sender: TObject);
    procedure EDczydmExit(Sender: TObject);
    procedure BBqxClick(Sender: TObject);
    procedure EDczyxmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUSERSZ: TFormUSERSZ;

implementation

uses UDM;

{$R *.DFM}

procedure TFormUSERSZ.EDczydmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D then
    if EDczyxm.CanFocus then
      EDczyxm.SetFocus;
end;

procedure TFormUSERSZ.EDczyklKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D then
    if BBqr.CanFocus then
      BBqr.SetFocus;
end;

procedure TFormUSERSZ.EDqrklKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D then
    if BBqr.CanFocus then
      BBqr.SetFocus;
end;

procedure TFormUSERSZ.BBqrClick(Sender: TObject);
begin
{ if (EDczydm.Text<>'') then
  begin
    if caption='增加操作员' then
    begin
      try
        DM.ADOuser.Append;
        DM.ADOuserczydm.Value:=EDczydm.Text;
        DM.ADOuserczyxm.Value:=EDczyxm.Text;
        DM.ADOuserczykl.Value:=EDczykl.Text;
        dm.ADOuser.Post;
      except
        DM.ADOuser.CancelUpdates;
      end;
    end;
    if caption='修改操作员' then
    begin
      try
        DM.ADOuser.Edit;
        DM.ADOuserczydm.Value:=EDczydm.Text;
        DM.ADOuserczyxm.Value:=EDczyxm.Text;
        DM.ADOuserczykl.Value:=EDczykl.Text;
        dm.ADOuser.Post;
      except
        dm.ADOuser.CancelUpdates;
      end;
    end;
  end;
  close; }
end;

procedure TFormUSERSZ.EDczydmExit(Sender: TObject);
var
  results:variant;
begin
 { if caption='增加操作员' then
  begin
    if EDczydm.Text<>'' then
    begin
      results:=DM.ADOuser.Lookup('CZYDM',EDczydm.Text,'CZYDM');
      if results=EDczydm.Text then
      begin
        messagebox(0,'操作员代码重复!!','系统提示',MB_OK+MB_iconinformation);
        EDczydm.Text:='';
        EDczydm.SetFocus;
      end;
    end;
  end;}
end;

procedure TFormUSERSZ.BBqxClick(Sender: TObject);
begin
  close;
end;

procedure TFormUSERSZ.EDczyxmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D then
    if EDczykl.CanFocus then
      EDczykl.SetFocus;
end;

procedure TFormUSERSZ.FormShow(Sender: TObject);
begin
  if caption='增加操作员' then
  begin
    EDczydm.Enabled:=true;
    EDczydm.SetFocus;
  end;
  if caption='修改操作员' then
  begin
    EDczydm.Enabled:=false;
    EDczyxm.SetFocus;
  end;
end;

end.