📄 unit3.pas
字号:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, DBCtrls, ToolWin, jpeg;
type
Tbase_people = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label7: TLabel;
Label4: TLabel;
Label3: TLabel;
Label6: TLabel;
Label10: TLabel;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
Edit4: TEdit;
ComboBox2: TComboBox;
Edit5: TEdit;
GroupBox1: TGroupBox;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label9: TLabel;
Label14: TLabel;
ComboBox1: TComboBox;
ComboBox3: TComboBox;
Edit1: TEdit;
DateTimePicker1: TDateTimePicker;
Edit2: TEdit;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
Label15: TLabel;
Label17: TLabel;
ComboBox10: TComboBox;
ComboBox12: TComboBox;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
ComboBox15: TComboBox;
Edit3: TEdit;
Edit6: TEdit;
DateTimePicker2: TDateTimePicker;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Label29: TLabel;
Label30: TLabel;
Label33: TLabel;
Edit12: TEdit;
DateTimePicker3: TDateTimePicker;
DateTimePicker5: TDateTimePicker;
ComboBox17: TComboBox;
Label34: TLabel;
Image1: TImage;
Label12: TLabel;
Label11: TLabel;
Label13: TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
Label8: TLabel;
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure FormShow1();
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ComboBox17Change(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
base_people: Tbase_people;
var pase:string;
implementation
uses Unit10, Unit4, Unit5, Unit8, Unit1;
{$R *.dfm}
procedure Tbase_people.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
ToolButton1.Enabled:=true;
ToolButton2.Enabled:=true;
ToolButton3.Enabled:=true;
ToolButton4.Enabled:=true;
ToolButton5.Enabled:=true;
if dm.TPerson.RecordCount=0 then
ToolButton6.Enabled:=false
else ToolButton6.Enabled:=true;
ToolButton7.Enabled:=false;
ToolButton8.Enabled:=true;
FormShow1;
end;
procedure Tbase_people.ToolButton1Click(Sender: TObject);
begin
if not dm.TPerson.Bof then
begin
dm.TPerson.First;
dm.TTitleExp.First;
dm.TPersonExp.First;
FormShow1;
end
else showmessage('已是首记录');
end;
procedure Tbase_people.ToolButton2Click(Sender: TObject);
begin
if not dm.TPerson.Bof then
begin
dm.TPerson.Prior;
dm.TTitleExp.Prior;
dm.TPersonExp.Prior;
FormShow1;
end
else showmessage('已是首记录');
end;
procedure Tbase_people.ToolButton3Click(Sender: TObject);
begin
if not dm.TPerson.Eof then
begin
dm.TPerson.Next;
dm.TTitleExp.Next;
dm.TPersonExp.Next;
FormShow1;
end
else showmessage('已是尾记录');
end;
procedure Tbase_people.ToolButton4Click(Sender: TObject);
begin
if not dm.TPerson.Eof then
begin
dm.TPerson.Last;
dm.TTitleExp.Last;
dm.TPersonExp.Last;
FormShow1;
end
else showmessage('已是尾记录');
end;
procedure Tbase_people.FormShow1;
begin
//----------基本信息
if dm.TPerson.Fields[19].AsString='1' then
begin
Image1.Visible:=false;
ToolButton6.Enabled:=true;
end
else
begin
Image1.Visible:=true;
ToolButton6.Enabled:=false;
end;
memo1.Lines.Clear;
edit5.Text:=dm.TPerson.Fields[0].AsString;
edit4.Text:=dm.TPerson.Fields[1].AsString;
ComboBox2.Text:=dm.TPerson.Fields[2].AsString;
memo1.Lines.Add(dm.TPerson.Fields[18].AsString);
ComboBox1.Text:=dm.TPerson.Fields[3].AsString;
ComboBox3.Text:=dm.TPerson.Fields[11].AsString;
edit1.Text:=dm.TPerson.Fields[6].AsString;
dateTimePicker1.DateTime:=dm.TPerson.Fields[4].AsDateTime;
edit2.Text:=dm.TPerson.Fields[5].AsString;
ComboBox4.Text:=dm.TPerson.Fields[9].AsString;
ComboBox5.Text:=dm.TPerson.Fields[12].AsString;
ComboBox6.Text:=dm.TPerson.Fields[10].AsString;
ComboBox7.Text:=dm.TPerson.Fields[13].AsString;
ComboBox8.Text:=dm.TPerson.Fields[8].AsString;
//--------职务信息
ComboBox10.Text:=dm.TTitleExp.Fields[3].AsString;
ComboBox12.Text:=dm.TTitleExp.Fields[4].AsString;
//--------受教育情况
ComboBox15.Text:=dm.TPersonExp.Fields[3].AsString;
edit3.Text:=dm.TPersonExp.Fields[4].AsString;
edit6.Text:=dm.TPersonExp.Fields[5].AsString;
DateTimePicker2.DateTime:=dm.TPersonExp.Fields[6].AsDateTime;
//--------联系方式
edit8.Text:=dm.TPerson.Fields[14].AsString;
edit7.Text:=dm.TPerson.Fields[15].AsString;
edit9.Text:=dm.TPerson.Fields[16].AsString;
edit10.Text:=dm.TPerson.Fields[17].AsString;
edit11.Text:=dm.TPerson.Fields[7].AsString;
//--------合同情况
edit12.Text:=dm.TPersonExp.Fields[7].AsString;
DateTimePicker3.DateTime:=dm.TPersonExp.Fields[8].AsDateTime;
DateTimePicker5.DateTime:=dm.TPersonExp.Fields[9].AsDateTime;
// 屏蔽
memo1.Enabled:=false;
edit5.Enabled:=false;
edit4.Enabled:=false;
ComboBox2.Enabled:=false;
ComboBox1.Enabled:=false;
ComboBox3.Enabled:=false;
edit1.Enabled:=false;
dateTimePicker1.Enabled:=false;
edit2.Enabled:=false;
ComboBox4.Enabled:=false;
ComboBox5.Enabled:=false;
ComboBox6.Enabled:=false;
ComboBox7.Enabled:=false;
ComboBox8.Enabled:=false;
//--------职务信息
ComboBox10.Enabled:=false;
ComboBox12.Enabled:=false;
//--------受教育情况
ComboBox15.Enabled:=false;
edit3.Enabled:=false;
edit6.Enabled:=false;
DateTimePicker2.Enabled:=false;
//--------联系方式
edit8.Enabled:=false;
edit7.Enabled:=false;
edit9.Enabled:=false;
edit10.Enabled:=false;
edit11.Enabled:=false;
//--------合同情况
edit12.Enabled:=false;
DateTimePicker3.Enabled:=false;
DateTimePicker5.Enabled:=false;
if login_people.ComboBox1.ItemIndex=0 then
begin
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton8.Enabled:=false;
end;
end;
procedure Tbase_people.ToolButton5Click(Sender: TObject);
var str:string;
begin
// 激活
memo1.Enabled:=true;
edit5.Enabled:=true;
edit4.Enabled:=true;
ComboBox2.Enabled:=true;
ComboBox1.Enabled:=true;
ComboBox3.Enabled:=true;
edit1.Enabled:=true;
dateTimePicker1.Enabled:=true;
edit2.Enabled:=true;
ComboBox4.Enabled:=true;
ComboBox5.Enabled:=true;
ComboBox6.Enabled:=true;
ComboBox7.Enabled:=true;
ComboBox8.Enabled:=true;
//--------职务信息
ComboBox10.Enabled:=true;
ComboBox12.Enabled:=true;
//--------受教育情况
ComboBox15.Enabled:=true;
edit3.Enabled:=true;
edit6.Enabled:=true;
DateTimePicker2.Enabled:=true;
//--------联系方式
edit8.Enabled:=true;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -