userunit.pas

完整的ic卡管理软件

unit userUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, bsSkinBoxCtrls, Mask,
  bsdbctrls, DBCtrls, bsMessages;

type
  TuserForm = class(TForm)
    bsSkinEdit1: TbsSkinEdit;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinMaskEdit2: TbsSkinMaskEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinButton4: TbsSkinButton;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userForm: TuserForm;

implementation
uses
 datamodel;

{$R *.dfm}

procedure TuserForm.bsSkinButton2Click(Sender: TObject);
begin
   bsSkinEdit1.Text:='';
   bsSkinMaskEdit1.Text:='';
   bsSkinMaskEdit2.Text:='';
   


end;

procedure TuserForm.bsSkinButton3Click(Sender: TObject);
var
 i:integer;
begin

    if  bsSkinEdit1.Text='' then
     begin
      userform.bsSkinMessage1.MessageDlg('用户名不能为空，请重新输入用户名!',mtError,[mbok],0);
      bsSkinEdit1.SetFocus;
      exit;
     end;
    if bsSkinMaskEdit1.Text='' then
     begin
       userform.bsSkinMessage1.MessageDlg('密码不能为空!',mtError,[mbok],0);
     end;
    if bsSkinMaskEdit1.Text<>bsSkinMaskEdit2.Text then
     begin
      userform.bsSkinMessage1.MessageDlg('密码不一致!',mtError,[mbok],0);
      bsSkinMaskEdit1.SetFocus;
      exit;
     end;
    if bsSkinComboBox1.Text='' then
    begin
      userform.bsSkinMessage1.MessageDlg('请选择用户类型!',mtError,[mbok],0);
      bsSkinComboBox1.SetFocus;
      exit;
    end;
    with datamodule1.userQuery do
     begin
        close;
        sql.Clear;
        sql.Add('select * from userMIS where userid=:a');
        Parameters[0].Value:= bsSkinEdit1.Text;
        open;
     end;
    if datamodule1.userQuery.Eof then                     //判断用户名是否重复
      begin
         with DataModule1.userTable do
         begin
          edit;
          append;
          FieldByName('userid').AsString:= bsSkinEdit1.Text;
          FieldByName('password').AsString:=bsSkinMaskEdit1.Text;
          FieldByName('lever').AsInteger:=bsSkinComboBox1.ItemIndex;
          post;
          end;
          userform.bsSkinMessage1.MessageDlg('保存成功!',mtInformation,[mbok],0);
      end
      else
        begin
          userform.bsSkinMessage1.MessageDlg('用户名已存在，请重新输入用户名',mtInformation,[mbok],0);
          bsSkinEdit1.Text:='';
        end;
    bsSkinEdit1.Text:='';
    bsSkinMaskEdit1.Text:='';
    bsSkinMaskEdit2.Text:='';

end;
procedure TuserForm.bsSkinButton4Click(Sender: TObject);          //关闭窗口
begin
close;
end;

procedure TuserForm.bsSkinDBLookupComboBox1Change(Sender: TObject);       //查看用户信息
begin
    with DataModule1.userQuery do
    begin
        close;
        sql.Clear;
        sql.Add('select * from userMIS ');
        sql.Add('where userid=:a');
        Parameters[0].Value:=bsSkinDBLookupComboBox1.Text;
        open;
        bsSkinEdit1.Text:=fieldByName('userid').AsString;
        bsSkinMaskEdit1.Text:=fieldByname('password').AsString;
        bsSkinMaskEdit2.Text:=fieldbyname('password').AsString;
        bsSkinComboBox1.ItemIndex:=fieldbyname('lever').AsInteger;
    end;
      
end;

procedure TuserForm.bsSkinButton1Click(Sender: TObject);

begin
     with DataModule1.userQuery do
     begin
        close;
        sql.Clear;
        sql.Add('delete from userMIS');
        sql.Add('where userid=:a');
        Parameters[0].Value:=bsSkinDBLookupComboBox1.Text;
        ExecSQL;
        bsSkinDBLookupComboBox1.Refresh;

        userform.bsSkinMessage1.MessageDlg('用户删除成功!',mtInformation,[mbok],0);
        bsSkinEdit1.Text:='';
        bsSkinMaskEdit1.Text:='';
        bsSkinMaskEdit2.Text:='';
       
        

     end;
end;

procedure TuserForm.FormShow(Sender: TObject);
begin
datamodule1.userTable.Open;
end;

end.