unit9.pas

来自「停车厂管理系统 麻雀虽小 但是五脏齐全」· PAS 代码 · 共 115 行

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, Mask, DBCtrls,
  ExtCtrls;

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit11, Unit1;

{$R *.dfm}


procedure TForm9.BitBtn3Click(Sender: TObject);
var  //删除工作人员
  shiyong,deleteuser:string;
begin
   shiyong:=trim(user);
   adotable1.Open;
   deleteuser:=trim(adotable1.FieldByName('opname').Value); //得到要删除的用户名
   if shiyong=deleteuser then
   messagebox(handle,'该用户正在使用系统不能删除','系统提示',mb_ok+mb_iconinformation)
   else
   begin
   adotable1.Edit;
   adotable1.Delete;
   messagebox(handle,'删除用户成功','系统提示',mb_ok+mb_iconinformation);
   end;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin    //增加工作人员
   if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (combobox1.Text<>'') then
     begin
       if (edit2.Text)=(edit3.Text) then  //判断两次输入的密码是否一至
         begin
           adotable1.Open;
           if not adotable1.Locate('opname',edit1.Text,[locaseinsensitive]) then//判断用户名是否已用
           begin
             adotable1.Edit;
             adotable1.AppendRecord([edit1.Text,edit2.Text,combobox1.Text]);
           end //在数据库表中增加一条用户记录
           else
           begin
             messagebox(handle,'输入的用户名已被使用，请换个用户名','系统提示',mb_ok+mb_iconinformation);
             edit1.Clear;
             edit1.SetFocus;
           end ;
         end
       else
         begin
         messagebox(handle,'前后输入的密码不一至,请重新输入','系统提示',mb_ok+mb_iconinformation);
         edit2.Clear;
         edit3.Clear;
         edit2.SetFocus;
         end
     end
   else
     messagebox(handle,'请输入完整的信息','系统提示',mb_ok+mb_iconinformation);
end;

procedure TForm9.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=false;
end;

procedure TForm9.FormActivate(Sender: TObject);
begin
  adotable1.Open;
  edit1.SetFocus;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Close;
end;

end.