gz_dwxx_unit.pas

通用人力资源系统,分类可以自设定 可以熟练掌握DELPHI语言

unit gz_dwxx_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PrnDbgeh, Grids, DBGridEh, ExtCtrls, ComCtrls, DB, DBTables,
  StdCtrls;

type
  Tgz_dwxx = class(TForm)
    tb_dw: TTable;
    tb_fc: TTable;
    tb_bz: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    p_dw: TPrintDBGridEh;
    p_fc: TPrintDBGridEh;
    p_bz: TPrintDBGridEh;
    DBGridEh2: TDBGridEh;
    Splitter2: TSplitter;
    Panel3: TPanel;
    DBGridEh3: TDBGridEh;
    cb_dw: TComboBox;
    cb_fc: TComboBox;
    cb_bz: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cb_fcChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
//
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gz_dwxx: Tgz_dwxx;

implementation

{$R *.dfm}

procedure Tgz_dwxx.FormCreate(Sender: TObject);
begin
  tb_dw.Open;
  tb_dw.First;
  with tb_dw do
    while not eof do
    begin
      cb_dw.Items.Add(tb_dw['dw']);
      next;
    end;
end;

procedure Tgz_dwxx.cb_fcChange(Sender: TObject);
begin
  cb_bz.Items.Clear;
  tb_bz.Open;
  tb_bz.First;
  with tb_bz do
    while not eof do
    begin
      if (trim(cb_fc.Text) = trim(tb_bz['fcmc'])) and (trim(cb_dw.Text) = trim(tb_bz['lbmc'])) then
        cb_bz.Items.Add(tb_bz['bzmc']);
      next;
    end;
  cb_bz.Text := '';
  cb_bz.ItemIndex := -1;
end;

procedure Tgz_dwxx.Button1Click(Sender: TObject);
begin
  if trim(cb_dw.Text) = '' then
  begin
    Application.MessageBox('请填写单位名称', '提示信息', mb_iconInformation + mb_defbutton1);
    exit;
  end
  else
  begin
    if not tb_dw.Locate('dw', trim(cb_dw.Text), [locaseinsensitive]) then
    begin
      tb_dw.Append;
      tb_dw['dw'] := trim(cb_dw.Text);
      tb_dw.Post;
      Application.MessageBox('添加成功！', '提示信息', mb_iconInformation + mb_defbutton1);
    end
    else
      Application.MessageBox('此单位已经存在了！', '提示信息', mb_iconInformation + mb_defbutton1);
  end;

end;

procedure Tgz_dwxx.Button2Click(Sender: TObject);
var
  tjbz: integer;
begin
  if (trim(cb_dw.Text) = '') or (trim(cb_fc.Text) = '') then
  begin
    Application.MessageBox('请填写单位、部门、班组的名称', '提示信息', mb_iconInformation + mb_defbutton1);
    exit;
  end
  else
  begin
    if not tb_dw.Locate('dw', trim(cb_dw.Text), [locaseinsensitive]) then
    begin
      tb_dw.Append;
      tb_dw['dw'] := trim(cb_dw.Text);
      tb_dw.Post;
    end;
    tjbz := 0;
    tb_fc.First;
    with tb_fc do
      while not eof do
      begin
        if (tb_fc['bmlb'] = trim(cb_dw.Text)) and (tb_fc['bmmc'] = trim(cb_fc.Text)) then
          tjbz := 1;
        next;
      end;
    if tjbz = 0 then
    begin
      tb_fc.Append;
      tb_fc['bmlb'] := trim(cb_dw.Text);
      tb_fc['bmmc'] := trim(cb_fc.Text);
      tb_fc.Post;
    end;

    Application.MessageBox('部门添加成功！', '提示信息', mb_iconInformation + mb_defbutton1);
  end;

end;

procedure Tgz_dwxx.Button3Click(Sender: TObject);
var
  tjbz: integer;
begin
  if (trim(cb_dw.Text) = '') or (trim(cb_fc.Text) = '') or (trim(cb_bz.Text) = '') then
  begin
    Application.MessageBox('请填写单位、部门、班组的名称', '提示信息', mb_iconInformation + mb_defbutton1);
    exit;
  end
  else
  begin
    if not tb_dw.Locate('dw', trim(cb_dw.Text), [locaseinsensitive]) then
    begin
      tb_dw.Append;
      tb_dw['dw'] := trim(cb_dw.Text);
      tb_dw.Post;
    end;
    tjbz := 0;
    tb_fc.First;
    with tb_fc do
      while not eof do
      begin
        if (tb_fc['bmlb'] = trim(cb_dw.Text)) and (tb_fc['bmmc'] = trim(cb_fc.Text)) then
          tjbz := 1;
        next;
      end;
    if tjbz = 0 then
    begin
      tb_fc.Append;
      tb_fc['bmlb'] := trim(cb_dw.Text);
      tb_fc['bmmc'] := trim(cb_fc.Text);
      tb_fc.Post;
    end;
    tjbz := 0;
    tb_bz.First;
    with tb_bz do
      while not eof do
      begin
        if (tb_bz['lbmc'] = trim(cb_dw.Text)) and (tb_bz['fcmc'] = trim(cb_fc.Text)) and (tb_bz['bzmc'] = trim(cb_bz.Text)) then
          tjbz := 1;
        next;
      end;
    if tjbz = 0 then
    begin
      tb_bz.Append;
      tb_bz['lbmc'] := trim(cb_dw.Text);
      tb_bz['fcmc'] := trim(cb_fc.Text);
      tb_bz['bzmc'] := trim(cb_bz.Text);
      tb_bz.Post;
    end;
    Application.MessageBox('班组添加成功！', '提示信息', mb_iconInformation + mb_defbutton1);
  end;

end;

procedure Tgz_dwxx.Button4Click(Sender: TObject);
begin
  if Application.MessageBox('真的要删除单位列表中所选的单位名称吗？', '请慎重选择！', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    tb_dw.Delete;
end;

procedure Tgz_dwxx.Button5Click(Sender: TObject);
begin
  if Application.MessageBox('真的要删除部门列表中所选的记录吗？', '请慎重选择！', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    tb_fc.Delete;

end;

procedure Tgz_dwxx.Button6Click(Sender: TObject);
begin
  if Application.MessageBox('真的要删除班组列表中所选的记录吗？', '请慎重选择！', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    tb_bz.Delete;

end;

procedure Tgz_dwxx.Button7Click(Sender: TObject);
begin
  p_dw.Preview;
end;

procedure Tgz_dwxx.Button8Click(Sender: TObject);
begin
  p_fc.Preview;
end;

procedure Tgz_dwxx.Button9Click(Sender: TObject);
begin
  p_bz.Preview;
end;

procedure Tgz_dwxx.cb_dwChange(Sender: TObject);
begin
  cb_fc.Items.Clear;
  cb_bz.Items.Clear;
  tb_fc.Open;
  tb_fc.First;
  with tb_fc do
    while not eof do
    begin
      if (trim(cb_dw.Text) = trim(tb_fc['bmlb'])) then
        cb_fc.Items.Add(tb_fc['bmmc']);
      next;
    end;
  cb_fc.Text := '';
  cb_bz.Text := '';
  cb_fc.ItemIndex := -1;
  cb_bz.ItemIndex := -1;
end;

end.