rs_synthunit.pas

DELPHI 编写的人事管理系统,根据职工查询各种信息

unit RS_SynthUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, OleCtnrs, DBCtrls, Mask,
  Buttons, ImgList, DB, ADODB;

type
  TRS_SynthForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ComboBox3: TComboBox;
    StringGrid1: TStringGrid;
    GroupBox4: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox5: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label18: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBMemo1: TDBMemo;
    OleContainer1: TOleContainer;
    GroupBox6: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    ListView1: TListView;
    GroupBox7: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ImageList3: TImageList;
    ADOTable1: TADOTable;
    TabControl1: TTabControl;
    TreeView1: TTreeView;
    ADOTable2: TADOTable;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ADOTable3: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure TreeView1Click(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure DBEdit3Click(Sender: TObject);
    procedure DBEdit1Click(Sender: TObject);
    procedure DBEdit2Click(Sender: TObject);
    procedure DBEdit4Click(Sender: TObject);
    procedure DBComboBox2Click(Sender: TObject);
    procedure DBComboBox1Click(Sender: TObject);
    procedure DBEdit5Click(Sender: TObject);
    procedure DBEdit6Click(Sender: TObject);
    procedure DBEdit7Click(Sender: TObject);
    procedure DBEdit8Click(Sender: TObject);
    procedure DBEdit9Click(Sender: TObject);
    procedure DBEdit10Click(Sender: TObject);
    procedure DBEdit11Click(Sender: TObject);
    procedure DBEdit12Click(Sender: TObject);
    procedure DBMemo1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
    str0,str1:string;
  public
    { Public declarations }
  end;

var
  RS_SynthForm: TRS_SynthForm;

implementation
  uses Login_Unit;
{$R *.dfm}

procedure TRS_SynthForm.TreeView1Click(Sender: TObject);
var
   stringa:string;
   item:tlistitem;
   i:integer;
begin
    if treeview1.Selected.Parent=nil then
      begin
        self.ADOTable1.Open;
        Self.ADOTable1.Filtered:=false;
        Self.ADOTable1.Filter:='职工姓名<>'+''''+'cxb'+'''';
        Self.ADOTable1.Filtered:=true;
        Self.ADOTable1.first;
        Self.ListView1.Items.Clear;
        for i:=1 to Self.ADOTable1.RecordCount do
            begin
              item:=listview1.Items.add;
              item.Caption:=Self.ADOTable1.Fields[1].Text;
              Self.ADOTable1.Next;
            end;
          Self.ADOTable1.close;
       end
     else
       begin
          case tabcontrol1.TabIndex of
             0:stringa:='性别=';
             1:stringa:='工作部门=';
             2:stringa:='行政职务=';
             3:stringa:='技术职称=';
          end;
             self.ADOTable1.Open;
             self.ADOTable1.Filtered:=false;
             self.ADOTable1.Filter:=stringa+''''+treeview1.Selected.Text+'''';
             self.ADOTable1.Filtered:=true;
             self.ADOTable1.First;
             listview1.Items.Clear;
                for i:=1 to self.ADOTable1.RecordCount do
                  begin
                     item:=listview1.Items.add;
                     item.Caption:=self.ADOTable1.Fields[1].Text;
                     self.ADOTable1.Next;
                  end;
     end;
end;

procedure TRS_SynthForm.TabControl1Change(Sender: TObject);
var
  nub:integer;
  node:ttreenode;
begin
   node:=treeview1.TopItem;
   case tabcontrol1.TabIndex of
       0:
        begin
          treeview1.TopItem.DeleteChildren;
          treeview1.Items.AddChild(node,'男');
          treeview1.Items.AddChild(node,'女');
        end;
        1:
        begin
           Self.ADOTable2.close;
           Self.ADOTable2.TableName:='gzbm';
           Self.ADOTable2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to Self.ADOTable2.RecordCount do
             begin
              treeview1.Items.AddChild(node,Self.ADOTable2.Fields[0].value);
              Self.ADOTable2.Next
             end;
             node.Expand(true);
        end;
        2:
          begin
           Self.ADOTable2.close;
           self.ADOTable2.TableName:='xzzw';
           Self.ADOTable2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to Self.ADOTable2.RecordCount do
             begin
               treeview1.Items.AddChild(node,Self.ADOTable2.Fields[0].value);
               Self.ADOTable2.Next
             end;

          end;
        3:
          begin
           Self.ADOTable2.close;
           Self.ADOTable2.TableName:='jszc';
           Self.ADOTable2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to Self.ADOTable2.RecordCount do
             begin
              treeview1.Items.AddChild(node,Self.ADOTable2.Fields[0].value);
              self.ADOTable2.Next
             end;
           
           self.ADOTable2.close;
          end;
       
 end;
   node.Expand(true);
end;
procedure TRS_SynthForm.FormShow(Sender: TObject);
var
  i:integer;
  nodd:ttreenode;
  item:tlistitem;
begin
   self.ADOTable3.open;
  // DecisionQuery1.Active:=true;
   treeview1.TopItem.DeleteChildren;
   nodd:=treeview1.TopItem;
   treeview1.Items.addchild(nodd,'男');
   treeview1.Items.addchild(nodd,'女');
   nodd.Expand(true);
   listview1.Items.Clear;
   self.ADOTable1.open;
   self.ADOTable1.First;
     for i:=1 to self.ADOTable1.RecordCount do
          begin
           item:=listview1.Items.add;
           item.Caption:=self.ADOTable1.Fields[1].Text;
          self.ADOTable1.Next;
          end;
   self.ADOTable1.close;
end;

procedure TRS_SynthForm.RadioButton1Click(Sender: TObject);
begin
listview1.ViewStyle:=vsicon;
end;

procedure TRS_SynthForm.RadioButton2Click(Sender: TObject);
begin
listview1.ViewStyle:=vssmallicon;
end;

procedure TRS_SynthForm.RadioButton3Click(Sender: TObject);
begin
listview1.ViewStyle:=vslist;
end;

procedure TRS_SynthForm.ComboBox1Click(Sender: TObject);
begin
   str0:=combobox1.Text;
   label2.Enabled:=true;
   combobox2.Enabled:=true;
end;

procedure TRS_SynthForm.ComboBox2Click(Sender: TObject);
begin
     if combobox2.Text='不等于' then
        str1:='<>'
     else if combobox2.Text='等于' then
             str1:='='
          else
             str1:=' like ';
     label3.Enabled:=true;
     edit1.Enabled:=true;
end;

procedure TRS_SynthForm.ComboBox3Click(Sender: TObject);
begin
    stringgrid1.Cells[3,stringgrid1.rowcount-1]:=combobox3.Text;
    stringgrid1.RowCount:=stringgrid1.RowCount+1;
    if combobox3.Text='和' then
       memo1.Text:=memo1.Text+' and '
    else
       memo1.Text:=memo1.Text+' or ';
    combobox3.Enabled:=false;
    edit1.Text:='';
end;

procedure TRS_SynthForm.Edit1Change(Sender: TObject);
begin
   if edit1.Text<>'' then
      bitbtn1.Enabled:=true
   else
      bitbtn1.Enabled:=false;
end;

procedure TRS_SynthForm.BitBtn1Click(Sender: TObject);
var
  str2:string;
begin
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:=combobox1.Text;
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:=combobox2.Text;
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:=edit1.Text;
    if combobox2.Text='前含于' then
       str2:=edit1.Text+'%'
    else if combobox2.Text='后含于' then
            str2:='%'+edit1.Text
         else if combobox2.Text='含于' then
                 str2:='%'+edit1.Text+'%'
              else
                 str2:=edit1.Text;
    memo1.Lines.Add(str0+str1+''''+str2+'''');
    bitbtn5.Enabled:=true;
    combobox3.enabled:=true;
    bitbtn6.Enabled:=true;
end;

procedure TRS_SynthForm.BitBtn1KeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then
         begin
           key:=#0;
           bitbtn6.SetFocus;
         end;
end;

procedure TRS_SynthForm.BitBtn6Click(Sender: TObject);
begin
 if (edit1.Text='') or (combobox1.Text='') or (combobox2.Text='') then
   begin
    messagebox(RS_Synthform.handle,'条件不正确，请检查所设条件式！','提示',mb_iconerror);
   end
 else
  begin
    Self.ADOQuery1.Close;
    Self.ADOQuery1.SQL.Clear;
    Self.ADOQuery1.SQL.Add('select * from ZG_Table where '+memo1.Text);
  if Self.ADOQuery1.Prepared=false then Self.ADOQuery1.Prepared;
    begin
      Self.ADOQuery1.open;
      bitbtn2.Enabled:=true;
    end;
  end;
end;

procedure TRS_SynthForm.BitBtn5Click(Sender: TObject);
begin
    stringgrid1.RowCount:=2;
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[3,stringgrid1.rowcount-1]:='';
    memo1.Text:='';
    label2.Enabled:=false;
    label3.Enabled:=false;
    combobox2.Enabled:=false;
    edit1.Enabled:=false;
    edit1.Text:='';
    bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
    combobox3.Enabled:=false;
end;

procedure TRS_SynthForm.BitBtn3Click(Sender: TObject);
begin
  Self.ADOQuery1.close;
  Self.ADOQuery1.SQL.Clear;
  Self.ADOQuery1.SQL.Add('select * from ZG_Table');
  if Self.ADOQuery1.Prepared=false then Self.ADOQuery1.Prepared;
     Self.ADOQuery1.open;
end;

procedure TRS_SynthForm.BitBtn2Click(Sender: TObject);
begin
  Self.ADOQuery1.close;
  Self.ADOQuery1.sql.clear;
  Self.ADOQuery1.sql.Add('delete from zg where '+memo1.Text);
  Self.ADOQuery1.ExecSQL;
  bitbtn2.Enabled:=false;
end;

procedure TRS_SynthForm.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TRS_SynthForm.Button1Click(Sender: TObject);
begin
  self.ADOQuery1.First;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button3.Enabled:=true;
  button4.Enabled:=true;
end;

procedure TRS_SynthForm.Button4Click(Sender: TObject);
begin
  Self.ADOQuery1.Last;
  button3.Enabled:=false;
  button4.Enabled:=false;
  button1.Enabled:=true;
  button2.Enabled:=true;
end;

procedure TRS_SynthForm.Button2Click(Sender: TObject);
begin
  self.ADOQuery1.Prior;
  if Self.ADOQuery1.Bof then
    begin
    button2.Enabled:=false;
    button1.Enabled:=false;
    end
   else
       begin
         button3.Enabled:=true;
         button4.Enabled:=true;
       end;
end;

procedure TRS_SynthForm.Button3Click(Sender: TObject);
begin
  self.ADOQuery1.Next;
  if self.ADOQuery1.Eof then
    begin
     button3.Enabled:=false;
     button4.Enabled:=false;
     end
    else
    begin
      button2.Enabled:=true;
      button1.Enabled:=true
    end;
end;

procedure TRS_SynthForm.Button5Click(Sender: TObject);
begin
self.ADOQuery1.Post;
MessageDlg('保存成功！',mtInformation,[mbOk],0)

end;

procedure TRS_SynthForm.DBEdit3Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit1Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit2Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit4Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBComboBox2Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBComboBox1Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit5Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit6Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit7Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit8Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit9Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit10Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit11Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBEdit12Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.DBMemo1Click(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure TRS_SynthForm.Button6Click(Sender: TObject);
begin
     if messagebox(RS_Synthform.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
        begin
          self.ADOQuery1.Delete;
          MessageDlg('删除成功!',mtInformation,[mbOK],0);
        end;
end;

procedure TRS_SynthForm.Button7Click(Sender: TObject);
begin
close;
end;

end.