unit4.~pas

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Mask, RzEdit, RzButton,
  ExtCtrls, RzPanel, WinSkinData, WinSkinStore, XPButton;

type
  Tfmyhgl = class(TForm)
    rzgrpbx1: TRzGroupBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    dbgrd1: TDBGrid;
    edt1: TRzEdit;
    edt3: TRzEdit;
    edt2: TRzEdit;
    edt4: TRzEdit;
    edt6: TRzEdit;
    ComboBox1: TComboBox;
    btn1: TXPButton;
    btn2: TXPButton;
    btn3: TXPButton;
    btn4: TXPButton;
    procedure FormCreate(Sender: TObject);

    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmyhgl: Tfmyhgl;

implementation

uses unit2, Unit1, hkgl, Unit3, Unitxqsz, Unit5, Unitczgl, Unitczgl1,
  Unitfjxx, Unitjwh, Unitlcsz, Unitlxfs, Unittpld, Unitzhxx;

{$R *.dfm}

procedure Tfmyhgl.FormCreate(Sender: TObject);
begin
  with dm.yhQuery1 do
                 begin
                sql.Clear;
                sql.Add('select hkemployee,hkqx,hkghxm,hkbz  from hk_user '  );
                  dm.yhQuery1.Active:=True;
                  end ;
dbgrd1.Columns[0].Title.Caption:='人员工号';
dbgrd1.Columns[1].Title.Caption:='操作用户';
dbgrd1.Columns[2].Title.Caption:='用户权限';
dbgrd1.Columns[3].Title.Caption:='备注';
dbgrd1.Columns[0].Width:=95;
dbgrd1.Columns[1].Width:=100;
dbgrd1.Columns[2].Width:=90;
dbgrd1.Columns[3].Width:=142;
ComboBox1.Items.Add('普通用户');
ComboBox1.Items.Add('超级用户');
btn2.Enabled:=False;
edt1.Enabled:=False;
edt2.Enabled:=False;
edt3.Enabled:=False;
edt4.Enabled:=False;
edt6.Enabled:=False;
end;








procedure Tfmyhgl.btn1Click(Sender: TObject);
begin
  edt1.Enabled:=True;
edt2.Enabled:=True;
edt3.Enabled:=True;
edt4.Enabled:=True;
edt6.Enabled:=True;
 btn3.Enabled:=False;

btn1.Enabled:=False;
 btn2.Enabled:=True;
  edt1.SetFocus;
end;

procedure Tfmyhgl.btn2Click(Sender: TObject);
begin
 if edt1.Text<>'' then
   begin
     if edt3.Text<>'' then
     begin
       if edt2.Text<>'' then
       begin
          if edt2.Text=edt3.Text then
          begin
              if edt4.Text<>'' then
              begin
                 with dm.yhQuery1 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_user where hkemployee='''+edt1.Text+''''  );
                  Open;
                        if  DM.yhQuery1.Eof then
                            begin
                               Append;
                               FieldByName('hkemployee').AsString:=edt1.Text;
                               FieldByName('hkpw').AsString:=edt3.Text;
                               FieldByName('hkqx').AsString:=ComboBox1.Text;
                               FieldByName('hkghxm').AsString:=edt4.Text;

                               FieldByName('hkbz').AsString:=edt6.Text;
                               post;
                               application.MessageBox('添加成功!','提示',64);
                               sql.Clear;
                                sql.Add('select hkgh,hkqx  from hk_qx '  );
                                Open;

                                   Append;
                                    FieldByName('hkgh').AsString:=edt1.Text;
                                    FieldByName('hkqx').AsString:=ComboBox1.Text;
                                    post;

                                 sql.Clear;
                                sql.Add('select hkemployee,hkqx,hkghxm,hkbz  from hk_user '  );
                                Open;
                               edt1.Clear;
                               edt2.Clear;
                               edt3.Clear;
                               edt4.Clear;
                               edt6.Clear;
                               edt1.SetFocus;

                            end
                            else
                            begin
                               application.MessageBox('已存在的工号，请重新输入工号！！','人口信息管理');
                               edt1.Text:='';
                               edt1.SetFocus;
                              end
                            end

                end
                else
                begin
                  application.MessageBox('对不起，用户姓名不能为空！！','错误');
                  edt4.Text:='';
                  edt4.SetFocus;
                  end

            end
            else
            begin
              application.MessageBox('对不起，两次输入的密码不一致！！','错误');
                   edt2.Text:='';
                  edt2.SetFocus;
              end
         end
         else
         begin
           application.MessageBox('对不起，请输入确认密码！！','错误');
                    edt2.Text:='';
                   edt2.SetFocus;
           end
       end
       else
       begin
         application.MessageBox('对不起，密码不能为空！！','错误');
                edt3.Text:='';
                  edt3.SetFocus;
         end
     end
     else
     begin
        application.MessageBox('对不起，工号不能为空！！','错误');
  edt1.Text:='';
  edt1.SetFocus;
       end
end;

procedure Tfmyhgl.btn3Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.yhQuery1.Delete;
 dm.yhQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tfmyhgl.btn4Click(Sender: TObject);
begin
  Close;
end;

end.