?? unit1.pas

?? 飛思科技的書不錯
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
    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.
上一頁 12
?? 文件大小 571 K
?? 上傳用戶 buptbaishikele
?? 所屬分類 Delphi/CppBuilder
??? 相關標簽

#思科
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
