f_zpinf.pas
上传用户:lcqxtx
上传日期:2013-02-15
资源大小:530k
文件大小:7k
源码类别:

企业管理

开发平台:

Delphi

  1. unit f_zpinf;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, ComCtrls, ToolWin, ImgList, StdCtrls, Grids, DBGrids, DB, ADODB,
  6.   Buttons;
  7. type
  8.   Tw_zpinf = class(TForm)
  9.     ImageList1: TImageList;
  10.     DBGrid1: TDBGrid;
  11.     gb_1: TGroupBox;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     e_name: TEdit;
  16.     ToolBar1: TToolBar;
  17.     tb_add: TToolButton;
  18.     tb_edit: TToolButton;
  19.     tb_del: TToolButton;
  20.     tb_can: TToolButton;
  21.     tb_save: TToolButton;
  22.     tb_exit: TToolButton;
  23.     data_zpinf: TDataSource;
  24.     ado_zpinf: TADOQuery;
  25.     Label4: TLabel;
  26.     ComboBox2: TComboBox;
  27.     ComboBox3: TComboBox;
  28.     ado_zpinfdepart_name: TStringField;
  29.     ado_zpinfdepart_job: TStringField;
  30.     ado_zpinfxl: TStringField;
  31.     ado_zpinfxb: TStringField;
  32.     ado_zpinfdepart_id: TStringField;
  33.     Edit1: TEdit;
  34.     Edit2: TEdit;
  35.     Label5: TLabel;
  36.     SpeedButton1: TSpeedButton;
  37.     SpeedButton2: TSpeedButton;
  38.     procedure tb_addClick(Sender: TObject);
  39.     procedure tb_editClick(Sender: TObject);
  40.     procedure tb_delClick(Sender: TObject);
  41.     procedure tb_canClick(Sender: TObject);
  42.     procedure DBGrid1CellClick(Column: TColumn);
  43.     procedure tb_saveClick(Sender: TObject);
  44.     procedure tb_exitClick(Sender: TObject);
  45.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  46.     procedure FormCreate(Sender: TObject);
  47.     procedure FormShow(Sender: TObject);
  48.     procedure SpeedButton1Click(Sender: TObject);
  49.     procedure SpeedButton2Click(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.      procedure  s_save;
  55.      procedure  s_show;
  56.      procedure  s_clear(bb:boolean);
  57.   end;
  58. var
  59.   w_zpinf: Tw_zpinf;
  60.    bsf:string;
  61. implementation
  62. uses f_main, f_depart_id;
  63. {$R *.dfm}
  64.  procedure Tw_zpinf.s_save;
  65.  begin
  66.    ado_zpinf.Edit ;
  67.    ado_zpinf.FieldByName('depart_id').AsString :=trim(edit1.Text);
  68.    ado_zpinf.FieldByName('depart_name').AsString :=trim(edit1.Text);
  69.    ado_zpinf.FieldByName('depart_job').AsString :=trim(e_name.Text);
  70.    ado_zpinf.FieldByName('xl').AsString :=trim(combobox2.Text);
  71.    ado_zpinf.FieldByName('xb').AsString :=trim(combobox3.Text);
  72.    ado_zpinf.Post;
  73.  end;
  74. procedure Tw_zpinf.s_show;
  75.  begin
  76.    ado_zpinf.Close;
  77.    ado_zpinf.SQL.Clear;
  78.    ado_zpinf.SQL.Add('select * from zpinf');
  79.    ado_zpinf.Open;
  80. end;
  81. procedure Tw_zpinf.s_clear(bb:boolean);
  82. var
  83. i:integer;
  84. begin
  85.    edit1.Clear;
  86.    edit2.Clear;
  87.    combobox2.text:='';
  88.    combobox3.text:='';
  89.    e_name.Text:='';
  90.    tb_add.Enabled:=true;
  91.    tb_edit.Enabled :=true;
  92.    tb_del.Enabled :=true;
  93.    tb_save.Enabled :=false;
  94.    tb_can.Enabled :=false;
  95.    tb_exit.Enabled :=true;
  96. for i:=0 to gb_1.ControlCount-1 do
  97.    begin
  98.      if (gb_1.Controls[i].ClassType=tedit)or (gb_1.Controls[i].ClassType=tcombobox) then
  99.         begin
  100.           if bb=false then
  101.               gb_1.Controls[i].Enabled :=false
  102.             else
  103.                gb_1.Controls[i].Enabled :=true;
  104.          end;
  105.    end;
  106.  end;
  107. procedure Tw_zpinf.tb_addClick(Sender: TObject);
  108. var
  109.  ss:boolean;
  110. begin
  111.  if bsf='xz'  then
  112.    ss:=true;
  113.    s_clear(ss);
  114.    edit1.Clear;
  115.    edit2.Clear;
  116.    e_name.Text:='';
  117.    combobox2.text:='';
  118.    combobox3.text:='';
  119.     edit2.SetFocus ;
  120.    tb_add.Enabled :=false;
  121.    tb_edit.Enabled :=false;
  122.    tb_save.Enabled :=true;
  123.    tb_del.Enabled :=false;
  124.    tb_can.Enabled :=true;
  125.    tb_exit.Enabled :=false;
  126. end;
  127. procedure Tw_zpinf.tb_editClick(Sender: TObject);
  128.  var
  129. i:integer;
  130. begin
  131. if trim(edit2.text)<>'' then  begin
  132.    bsf:='xg';
  133.    for i:=0 to gb_1.ControlCount-1 do
  134.        if (gb_1.Controls[i].ClassType=tedit) or(gb_1.Controls[i].ClassType=tcombobox) then
  135.            gb_1.Controls[i].Enabled :=true;
  136.             tb_add.Enabled :=false;
  137.             tb_save.Enabled :=true;
  138.             tb_del.Enabled :=false;
  139.             tb_can.Enabled :=true;
  140.             tb_exit.Enabled :=false;
  141.             tb_edit.Enabled :=false;
  142.    end
  143. else
  144.    showmessage('请输入修改值');
  145.    exit;
  146. end;
  147. procedure Tw_zpinf.tb_delClick(Sender: TObject);
  148. var
  149.  bb:boolean;
  150. begin
  151. if trim(edit2.Text )<>'' then
  152.  begin
  153.     if MessageDlg('记录是否删除 ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  154.          begin
  155.           ado_zpinf.Delete;
  156.           s_show;
  157.           bb:=false;
  158.           s_clear(bb);
  159.          end
  160.     else
  161.          exit;
  162.       end
  163. else
  164.    showmessage('请输入删除值!');
  165.    exit;
  166. end;
  167. procedure Tw_zpinf.tb_canClick(Sender: TObject);
  168. var
  169. bb:boolean;
  170. begin
  171.    bb:=false;
  172.    s_clear(bb);
  173. end;
  174. procedure Tw_zpinf.DBGrid1CellClick(Column: TColumn);
  175. begin
  176. if  ado_zpinf.RecordCount>0 then
  177.      begin
  178.      edit2.Text:=trim(ado_zpinf.fieldbyname('depart_id').AsString );
  179.      edit1.Text:=trim(ado_zpinf.fieldbyname('depart_name').AsString );
  180.      e_name.Text:=trim(ado_zpinf.fieldbyname('depart_job').AsString );
  181.      combobox2.Text:=trim(ado_zpinf.fieldbyname('xl').AsString );
  182.      combobox3.Text:=trim(ado_zpinf.fieldbyname('xb').AsString );
  183.       end;
  184. end;
  185. procedure Tw_zpinf.tb_saveClick(Sender: TObject);
  186. var
  187. bb:boolean;
  188. begin
  189. if trim(edit1.Text)='' then
  190.       begin
  191.           showmessage('请选入部门名称!');
  192.           exit;
  193.       end;
  194. if bsf<>'xg' then
  195.      begin
  196.        ado_zpinf.Close;
  197.        ado_zpinf.SQL.clear;
  198.        ado_zpinf.SQL.Add('select * from zpinf where depart_id='+char(39)+trim(edit2.Text)+char(39));
  199.        ado_zpinf.Open;
  200.        end;
  201. if  ado_zpinf.RecordCount <0 then
  202.        begin
  203.          showmessage('请输入值');
  204.          exit;
  205.        end;
  206.  if trim(e_name.Text)='' then
  207.       begin
  208.         showmessage('请输入招聘员工职务');
  209.         exit;
  210.        end;
  211.   if trim(edit2.Text)='' then
  212.       begin
  213.         showmessage('请选入部门编号');
  214.         exit;
  215.        end;
  216.  if trim(combobox2.Text)='' then
  217.       begin
  218.         showmessage('请选择最高学历');
  219.         exit;
  220.        end;
  221.  if trim(combobox3.Text)='' then
  222.       begin
  223.         showmessage('请选择性别限制');
  224.         exit;
  225.        end;
  226. if MessageDlg('记录是否保存吗 ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  227.        begin
  228.          s_save;
  229.          s_show;
  230.          bb:=false;
  231.          s_clear(bb);
  232.        end
  233.     else
  234.         s_show;
  235.         exit;
  236.  end;
  237. procedure Tw_zpinf.tb_exitClick(Sender: TObject);
  238. begin
  239. close;
  240. w_main.Enabled:=true;
  241. end;
  242. procedure Tw_zpinf.FormClose(Sender: TObject; var Action: TCloseAction);
  243. begin
  244. w_main.Enabled:=true;
  245. end;
  246. procedure Tw_zpinf.FormCreate(Sender: TObject);
  247. begin
  248. w_main.Enabled:=false;
  249. end;
  250. procedure Tw_zpinf.FormShow(Sender: TObject);
  251. var
  252. ss:boolean;
  253. begin
  254.  ss:=false;
  255.  s_clear(ss);
  256. end;
  257. procedure Tw_zpinf.SpeedButton1Click(Sender: TObject);
  258. begin
  259. Application.CreateForm(Tw_depart_id, w_depart_id);
  260.   if w_depart_id.ShowModal = mrOk then
  261.   Edit2.Text:=copy(trim(w_depart_id.combobox1.text),1,5);
  262. end;
  263. procedure Tw_zpinf.SpeedButton2Click(Sender: TObject);
  264. begin
  265. Application.CreateForm(Tw_depart_id, w_depart_id);
  266.   if w_depart_id.ShowModal = mrOk then
  267.   Edit1.Text:=copy(trim(w_depart_id.combobox1.text),10,length(trim(w_depart_id.combobox1.text)));
  268. end;
  269. end.