u_yglz.pas

delphi做的管理信息系统

unit U_yglz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ComCtrls, Buttons, ToolWin, ExtCtrls,
  StdCtrls;

type
  Tfrm_yglz = class(TForm)
    Panel1: TPanel;
    TreeView1: TTreeView;
    Panel2: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton2: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton3: TSpeedButton;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    SpeedButton4: TSpeedButton;
    ToolButton3: TToolButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_yglz: Tfrm_yglz;

implementation

uses U_tj, U_data;

{$R *.dfm}

procedure Tfrm_yglz.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_yglz.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(Tfrm_cxtj,frm_cxtj);
frm_cxtj.ShowModal;
frm_cxtj.Free;
end;

procedure Tfrm_yglz.SpeedButton2Click(Sender: TObject);
begin
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where sflz= :a');
      parameters.ParamByName('a').Value:='否';
      open;
   end;
   data1.ADOpublic.Active:=true;
end;

procedure Tfrm_yglz.FormShow(Sender: TObject);
var
a,b:string;
subt:TTreenode;
begin
treeview1.Items.Clear;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 单位名称 from 单位信息表');
      open;
   end;
   a:=data1.ADOpublic.FieldByName('单位名称').Value;
   subt:=Treeview1.Items.Add(nil,a);
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 部门名称 from 部门表');
      open;
   end;
   while not data1.ADOpublic.Eof do
      begin 
         b:=Data1.ADOpublic.FieldByName('部门名称').Value;
         data1.ADOpublic.Next;
         Treeview1.Items.AddChild(subt,b);
      end;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where sflz=:a');
      parameters.ParamByName('a').Value:='否';
      open;
   end;
   data1.ADOpublic.Active:=true;
   edit1.Text:=data1.ADOpublic.FieldByName('bh').Value;
   edit2.Text:=data1.ADOpublic.FieldByName('xm').Value;
   edit3.Text:=data1.ADOpublic.FieldByName('ssbm').Value;
   edit4.Text:=data1.ADOpublic.FieldByName('zw').Value;
   edit5.Text:=data1.ADOpublic.FieldByName('zc').Value;
   TreeView1.FullExpand;
end;

procedure Tfrm_yglz.TreeView1Click(Sender: TObject);
var
s,d:string;
begin
with data1.ADOQYdwxx do
begin
   close;
   sql.Clear;
   sql.Add('select distinct 单位名称 from 单位信息表');
   open;
end;
d:=data1.ADOQYdwxx.FieldByName('单位名称').Value;
s:=treeview1.Selected.Text;
IF Treeview1.Selected<>nil then
   if Treeview1.Selected.Text=d then
   begin
      with data1.ADOpublic do
         begin
            close;
            sql.Clear;
            sql.Add('select * from 人事表 where sflz=:b ');
            parameters.ParamByName('b').Value:='否';
            open;
         end;
   end
   else
      begin
         with data1.ADOpublic do
            begin
               close;
               sql.Clear;
               sql.Add('select * from 人事表 where ssbm = :a and sflz=:b ');
               parameters.ParamByName('a').Value:=s;
               parameters.ParamByName('b').Value:='否';
               open;
            end;
         end;
end;

procedure Tfrm_yglz.SpeedButton4Click(Sender: TObject);
begin
if messagebox(self.Handle,'确定要离职吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   try
   with data1.ADOpublic do
      begin
         edit;
         fieldbyname('sflz').Value:='是';
         fieldbyname('lzrq').Value:=date();
         post;
      end;
      application.MessageBox('修改成功','提示',64);
      self.OnShow(sender);
   except
      application.MessageBox('修改失败','提示',64);
      close;
   end;
end;

procedure Tfrm_yglz.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet<>nil then
   if dbgrid1.DataSource.DataSet.RecordCount>0 then
   edit1.Text:=data1.ADOpublic.FieldByName('bh').Value;
   edit2.Text:=data1.ADOpublic.FieldByName('xm').Value;
   edit3.Text:=data1.ADOpublic.FieldByName('ssbm').Value;
   edit4.Text:=data1.ADOpublic.FieldByName('zw').Value;
   edit5.Text:=data1.ADOpublic.FieldByName('zc').Value;
end;

end.