taiz_drqform.cpp

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

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("zeddr")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddr")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TdrqTaizFrm::BBt_ExitClick(TObject *Sender)
{
     Close();        
}
//---------------------------------------------------------------------------
void __fastcall TdrqTaizFrm::BBt_FountClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      ComboBox1->Text = "";
      ComboBox2->Text = "";
      ComboBox3->Text = "";
      ComboBox4->Text = "";
      ComboBox5->Text = "";
      ComboBox6->Text = "";
      ComboBox7->Text = "";
      ComboBox8->Text = "";
      try
      {
           Lookdrq = new TLookdrq(Application);
           Lookdrq->ShowModal();
      }
      __finally
      {
           delete Lookdrq;
      }
            int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("zeddr")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddr")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TdrqTaizFrm::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->t_drqtaiz->Active)&&(Datam->t_drqtaiz->RecordCount>0))
     {
        
        printer->BeginDoc();  
        Datam->t_drqtaiz->First();
        while(!Datam->t_drqtaiz->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->t_drqtaiz->Next();

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

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








void __fastcall TdrqTaizFrm::ComboBox1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if (Key==VK_TAB)
    {
        ComboBox7->SetFocus();
    }
}
//---------------------------------------------------------------------------





void __fastcall TdrqTaizFrm::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("zeddr")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddr")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TdrqTaizFrm::DBGrid1CellClick(TColumn *Column)
{
      int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("zeddr")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("drq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddr")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString; 
}
//---------------------------------------------------------------------------

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

void __fastcall TdrqTaizFrm::ComboBox2KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        ComboBox4->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TdrqTaizFrm::ComboBox4KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        ComboBox3->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TdrqTaizFrm::ComboBox3KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        ComboBox5->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall TdrqTaizFrm::ComboBox5KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        ComboBox6->SetFocus();
    }        
}
//---------------------------------------------------------------------------

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

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

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

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

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

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