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.