unitz.~pas

小型仓库管理系统

unit UnitZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls,unitDm, Grids, DBGrids;

type
  TfmZ = class(TForm)
    Image1: TImage;
    combA: TComboBox;
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    edt4: TEdit;
    edt3: TEdit;
    edt2: TEdit;
    edt1: TEdit;
    btn1: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    edt5: TEdit;
    RadioGroup1: TRadioGroup;
    rbtn1: TRadioButton;
    rbtn2: TRadioButton;
    sbtn1: TSpeedButton;
    procedure btn1Click(Sender: TObject);
    procedure rbtn1Click(Sender: TObject);
    procedure rbtn2Click(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
    procedure combAChange(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edt3KeyPress(Sender: TObject; var Key: Char);
    procedure edt4KeyPress(Sender: TObject; var Key: Char);
    procedure edt5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmZ: TfmZ;

implementation

uses UnitC;

{$R *.dfm}

procedure TfmZ.btn1Click(Sender: TObject);
var s1,s2,s3,s4,s5,s6:string;
begin
  s1:=trim(edt1.Text);
  s2:=trim(edt2.Text);
  s3:=trim(edt3.Text);
  s4:=trim(edt4.Text);
  s5:=trim(edt5.Text);
  if rbtn2.Checked=true then
  begin
    if combA.Text='注册普通用户' then
     begin
       edt1.Enabled:=false;
       edt2.Enabled:=false;
       s6:='2';
       if (s3<>'')and
          (s4<>'') and
          (s5<>'')then
          begin
            frDbm.dsetZ.Close;
            frDbm.dsetZ.CommandText:='select * from t_login where id='+s3+'';
            frDbm.dsetZ.Open;
            if frDbm.dsetZ.Fields[0].AsString='' then
                begin
                  if s4=s5 then
                     begin
                       frDbm.ComZ.CommandText:='insert into t_login values('''+s3+''','''+s4+''','''+s6+''')';
                       frDbm.ComZ.Execute;
                       showmessage('新用户注册成功！');
                     end
                  else
                   showmessage('两次密码不一致，请重新输入！');
                end
            else
             showmessage('该登录号已经被占用，请重新选择登陆号！');
          end
        else
          showmessage('输入完整的注册信息！');
     end;
  if combA.Text='注册管理员' then
   begin
     s6:='1';
     frDbm.dsetZ.Close;
     frDbm.dsetZ.CommandText:='select * from t_login where id='+s1+' and purview='+'0';
     frDbm.dsetZ.Open;
     if frDbm.dsetZ.Fields[1].AsString<>'' then
        begin
          if frDbm.dsetZ.Fields[1].AsString=s2 then
              begin
                s6:='1';
                if (s3<>'')and
                   (s4<>'') and
                   (s5<>'')then
                    begin
                      frDbm.dsetZ.Close;
                      frDbm.dsetZ.CommandText:='select * from t_login where id='+s3+'';
                      frDbm.dsetZ.Open;
                      if frDbm.dsetZ.Fields[0].AsString='' then
                       begin
                        if s4=s5 then
                         begin
                           frDbm.ComZ.CommandText:='insert into t_login values('''+s3+''','''+s4+''','''+s6+''')';
                           frDbm.ComZ.Execute;
                           showmessage('新用户注册成功！');
                         end
                        else  showmessage('两次密码不一致，请重新输入！');
                       end
                      else  showmessage('该登录号已经被占用，请重新选择登陆号！');
                   end
                else showmessage('请输入完整注册信息！');
              end
          else showmessage('密码错误，请重新输入！');
        end
     else  showmessage('不存在该超级管理员，请重新输入！');
     end;
  if combA.Text='' then
     showmessage('请选择注册类型！');
 end;


  if rbtn1.Checked=true then
   begin
     if messagedlg('确实要删除报废号为：'+trim(edt1.Text)+'的记录吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
     begin
        frDbm.dsetZ.Close;
        frDbm.dsetZ.CommandText:='select * from t_login where id='+s1+' and purview='+'0';
        frDbm.dsetZ.Open;
      if frDbm.dsetZ.Fields[1].AsString<>'' then
        begin
          if frDbm.dsetZ.Fields[1].AsString=s2 then
              begin
                if s3<>'' then
                   begin
                     frDbm.dsetZ.Close;
                     frDbm.dsetZ.CommandText:='select * from t_login where id='+s3;
                     frDbm.dsetZ.Open;
                     if frDbm.dsetZ.Fields[1].AsString<>'' then
                        begin
                          frDbm.comZ.CommandText:='delete from t_login where id='+s3;
                          frDbm.ComZ.Execute;
                          showmessage('帐户注销成功！');
                        end
                     else showmessage('不存在登录号为'+s3+'的帐户,请重新输入！');
                   end
                else showmessage('请输入要注销的登录帐户！');
              end
          else showmessage('密码错误，请重新输入！');
        end
     else  showmessage('不存在该超级管理员，请重新输入！');
  end;
 end;
end;

procedure TfmZ.rbtn1Click(Sender: TObject);
begin
  showmessage('只有超级管理员才能注销用户！');
  edt1.Enabled:=true;
  edt2.Enabled:=true;
  edt3.Enabled:=true;
  edt4.Enabled:=false;
  edt5.Enabled:=false;
  combA.Enabled:=false;
end;

procedure TfmZ.rbtn2Click(Sender: TObject);
begin
  edt3.Enabled:=true;
  edt4.Enabled:=true;
  edt5.Enabled:=true;
  combA.Enabled:=true;
end;

procedure TfmZ.sbtn1Click(Sender: TObject);
begin
  fmC.show;
  fmZ.Close;
end;

procedure TfmZ.combAChange(Sender: TObject);
begin
  if combA.Text='注册管理员' then
   begin
     showmessage('只有超级管理员才能注册管理员！');
     edt1.Enabled:=true;
     edt2.Enabled:=true;
   end;
  if combA.Text='注册普通用户' then
   begin
     edt1.Enabled:=false;
     edt2.Enabled:=false;
   end;
end;

procedure TfmZ.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmZ.edt2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmZ.edt3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmZ.edt4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmZ.edt5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

end.