ufrm_user_maintain.~pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

unit ufrm_user_maintain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, Buttons, DB, ADODB, DBTables;

type
  Tfrm_user_maintain = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ImageList1: TImageList;
    btn_yes: TBitBtn;
    btn_no: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edt_code: TEdit;
    edt_desc: TEdit;
    edt_pwd1: TEdit;
    edt_pwd2: TEdit;
    Label5: TLabel;
    chk_lock: TCheckBox;
    ado_pub1: TQuery;
    procedure edt_codeKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn_noClick(Sender: TObject);
    procedure btn_yesClick(Sender: TObject);
    procedure edt_descKeyPress(Sender: TObject; var Key: Char);
    procedure edt_pwd1KeyPress(Sender: TObject; var Key: Char);
    procedure edt_pwd2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    l_sqlstr:string;
  public
    { Public declarations }
    g_parent,g_flag,g_oldcode,g_olddesc,g_newcode,g_newdesc:string;
    procedure init(p_flag,p_code,p_desc,p_parent:string);
    function check(p_flag,p_key:string):boolean;
  end;

var
  frm_user_maintain: Tfrm_user_maintain;

implementation
uses udm,u_encrypt;
{$R *.dfm}

procedure Tfrm_user_maintain.init(p_flag,p_code,p_desc,p_parent:string);
begin
  g_flag:=p_flag;
  g_oldcode:=p_code;
  g_olddesc:=p_desc;
  g_parent:=p_parent;
  edt_code.Text:=p_code;
  edt_desc.Text:=p_desc;
  if p_flag='U' then
    begin
      l_sqlstr:='SELECT * FROM ZD_FILE WHERE ZD02='''+p_code+'''';
      ado_pub1.Close;
      ado_pub1.sql.Clear;
      ado_pub1.sql.Add(l_sqlstr);
      ado_pub1.Open;
      edt_pwd1.Text:=u_encrypt.Decrypt(ado_pub1.fieldbyname('ZD04').AsString,g_pwdkey);
      edt_pwd2.Text:=edt_pwd1.Text;
      chk_lock.Checked:=(ado_pub1.FieldByName('ZD05').AsString='0');
    end;
end;

function Tfrm_user_maintain.check(p_flag,p_key:string):boolean;
begin
  result:=true;
  if p_key='' then
    begin
      result:=false;
      exit;
    end;
  if (p_flag='U') and (p_key=g_oldcode) then exit;
  ado_pub1.Close;
  ado_pub1.SQL.Clear;
  l_sqlstr:='SELECT COUNT(*) FROM ZD_FILE WHERE ZD01='''+p_key+'''';
  ado_pub1.SQL.Add(l_sqlstr);
  ado_pub1.Open;
  if ado_pub1.Fields[0].AsInteger>0 then result:=false;
end;

procedure Tfrm_user_maintain.edt_codeKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=' ' then key:=#0;
  if key=#13 then
    try
      edt_desc.SetFocus;
    except
      ;
    end;
end;

procedure Tfrm_user_maintain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then selectnext(activecontrol,true,true);
end;

procedure Tfrm_user_maintain.btn_noClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_user_maintain.btn_yesClick(Sender: TObject);
var pwd1,pwd2:string;
    l_lock:string;
begin
  g_newcode:=edt_code.Text;
  g_newdesc:=edt_desc.Text;
  pwd1:=edt_pwd1.Text;
  pwd2:=edt_pwd2.Text;
 if (g_newcode='') then
    begin
      messagedlg('絪腹ぃ