zhiduform.~cpp

该源代码是一个关于电力设备和电力行业操作管理的管理系统

     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("distribute_date")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("status")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;

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

void __fastcall TzhiduFrm::BBt_ExitClick(TObject *Sender)
{
     Close();        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_FountClick(TObject *Sender)
{
       ComboBox1->Text = "";
      Edit6->Text = "";
      try
      {
           Lookup_Rule = new TLookup_Rule(Application);
           Lookup_Rule->ShowModal();
      }
      __finally
      {
           delete Lookup_Rule;
      }
      
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("rule_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("distribute_date")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("status")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_PrintClick(TObject *Sender)
{

     int LeftBlank = 1;
     int RightBlank = 1;
     int TopBlank = 1;
     int BottomBlank = 1;

     int PointX,PointY;
     int PointScale,PrintStep;
     int x,y,i;
     String Str;

     TPrinter *printer = Printer();

     PointX = GetDeviceCaps(printer->Handle,LOGPIXELSX)/2.54;
     PointY = GetDeviceCaps(printer->Handle,LOGPIXELSY)/2.54;
     PointScale = GetDeviceCaps(printer->Handle,LOGPIXELSX)/Screen->PixelsPerInch+0.5;

     printer->Orientation = poLandscape;
     printer->Canvas->Font->Name = "宋体";
     printer->Canvas->Font->Size = 10;
     Str = "谐波管理系统";
     PrintStep = printer->Canvas->TextHeight(Str)+16;

     x = PointX*LeftBlank;
     y = PointY*TopBlank;
     if(Datam->zhidu_qry->Active)
     {
        
        printer->BeginDoc();  
        Datam->zhidu_qry->First();
        while(!Datam->zhidu_qry->Eof)
        {
             for(i=0;i<DBGrid1->FieldCount-1;i++)
             {
                if((x+DBGrid1->Columns->Items[i]->Width*PointScale)<=(printer->PageWidth-PointX*RightBlank))
                {
                     printer->Canvas->Rectangle(x,y,x+DBGrid1->Columns->Items[i]->Width*PointScale,y+PrintStep);
                     if(y==PointY*TopBlank)
                          printer->Canvas->TextOutA(x+8,y+8,DBGrid1->Columns->Items[i]->Title->Caption);
                     else
                          printer->Canvas->TextOutA(x+8,y+8,DBGrid1->Fields[i]->AsString);
                }
                x = x+DBGrid1->Columns->Items[i]->Width*PointScale;
             }
             if(y!=PointY*TopBlank)
                 Datam->zhidu_qry->Next();

             x = PointX*LeftBlank;
             y = y+PrintStep;
             if((y+PrintStep)>(printer->PageHeight-PointY*BottomBlank))
             {
                 printer->NewPage();
                 y = PointY*TopBlank;
             }
        }
        printer->EndDoc();
        Datam->zhidu_qry->First();
        MessageDlg("打印完成！",0,TMsgDlgButtons()<<mbOK,0);
    }

/*
  TPrinter *Prntr = Printer();
  TRect r = Rect(200,200,Prntr->PageWidth - 200,Prntr->PageHeight- 200);
  Prntr->BeginDoc();
  for( int i = 0; i < Memo1->Lines->Count; i++)
    Prntr->Canvas->TextOut(200,200 + (i *
  Prntr->Canvas->TextHeight(Memo1->Lines->Strings[i])),
  Memo1->Lines->Strings[i]);
  Prntr->Canvas->Brush->Color = clBlack;
  Prntr->Canvas->FrameRect(r);
  Prntr->EndDoc();
  */
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Button2Click(TObject *Sender)
{
    OpenDialog1->Title = "请选择制度章程文本";
    OpenDialog1->InitialDir = "d:\\";
    if(OpenDialog1->Execute())
    {
        FileName = OpenDialog1->FileName;
    }
    else
        FileName = "";
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Button1Click(TObject *Sender)
{//打开制度文件
     AnsiString RuleID;
     TFileName *FName;
     char *FileName = "d:\\Temp.doc";
     HANDLE hFile;
     bool bfile = false;

     try
     {
          WordApp->Connect();
     }
     catch(...)
     {
          ShowMessage("您可能没有安装Word!");
          WordApp->Disconnect();
          return;
     }

     RuleID = DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->Field->DataSet->FieldByName("rule_id")->AsString;

     while(!Datam->zhidu_qry->Eof)
     {
        try
        {
            if(RuleID==Datam->zhidu_qry->FieldByName("rule_id")->AsString)
            {
                if(Datam->zhidu_qry->FieldByName("file_content")->IsNull)
                {
                   ShowMessage("没有制度章程！");
                   break;
                }
                else
                {
                   hFile = CreateFile(FileName,           // create MYFILE.TXT
                                     GENERIC_WRITE,                // open for writing
                                     0,                            // do not share
                                     NULL,                         // no security
                                     CREATE_ALWAYS,                // overwrite existing
                                     FILE_ATTRIBUTE_NORMAL,
                                     NULL);                        // no attr. template

                   if (hFile == INVALID_HANDLE_VALUE)
                   {
                         ShowMessage("读文件错误！请重新打开");
                         return;  // process error
                   }
                    CloseHandle(hFile);
                    
                    bfile = true;
                    TBlobField *p = (TBlobField *)(Datam->zhidu_qry->FieldByName("file_content"));
                 //   p->SaveToFile(hFile);
                   // int nSize = 1024;
                  //  char *Buffer = (char*)malloc(nSize);
                  //  try{
                     p->SaveToFile("D:\\Temp.doc");
                    // ShowMessage("OK");

                         //  unsigned long w = 0;
                        //   WriteFile( hFile, Buffer, nSize, &w, NULL);

                  //     }
                  //  __finally
                  //  {
                  //     free(Buffer);
                  //  }

            //        Datam->zhidu_qry->FieldByName("file_content")->SaveToStream(mStream);
                    break;
                }
            }
        }
        catch(...)
        {
            ShowMessage("文件格式无效");
            break;
        }
        Datam->zhidu_qry->Next();
    }
    if(bfile)
    {
        ShellExecute(NULL,NULL,_T("Temp.doc"),NULL,_T("d:\\"),NULL);
    }
//    delete fs;
//    delete mStream;
//    Datam->zhidu_qry->First();
}
//---------------------------------------------------------------------------









void __fastcall TzhiduFrm::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("rule_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("distribute_date")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("status")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::DBGrid1CellClick(TColumn *Column)
{
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("rule_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("distribute_date")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("status")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;  
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Edit1KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit2->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Edit2KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit3->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Edit3KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit4->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::Edit4KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        DateTimePicker1->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::DateTimePicker1KeyPress(TObject *Sender,
      char &Key)
{
    if (Key==VK_TAB)
    {
        DateTimePicker2->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::DateTimePicker2KeyPress(TObject *Sender,
      char &Key)
{
    if (Key==VK_TAB)
    {
        ComboBox1->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::ComboBox1KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit6->SetFocus();
    }        
}
//---------------------------------------------------------------------------