unit_fileadmin.~cpp

本系统里面包含数据库（SQL SERVER2000）

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileAdmin.h"
#include "Unit_FileAppend.h"
#include "Unit_DM.h"
#include "Unit_FileWh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileAdminfrm *FileAdminfrm;
TTreeNode *root,*Node;
//---------------------------------------------------------------------------
__fastcall TFileAdminfrm::TFileAdminfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileAdminfrm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TFileAdminfrm::ToolButton7Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFileAdminfrm::ToolButton4Click(TObject *Sender)
{
  TFileAppendfrm *FileAppend=new TFileAppendfrm(this);
  try
  {
        FileAppend->ShowModal();
  }
  __finally
  {
        delete FileAppend;
  }
}
//---------------------------------------------------------------------------
void TFileAdminfrm::GridShow()
{
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from items where flag=1 order by bh");
  DM->Query1->Open();
  DBGrid1->Columns->Clear();
  for (int i=0;i<=DM->Query1->RecordCount-1;i++)
  {
    DBGrid1->Columns->Add();
    DBGrid1->Columns->Items[i]->Title->Caption=DM->Query1->FieldByName("czd")->AsString.Trim();
    DBGrid1->Columns->Items[i]->Title->Font->Color =clNavy;
    DBGrid1->Columns->Items[i]->Title->Alignment =taCenter;
    DBGrid1->Columns->Items[i]->FieldName=DM->Query1->FieldByName("ezd")->AsString.Trim();
    DM->Query1->Next();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::FormCreate(TObject *Sender)
{
  AnsiString ks;
  TreeView2->Items->Clear();
  root=TreeView2->Items->Add(NULL,"所有科室"); //根结点
  ADOQuery1->Close();
  ADOQuery1->SQL->Clear();
  ADOQuery1->SQL->Add("select distinct name,bh from DataWh where flag='KS' order by bh");
  ADOQuery1->Open();
  ADOQuery1->First();
  for(int i=0;i<ADOQuery1->RecordCount;i++)
  {
    ks=ADOQuery1->FieldByName("name")->AsString.Trim();
    Node=TreeView2->Items->AddChild(root,ks);   //一级子结点
    /*
    ADOQuery2->Close();
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Add("select distinct bm2 from bm where bm1=:mbm1");
    ADOQuery2->Parameters->ParamByName("mbm1")->Value=bm1;
    ADOQuery2->Open();
    if(ADOQuery2->RecordCount>1)
    {
      ADOQuery2->First();
      for(int i=0;i<ADOQuery2->RecordCount;i++)
      {
        bm2=ADOQuery2->FieldByName("bm2")->AsString.Trim();
        Node1=TreeView2->Items->AddChild(Node,bm2); //二级子结点
        ADOQuery3->Close();
        ADOQuery3->SQL->Clear();
        ADOQuery3->SQL->Add("select distinct bm3 from bm where bm1=:mbm1 and bm2=:mbm2");
        ADOQuery3->Parameters->ParamByName("mbm1")->Value=bm1;
        ADOQuery3->Parameters->ParamByName("mbm2")->Value=bm2;
        ADOQuery3->Open();
        if(ADOQuery3->RecordCount>1)
        {
          ADOQuery3->First();
          for(int i=0;i<ADOQuery3->RecordCount;i++)
          {
            bm3=ADOQuery3->FieldByName("bm3")->AsString.Trim();
            TreeView2->Items->AddChild(Node1,bm3); //三级子结点
            ADOQuery3->Next();
          }
        }
        ADOQuery2->Next();
      }
    }*/
    ADOQuery1->Next();
  }
  TreeView2->Items->Item[0]->Selected = true;
  GridShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::ToolButton6Click(TObject *Sender)
{
  if(MessageDlg("删除编号："+DM->filesnumber->Value.Trim()+"吗?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
  {
    DM->files->Delete();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::ToolButton8Click(TObject *Sender)
{
  TFileWhfrm *FileWh=new TFileWhfrm(this);
  try
  {
        FileWh->ShowModal();
  }
  __finally
  {
        delete FileWh;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::ToolButton5Click(TObject *Sender)
{
  TFileAppendfrm *FileAppend=new TFileAppendfrm(this);
  try
  {
        FileAppend->ShowModal();
  }
  __finally
  {
        delete FileAppend;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::TreeView2Change(TObject *Sender,
      TTreeNode *Node)
{
  TTreeNode *node=TreeView2->Selected;
  if(node->Text=="所有科室" )
  {
     DM->files->Close();
     DM->files->Parameters->ParamByName("mks")->Value="%";
     DM->files->Parameters->ParamByName("mbh")->Value="%";
     DM->files->Open();
     DM->Query1->Close();
     DM->Query1->SQL->Clear();
     DM->Query1->SQL->Add("select count(*) as Rs from files");
     DM->Query1->Open();
     Panel3->Caption ="人数: "+DM->Query1->FieldByName("Rs")->Value;
  }
  else
  {
     DM->files->Close();
     DM->files->Parameters->ParamByName("mks")->Value=node->Text.Trim();
     DM->files->Parameters->ParamByName("mbh")->Value="%";
     DM->files->Open();
     //DBGrid1->DataSource =DM->rsData ;
     //统计人数
     DM->Query1->Close();
     DM->Query1->SQL->Clear();
     DM->Query1->SQL->Add("select count(*) as Rs from files where office like :mrs");
     DM->Query1->Parameters->ParamByName("mrs")->Value=node->Text.Trim();
     DM->Query1->Open();
     Panel3->Caption ="人数: "+DM->Query1->FieldByName("Rs")->Value;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAdminfrm::DBGrid1DblClick(TObject *Sender)
{
  ToolButton4Click(this);        
}
//---------------------------------------------------------------------------