realtyl23a.pas

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

    if Edit29.Text<>'' then s7:=Edit29.text;
    if Edit21.Text<>'' then s9:=Edit21.text;
    if Edit27.Text<>'' then s10:=Edit27.text;

    If Edit4.Text = '' Then Edit4.Text := '-';
    If Edit5.Text = '' Then Edit5.Text := '-';

    If Edit7.Text = '' Then Edit7.Text := '-';
    If Edit8.Text = '' Then Edit8.Text := '-';
    If Edit9.Text = '' Then Edit9.Text := '-';
    If Edit10.Text = '' Then Edit10.Text := '-';
    If Edit11.Text = '' Then Edit11.Text := '-';
    If Edit12.Text = '' Then Edit12.Text := '-';
    If Edit13.Text = '' Then Edit13.Text := '-';
    If Edit14.Text = '' Then Edit14.Text := '-';
    If Edit15.Text = '' Then Edit15.Text := '-';
    If Edit16.Text = '' Then Edit16.Text := '-';
    If Edit17.Text = '' Then Edit17.Text := '-';
    If Edit18.Text = '' Then Edit18.Text := '-';

    If Edit20.Text = '' Then Edit20.Text := '-';
    If Edit21.Text = '' Then Edit21.Text := '-';

    If Edit25.Text = '' Then Edit25.Text := '-';
    If Edit26.Text = '' Then Edit26.Text := '-';
    If Edit27.Text = '' Then Edit27.Text := '-';
    If Edit28.Text = '' Then Edit28.Text := '-';
    If Edit29.Text = '' Then Edit29.Text := '-';
    If Edit30.Text = '' Then Edit30.Text := '-';
    If Edit31.Text = '' Then Edit31.Text := '-';
    If Edit33.Text = '' Then Edit33.Text := '-';



    if f_realtyL23.bNew=true then
    begin
        Query.SQL.Add('select * from 职员 where 编号='''+Edit1.text+'''');
        Query.Open ;
        if query.RecordCount>0 then
        begin
            showmessage('代码重复，请重新输入');
            Edit1.SetFocus;
            query.Close ;
            query.Free ;
            exit;
        end;


        s:= 'insert into 职员(编号,名称,组织机构,部门,性别,出生日期,婚姻状况,电话1,电话2,手机号,';
        s:=s+'身份证号,电子邮件,开户银行,开户名称,开户行地址,银行帐号,MSN,QQ,户口所在地,社保号,';
        s:=s+'文化程度,入职日期,离职日期,转正日期,职位等级,职称,职务,岗位,职员类别,籍贯,';
        s:=s+'住址,备注) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,';
        s:=s+':s11,:s12,:s13,:s14,:s15,:s16,:s17,:s18,:s19,:s20,';
        s:=s+':s21,:s22,:s23,:s24,:s25,:s26,:s27,:s28,:s29,:s30,';
        s:=s+':s31,:s32)';

        query.sql.Clear ;
        query.sql.add(s);
        query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
        query.Parameters.ParamByName('s2').Value:=trim(Edit2.Text);
        query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
        query.Parameters.ParamByName('s4').Value:=trim(Edit4.Text);
        query.Parameters.ParamByName('s5').Value:=trim(s5);
        query.Parameters.ParamByName('s6').Value:=datetostr(Edit6.date);
        query.Parameters.ParamByName('s7').Value:=trim(s1);
        query.Parameters.ParamByName('s8').Value:= trim(Edit8.Text);
        query.Parameters.ParamByName('s9').Value:=trim(Edit9.Text);
        query.Parameters.ParamByName('s10').Value:=trim(Edit10.Text);
        query.Parameters.ParamByName('s11').Value:=trim(Edit11.text);
        query.Parameters.ParamByName('s12').Value:=trim(Edit12.text);
        query.Parameters.ParamByName('s13').Value:=trim(s2);
        query.Parameters.ParamByName('s14').Value:=trim(Edit14.Text);
        query.Parameters.ParamByName('s15').Value:=trim(Edit15.Text);
        query.Parameters.ParamByName('s16').Value:=trim(Edit16.Text);
        query.Parameters.ParamByName('s17').Value:=trim(Edit17.Text);
        query.Parameters.ParamByName('s18').Value:=trim(Edit18.Text);
        query.Parameters.ParamByName('s19').Value:=trim(Edit19.Text);
        query.Parameters.ParamByName('s20').Value:=trim(Edit20.Text);
        query.Parameters.ParamByName('s21').Value:=trim(s9);
        query.Parameters.ParamByName('s22').Value:=datetostr(Edit22.date);
        query.Parameters.ParamByName('s23').Value:=datetostr(Edit23.date);
        query.Parameters.ParamByName('s24').Value:=datetostr(Edit24.date);
        query.Parameters.ParamByName('s25').Value:=trim(s3);
        query.Parameters.ParamByName('s26').Value:=trim(s6);
        query.Parameters.ParamByName('s27').Value:=trim(s10);
        query.Parameters.ParamByName('s28').Value:=trim(s4);
        query.Parameters.ParamByName('s29').Value:=trim(s7);
        query.Parameters.ParamByName('s30').Value:=trim(Edit30.Text);
        query.Parameters.ParamByName('s31').Value:=trim(Edit31.Text);
        query.Parameters.ParamByName('s32').Value:=trim(Edit33.Text);


        DataModuleADO.ADOConnection1.BeginTrans;
        query.execsql;
        DataModuleADO.ADOConnection1.CommitTrans;

        showmessage('保存成功。');

        query.SQL.Clear;
        query.SQL.Add('select * from 职员 where 编号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_realtyL23.listview1.Items.Add do
            begin
                caption:=query.fieldbyname('编号').Value;
                subitems.Add(query.fieldbyname('名称').Value);
                subitems.Add(query.fieldbyname('性别').Value);
                subitems.Add(query.fieldbyname('籍贯').Value);
                subitems.Add(query.fieldbyname('组织机构').Value);
                subitems.Add(query.fieldbyname('职员类别').Value);
                subitems.Add(query.fieldbyname('电话1').Value);
                subitems.Add(query.fieldbyname('电子邮件').Value);
                subitems.Add(query.fieldbyname('住址').Value);
                subitems.Add(query.fieldbyname('文化程度').Value);
                subitems.Add(query.fieldbyname('身份证号').Value);
                subitems.Add(query.fieldbyname('出生日期').Value);
                subitems.Add(query.fieldbyname('岗位').Value);
                subitems.Add(query.fieldbyname('职务').Value);
                subitems.Add(query.fieldbyname('入职日期').Value);
                subitems.Add(query.fieldbyname('离职日期').Value);
                subitems.Add(query.fieldbyname('备注').Value);
            end;
        end;

        query.Close;
        query.Free;

        if f_realtyL23.listview1.Items.Count>0 then f_realtyL23.listview1.Items.Item[0].Selected:=true;


        getId;
         edit2.Text:='';
         edit3.Text:='';
         Edit4.Text:= '' ;
         Edit5.ItemIndex:=edit5.Items.IndexOf('');
         edit7.ItemIndex:=edit7.Items.IndexOf('');
         Edit8.Text:= '' ;
         Edit9.Text:= '' ;
         Edit10.Text:= '';
         Edit11.Text:= '';
         Edit12.Text:= '';
         Edit13.ItemIndex:=edit13.Items.IndexOf('');
         Edit14.Text:= '';
         Edit15.Text:= '';
         Edit16.Text:= '';
         Edit17.Text:= '';
         Edit18.Text:= '';

         Edit20.Text:= '';
         Edit21.ItemIndex:=edit21.Items.IndexOf('');

         Edit25.ItemIndex:=edit25.Items.IndexOf('');
         Edit26.ItemIndex:=edit26.Items.IndexOf('');
         Edit27.ItemIndex:=edit27.Items.IndexOf('');
         Edit28.ItemIndex:=edit28.Items.IndexOf('');
         Edit29.ItemIndex:=edit29.Items.IndexOf('');
         Edit30.Text:= '';
         Edit31.Text:= '';
         Edit33.Text:= '';

         edit22.Date:=date;
         edit23.Date:=date;
         edit24.Date:=date;
         edit1.SetFocus;
    end;

    if f_realtyL23.bNew=false then    ///修改
    begin
        s:='update 职员 set 编号='''+edit1.text;
        s:=s+''',名称='''+edit2.Text;
        s:=s+''',组织机构='''+edit3.Text;
        s:=s+''',部门='''+edit4.Text;
        s:=s+''',性别='''+edit5.Text;
        s:=s+''',出生日期='''+datetostr(edit6.date);
        s:=s+''',婚姻状况='''+edit7.Text;
        s:=s+''',电话1='''+edit8.Text;
        s:=s+''',电话2='''+edit9.Text;
        s:=s+''',手机号='''+edit10.Text;
        s:=s+''',身份证号='''+edit11.text;
        s:=s+''',电子邮件='''+edit12.text;
        s:=s+''',开户银行='''+edit13.Text;
        s:=s+''',开户名称='''+edit14.Text;
        s:=s+''',开户行地址='''+edit15.Text;
        s:=s+''',银行帐号='''+edit16.Text;
        s:=s+''',MSN='''+edit17.Text;
        s:=s+''',QQ='''+edit18.Text;
        s:=s+''',户口所在地='''+edit19.Text;
        s:=s+''',社保号='''+edit20.Text;
        s:=s+''',文化程度='''+edit21.Text;
        s:=s+''',入职日期='''+datetostr(edit22.date);
        s:=s+''',离职日期='''+datetostr(edit23.date);
        s:=s+''',转正日期='''+datetostr(edit24.date);
        s:=s+''',职位等级='''+edit25.Text;
        s:=s+''',职称='''+edit26.Text;
        s:=s+''',职务='''+edit27.Text;
        s:=s+''',岗位='''+edit28.Text;
        s:=s+''',职员类别='''+edit29.Text;
        s:=s+''',籍贯='''+edit30.Text;
        s:=s+''',住址='''+edit31.Text;
        s:=s+''',备注='''+edit33.Text;
        s:=s+''' where 编号='''+f_realtyL23.ListView1.Selected.Caption+'''';

        query.SQL.Clear;
        query.SQL.Add(s);
        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        mainform.t1:=edit1.Text;


        query.SQL.Clear;
        query.SQL.Add('select * from 职员 where 编号='''+mainform.t1+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
           with f_realtyL23.listview1.Selected do
            begin
                caption:=query.fieldbyname('编号').Value;
                subitems[0]:=query.fieldbyname('名称').Value;
                subitems[1]:=query.fieldbyname('性别').Value;
                subitems[2]:=query.fieldbyname('籍贯').Value;
                subitems[3]:=query.fieldbyname('组织机构').Value;
                subitems[4]:=query.fieldbyname('职员类别').Value;
                subitems[5]:=query.fieldbyname('电话1').Value;
                subitems[6]:=query.fieldbyname('电子邮件').Value;
                subitems[7]:=query.fieldbyname('住址').Value;
                subitems[8]:=query.fieldbyname('文化程度').Value;
                subitems[9]:=query.fieldbyname('身份证号').Value;
                subitems[10]:=query.fieldbyname('出生日期').Value;
                subitems[11]:=query.fieldbyname('岗位').Value;
                subitems[12]:=query.fieldbyname('职务').Value;
                subitems[13]:=query.fieldbyname('入职日期').Value;
                subitems[14]:=query.fieldbyname('离职日期').Value;
                subitems[15]:=query.fieldbyname('备注').Value;
            end;
        end;
        query.close;
        query.free;
        close;
    end;

end;

procedure Tf_realtyL23A.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_realtyL23A.edit25Select(Sender: TObject);
begin
    if edit25.Text='新增职位等级' then
    begin
        mainform.t1:='职位等级';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit25.Items.Add(mainform.t1);
            edit25.ItemIndex:=edit25.Items.IndexOf(mainform.t1);
        end
        else edit25.ItemIndex:=edit25.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit28Select(Sender: TObject);
begin
    if edit28.Text='新增岗位' then
    begin
        mainform.t1:='岗位';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit28.Items.Add(mainform.t1);
            edit28.ItemIndex:=edit28.Items.IndexOf(mainform.t1);
        end
        else edit28.ItemIndex:=edit28.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit26Select(Sender: TObject);
begin
    if edit26.Text='新增职称' then
    begin
        mainform.t1:='职称';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit26.Items.Add(mainform.t1);
            edit26.ItemIndex:=edit26.Items.IndexOf(mainform.t1);
        end
        else edit26.ItemIndex:=edit26.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit29Select(Sender: TObject);
begin
    if edit29.Text='新增职员类别' then
    begin
        mainform.t1:='职员类别';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit29.Items.Add(mainform.t1);
            edit29.ItemIndex:=edit29.Items.IndexOf(mainform.t1);
        end
        else edit29.ItemIndex:=edit29.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit21Select(Sender: TObject);
begin
    if edit21.Text='新增文化程度' then
    begin
        mainform.t1:='文化程度';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit21.Items.Add(mainform.t1);
            edit21.ItemIndex:=edit21.Items.IndexOf(mainform.t1);
        end
        else edit21.ItemIndex:=edit21.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit27Select(Sender: TObject);
begin
    if edit27.Text='新增职务' then
    begin
        mainform.t1:='职务';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit27.Items.Add(mainform.t1);
            edit27.ItemIndex:=edit27.Items.IndexOf(mainform.t1);
        end
        else edit27.ItemIndex:=edit27.Items.IndexOf('');
    end;
end;

procedure Tf_realtyL23A.edit13Select(Sender: TObject);
begin
    if edit13.Text='新增开户银行' then
    begin
        mainform.t1:='开户银行';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit13.Items.Add(mainform.t1);
            edit13.ItemIndex:=edit13.Items.IndexOf(mainform.t1);
        end
        else edit13.ItemIndex:=edit13.Items.IndexOf('');
    end;
end;

end.