unit_filequery.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileQuery.h"
#include "Unit_RepSetup.h"
#include "Unit_DM.h"
#include <stdio.h>
#include "Unit_Rep_File.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileQueryfrm *FileQueryfrm;
//---------------------------------------------------------------------------
__fastcall TFileQueryfrm::TFileQueryfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileQueryfrm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TFileQueryfrm::SpeedButton4Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::SpeedButton1Click(TObject *Sender)
{
  int j=0;
  DBGrid1->Columns->Clear();
  for(int i=0;i<CheckListBox1->Items->Count;i++)
  {
    if(CheckListBox1->Checked[i]==true) //循环判断CHECKED是否为真
    {
      DM->Query1->Close();
      DM->Query1->SQL->Clear();
      DM->Query1->SQL->Add("select ezd,czd from items where czd=:mczd");
      DM->Query1->Parameters->ParamByName("mczd")->Value=CheckListBox1->Items->Strings[i].Trim();
      DM->Query1->Open();
      DBGrid1->Columns->Add();
      DBGrid1->Columns->Items[j]->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[j]->FieldName=DM->Query1->FieldByName("ezd")->AsString.Trim();
      //if(DM->Query1->FieldByName("czd")->AsString.Trim()=="部    门")
      //DBGrid1->Columns->Items[j]->Width =100;
      j++;
    }
  }
  DM->FileQuery->Close();
  DM->FileQuery->Parameters->ParamByName("@mbh")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mxm")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@msex")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mks")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mxl")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mjb")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mlb")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mzc")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@mzw")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@stim")->Value=Null();
  DM->FileQuery->Parameters->ParamByName("@etim")->Value=Null();
  if(CheckBox1->Checked ==true && !Edit1->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mbh")->Value=Edit1->Text.Trim();
  }
  if(CheckBox2->Checked ==true && !Edit2->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mxm")->Value=Edit2->Text.Trim();
  }
  if(CheckBox3->Checked ==true && !ComboBox1->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@msex")->Value=ComboBox1->Text.Trim();
  }
  if(CheckBox4->Checked ==true && !ComboBox6->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mks")->Value=ComboBox6->Text.Trim();
  }
  if(CheckBox6->Checked ==true && !ComboBox2->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mxl")->Value=ComboBox2->Text.Trim();
  }
  if(CheckBox16->Checked ==true && !ComboBox3->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mjb")->Value=ComboBox3->Text.Trim();
  }
  if(CheckBox19->Checked ==true && !ComboBox4->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mlb")->Value=ComboBox4->Text.Trim();
  }
  if(CheckBox20->Checked ==true && !ComboBox5->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mzc")->Value=ComboBox5->Text.Trim();
  }
  if(CheckBox7->Checked ==true && !ComboBox7->Text.IsEmpty())
  {
    DM->FileQuery->Parameters->ParamByName("@mzw")->Value=ComboBox5->Text.Trim();
  }
  if(CheckBox8->Checked ==true )
  {
    DM->FileQuery->Parameters->ParamByName("@stim")->Value=StrToDateTime(DateTimePicker7->Date.DateString());
    DM->FileQuery->Parameters->ParamByName("@etim")->Value=StrToDateTime(DateTimePicker8->Date.DateString());
  }
  DM->FileQuery->ExecProc();
  DM->FileTmp->Close();
  DM->FileTmp->Open();
  Panel3->Caption ="人数: "+IntToStr(DM->FileTmp->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::SpeedButton2Click(TObject *Sender)
{
/*
      AnsiString mkfzt,name,department;
      int overall,man;
      FILE *stream;
      int i,k=0,j=0;
      CountNumbers(overall,man);
      //Query1->DatabaseName=".\\lib";
      //Query2->DatabaseName=Query1->DatabaseName;
      //Query1->Close();         //generate a table;
      //Query1->SQL->Clear();
      //Query1->SQL->Add("select distinct kfzt from fttmp");  //获取地点名称
      //Query1->ExecSQL();
      //Query1->Open();
      //------------------del--------------------------
      /* open a file for update */
/*//////////////////////
      FILE *stream;
      stream=fopen("test","w");
      fclose(stream);                          //删除文件test内容
      stream = fopen("test", "a+");   //FileName.c_str()
      fprintf(stream,"\n============================================================================\n\n");
      fprintf(stream,"\t技术档案");
      fprintf(stream,"\t%s",DateTimeToStr(Now()).c_str());
      fprintf(stream,"\n============================================================================\n");
      //--------------------------------------------
      fprintf(stream,"\n\n\t姓名:%s\t\t\t   性别:%s\t\t\t     身份证号：%s\n\n",DM->filesname->Value.c_str(),DM->filessex->Value.c_str(),DM->filesIDcard->Value.c_str());
      fprintf(stream,"\n\n\t学历:%s\t\t\t   专业:%s\t\t\t     毕业院校：%s\n\n",DM->filesdegree->Value.c_str(),DM->filesspecialty->Value.c_str(),DM->filesschool->Value.c_str());
      //fprintf(stream,"\n\n\t级别:%s\t\t\t   类别:%s\t\t\t     执业范围：%s\n\n",DM->filesname->Value.c_str(),DM->filessex->Value.c_str(),DM->filesIDCard->Value.c_str());
*///////////////////////
/*
      for(i=0;i<Query1->RecordCount;i++)
      {
         Query2->Close();         //generate a table;   ORDER BY 身份证号码
         Query2->SQL->Clear();
         Query2->SQL->Add("SELECT  fh,fjms FROM  fttmp where kfzt=:mkfzt ORDER BY fh");
         Query2->Parameters->ParamByName("mkfzt")->Value=Query1->FieldByName("kfzt")->AsString.Trim();
//         Query2->ExecSQL();
         Query2->Open();
         //------------------
         fprintf(stream,"\n\n\t房间类别:%s\t\t\t      房间数：%d间\n\n",Query1->FieldByName("kfzt")->AsString.c_str(),Query2->RecordCount);
         k=0;
         for(j=0;j<Query2->RecordCount;j++)
         {
            name=Query2->FieldByName("fh")->Value;
            department=Query2->FieldByName("fjms")->Value;
            //------------------
            fprintf(stream,"  %s\t%s  ",department.c_str(),name.c_str());
            k++;
            if(k%5==0)
               fprintf(stream,"\n");
            Query2->Next();
         }
         Query1->Next();
      }
      Query1->Close();
      Query2->Close();
      fclose(stream);
      //
//      ToolBar2->Visible=true;
//      ToolBar2->Visible=true;
      RichEdit1->Clear();
      RichEdit1->Visible=true;
      RichEdit1->Lines->LoadFromFile("test");
*/
////////////      fclose(stream);
////////////      RichEdit1->Clear();
//      RichEdit1->Visible=true;
/////////////      RichEdit1->Lines->LoadFromFile("test");
////////////     if(PrintDialog1->Execute())
///////////        RichEdit1->Print("");

/*
  TRep_Customfrm *Rep_Custom= new TRep_Customfrm(NULL);
  Rep_Custom->QuickRep1->Page->PaperSize=Custom;
  Rep_Custom->QuickRep1->Page->Width=width;
  Rep_Custom->QuickRep1->Page->Length=length;
  TGridPrint *pGridPrint= new TGridPrint(Rep_Custom->QuickRep1, DBGrid1, Rep_Custom->PageHeaderBand1, Rep_Custom->ColumnHeaderBand1, Rep_Custom->DetailBand1, Rep_Custom->PageFooterBand1);
  pGridPrint->SetDetailRectHeight(25);
  pGridPrint->SetHeadRectHeight(60);
  pGridPrint->DoPreview();
  delete pGridPrint; delete pzdybbfrm;
*/
  
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::SpeedButton3Click(TObject *Sender)
{
  TRepSetupfrm *RepSetup=new TRepSetupfrm(this);
  try
  {
        RepSetup->ShowModal();
  }
  __finally
  {
        delete RepSetup;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::SpeedButton5Click(TObject *Sender)
{
  for(int j=0;j<CheckListBox1->Items->Count;j++)
  CheckListBox1->Checked[j]=true;
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::SpeedButton6Click(TObject *Sender)
{
  for(int j=0;j<CheckListBox1->Items->Count;j++)
  CheckListBox1->Checked[j]=false;
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::FormCreate(TObject *Sender)
{
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from items where flag=1 order by bh");
  DM->Query1->Open();
  CheckListBox1->Items->Clear();
  while(!DM->Query1->Eof)
  {
    CheckListBox1->Items->Add(DM->Query1->FieldByName("czd")->AsString.Trim());
    DM->Query1->Next();
  }
  SpeedButton5->Click();
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::FormShow(TObject *Sender)
{
  SpeedButton1->Click();  
}
//---------------------------------------------------------------------------

void __fastcall TFileQueryfrm::DBGrid1CellClick(TColumn *Column)
{
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from Notes where idh=:midh order by dat");
  DM->Query1->Parameters->ParamByName("midh")->Value=DM->FileTmpidh->Value.Trim();
  DM->Query1->Open();
  RichEdit1->Lines->Clear();
  while(!DM->Query1->Eof){
    RichEdit1->Lines->Add(DM->Query1->FieldByName("note")->AsString.Trim());
    DM->Query1->Next(); 
  }

}
//---------------------------------------------------------------------------