makerform.cpp

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

      Datam->t_maker->Filtered = false;
      Datam->t_maker->Active = false;
      Datam->t_maker->Active = true;
      DBGrid1->Refresh();

     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::BBt_ExitClick(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------
void __fastcall Tmaker::BBt_FountClick(TObject *Sender)
{
      try
      {
           Lookmaker = new TLookmaker(Application);
           Lookmaker->ShowModal();
      }
      __finally
      {
           delete Lookmaker;
      }
           int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::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_maker->Active)&&(Datam->t_maker->RecordCount>0))
     {
        
        printer->BeginDoc();  
        Datam->t_maker->First();
        while(!Datam->t_maker->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_maker->Next();

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

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













void __fastcall Tmaker::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
      int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::DBGrid1CellClick(TColumn *Column)
{
           int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------

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

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

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

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

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

void __fastcall Tmaker::Edit6KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit7->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::Edit7KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit8->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::Edit8KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit9->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::Edit9KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit10->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::Edit10KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit11->SetFocus();
    }        
}
//---------------------------------------------------------------------------

void __fastcall Tmaker::Edit11KeyPress(TObject *Sender, char &Key)
{
    if (Key==VK_TAB)
    {
        Edit12->SetFocus();
    }        
}
//---------------------------------------------------------------------------