📄 unit_managerachives.pas
字号:
'TRAIN_RESU='''+Me_TRAIN_RESU.Text+''','+
'REMARK='''+Me_REMARK.Text+''''+
' Where TRAIN_ID='+QueryOther.FieldByName('TRAIN_ID').AsString;
DM_Main.Databasedh.StartTransaction;
QueryAnalyze.Close;
QueryAnalyze.SQL.Clear;
QueryAnalyze.SQL.Add(SQLString);
try
QueryAnalyze.ExecSQL;
DM_Main.Databasedh.Commit;
QueryOther.Close;
QueryOther.Open;
dbgtrain.Enabled:=True;
except
DM_Main.Databasedh.RollBack ;
raise ;
end;
End;
2:
Begin
SqlString:='Update T_F_WorkHis Set GROUPCALLING='+Fun_GetCodeName(co_GROUPCALLING)+','+
'DEPT='''+Edit_DEPT.Text+''','+
'BGN_TIME=To_Date('''+FormatDateTime('YYYY-MM-DD',dtpWORKEXPE_BGN_TIME.DateTime)+''',''YYYY-MM-DD''),'+
'END_TIME=To_Date('''+FormatDateTime('YYYY-MM-DD',dtpWORKEXPE_END_TIME.DateTime)+''',''YYYY-MM-DD''),'+
'DUTY='''+Edit_DUTY.Text+''','+
'REMARK='''+Memo_REMARK.Text+''''+
' Where HIS_ID='+QueryOther.FieldByName('HIS_ID').AsString;
DM_Main.Databasedh.StartTransaction;
QueryAnalyze.Close;
QueryAnalyze.SQL.Clear;
QueryAnalyze.SQL.Add(SQLString);
try
QueryAnalyze.ExecSQL;
DM_Main.Databasedh.Commit;
QueryOther.Close;
QueryOther.Open;
dbgWork_expe.Enabled:=True;
except
DM_Main.Databasedh.RollBack ;
raise ;
end;
End;
3:
Begin
SqlString:='Update T_F_Active Set ACTIVE='''+Ed_ACTIVE.Text+''','+
'PRIZE='''+Me_PRIZE.Text+''','+
'ACTI_TIME_DATA=To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_ACTI_TIME_DATA.DateTime)+''',''YYYY-MM-DD''),'+
'PUNISH='''+Me_PUNISH.Text+''','+
'ADVICE='''+Me_ADVICE.Text+''''+
' Where ACTIVE_ID='+QueryOther.FieldByName('ACTIVE_ID').AsString;
DM_Main.Databasedh.StartTransaction;
QueryAnalyze.Close;
QueryAnalyze.SQL.Clear;
QueryAnalyze.SQL.Add(SQLString);
try
QueryAnalyze.ExecSQL;
DM_Main.Databasedh.Commit;
QueryOther.Close;
QueryOther.Open;
dbgWork_expe.Enabled:=True;
except
DM_Main.Databasedh.RollBack ;
raise ;
end;
End;
4:
Begin
SqlString:='Update T_F_Connection Set SOTI_ID='+Fun_GetCodeName(co_SocietyNo)+','+
'NAME='''+edSOCIRELA_NAME.Text+''','+
'SEX='''+Fun_GetCodeName(coSOCIRELA_SEXNo)+''','+
'WORK_UNIT='''+edSOCIRELA_WORK_UNIT.Text+''','+
'DUTY='''+edSOCIRELA_DUTY.Text+''','+
'PHONE_NO='''+edSOCIRELA_PHONE_NO.Text+''''+
' Where CONNE_ID='+QueryOther.FieldByName('CONNE_ID').AsString;
AnalyzeSQL(sqlstring);
dbgSoci_Rela.Enabled:=True;
End;
End;
Fun_ButtonStatus(self,false); //-浏览-按钮有效性控制
Fun_ComponentStatus(self,0,false);//--不可写--
Panel1.Enabled:=True;
QueryManagerAfterScroll(Nil);
iSign:=0;
end;
procedure TFrm_ManagerAchives.Btn_CancelClick(Sender: TObject);
begin
Fun_ButtonStatus(self,false); //-浏览-按钮有效性控制
Fun_ComponentStatus(self,0,false);//--不可写--
RefreshRecord; //显示客户经理信息
iSign:=0;
Panel1.Enabled:=True;
dbgtrain.Enabled:=True;
dbgWork_expe.Enabled:=True;
dbgActi_Prize.Enabled:=True;
dbgSoci_Rela.Enabled:=True;
end;
procedure TFrm_ManagerAchives.Btn_ExitClick(Sender: TObject);
begin
close;
end;
procedure TFrm_ManagerAchives.Btn_DeleteClick(Sender: TObject);
Var
SQL:String;
begin
If QueryManager.IsEmpty Then
Begin
Application.MessageBox('请先选择将要操作的客户经理！','提示',MB_ICONEXCLAMATION);
Exit;
End;
Case pcstuffinfo.ActivePageIndex Of
0:
Begin
If QueryManager.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户经理资料！','提示',MB_ICONEXCLAMATION);
Exit;
End;
If Not QueryManager.Eof Then
If Fun_msgbox('您真的要删除该工号吗？'#13#13'请确认是否删除<<'+QueryManager.FieldByName('WK_No').AsString+'>>的员工工号？',0,1)=id_ok then
Begin
SQL:='Delete From T_F_Manager Where WK_NO='''+QueryManager.FieldByName('WK_No').AsString+'''';
AnalyzeSQL(SQL);
QueryManager.Close;
QueryManager.Open;
End;
End;
1:
Begin
If QueryOther.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户经理培训资料！','提示',MB_ICONEXCLAMATION);
Exit;
End;
If Fun_msgbox('您真的要删除该工号<<'+QueryManager.FieldByName('WK_No').AsString+':'+QueryManager.FieldByName('name').AsString+'>>的培训资料吗？'#13#13'请确认是否删除<<'+QueryOther.FieldByName('TRAIN_TOPI').AsString+'>>的培训资料？',0,1)=id_ok then
Begin
SQL:='Delete From T_F_Train Where TRAIN_ID='+QueryOther.FieldByName('TRAIN_ID').AsString;
AnalyzeSQL(SQL);
QueryOther.Close;
QueryOther.Open;
End;
End;
2:
Begin
If QueryOther.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户经理工作经历资料！','提示',MB_ICONEXCLAMATION);
Exit;
End;
If Fun_msgbox('您真的要删除该工号<<'+QueryManager.FieldByName('WK_No').AsString+':'+QueryManager.FieldByName('name').AsString+'>>的工作经历资料吗？'#13#13'请确认是否删除<<'+QueryOther.FieldByName('WORKUNIT').AsString+'>>的工作经历资料？',0,1)=id_ok then
Begin
SQL:='Delete From T_F_WorkHis Where HIS_ID='+QueryOther.FieldByName('HIS_ID').AsString;
AnalyzeSQL(SQL);
QueryOther.Close;
QueryOther.Open;
End;
End;
3:
Begin
If QueryOther.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户经理重要活动(奖惩)资料！','提示',MB_ICONEXCLAMATION);
Exit;
End;
If Fun_msgbox('您真的要删除该工号<<'+QueryManager.FieldByName('WK_No').AsString+':'+QueryManager.FieldByName('name').AsString+'>>的重要活动(奖惩)资料吗？'#13#13'晴确认是否删除<<'+QueryOther.FieldByName('ACTIVE').AsString+'>>重要活动(奖惩)资料？',0,1)=id_ok then
Begin
SQL:='Delete From T_F_Active Where ACTIVE_ID='+QueryOther.FieldByName('ACTIVE_ID').AsString;
AnalyzeSQL(SQL);
QueryOther.Close;
QueryOther.Open;
End;
End;
4:
Begin
If QueryOther.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户经理社会关系资料！','提示',MB_ICONEXCLAMATION);
Exit;
End;
If Fun_msgbox('您真的要删除该工号<<'+QueryManager.FieldByName('WK_No').AsString+':'+QueryManager.FieldByName('name').AsString+'>>的社会关系资料吗？'#13#13'确定删除<<'+QueryOther.FieldByName('NAME').AsString+'>>的社会关系资料？',0,1)=id_ok then
Begin
SQL:='Delete From T_F_Connection Where CONNE_ID='+QueryOther.FieldByName('CONNE_ID').AsString;
AnalyzeSQL(SQL);
QueryOther.Close;
QueryOther.Open;
End;
End;
End;
end;
procedure TFrm_ManagerAchives.pcstuffinfoChange(Sender: TObject);
var
str :string;
begin
If (pcstuffinfo.ActivePageIndex=1) Or (pcstuffinfo.ActivePageIndex=2) Or (pcstuffinfo.ActivePageIndex=3) Or (pcstuffinfo.ActivePageIndex=4) Then
Begin
QueryOther.Close;
QueryOther.SQL.Clear;
Case pcstuffinfo.ActivePageIndex Of
1:QueryOther.SQL.Add('Select * From T_F_Train Where WK_NO='''+QueryManager.FieldByName('WK_NO').AsString+'''');
2:QueryOther.SQL.Add('Select HIS_ID,WK_NO,DEPT,DUTY,BGN_TIME,END_TIME,REMARK,WORKUNIT,GROUPCALLING,Par_Desc From T_F_WorkHis a,T_D_Config b Where To_Char(a.GROUPCALLING)=b.Par_Values And WK_NO='''+QueryManager.FieldByName('WK_NO').AsString+''' And Upper(Par_Name)=''GROUPCALLING''');
3:QueryOther.SQL.Add('Select * From T_F_Active Where WK_NO='''+QueryManager.FieldByName('WK_NO').AsString+'''');
4:begin
//QueryOther.SQL.Add('Select CONNE_ID,SocietyNo,SocietyName,NAME,SexNo,SexName,WORK_UNIT,DUTY,PHONE_NO From T_F_Connection a,'+'(Select Par_Values SexNo,Par_Desc SexName From T_D_Config Where Upper(Par_Name)=''SEX'') b,(Select Par_Values SocietyNo,Par_Desc SocietyName From T_D_Config Where Upper(Par_Name)=''SOCIETYCONNECTION'') C Where WK_NO='''+QueryManager.FieldByName('WK_NO').AsString+''' And a.Sex=b.SexNo And a.SOTI_ID=c.SocietyNo');
str :='Select CONNE_ID,SocietyNo,SocietyName,NAME,SexNo,SexName,WORK_UNIT,DUTY,PHONE_NO From T_F_Connection a,'+'(Select Par_Values SexNo,Par_Desc SexName From T_D_Config Where Upper(Par_Name)=''SEX'') b,(Select Par_Values SocietyNo,Par_Desc SocietyName From T_D_Config Where Upper(Par_Name)=''SOCIETYCONNECTION'') C Where WK_NO='''+QueryManager.FieldByName('WK_NO').AsString+''' And a.Sex=b.SexNo(+) And a.SOTI_ID=c.SocietyNo(+)';
QueryOther.SQL.Add(str);
end;
End;
// QueryOther.SQL.SaveToFile('c:\a.txt');
QueryOther.Open;
End;
end;
procedure TFrm_ManagerAchives.FlatComboBoxCityChange(Sender: TObject);
begin
Fun_GetCounty(FlatComboboxCounty,'所有',FlatComboboxCity.Text,0,PS_HomeName);
end;
procedure TFrm_ManagerAchives.QueryManagerAfterScroll(
DataSet: TDataSet);
begin
RefreshRecord; //显示客户经理信息
pcstuffinfoChange(Nil);
end;
procedure TFrm_ManagerAchives.CB_CityNoChange(Sender: TObject);
begin
Fun_GetCounty(CB_off_no_home,'',CB_CityNo.Text,0,PS_HomeName);
//加入局向的内容
Fun_GetRoom(co_RoomID,'',CB_CityNo.Text,CB_Off_no_home.Text,0,'');
//加入关系室的内容 modiby by zengzc 2002 08 23
end;
procedure TFrm_ManagerAchives.QueryOtherAfterScroll(
DataSet: TDataSet);
begin
Case pcstuffinfo.ActivePageIndex Of
0:ShowRecord(QueryManager,panel_ts_stuff);
1:ShowRecord(QueryOther,Panel_train);
2:ShowRecord(QueryOther,Panel_work_expe);
3:ShowRecord(QueryOther,Panel_acti_prize);
4:ShowRecord(QueryOther,Panel_soci_rela);
End;
end;
procedure TFrm_ManagerAchives.Btn_Query_NormalClick(Sender: TObject);
Var
// SQLString:String;
ValueString:String;
begin
QueryManager.Close;
QueryManager.SQL.Clear;
QueryManager.SQL.Add('Select * From T_F_Manager Where 1=1');
ValueString:=Fun_GetCity(FlatComboboxCity,'',1);
If ValueString<>'' Then
QueryManager.SQL.Add('And CityNo='+ValueString);
ValueString:=Fun_GetCounty(FlatComboboxCounty,'','',1);
If ValueString<>'' Then
QueryManager.SQL.Add('And Off_No_Home='+ValueString);
ValueString:=Fun_GetRoom(FlatComboBoxRoom,'',FlatComboBoxCity.Text,FlatComboBoxCounty.Text,1,'');
If ValueString<>'' Then
QueryManager.SQL.Add('And RoomID='+ValueString);
If Trim(ED_wk_no_b.Text)<>'' Then
QueryManager.SQL.Add('And Wk_No Like ''%'+Trim(ED_wk_no_b.Text)+'%''');
If Trim(ED_name_b.Text)<>'' Then
QueryManager.SQL.Add('And NAME Like ''%'+Trim(ED_name_b.Text)+'%''');
QueryManager.Open;
end;
procedure TFrm_ManagerAchives.ed_WK_NOExit(Sender: TObject);
begin
If (Trim(Ed_Wk_No.Text)<>'') And (iSign=1) Then
Begin
QuerySearchManager.Close;
QuerySearchManager.SQL.Clear;
QuerySearchManager.SQL.Add('Select Count(*) From T_F_Manager Where WK_No='''+Trim(Ed_Wk_No.Text)+'''');
QuerySearchManager.Open;
If QuerySearchManager.Fields[0].AsInteger>0 Then
Begin
Fun_msgbox(Trim(Ed_Wk_No.Text)+'工号已经存在，请重新填写！');
Ed_Wk_No.SetFocus;
End;
End;
end;
procedure TFrm_ManagerAchives.ed_SidKeyPress(Sender: TObject;
var Key: Char);
begin
If Not (Key In ['0'..'9',#8,#13,'-']) Then
Key:=#0;
end;
procedure TFrm_ManagerAchives.pcstuffinfoChanging(Sender: TObject;
var AllowChange: Boolean);
begin
If iSign<>0 Then
AllowChange:=False;
end;
procedure TFrm_ManagerAchives.FlatComboBoxCountyChange(Sender: TObject);
begin
Fun_GetRoom(FlatComboBoxRoom,'所有',FlatComboBoxCity.Text,FlatComboBoxCounty.Text,0,'');
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -