unit_job.~pas

美汇美容网网站管理系统

unit Unit_Job;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, ToolWin, ExtCtrls, Unit_DM, DB,
  StdCtrls, DBCtrls, Mask, XPMenu, Menus;

type
  Tform_job = class(TForm)
    ControlBar1: TControlBar;
    pcJob: TPageControl;
    tsList: TTabSheet;
    tsParticular: TTabSheet;
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    tbInfoAdd: TToolButton;
    tbInfoEdit: TToolButton;
    tbInfoDel: TToolButton;
    ToolButton1: TToolButton;
    tbInfoList: TToolButton;
    tbSearch: TToolButton;
    ToolButton2: TToolButton;
    tbClose: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    dbeName: TDBEdit;
    Label2: TLabel;
    dbeNum: TDBEdit;
    Label3: TLabel;
    dbeEnterprise: TDBEdit;
    Label4: TLabel;
    dbeStartDate: TDBEdit;
    Label5: TLabel;
    dbeEndDate: TDBEdit;
    Label6: TLabel;
    dmRequire: TDBMemo;
    Label7: TLabel;
    dmLiaison: TDBMemo;
    XPMenu1: TXPMenu;
    pmSearch: TPopupMenu;
    pmList: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure tbCloseClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure tbInfoListClick(Sender: TObject);
    procedure tbInfoDelClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tbInfoAddClick(Sender: TObject);
    procedure tbInfoEditClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_job: Tform_job;

implementation

uses Unit_job_Manage, Unit_Enterprise_locate;

{$R *.dfm}

procedure Tform_job.tbCloseClick(Sender: TObject);
begin
  close;
end;

procedure Tform_job.DBGrid1DblClick(Sender: TObject);
begin
  if dm.adsJob.RecordCount>0 then
  begin
    pcJob.ActivePage:=tsParticular;
  end;
end;

procedure Tform_job.tbInfoListClick(Sender: TObject);
begin
  pcJob.ActivePage:=tsList;
end;

procedure Tform_job.tbInfoDelClick(Sender: TObject);
begin
  if (dm.adsJob.RecordCount>0) and (application.MessageBox('确定要删除这条招聘信息吗?','提示',MB_YESNO)=IDYES) then
  begin
    dm.adsJob.Delete;
    dm.adsJob.UpdateBatch();
  end;
end;

procedure Tform_job.N3Click(Sender: TObject);
begin
  with dm.adsJob do
  begin
    close;
    commandtext:='select * from job order by iNo desc';
    open;
  end;
end;

procedure Tform_job.FormCreate(Sender: TObject);
begin
  Self.Left:= Round(Screen.Width/2-Width/2);
  Self.Top :=Round(Screen.Height/2-Height/2);

  if not dm.adoc.Connected then
  begin
    try
      dm.adoc.open;
    except
      application.MessageBox('连接数据库失败.'+#13+'请进入系统设置,设置ODBC.','提示',MB_OK);
      close;
      exit;
    end;
  end;

  try
    with dm.adsJob do
    begin
      close;
      commandtext:='SELECT * From job ORDER BY iNo DESC LIMIT 0,200';
      open;
    end;
  except
    application.MessageBox('打开招聘信息表失败.'+#13+'请与软件作者联系.','提示',MB_OK);
    close;
    exit;
  end;
end;

procedure Tform_job.tbInfoAddClick(Sender: TObject);
begin
  application.CreateForm(TForm_Job_manage,Form_Job_manage);
  AnimateWindow(Form_Job_manage.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  Form_Job_manage.caption:='新增招聘信息';
  Form_Job_manage.manage_type:='add';
  {Form_Job_manage.edUserName.text:=dbeUserName.Text;
  Form_Job_manage.edPassword.text:='';
  Form_Job_manage.edCheckPassword.text:='';
  Form_Job_manage.edName.text:=dbeName.Text;
  Form_Job_manage.edPrincipal.text:=dbePrin.Text;
  Form_Job_manage.edPhone.text:=dbePhone.Text;
  Form_Job_manage.edEmail.text:=dbeEmail.Text;
  Form_Job_manage.edAddress.text:=dbeAddress.Text;
  Form_Job_manage.cbbProvince.text:=format('%s.%s',[inttostr(dm.adsEnterprise.fieldvalues['iProvince']),dbeProvince.Text]);
  Form_Job_manage.cbbCity.text:=format('%s.%s',[inttostr(dm.adsEnterprise.fieldvalues['iCity']),dbeCity.Text]);}
  Form_Job_manage.Show;
  Form_Job_manage.Visible:=false;
  Form_Job_manage.ShowModal;
  Form_Job_manage.Free;
end;

procedure Tform_job.tbInfoEditClick(Sender: TObject);
begin
  if dbgrid1.DataSource.DataSet.RecordCount>0 then
  begin
    application.CreateForm(TForm_Job_manage,Form_Job_manage);
    AnimateWindow(Form_Job_manage.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  Form_Job_manage.caption:='修改招聘信息';
  Form_Job_manage.manage_type:='edit';
  Form_Job_manage.edName.text:=dbeName.Text;
  Form_Job_manage.cbEnterprise.text:=format('%s.%s',[inttostr(dm.adsEnterprise.fieldvalues['iNo']),dbeEnterprise.Text]);
  Form_Job_manage.edNum.text:=dbeNum.Text;
  Form_Job_manage.dtpStartDate.Date:=strtoDate(dbeStartDate.Text);
  Form_Job_manage.dtpEndDate.Date:=strtoDate(dbeEndDate.Text);
  Form_Job_manage.mmRequire.text:=dmRequire.Text;
  Form_Job_manage.mmLiaison.Text:=dmLiaison.Text;
  Form_Job_manage.Show;
  Form_Job_manage.Visible:=false;
  Form_Job_manage.ShowModal;
  Form_Job_manage.Free;
  end;
end;

procedure Tform_job.N1Click(Sender: TObject);
begin
  pcJob.ActivePage:=tslist;
  application.CreateForm(TForm_Locate,Form_Locate);
  AnimateWindow(Form_Locate.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  form_locate.label1.caption:='招聘职位';
  Form_Locate.Show;
  Form_Locate.Visible:=false;
  Form_Locate.ShowModal;
  dm.adsJob.Locate('vName',Form_Locate.edit1.text,[loPartialKey]);
  Form_Locate.Free;
end;

end.