car4ss1021.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit car4ss1021;

interface

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

type
  Tf_car4ss1021 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);

    procedure Edit1Select(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_car4ss1021: Tf_car4ss1021;

implementation

uses data,main,Car4ss102;

{$R *.dfm}

procedure Tf_car4ss1021.Button1Click(Sender: TObject);
var
    i,j:integer;
    Query,query1:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    


   if edit4.Text='' then
   begin
      showmessage('请输入编号') ;
      edit4.SetFocus;
      exit;
   end;

   if edit1.text='' then
   begin
      showmessage('请输入用户名') ;
      edit1.SetFocus;
      exit;
   end;

   if edit2.text='' then
   begin
      showmessage('请输入密码') ;
      edit2.SetFocus;
      exit;
   end;

   if combobox1.text='' then
   begin
      showmessage('请输入权限类别') ;
      combobox1.SetFocus;
      exit;
   end;

   if edit2.Text<>edit3.text then
   begin
      showmessage('两次密码输入不同') ;
      edit2.SetFocus;
      exit;
   end;


   query.sql.Clear ;
   query.sql.add('select * from 操作员 where 姓名='''+Edit1.Text+'''');
   query.Open;
   if query.RecordCount>0 then
   begin
       showmessage('用户名重复，请重新输入');
       edit1.setfocus;
       exit;
   end;

   query.sql.Clear ;
   query.sql.add('select * from 操作员 where 编码='''+Edit4.Text+'''');
   query.Open;
   if query.RecordCount>0 then
   begin
       showmessage('编码重复，请重新输入');
       edit4.setfocus;
       exit;
   end;


    query.sql.Clear ;
    query.sql.Text:='insert into 操作员(姓名,密码,权限类别,编码) values(:s1,:s2,:s3,:s4)';
    query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
    query.Parameters.ParamByName('s2').Value:=MyMD5.AsHex(MyMD5.HashValue(trim(Edit2.Text)));
    query.parameters.parambyname('s3').value:=trim(combobox1.Text);
    query.Parameters.ParamByName('s4').Value:=trim(Edit4.Text);
    DataModuleADO.ADOConnection1.BeginTrans;
    query.execsql;
    DataModuleADO.ADOConnection1.CommitTrans;


    with f_Car4ss102.ListView1.Items.Add do
    begin
        Caption:=edit1.Text;
        subitems.Add(combobox1.text);
    end;

   i:=0;
   query.sql.Clear ;
   query.sql.add('select * from 操作权限');
   query.Open;
   while not query.Eof do
   begin
       s:='insert into 操作员权限(功能类别,功能名称,操作员,操作权限) values(:s1,:s2,:s3,:s4)';

       inc(i);
       query1.SQL.Clear;
       query1.SQL.Add(s);
       query1.Parameters.ParamByName('s1').Value:=Query.FieldByName('功能类别').Value;
       query1.Parameters.ParamByName('s2').Value:=Query.FieldByName('功能名称').Value;
       query1.parameters.parambyname('s3').value:=Edit1.Text;
       query1.parameters.parambyname('s4').value:='Y';

       DataModuleADO.ADOConnection1.BeginTrans;
       query1.execsql;
       DataModuleADO.ADOConnection1.CommitTrans;

       query.Next;
   end;
    query1.Close ;
    query1.Free ;
    query.Close ;
    query.Free ;


    edit4.text:='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.text:='';
    combobox1.text:='';
    Edit4.SetFocus;
end;

procedure Tf_car4ss1021.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tf_car4ss1021.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
    Begin
        key:=0;
        perform(WM_NEXTDLGCTL,0,0);
    end
    else if key=VK_ESCAPE then close;
end;

procedure Tf_car4ss1021.FormCreate(Sender: TObject);
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    query.SQL.clear;
    Query.SQL.Add('select * from 职员');
    Query.Open ;
    while  not query.Eof do
    begin
        Edit1.items.Add(Query.FieldByName('名称').Value);
        query.Next;
    end;

    query.close;
    query.free;
end;

procedure Tf_car4ss1021.Edit4Exit(Sender: TObject);
var
    i:integer;
    Query,query1:TADOQuery;
begin
    if Edit4.Text = '' then exit;

    Query:=TADOQuery.Create(nil);
    Query.Connection := DataModuleADO.ADOConnection1;
    Query.SQL.Add('select * from 职员 where 编号='''+Edit4.Text  +'''');
    Query.Open ;
    if query.RecordCount > 0 then
    begin
        Edit1.ItemIndex := Edit1.Items.IndexOf(query.Fieldbyname('名称').AsString);
    end
    else
    begin
        showmessage('查无此人。');
        Edit4.Text := '';
    end;
    query.Close ;
    query.Free ;

end;



procedure Tf_car4ss1021.Edit1Select(Sender: TObject);
begin
    Edit1Exit(Sender);
end;

procedure Tf_car4ss1021.Edit1Exit(Sender: TObject);
var
    i:integer;
    Query,query1:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection := DataModuleADO.ADOConnection1;
    Query.SQL.Add('select * from 职员 where 名称='''+Edit1.Text+'''');
    Query.Open ;
    if query.RecordCount > 0 then
    begin
        Edit4.Text := trim(query.Fieldbyname('编号').AsString)
    end;
    query.Close ;
    query.Free ;

end;

end.