unitsysuser_data.pas

来自「自己做过的工程」· PAS 代码 · 共 128 行

unit unitsysuser_data;

interface

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

type
  Tformsysuser_data = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    but_ok: TButton;
    but_cancel: TButton;
    ed_username: TEdit;
    ed_userpassword: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ed_affirm: TEdit;
    cbox_usertype: TComboBox;
    procedure but_cancelClick(Sender: TObject);
    procedure but_okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsysuser_data: Tformsysuser_data;

implementation
       uses unitDMHotel,unitsysuser;
{$R *.dfm}

procedure Tformsysuser_data.but_cancelClick(Sender: TObject);
begin
    close;
end;

//保存记录
procedure Tformsysuser_data.but_okClick(Sender: TObject);
var
      ls_username,ls_usertype,ls_userpassword,ls_affirm:string;
begin
      if MessageDlg('您确定要保存该记录吗？',mtConfirmation,[mbYes,mbNo],0)= mrNO then
         exit;

       //丛输入框中取数据，插入到sys_user表中或用作修改
       ls_username:=ed_username.Text;
       ls_usertype:=cbox_usertype.Text;
       ls_userpassword:=ed_userpassword.Text;
       ls_affirm:=ed_affirm.Text;
       //如果未输入用户名
       if ls_username='' then
          begin
             showmessage('请输入用户名！');
             cbox_usertype.ItemIndex:=0;
             ed_userpassword.Text:='';
             ed_affirm.Text:='';
             ed_username.SetFocus;
             exit;
          end;
       //如果输入的密码和确认密码不一致
       if ls_userpassword<>ls_affirm then
          begin
             showmessage('输入的密码和确认密码不一致,请重新输入！');
             ed_userpassword.Text:='';
             ed_affirm.Text:='';
             ed_userpassword.SetFocus;
             exit;
          end;

       //进行插入操作
       SQL:='insert into sys_user '+'values('+''''+ls_username+''''+','+
            ''''+ls_userpassword+''''+','+''''+ls_usertype+''''+')';
       DMHotel.ADOQuery1.SQL.Text:=SQL;
       try
           DMHotel.ADOQuery1.ExecSQL;
       except
           showmessage('录入失败！');
           exit;
       end;

       DMHotel.ds_sys_user.Requery;
       close;
end;

//显示窗口时的初始设置
procedure Tformsysuser_data.FormShow(Sender: TObject);
var
    bopen:boolean;
begin
    //初始化下拉列表框cbox_usertype
    bOpen:=DMHotel.ds_dictionary.Active;
    cbox_usertype.Items.Clear;
    if not bOpen then
        DMHotel.ds_dictionary.Open
    else
        DMHotel.ds_dictionary.First;

    while not DMHotel.ds_dictionary.Eof do
    begin
        if  DMHotel.ds_dictionary.FieldValues['dicsort']='role' then
            cbox_usertype.Items.Add(DMHotel.ds_dictionary.FieldValues['dicname']);
        DMHotel.ds_dictionary.Next;
    end;
    if not bOpen then
        DMHotel.ds_dictionary.Close;
    cbox_usertype.ItemIndex:=0;

    //确保数据集打开
    DMHotel.ds_sys_user.Open;

    //清空原来的目录
    ed_username.Text:='';
    cbox_usertype.ItemIndex:=0;
    ed_userpassword.Text:='';
    ed_affirm.Text:='';
    ed_username.Enabled:=true;
    ed_username.SetFocus;
end;

end.