📄 unit_managerachives.pas
字号:
unit Unit_ManagerAchives;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, TFlatPanelUnit, TFlatSpeedButtonUnit, Db, DBTables,
ImgList, StdCtrls, TFlatListBoxUnit, TFlatMemoUnit, TFlatComboBoxUnit,
TFlatEditUnit, TFlatHintUnit, Menus, TFlatButtonUnit, TFlatSplitterUnit,
Grids, DBGrids;
const
longspace=' ';
type
Tstuffinfo=(sibaseinfo,sitrain,sisoci_rela,siwork_expe,siacti_prize);
TFrm_ManagerAchives = class(TForm)
DSOther: TDataSource;
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel5: TPanel;
Label92: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
ed_wk_no_b: TFlatEdit;
ed_name_b: TFlatEdit;
Btn_Query_Normal: TFlatButton;
FlatComboBoxCity: TFlatComboBox;
FlatComboBoxCounty: TFlatComboBox;
Panel3: TPanel;
pcstuffinfo: TPageControl;
tsbaseinfo: TTabSheet;
panel_ts_stuff: TPanel;
Label15: TLabel;
Label14: TLabel;
Label16: TLabel;
Label18: TLabel;
Label20: TLabel;
Label17: TLabel;
Label13: TLabel;
Label10: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
Label4: TLabel;
p: TLabel;
Label11: TLabel;
Label12: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label19: TLabel;
Label5: TLabel;
ed_NAME: TFlatEdit;
ed_POLI_VISAGE: TFlatEdit;
ed_ID_CARD: TFlatEdit;
ed_E_MAIL: TFlatEdit;
ed_DUTY: TFlatEdit;
ed_SPECIALTY: TFlatEdit;
ed_Sid: TFlatEdit;
ed_UP_WK_NO: TFlatEdit;
co_STAT: TFlatComboBox;
dtp_BIRTHDAY: TDateTimePicker;
dtp_WORKDATE: TDateTimePicker;
co_DIPLOMA_ID: TFlatComboBox;
co_LEVEL_SEQ: TFlatComboBox;
co_SEX: TFlatComboBox;
co_RoomID: TFlatComboBox;
ed_WK_NO: TFlatEdit;
ed_PASSWORD: TFlatEdit;
ed_HOMEADD: TFlatEdit;
ed_HOMEPOST: TFlatEdit;
ed_INTEREST: TFlatEdit;
ed_SKILL: TFlatEdit;
ed_HOMETEL: TFlatEdit;
tstrain: TTabSheet;
Panel_train: TPanel;
Label26: TLabel;
Label_IMPLEAD: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
ed_TRAIN_TOPI: TFlatEdit;
dtp_Bgn_time: TDateTimePicker;
dtp_end_time: TDateTimePicker;
me_TRAIN_CONT: TFlatMemo;
me_TRAIN_RESU: TFlatMemo;
me_REMARK: TFlatMemo;
dbgtrain: TDBGrid;
tswork_expe: TTabSheet;
Panel_work_expe: TPanel;
Label32: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label34: TLabel;
Label31: TLabel;
Label33: TLabel;
ed_WorkUnit: TFlatEdit;
edit_DEPT: TFlatEdit;
dtpWORKEXPE_BGN_TIME: TDateTimePicker;
dtpWORKEXPE_END_TIME: TDateTimePicker;
Memo_REMARK: TFlatMemo;
co_GROUPCALLING: TFlatComboBox;
edit_DUTY: TFlatEdit;
dbgWork_expe: TDBGrid;
tsacti_prize: TTabSheet;
Panel_acti_prize: TPanel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label44: TLabel;
Label43: TLabel;
me_PUNISH: TFlatMemo;
me_ADVICE: TFlatMemo;
me_PRIZE: TFlatMemo;
dtp_ACTI_TIME_DATA: TDateTimePicker;
ed_ACTIVE: TFlatEdit;
dbgActi_Prize: TDBGrid;
tssoci_rela: TTabSheet;
Panel_soci_rela: TPanel;
Label25: TLabel;
Label38: TLabel;
Label42: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
co_SocietyNo: TFlatComboBox;
edSOCIRELA_NAME: TFlatEdit;
coSOCIRELA_SEXNo: TFlatComboBox;
edSOCIRELA_WORK_UNIT: TFlatEdit;
edSOCIRELA_DUTY: TFlatEdit;
edSOCIRELA_PHONE_NO: TFlatEdit;
dbgSoci_Rela: TDBGrid;
Panel4: TPanel;
Btn_Exit: TFlatButton;
Btn_Cancel: TFlatButton;
Btn_Save: TFlatButton;
Btn_Delete: TFlatButton;
Btn_Modify: TFlatButton;
Btn_Add: TFlatButton;
Label51: TLabel;
FlatComboBoxRoom: TFlatComboBox;
DSManager: TDataSource;
Label52: TLabel;
CB_FOLK: TFlatComboBox;
Label53: TLabel;
ED_NowTel: TFlatEdit;
Label54: TLabel;
ED_NOWPOSTALCODE: TFlatEdit;
ED_NOWADDRESS: TFlatEdit;
Label55: TLabel;
Label56: TLabel;
MM_DESCRIPTION: TFlatMemo;
CB_CityNo: TFlatComboBox;
CB_Off_no_home: TFlatComboBox;
QueryOther: TQuery;
QueryAnalyze: TQuery;
QueryManager: TQuery;
QuerySearchManager: TQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{ procedure FindRy(sender:String);
procedure setonly(Sender:Boolean);
procedure setnull;
procedure getdata;}
procedure Btn_AddClick(Sender: TObject);
procedure Btn_ModifyClick(Sender: TObject);
procedure Btn_SaveClick(Sender: TObject);
procedure Btn_CancelClick(Sender: TObject);
procedure Btn_ExitClick(Sender: TObject);
procedure Btn_DeleteClick(Sender: TObject);
procedure pcstuffinfoChange(Sender: TObject);
procedure FlatComboBoxCityChange(Sender: TObject);
procedure QueryManagerAfterScroll(DataSet: TDataSet);
procedure CB_CityNoChange(Sender: TObject);
procedure QueryOtherAfterScroll(DataSet: TDataSet);
procedure Btn_Query_NormalClick(Sender: TObject);
procedure ed_WK_NOExit(Sender: TObject);
procedure ed_SidKeyPress(Sender: TObject; var Key: Char);
procedure pcstuffinfoChanging(Sender: TObject;
var AllowChange: Boolean);
procedure FlatComboBoxCountyChange(Sender: TObject);
private
// mi_seq:integer;
// cWk_NO:string;
iSign:integer;// 0 :browse 1:insert 2:update;
// citycode1,off_no_home1,rela_no,LEVEL_SEQ1:integer;
// thedataset:tquery;
// if_dbclick:boolean;
{ Private declarations }
Procedure RefreshRecord;
public
{ Public declarations }
end;
var
Frm_ManagerAchives: TFrm_ManagerAchives;
implementation
uses
// dmmain,
main,
unit_public, dmmain;
//按钮控制
function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;export;external'winfun.dll';
//输框状态控制
//Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;external'winfun.dll';
Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False;pObject:TObject=Nil):Integer;stdCall;external'winfun.dll';
//控制回车
Function Fun_ComponentTab(pFormName:TForm;pKey:Word):Boolean;StdCall;external'winfun.dll';
//
Function Fun_MsgBox(pMsg:String='';pCaption:Integer=0;pButton:Integer=0):Integer;stdCall;external'winfun.dll';
{$R *.DFM}
Procedure TFrm_ManagerAchives.RefreshRecord;
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.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=CaFree;
end;
procedure TFrm_ManagerAchives.FormShow(Sender: TObject);
begin
pcstuffinfo.ActivePageIndex:=0;
Fun_ButtonStatus(self,False); //按钮有效性控制
Fun_ComponentStatus(self,0,False); //输框状态控制(可输入)
Pro_GFillInitValue(Self);
Fun_GetCity(FlatComboboxCity,'所有',0,PS_CityName);
FlatComboBoxCityChange(Nil);
Fun_GetCity(CB_CityNo,'',0,PS_CityName);
CB_CityNoChange(Nil);
FlatComboBoxCountyChange(Nil);
QueryManager.Close;
QueryManager.SQL.Clear;
QueryManager.SQL.Add('Select * From T_F_Manager Where CityNo='''+PS_CityNo+''' And Off_No_Home='+IntToStr(JX));
QueryManager.Open;
iSign:=0;
Fun_Purview(Self,JBDM);
end;
procedure TFrm_ManagerAchives.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN,VK_DOWN: SelectNext(ActiveControl,true,true);
VK_UP: SelectNext(ActiveControl,false,true);
end;
end;
procedure TFrm_ManagerAchives.Btn_AddClick(Sender: TObject);
begin
iSign:=1;
Panel1.Enabled:=False;
Fun_ButtonStatus(self,true); //按钮有效性控制
Fun_ComponentStatus(self,0,True); //--可输入-- 使输入框有效,用户可以输入数值
Fun_ComponentStatus(self,1,False); //--清空-- 使输入框有效,用户可以输入数值
Case pcstuffinfo.ActivePageIndex Of
0:
Begin
co_DIPLOMA_ID.ItemIndex:=5;
co_SEX.ItemIndex:=2;
CB_FOLK.ItemIndex:=1;
co_STAT.ItemIndex:=0;
co_LEVEL_SEQ.ItemIndex:=co_LEVEL_SEQ.Items.Count-1;
dtp_BIRTHDAY.DateTime:=Date;
dtp_BIRTHDAY.Checked:=False;
dtp_WORKDATE.DateTime:=Date;
dtp_WORKDATE.Checked:=False;
CB_CityNo.ItemIndex:=CB_CityNo.Items.IndexOf(PS_CityName);
CB_Off_No_Home.ItemIndex:=CB_Off_No_Home.Items.IndexOf(PS_HomeName);
ED_WK_NO.SetFocus;
End;
1:
Begin
dbgtrain.Enabled:=False;
dtp_Bgn_time.DateTime:=Now;
dtp_End_time.DateTime:=Now;
ed_TRAIN_TOPI.SetFocus;
End;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -