edituserunit.~pas

在数据库应用系统开发之前

unit EditUserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type
  TEditUserForm = class(TForm)
    Query_data: TQuery;
    Panel1: TPanel;
    Panel_button: TPanel;
    Bevel_button: TBevel;
    OKBtn: TButton;
    CancelBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    E_name: TEdit;
    E_ID: TEdit;
    E_SEX: TEdit;
    E_PASSWORD: TEdit;
    E_memo: TEdit;
    C_Rights: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure E_SEXDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    P_state: integer;
    { Public declarations }
  end;

var
  EditUserForm: TEditUserForm;

implementation
uses FunctionUnit, OperInfoUnit;
{$R *.dfm}

procedure TEditUserForm.FormCreate(Sender: TObject);
begin
  query_data.DatabaseName := 'CPXSGL';
  P_state := 1; //0-增加  1-修改
end;

procedure TEditUserForm.OKBtnClick(Sender: TObject);
begin
  if trim(E_name.Text) = '' then
  begin
    messagedlg(Errormsg0002 + '0002', mtError, [mbok], 0);
    E_name.SetFocus;
    exit;
  end;
  if trim(E_ID.Text) = '' then
  begin
    messagedlg(Errormsg0002 + '0003', mtError, [mbok], 0);
    E_id.SetFocus;
    exit;
  end;
  if P_state = 0 then //增加数据
  begin
    with query_data do
    begin
      close;
      sql.Clear;
      sql.Text := 'select * from Sysuser where id="' + uppercase(E_id.Text) + '"';
      try
        open;
      except
        messagedlg(Errormsg0001 + '0001', mtError, [mbok], 0);
        close;
        self.Close;
      end;
      if RecordCount > 0 then //工号已存在
      begin
        messagedlg(Errormsg0003 + '0004', mtError, [mbok], 0);
        E_id.SetFocus;
        close;
        exit;
      end
      else //工号不存在则增加
      begin
        close;
        sql.Clear;
        sql.Text := 'insert into Sysuser (name,id,sex,pass,rights,memo)' +
          'values ("' + E_name.Text + '","' + uppercase(E_id.Text) + '","' + E_sex.Text
          + '","' + E_password.Text + '","' + C_rights.Text + '","'
          + E_memo.Text + '")';
        try
          execsql;
        except
          messagedlg(Errormsg0004 + '0005', mtError, [mbok], 0);
          close;
          self.Close;
        end;
      end;
      messagedlg(Infmsg0001, mtInformation, [mbok], 0);
      close;
      self.Close;
    end;
  end
  else if P_state = 1 then //修改数据
  begin
    with query_data do
    begin
      close;
      sql.Clear;
      sql.Text := 'update Sysuser set name="' + E_name.Text + '",sex="' + E_sex.Text
        + '",pass="' + E_password.Text + '",rights="' + C_rights.Text
        + '",memo="' + E_memo.Text + '" where id="' + E_id.text + '"';
      try
        execsql;
      except
        messagedlg(Errormsg0004 + '0005', mtError, [mbok], 0);
        close;
        self.Close;
      end;
      messagedlg(Infmsg0003, mtInformation, [mbok], 0);
      close;
      self.Close;
    end;
  end;
end;

procedure TEditUserForm.E_SEXDblClick(Sender: TObject);
begin
  if E_sex.Text = '男' then
    E_sex.Text := '女'
  else
    E_sex.Text := '男';
end;

procedure TEditUserForm.FormShow(Sender: TObject);
begin
  if P_state = 1 then
  begin
    E_id.ReadOnly := true;
  end
  else
    E_id.ReadOnly := false;
end;


procedure TEditUserForm.CancelBtnClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TEditUserForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  OperInfoForm.Query_data.Close;
  OperInfoForm.Query_data.Open;
end;

end.