zhiduform.~cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include <Printers.hpp>
#include <iostream.h>
#include <oleauto.hpp>

#include "ZhiDuForm.h"
#include "Look_rule.h"
#include "DataMod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Word_2K_SRVR"
#pragma resource "*.dfm"
TzhiduFrm *zhiduFrm;
//---------------------------------------------------------------------------
__fastcall TzhiduFrm::TzhiduFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TzhiduFrm::FormCreate(TObject *Sender)
{
     Datam->zhidu_qry->Close();
     Datam->zhidu_qry->SQL->Clear();
     Datam->zhidu_qry->SQL->Add("select * from tb_rules");
     Datam->zhidu_qry->Open();
    BBt_OK->Enabled = false;
         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::FormClose(TObject *Sender, TCloseAction &Action)
{
     Datam->zhidu_qry->Close();
}
//---------------------------------------------------------------------------

void TzhiduFrm::q_exesql(AnsiString mSql)
{
    Datam->Rules_qry->SQL->Clear();
    Datam->Rules_qry->SQL->Add(mSql);
    Datam->Rules_qry->ExecSQL();
    Datam->Rules_qry->Close();
}
//--------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_AddClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Edit6->Text = "";
      ComboBox1->Text = "";


      iButton = 1;
      BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_DeleteClick(TObject *Sender)
{
    AnsiString Msg;
    Msg = "你确定删除规章制度资料吗？";
    if(MessageBox(Handle,Msg.c_str() ,"警告",MB_OKCANCEL)==IDOK)
    {
         String Record = DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->Field->DataSet->FieldByName("rule_id")->AsString;
         Datam->Rules_qry->SQL->Clear();
         Datam->Rules_qry->SQL->Add("delete from tb_rules where rule_id='"+Record+"'");
         Datam->Rules_qry->ExecSQL();
         Datam->Rules_qry->Close();
    }
     Datam->cad_qry->Close();
     Datam->cad_qry->SQL->Clear();
     Datam->cad_qry->SQL->Add("select * from tb_rules");
     Datam->cad_qry->Open();

     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_ChangClick(TObject *Sender)
{
     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;

     iButton = 2;
     RID = Edit1->Text;
     OpenDialog1->FileName = "";
     BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;             //制度属性值
     AnsiString ErrorMsg;      //错误消息
     String BeginDate,EndDate;
     AnsiString mSql;          //制度属性项
     TMemoryStream *FileStream;

     if(iButton==1)
     {
          if(Edit1->Text=="" || Edit2->Text=="")
          {
               ErrorMsg = "规章制度ID、规章制度名称不能为空！请重新输入。";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }

          mSql="select rule_id from tb_rules where rule_id='" + Edit1->Text+"'";
          Datam->Rules_qry->Close();
          Datam->Rules_qry->SQL->Clear();
          Datam->Rules_qry->SQL->Add(mSql);
          Datam->Rules_qry->Prepare();
          Datam->Rules_qry->Open();
          int m_count=Datam->Rules_qry->RecordCount;
          Datam->Rules_qry->Close();

          if(m_count>0)
          {
               ErrorMsg = "已存该ID“"+ Edit1->Text+"”,请重新输入！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }

          if(FileName!="")
          {
             // FileStream = new TMemoryStream();
             // OpenDialog1->Files->LoadFromStream(FileStream);

              Datam->Rules_qry->SQL->Clear();
              Datam->Rules_qry->SQL->Add("insert into tb_rules(rule_id,name,description,maked_by,status,distribute_date,end_date,remark,file_content) values(:rule_id,:name,:description,:maked_by,:status,:distribute_date,:end_date,:remark,:file_content)");
              Datam->Rules_qry->ParamByName("rule_id")->AsString = Edit1->Text;
              Datam->Rules_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->Rules_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->Rules_qry->ParamByName("maked_by")->AsString = Edit4->Text;
              Datam->Rules_qry->ParamByName("status")->AsString = ComboBox1->Text;
              Datam->Rules_qry->ParamByName("distribute_date")->AsDateTime = DateTimePicker1->Date;
              Datam->Rules_qry->ParamByName("end_date")->AsDateTime = DateTimePicker2->Date;
              Datam->Rules_qry->ParamByName("remark")->AsString = Edit6->Text;
              TParam *p = Datam->Rules_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);
              //p->LoadFromFile("d:\\a.doc",ftBlob);
              
              Datam->Rules_qry->ExecSQL();
              Datam->Rules_qry->Close();
          }
          else
          {
              Datam->Rules_qry->SQL->Clear();
              Datam->Rules_qry->SQL->Add("insert into tb_rules(rule_id,name,description,maked_by,status,distribute_date,end_date,remark) values(:rule_id,:name,:description,:maked_by,:status,:distribute_date,:end_date,:remark)");
              Datam->Rules_qry->ParamByName("rule_id")->AsString = Edit1->Text;
              Datam->Rules_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->Rules_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->Rules_qry->ParamByName("maked_by")->AsString = Edit4->Text;
              Datam->Rules_qry->ParamByName("status")->AsString = ComboBox1->Text;
              Datam->Rules_qry->ParamByName("distribute_date")->AsDateTime = DateTimePicker1->Date;
              Datam->Rules_qry->ParamByName("end_date")->AsDateTime = DateTimePicker2->Date;
              Datam->Rules_qry->ParamByName("remark")->AsString = Edit6->Text;
              Datam->Rules_qry->ExecSQL();
              Datam->Rules_qry->Close();
          }

/*
          BeginDate = DateToStr(DateTimePicker1->Date);
          EndDate = DateToStr(DateTimePicker2->Date);

//          mSql = "insert into tb_employee(employee_id,name,sex,duty,birth,department_id)values('1111','xg','n','gao',to_date('2001-01-01','YYYY-MM-DD'),'bu')";
          mSql = "insert into tb_rules(rule_id,";
          TemSql = "values('"+Edit1->Text+"','";

          mSql = mSql+"name,";
          TemSql = TemSql+Edit2->Text+"','";

          mSql = mSql+"description,";
          TemSql = TemSql+Edit3->Text+"','";

          mSql = mSql+"maked_by,";
          TemSql = TemSql+Edit4->Text+"',";

          mSql = mSql+"distribute_date,";
          TemSql = TemSql+"to_date('";
          TemSql = TemSql+BeginDate+"','YYYY-MM-DD'),";

          mSql = mSql+"end_date,";
          TemSql = TemSql+"to_date('";
          TemSql = TemSql+EndDate+"','YYYY-MM-DD'),'";

          mSql = mSql+"status,";
          TemSql = TemSql+ComboBox1->Text+"','";

          mSql = mSql+"remark)";
          TemSql = TemSql+Edit6->Text+"')";

//          mSql =mSql+"values('"+Edit1->Text+"','"+Edit2->Text+"','"+Edit4->Text+"','"+Edit3->Text+"',to_date('2001-01-01','YYYY-MM-DD'),'"+ComboBox4->Text+"')";

          mSql = mSql+TemSql;

          q_exesql(mSql);

          Datam->t_rule->Active = false;
          Datam->t_rule->Active = true;
          DBGrid1->Refresh();
*/
     }

     else if(iButton==2)
     {
         if(RID!=Edit1->Text)
         {
               ErrorMsg = "ID值唯一标识规章制度信息，不能被更改！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
         }
         if(OpenDialog1->FileName=="")
         {
              mSql = "update tb_rules set ";
              mSql = mSql+"name='"+Edit2->Text;
              mSql = mSql+"',description='"+Edit3->Text;
              mSql = mSql+"',maked_by='"+Edit4->Text;
              mSql = mSql+"',distribute_date=to_date('"+DateToStr(DateTimePicker1->Date)+"','YYYY-MM-DD')";
              mSql = mSql+",end_date=to_date('"+DateToStr(DateTimePicker2->Date)+"','YYYY-MM-DD')";
              mSql = mSql+",status='"+ComboBox1->Text;
              mSql = mSql+"',remark='"+Edit6->Text;
              mSql = mSql+"' where rule_id='"+Edit1->Text+"'";

              q_exesql(mSql);

         }
         else
         {
              Datam->Rules_qry->SQL->Clear();
              Datam->Rules_qry->SQL->Add("delete from tb_rules where rule_id='"+RID+"'");
              Datam->Rules_qry->ExecSQL();
              Datam->Rules_qry->Close();

              Datam->Rules_qry->SQL->Clear();
              Datam->Rules_qry->SQL->Add("insert into tb_rules(rule_id,name,description,maked_by,status,distribute_date,end_date,remark,file_content) values(:rule_id,:name,:description,:maked_by,:status,:distribute_date,:end_date,:remark,:file_content)");
              Datam->Rules_qry->ParamByName("rule_id")->AsString = Edit1->Text;
              Datam->Rules_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->Rules_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->Rules_qry->ParamByName("maked_by")->AsString = Edit4->Text;
              Datam->Rules_qry->ParamByName("status")->AsString = ComboBox1->Text;
              Datam->Rules_qry->ParamByName("distribute_date")->AsDateTime = DateTimePicker1->Date;
              Datam->Rules_qry->ParamByName("end_date")->AsDateTime = DateTimePicker2->Date;
              Datam->Rules_qry->ParamByName("remark")->AsString = Edit6->Text;
              TParam *p = Datam->Rules_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);
              Datam->Rules_qry->ExecSQL();
              Datam->Rules_qry->Close();
         }
     }
     Edit1->Text = "";
     Edit2->Text = "";
     Edit3->Text = "";
     Edit4->Text = "";
     DateTimePicker1->Date = StrToDate("2000-01-01");
     ComboBox1->Text = "";
     Edit6->Text = "";
     DateTimePicker2->Date = StrToDate("2000-01-01");
     FileName = "";
     
     Datam->zhidu_qry->Close();
     Datam->zhidu_qry->SQL->Clear();
     Datam->zhidu_qry->SQL->Add("select * from tb_rules");
     Datam->zhidu_qry->Open();


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

void __fastcall TzhiduFrm::BBt_CaleanClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      DateTimePicker1->Date = StrToDate("2000-01-01");
      ComboBox1->Text = "";
      Edit6->Text = "";
      DateTimePicker2->Date = StrToDate("2000-01-01");
}
//---------------------------------------------------------------------------

void __fastcall TzhiduFrm::BBt_RefClick(TObject *Sender)
{
     Datam->zhidu_qry->Close();
     Datam->zhidu_qry->SQL->Clear();
     Datam->zhidu_qry->SQL->Add("select * from tb_rules");
     Datam->zhidu_qry->Open();
     DBGrid1->Refresh();

     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;