unit GZ_SynthUnit;

interface

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

type
  TGZ_SynthForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Bevel1: TBevel;
    TreeView1: TTreeView;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    Label6: TLabel;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit2: TEdit;
    ComboBox4: TComboBox;
    StringGrid1: TStringGrid;
    GroupBox4: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid3: TDBGrid;
    ImageList1: TImageList;
    GroupBox5: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    procedure TreeView1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    str0,str1:string;
  public
    { Public declarations }
  end;

var
  GZ_SynthForm: TGZ_SynthForm;

implementation
uses Login_Unit;

{$R *.dfm}

procedure TGZ_SynthForm.TreeView1Click(Sender: TObject);
{var
 i:integer;
 node:ttreenode;}
begin
if treeview1.selected.Parent=nil then
  begin
    self.ADOQuery1.Close;
    self.ADOQuery1.SQL.Clear;
    self.ADOQuery1.SQL.Add('select * from GZ_Table');
    self.ADOQuery1.Open;
  end
 else
  with self.ADOQuery1 do
   begin
    self.ADOQuery1.Close;
    self.ADOQuery1.SQL.Clear;
    self.ADOQuery1.SQL.Add('select GZ_Table.職工編號,GZ_Table.職工姓名,崗位工資,技能工資,物價補貼,書報費,衛生費,小孩補貼,工齡工資,合同補貼,獎金,工資總額 from ZG_Table,GZ_Table where ZG_Table.職工編號=GZ_Table.職工編號 and ZG_Table.工作部門=:a');
    self.ADOQuery1.Parameters.ParamByName('a').Value:=treeview1.Selected.Text;
    self.ADOQuery1.Open;
   end;
end;

procedure TGZ_SynthForm.DBGrid1DblClick(Sender: TObject);
begin
groupbox5.Visible:=true;
dbedit1.DataField:='職工編號';
dbedit2.DataField:='職工姓名';
dbedit3.DataField:='崗位工資';
dbedit4.DataField:='技能工資';
dbedit5.DataField:='物價補貼';
dbedit6.DataField:='書報費';
dbedit7.DataField:='衛生費';
dbedit8.DataField:='小孩補貼';
dbedit9.DataField:='工齡工資';
dbedit10.DataField:='合同補貼';
dbedit11.DataField:='獎金';
dbedit12.DataField:='工資總額';
end;

procedure TGZ_SynthForm.FormShow(Sender: TObject);
var
  i:integer;
  node:ttreenode;
begin
  node:=treeview1.TopItem;
  for i:=1 to self.ADOQuery4.RecordCount do
    begin
        treeview1.Items.AddChild(node,self.ADOQuery4.Fields[0].value);
        self.ADOQuery4.Next;
    end;
    self.ADOQuery4.Close;
    with self.ADOQuery2 do
  begin
    self.ADOQuery2.Close;
    self.ADOQuery2.SQL.Clear;
    self.ADOQuery2.SQL.Add('update GZ_Table set 工資總額=崗位工資+技能工資+物價補貼+書報費+衛生費+小孩補貼+合同補貼+工齡工資+獎金');
    self.ADOQuery2.ExecSQL;
  end;
  with self.ADOQuery2 do
    begin
      self.ADOQuery2.Close;
      self.ADOQuery2.SQL.Clear;
      self.ADOQuery2.SQL.Add('select * from GZ_Table');
      self.ADOQuery2.Open;
    end;
end;

procedure TGZ_SynthForm.ComboBox1Change(Sender: TObject);
begin
label2.Enabled:=true;
edit1.Enabled:=true;
label3.Enabled:=true;
end;

procedure TGZ_SynthForm.Button2Click(Sender: TObject);
begin
self.ADOQuery2.Filtered:=false;
self.ADOQuery2.Filter:='職工姓名<>'+''''+'yy'+'''';
self.ADOQuery2.Filtered:=true;
end;

procedure TGZ_SynthForm.Button1Click(Sender: TObject);
begin
if combobox1.Text='職工編號' then
  begin
    self.ADOQuery2.Filtered:=false;
    self.ADOQuery2.Filter:='職工編號='+''''+edit1.Text+'''';
    self.ADOQuery2.Filtered:=true;
  end;
if combobox1.Text='職工姓名' then
  begin
    self.ADOQuery2.Filtered:=false;
    self.ADOQuery2.Filter:='職工姓名='+''''+edit1.Text+'''';
    self.ADOQuery2.Filtered:=true;
  end;
 edit1.Text:='';
 label5.Visible:=true;
 label4.Caption:=self.ADOQuery2.fieldbyname('工資總額').AsString;
end;

procedure TGZ_SynthForm.ComboBox2Click(Sender: TObject);
begin
   str0:=combobox2.Text;
   label8.Enabled:=true;
   combobox3.Enabled:=true;
end;

procedure TGZ_SynthForm.ComboBox3Click(Sender: TObject);
begin
   if combobox3.Text='不等于' then
    str1:='<>'
   else if combobox3.Text='等于' then
           str1:='='
        else
           str1:=' like ';
           label9.Enabled:=true;
           edit2.Enabled:=true;
end;

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

procedure TGZ_SynthForm.Edit2Change(Sender: TObject);
begin
     if edit2.Text<>'' then
        bitbtn1.Enabled:=true
     else
        bitbtn1.Enabled:=false;
end;

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

procedure TGZ_SynthForm.BitBtn6Click(Sender: TObject);
begin
if (edit2.Text='') or (combobox2.Text='') or (combobox3.Text='') then
   begin
    messagebox(GZ_SynthForm.handle,'條件不正確，請檢查所設條件式！','提示',mb_iconerror);
     end
  else
  begin
  ADOquery1.Close;
  ADOquery1.SQL.Clear;
  ADOquery1.sql.Add('select * from GZ_Table where '+memo1.Text);
 if ADOquery1.Prepared=false then ADOquery1.Prepared;
   begin
    ADOquery1.Open;
    bitbtn2.Enabled:=true;
  end;
 end
end;

procedure TGZ_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:='';
   label8.Enabled:=false;
   label9.Enabled:=false;
     combobox3.Enabled:=false;
     edit2.Enabled:=false;
   edit2.Text:='';
   bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
   combobox4.Enabled:=false;
end;

procedure TGZ_SynthForm.BitBtn3Click(Sender: TObject);
begin
  self.ADOQuery1.close;
  self.ADOQuery1.sql.clear;
  self.ADOQuery1.sql.Add('select * from GZ_Table');
  if self.ADOQuery1.Prepared=false then self.ADOQuery1.Prepared;
     self.ADOQuery1.open;
end;

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

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

end.