unit_job_manage.pas

美汇美容网网站管理系统

unit Unit_job_Manage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, XPMenu, Buttons ,Unit_DM;

type
  TForm_Job_manage = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    edName: TEdit;
    edNum: TEdit;
    mmRequire: TMemo;
    mmLiaison: TMemo;
    Bevel1: TBevel;
    dtpStartDate: TDateTimePicker;
    dtpEndDate: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    cbEnterprise: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure edNumKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    manage_type:String;
  end;

var
  Form_Job_manage: TForm_Job_manage;

implementation

{$R *.dfm}

function strleft(const tempstr:string;rp:char):string;
var
  i:integer;
  Buffer: array [0..10] of char;
begin
  for i:=0 to length(tempstr) do
    if tempstr[i]=rp then
    begin
       strlcopy(Buffer,pchar(tempstr),i-1);
       break;
    end;
  result:=Buffer;
end;


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

  {添加省}
  with dm.adods do
  begin
    close;
    commandtext:='select * from enterprise';
    Open;
    
    first;
    while not eof do
    begin
      cbEnterprise.Items.Add(inttostr(fieldvalues['iNo'])+'.'+fieldvalues['vName']);
      next;
    end;
  end;
end;

procedure TForm_Job_manage.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_Job_manage.BitBtn2Click(Sender: TObject);
begin
  if length(edName.Text)<1 then
  begin
    application.MessageBox('招聘职位不能为空.','提示',MB_OK);
    edName.SetFocus;
    exit;
  end;
  if length(cbEnterprise.Text)<3 then
  begin
    application.MessageBox('招聘企业不能为空.','提示',MB_OK);
    cbEnterprise.SetFocus;
    exit;
  end;
  if length(edNum.Text)<1 then
  begin
    application.MessageBox('招聘人数不能小于1.','提示',MB_OK);
    edNum.SetFocus;
    exit;
  end;
  if length(mmRequire.Text)<1 then
  begin
    application.MessageBox('职位要求不能为空.','提示',MB_OK);
    mmRequire.SetFocus;
    exit;
  end;

  with dm.adsJob do
  begin
    if manage_type='add' then
      append
    else
      edit;

    fieldvalues['vName']:=edName.Text;
    fieldvalues['iEnterpriseNo']:=strtoint(strleft(cbEnterprise.Text,'.'));
    fieldvalues['iNum']:=strtoint(edNum.Text);
    fieldvalues['dStartDate']:=dtpStartDate.Date;
    fieldvalues['dEndDate']:=dtpEndDate.Date;
    fieldvalues['vRequire']:=mmRequire.Text;
    fieldvalues['vLiaison']:=mmLiaison.Text;

    try
      post;
      UpdateBatch();
      form_job_Manage.Close;
    except
      application.MessageBox('经销商保存不成功.','提示',MB_OK);
    end;

  end;
end;

procedure TForm_Job_manage.edNumKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

end.