unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; ComboBox1: TComboBox; Label3: TLabel; Edit2: TEdit; Label4: TLabel; ComboBox2: TComboBox; Label5: TLabel; Edit3: TEdit; Label6: TLabel; Edit4: TEdit; Label8: TLabel; Memo2: TMemo; Button1: TButton; BitBtn1: TBitBtn; Label9: TLabel; Edit5: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure Edit4Change(Sender: TObject); procedure Edit5Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ComboBox2Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; dirty:boolean;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); begin button1.Enabled:=false; dirty:=false; end;procedure TForm1.Button1Click(Sender: TObject); begin memo2.Clear;if edit1.Text<>'' then memo2.Text:='姓名:'+edit1.Text ; if edit2.Text<>'' then memo2.Text:='年龄:'+edit2.text ; if edit4.Text<>'' then memo2.Text:='联系方式:'+edit4.Text ; if edit3.text<>'' then memo2.Text:='专业:'+edit3.Text ; if edit5.Text<>'' then memo2.Text:='毕业学校:'+edit5.Text; if combobox1.Text<>'' then memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if combobox2.text<>'' then memo2.Text:=memo2.Text+#13#10'学历:'+combobox2.Text; button1.Enabled:=false; dirty:=false; end;procedure TForm1.BitBtn1Click(Sender: TObject); begin if dirty=true then begin if messagedlg('简历内容已经修改,是否更新?',mtinformation,[mbyes,mbno],0) = mryes then begin button1click(bitbtn1); showmessage('你选择的是更新'); end else showmessage('你选择的是不更新'); end ; close; end;procedure TForm1.Edit1Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;procedure TForm1.Edit2Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;procedure TForm1.Edit3Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end; 帮忙看看,谢谢procedure TForm1.Edit4Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;procedure TForm1.Edit5Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;procedure TForm1.ComboBox1Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;procedure TForm1.ComboBox2Change(Sender: TObject); begin button1.Enabled:=true; dirty:=true; end;end.
procedure TForm1.Button1Click(Sender: TObject); begin memo2.Clear;if edit1.Text<>'' then //类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if edit2.Text<>'' then //类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if edit4.Text<>'' then //类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if edit3.text<>'' then //类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if edit5.Text<>'' then memo2.Text:='毕业学校:'+edit5.Text; if combobox1.Text<>'' then memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text; if combobox2.text<>'' then memo2.Text:=memo2.Text+#13#10'学历:'+combobox2.Text; button1.Enabled:=false; dirty:=false; end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
ComboBox2: TComboBox;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
Label8: TLabel;
Memo2: TMemo;
Button1: TButton;
BitBtn1: TBitBtn;
Label9: TLabel;
Edit5: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
dirty:boolean;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
dirty:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Clear;if edit1.Text<>'' then
memo2.Text:='姓名:'+edit1.Text ;
if edit2.Text<>'' then
memo2.Text:='年龄:'+edit2.text ;
if edit4.Text<>'' then
memo2.Text:='联系方式:'+edit4.Text ;
if edit3.text<>'' then
memo2.Text:='专业:'+edit3.Text ;
if edit5.Text<>'' then
memo2.Text:='毕业学校:'+edit5.Text; if combobox1.Text<>'' then
memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if combobox2.text<>'' then
memo2.Text:=memo2.Text+#13#10'学历:'+combobox2.Text;
button1.Enabled:=false;
dirty:=false;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if dirty=true then
begin
if messagedlg('简历内容已经修改,是否更新?',mtinformation,[mbyes,mbno],0) = mryes then
begin
button1click(bitbtn1);
showmessage('你选择的是更新');
end
else
showmessage('你选择的是不更新');
end ;
close;
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;procedure TForm1.Edit2Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;procedure TForm1.Edit3Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;
帮忙看看,谢谢procedure TForm1.Edit4Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;procedure TForm1.Edit5Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;procedure TForm1.ComboBox2Change(Sender: TObject);
begin
button1.Enabled:=true;
dirty:=true;
end;end.
begin
memo2.Clear;if edit1.Text<>'' then
//类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if edit2.Text<>'' then
//类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if edit4.Text<>'' then
//类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if edit3.text<>'' then
//类似memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if edit5.Text<>'' then
memo2.Text:='毕业学校:'+edit5.Text; if combobox1.Text<>'' then
memo2.Text:=memo2.text+#13#10'性别:'+combobox1.Text;
if combobox2.text<>'' then
memo2.Text:=memo2.Text+#13#10'学历:'+combobox2.Text;
button1.Enabled:=false;
dirty:=false;
end;