adduser.pas

药品进销存管理系统(Delphi版),适合中小企业管理

unit adduser;

interface

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

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

var
  Frmadduser: TFrmadduser;

  implementation

uses user;

{$R *.DFM}

procedure TFrmadduser.FormCreate(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
end;

procedure TFrmadduser.BitBtn1Click(Sender: TObject);
  var  bh:integer;
      Cbh:string;
      itm:TTreeNode;
 begin
  if edit1.Text<>'' then
    begin
       Frmuser.Query_czy.Close;
       Frmuser.Query_czy.open;
       Frmuser.Query_czy.First;
       bh:=strtoint(Frmuser.Query_czy.fieldvalues['czy_bh']);
       while not Frmuser.Query_czy.Eof do
        begin
        if (Frmuser.Query_czy.FieldByName('czy_xm').asstring<>trim(edit1.text)) then
          if (bh<strtoint(Frmuser.Query_czy.fieldbyname('czy_bh').asstring)) then
           begin
             bh:=strtoint(Frmuser.Query_czy.fieldbyname('czy_bh').asstring);
             Frmuser.Query_czy.Next;
           end
          else Frmuser.Query_czy.Next
        else
          begin
            Application.MessageBox('用户名已存在!','提示', MB_OK+MB_ICONINFORMATION);
            exit;
          end;
        end;
       inc(bh);
       case length(inttostr(bh)) of
         1: cbh:='0'+inttostr(bh);
         2: cbh:=inttostr(bh);
       end;
       Frmuser.Query_czy.open;
       Frmuser.Query_czy.Edit;
       Frmuser.Query_czy.Append;
       Frmuser.Query_czy.FieldByName('czy_bh').asstring:=cbh;
       Frmuser.Query_czy.FieldByName('czy_xm').asstring:=trim(edit1.text);
       Frmuser.Query_czy.FieldByName('mm').asstring:=trim(edit2.text);
       Frmuser.Query_czy.FieldByName('qx').asstring:='01';
       try
         Frmuser.Database.StartTransaction;
         Frmuser.Query_czy.Post;
         Frmuser.Database.Commit;
       except
         Frmuser.Query_czy.Cancel;
         Frmuser.Database.Rollback;
       end;
       itm:=Frmuser.TreeView1.Items.GetFirstNode;
       Frmuser.TreeView1.Items.AddChild(itm,Frmuser.Query_czy.fieldvalues['czy_xm']);
       Self.Close;
    end;

end;

procedure TFrmadduser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=Cafree;
end;

procedure TFrmadduser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit2.SetFocus;
end;

procedure TFrmadduser.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then bitbtn1Click(Self);
end;

procedure TFrmadduser.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

end.