?? ypxxll.pas
字號:
unit ypxxll;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ComCtrls, RpCon, RpConDS, RpDefine, RpRave,
Buttons, StdCtrls, ExtCtrls;
type
Typxxllfrm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
SpeedButton1: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure editvalue;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ypxxllfrm: Typxxllfrm;
implementation
uses dbdata, ypdj, main;
{$R *.dfm}
procedure Typxxllfrm.FormShow(Sender: TObject);
begin
with data.ypdj do
begin
close;
sql.Clear;
sql.Add('select * from 應聘信息表');
open;
end;
data.ypdj.Active:=true;
end;
procedure Typxxllfrm.editvalue;
begin
mainfrm.log:=1;
Application.CreateForm(Typdjfrm,ypdjfrm);
ypdjfrm.Edit1.Text:=data.ypdj.FieldByName('編號').Value;
ypdjfrm.Edit2.Text:=data.ypdj.FieldByName('姓名').Value;
ypdjfrm.combobox1.Text:=data.ypdj.FieldByName('性別').Value;
ypdjfrm.combobox2.Text:=data.ypdj.FieldByName('民族').Value;
ypdjfrm.MaskEdit1.Text:=data.ypdj.FieldByName('出生日期').Value;
ypdjfrm.Edit3.Text:=data.ypdj.FieldByName('聯系電話').Value;
ypdjfrm.Edit4.Text:=data.ypdj.FieldByName('電子信箱').Value;
ypdjfrm.Edit5.Text:=data.ypdj.FieldByName('特長').Value;
ypdjfrm.Edit6.Text:=data.ypdj.FieldByName('興趣愛好').Value;
ypdjfrm.Edit7.Text:=data.ypdj.FieldByName('通信地址').Value;
ypdjfrm.Edit8.Text:=data.ypdj.FieldByName('畢業學校').Value;
ypdjfrm.Edit9.Text:=data.ypdj.FieldByName('專業').Value;
ypdjfrm.combobox3.Text:=data.ypdj.FieldByName('文化程度').Value;
ypdjfrm.memo1.Text:=data.ypdj.FieldByName('專業技能').Value;
ypdjfrm.memo2.Text:=data.ypdj.FieldByName('工作經歷').Value;
ypdjfrm.ShowModal;
ypdjfrm.Free;
end;
procedure Typxxllfrm.DBGrid1DblClick(Sender: TObject);
begin
If DBGrid1.DataSource.DataSet<> Nil then
if DBGrid1.DataSource.DataSet.RecordCount>0 then
editvalue;
end;
procedure Typxxllfrm.SpeedButton2Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要刪除嗎?','提示',mb_yesno+mb_iconquestion)=idyes then
data.ypdj.Delete;
end;
procedure Typxxllfrm.SpeedButton3Click(Sender: TObject);
begin
close;
end;
procedure Typxxllfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainfrm.log:=0;
end;
procedure Typxxllfrm.SpeedButton1Click(Sender: TObject);
begin
mainfrm.log:=1;
application.CreateForm(Typdjfrm,ypdjfrm);
ypxxllfrm.editvalue;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -