look_rule.~cpp

来自「该源代码是一个关于电力设备和电力行业操作管理的管理系统」· ~CPP 代码 · 共 80 行

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

#include <vcl.h>
#pragma hdrstop

#include "Look_rule.h"
#include "ZhiDuForm.h"
#include "DataMod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLookup_Rule *Lookup_Rule;
//---------------------------------------------------------------------------
__fastcall TLookup_Rule::TLookup_Rule(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLookup_Rule::Button1Click(TObject *Sender)
{
     String LookStr;
     AnsiString mSql;
     TDateTime  BeginDate,EndDate,WhenDate;
     if(ComboBox1->Text=="规章制度文件ID")
        if(Edit1->Text!="")
        {
             LookStr = Edit1->Text;
             Datam->zhidu_qry->Close();
             Datam->zhidu_qry->SQL->Clear();
             Datam->zhidu_qry->SQL->Add("select * from tb_rules where rule_id='"+LookStr+"'");
             Datam->zhidu_qry->Open();
//             Datam->t_rule->Filter = "rule_id='"+LookStr+"'";
//             Datam->t_rule->Filtered = true;
//             Datam->t_rule->Active = false;
//             Datam->t_rule->Active = true;
             zhiduFrm->DBGrid1->Refresh();
        }

     if(ComboBox1->Text=="名称")
         if(Edit1->Text!="")
         {
             LookStr = Edit1->Text;
             Datam->zhidu_qry->Close();
             Datam->zhidu_qry->SQL->Clear();
             Datam->zhidu_qry->SQL->Add("select * from tb_rules where name='"+LookStr+"'");
             Datam->zhidu_qry->Open();
             zhiduFrm->DBGrid1->Refresh();
         }

     if(ComboBox1->Text=="制定单位")
         if(Edit1->Text!="")
         {
             LookStr = Edit1->Text;
             Datam->zhidu_qry->Close();
             Datam->zhidu_qry->SQL->Clear();
             Datam->zhidu_qry->SQL->Add("select * from tb_rules where maked_by='"+LookStr+"'");
             Datam->zhidu_qry->Open();
             zhiduFrm->DBGrid1->Refresh();
         }
     if(ComboBox1->Text=="描述")
         if(Edit1->Text!="")
         {
             LookStr = Edit1->Text;
             Datam->zhidu_qry->Close();
             Datam->zhidu_qry->SQL->Clear();
             Datam->zhidu_qry->SQL->Add("select * from tb_rules where description='"+LookStr+"'");
             Datam->zhidu_qry->Open();
             zhiduFrm->DBGrid1->Refresh();
         }
     
     Close();

}
//---------------------------------------------------------------------------
void __fastcall TLookup_Rule::Button2Click(TObject *Sender)
{
     Close();        
}
//---------------------------------------------------------------------------