unit1.~pas

飞思科技的书不错

    Form_relation.Edit_Co.Text:='';
    Form_relation.Edit_Party.Text:='';
    Form_relation.Edit_Post.Text:='';
    Form_relation.Edit_Country.Text:='中国';
    Form_relation.Edit_Degree.Text:='';
    Form_relation.Edit_Res.Text:='';
    Form_relation.Edit_Phone.Text:='';
    Form_relation.Edit_Add.Text:='';
    
    Form_relation.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    with DM do
    begin
        Table_salary2.Active:=True;
        Table_salary2.SetKey;
        Table_salary2.FieldByName('职工号').AsString:=Table_basic.FieldByName('职工号').AsString;
        if Table_salary2.GotoKey then
            begin
            Table_salary2.Active:=False;
            ShowMessage('该职工的工资记录已存在');
            exit;
            end
        else
            begin
                Table_salary2.Active:=False;
                with Form_salary do
                begin
                Edit_basic.Text:='0';
                Edit_Med.Text:='0';
                Edit_aw.Text:='0';
                Edit_Spec.Text:='0';
                Show;
                end;
            end;
    end;
end;


procedure TForm1.ToolButton6Click(Sender: TObject);
begin
    ModifyRecord:=True;
    DM.Table_basic.Edit;
    Set_NotReadOnly;
    Bitbtn_Sub.Enabled:=True;
    Bitbtn_exit.Enabled:=True;
end;

procedure TForm1.Button_M_expClick(Sender: TObject);
var
str:String;
begin
    Modify_exp:=True;
    with DM do
    begin
        Table_exp2.Active:=True;
        str:=Table_basic.FieldValues['职工号'];
        if  not Table_exp2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被修改！');
        exit;
        end;

        Form_exp.MC_Start.Date:=Table_exp.FieldByName('起始时间').AsDateTime;
        Form_exp.MC_end.Date:=Table_exp.FieldByName('终止时间').AsDateTime;
        Form_exp.Edit_co.Text:=Table_exp.FieldByName('所在单位').AsString;
        Form_exp.Edit_dept.Text:=Table_exp.FieldByName('所在部门').AsString;
        Form_exp.Edit_work.Text:=Table_exp.FieldByName('岗位').AsString;
        Form_exp.Edit_job.Text:=Table_exp.FieldByName('工种').AsString;
        Form_exp.Edit_res.Text:=Table_exp.FieldByName('职务').AsString;
        Form_exp.Edit_lev.Text:=Table_exp.FieldBYName('行政级别').AsString;

        Table_exp2.SetKey;
        Table_exp2.FieldByName('序号').AsString:=Table_exp.FieldByName('序号').AsString;
        Table_exp2.GotoKey;
        Table_exp2.Edit;

        Form_exp.Show;
    end;
end;

procedure TForm1.Button_M_carClick(Sender: TObject);
var
str:String;
i:integer;
Find_car:boolean;
begin
    Find_car:=False;
    Modify_car:=True;
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_car2.Active:=True;
        if  not Table_car2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被修改！');
        exit;
        end;

        str:=Table_car.FieldByName('学历').AsString;
        for i:=0 to Form_car.ListBox_c.Items.Count-1 do
        begin
        if str=Form_car.ListBox_c.Items.Strings[i] then Form_car.ListBox_c.ItemIndex:=i;
        end;

        str:=Table_car.FieldByName('学位').AsString;
        for i:=0 to Form_car.ListBox_d.Items.Count-1 do
        begin
            if str=Form_car.ListBox_d.Items.Strings[i] then
            begin
            Form_car.ListBox_d.ItemIndex:=i;
            Find_car:=True;
            end;
        end;
        if not Find_car then   Form_car.ListBox_d.ItemIndex:=4;



        str:=Table_car.FieldByName('学制').AsString;
        for i:=0 to Form_car.ListBox_r.Items.Count-1 do
        begin
        if str=Form_car.ListBox_r.Items.Strings[i] then Form_car.ListBox_r.ItemIndex:=i;
        end;

        Form_car.Edit_Major.Text:=Table_car.FieldByName('专业').AsString;
        Form_car.Edit_School.Text:=Table_car.FieldByName('院校').AsString;
        Form_car.MC_leave.Date:=Table_car.FieldByName('毕业时间').AsDateTime;

        Table_car2.SetKey;
        Table_car2.FieldByName('序号').AsString:=Table_car.FieldByName('序号').AsString;
        Table_car2.GotoKey;
        Table_car2.Edit;

       end;
    Form_car.Show;
end;

procedure TForm1.Button_M_relationClick(Sender: TObject);
var
str:String;
i:integer;
begin
    Modify_relation:=True;
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_relation2.Active:=True;
        if  not Table_relation2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被修改！');
        exit;
        end;

        Form_relation.Edit_Name.Text:=Table_relation.FieldByName('姓名').AsString;
        Form_relation.Edit_Party.Text:=Table_relation.FieldByName('政治面貌').AsString;
        Form_relation.Edit_Call.Text:=Table_relation.FieldByName('称谓').AsString;
        Form_relation.MC_B.Date:=Table_relation.FieldByName('出生日期').AsDateTime;
        Form_relation.Edit_Post.Text:=Table_relation.FieldByName('邮编').AsString;

        str:=Table_relation.FieldByName('民族').AsString;
        for i:=0 to Form_relation.ComboBox_Race.Items.Count-1 do
        begin
            if str=Form_relation.ComboBox_Race.Items.Strings[i] then  Form_relation.ComboBox_Race.ItemIndex:=i
            else  Form_relation.ComboBox_Race.ItemIndex:=0;
        end;

        Form_relation.Edit_Country.Text:=Table_relation.FieldByName('国籍').AsString;
        Form_relation.Edit_Degree.Text:=Table_relation.FieldByName('学历').AsString;
        Form_relation.Edit_Res.Text:=Table_relation.FieldByName('职务').AsString;
        Form_relation.Edit_Co.Text:=Table_relation.FieldByName('单位').AsString;
        Form_relation.Edit_Add.Text:=Table_relation.FieldByName('住址').AsString;
        Form_relation.Edit_Phone.Text:=Table_relation.FieldByName('电话').AsString;

        Table_relation2.SetKey;
        Table_relation2.FieldByName('序号').AsString:=Table_relation.FieldByName('序号').AsString;
        Table_relation2.GotoKey;
        Table_relation2.Edit;
    end;
    Form_relation.Show;
end;

procedure TForm1.Button_M_salaryClick(Sender: TObject);
var
str:String;
begin
    Modify_salary:=True;
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_salary2.Active:=True;
        if  not Table_salary2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被修改！');
        exit;
        end;

        Form_salary.Edit_basic.Text:=Table_salary2.FieldByName('基本工资').AsString;
        Form_salary.Edit_med.Text:=Table_salary2.FieldByName('药费').AsString;
        Form_salary.Edit_spec.Text:=Table_salary2.FieldByName('特殊津贴').AsString;
        Form_salary.Edit_aw.Text:=Table_salary2.FieldByName('奖金').AsString;

        Table_salary2.Edit;
    end;
        Form_salary.Show;

end;

procedure TForm1.Button_D_expClick(Sender: TObject);
var
count,i,pos:integer;
str:String;
begin
        with DM do
        begin
        Table_exp2.Active:=True;
        str:=Table_basic.FieldValues['职工号'];
        if  not Table_exp2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被删除！');
        exit;
        end;


        Table_exp2.SetKey;
        Table_exp2.FieldByName('序号').AsString:=Table_exp.FieldByName('序号').AsString;
        Table_exp2.GotoKey;

        pos:=Table_exp.FieldByName('序号').AsInteger;
        count:=Table_exp2.RecordCount-1;
        Table_exp2.Delete;

        for i:=pos to count do
        begin
        Table_exp2.Edit;
        Table_exp2.FieldByName('序号').AsString:=IntToStr(i);
        Table_exp2.Next;
        end;

        Table_exp.Refresh;
        Table_exp2.Refresh;
        Table_exp2.Active:=False;
        end;
end;

procedure TForm1.Button_D_carClick(Sender: TObject);
var
count,i,pos:integer;
str:String;
begin
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_car2.Active:=True;
        if  not Table_car2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被删除！');
        exit;
        end;

        Table_car2.SetKey;
        Table_car2.FieldByName('序号').AsInteger:=Table_car.FieldByName('序号').AsInteger;
        Table_car2.GotoKey;

        pos:=Table_car2.FieldByName('序号').AsInteger;
        count:=Table_car2.RecordCount-1;
        Table_car2.Delete;

        for i:=pos to count do
        begin
        Table_car2.Edit;
        Table_car2.FieldByName('序号').AsString:=IntToStr(i);
        Table_car2.Next;
        end;

        Table_car.Refresh;
        Table_car2.Refresh;
        Table_car2.Active:=False;
    end;
end;

procedure TForm1.Button_D_relationClick(Sender: TObject);
var
count,i,pos:integer;
str:String;
begin
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_relation2.Active:=True;
        if  not Table_relation2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被删除！');
        exit;
        end;

        Table_relation2.SetKey;
        Table_relation2.FieldByName('序号').AsInteger:=Table_relation.FieldByName('序号').AsInteger;
        Table_relation2.GotoKey;

        pos:=Table_relation2.FieldByName('序号').AsInteger;
        count:=Table_relation2.RecordCount-1;
        Table_relation2.Delete;

        for i:=pos to count do
        begin
        Table_relation2.Edit;
        Table_relation2.FieldByName('序号').AsString:=IntToStr(i);
        Table_relation2.Next;
        end;

        Table_relation.Refresh;
        Table_relation2.Refresh;
        Table_relation2.Active:=False;
    end;
end;

procedure TForm1.Button_D_salaryClick(Sender: TObject);
var
str:string;
begin
    with DM do
    begin
        str:=Table_basic.FieldValues['职工号'];
        Table_salary2.Active:=True;
        if  not Table_salary2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        ShowMessage('没有记录可被删除！');
        exit;
        end;

        Table_salary2.Delete;
        Table_salary3.Refresh;
        Table_salary2.Refresh;
        Table_salary.Refresh;
        DBChart1.RefreshData;
    end;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
var
count,i,pos:integer;
str:String;
begin
    with DM do
        begin
        Table_exp2.Active:=True;
        Table_car2.Active:=True;
        Table_relation2.Active:=True;
        Table_salary2.Active:=True;
        str:=Table_basic.FieldValues['职工号'];

           while  Table_exp2.Locate('职工号',str,[loCaseInsensitive]) do
           begin
                pos:=Table_exp2.FieldByName('序号').AsInteger;
                count:=Table_exp2.RecordCount-1;
                Table_exp2.Delete;

                for i:=pos to count do
                begin
                Table_exp2.Edit;
                Table_exp2.FieldByName('序号').AsString:=IntToStr(i);
                Table_exp2.Next;
                end;
                Table_exp2.Refresh;
                Table_exp.Refresh;
           end;


           while  Table_car2.Locate('职工号',str,[loCaseInsensitive]) do
           begin
                pos:=Table_car2.FieldByName('序号').AsInteger;
                count:=Table_car2.RecordCount-1;
                Table_car2.Delete;

                for i:=pos to count do
                begin
                Table_car2.Edit;
                Table_car2.FieldByName('序号').AsString:=IntToStr(i);
                Table_car2.Next;
                end;
                Table_car2.Refresh;
                Table_car.Refresh;
           end;

           while  Table_relation2.Locate('职工号',str,[loCaseInsensitive]) do
           begin
                pos:=Table_relation2.FieldByName('序号').AsInteger;
                count:=Table_relation2.RecordCount-1;
                Table_relation2.Delete;

                for i:=pos to count do
                begin
                Table_relation2.Edit;
                Table_relation2.FieldByName('序号').AsString:=IntToStr(i);
                Table_relation2.Next;
                end;
                Table_relation2.Refresh;
                Table_relation.Refresh;
           end;

        if  Table_salary2.Locate('职工号',str,[loCaseInsensitive]) then
        begin
        Table_salary2.Delete;
        Table_salary.Refresh;
        Table_salary2.Refresh;
        Table_salary3.Refresh;
        end;

        Table_exp2.Active:=False;
        Table_car2.Active:=False;
        Table_relation2.Active:=False;
        Table_salary2.Active:=False;

        Table_basic.Delete;
        Table_basic.Refresh;
        end;

end;

end.