usetuser.pas

物流行业

unit Usetuser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Buttons;

type
  TFmsetuser = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1Cyh: TStringField;
    Table1Cmm: TStringField;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Table1Cqx: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmsetuser: TFmsetuser;

implementation

uses ulogin;

{$R *.dfm}

procedure TFmsetuser.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:=''
end;

procedure TFmsetuser.BitBtn1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
begin
if not table1.Locate('cyh',trim(edit1.Text),[]) then
begin
table1.Append;
table1.FieldValues['cyh']:=trim(edit1.Text);
table1.FieldValues['cmm']:=EncrypKey(edit2.Text,'jss');
table1.FieldValues['cqx']:=combobox1.Text;
table1.Post;
end
else
showmessage('用户名重复，请检查!');
end;
end;

procedure TFmsetuser.BitBtn2Click(Sender: TObject);
begin
if table1.RecordCount>0 then
table1.Delete else showmessage('没有可删除的记录!');
end;

procedure TFmsetuser.BitBtn3Click(Sender: TObject);
begin
fmsetuser.Close;
end;

end.