yhtzzlform.cpp

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

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

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

#include "yhtzzlForm.h"
#include "Look_yhtzzl.h"
#include "DataMod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tyhtzzl *yhtzzl;
//---------------------------------------------------------------------------
__fastcall Tyhtzzl::Tyhtzzl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::FormCreate(TObject *Sender)
{
     Datam->yhcad_qry->Close();
     Datam->yhcad_qry->SQL->Clear();
     Datam->yhcad_qry->SQL->Add("select * from tb_tzzl_user");
     Datam->yhcad_qry->Open();

     BBt_OK->Enabled = false;
     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("user_name")->AsString;
     Memo1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::FormClose(TObject *Sender, TCloseAction &Action)
{
      Datam->yhcad_qry->Close();
}
//---------------------------------------------------------------------------
void Tyhtzzl::q_exesql(AnsiString mSql)
{
    Datam->yhtzzl_qry->SQL->Clear();
    Datam->yhtzzl_qry->SQL->Add(mSql);
    Datam->yhtzzl_qry->ExecSQL();
    Datam->yhtzzl_qry->Close();
}
//-------------------------------------------------------------
void __fastcall Tyhtzzl::BBt_AddClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Memo1->Text = "";

      BBt_OK->Enabled = true;
      iButton = 1;

      Edit1->SetFocus();        
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::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("id")->AsString;
         Datam->yhtzzl_qry->SQL->Clear();
         Datam->yhtzzl_qry->SQL->Add("delete from tb_tzzl_user where id='"+Record+"'");
         Datam->yhtzzl_qry->ExecSQL();
         Datam->yhtzzl_qry->Close();
    }
     Datam->yhcad_qry->Close();
     Datam->yhcad_qry->SQL->Clear();
     Datam->yhcad_qry->SQL->Add("select * from tb_tzzl_user");
     Datam->yhcad_qry->Open();
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::BBt_ChangClick(TObject *Sender)
{
     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("user_name")->AsString;
     Memo1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
//     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;

     iButton = 2;
     ID = Edit1->Text;

     OpenDialog1->FileName = "";

     BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //制度属性值
     AnsiString ErrorMsg;      //错误消息
     AnsiString mSql;          //制度属性项

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

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

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

          if(FileName!="")
          {
              Datam->yhtzzl_qry->SQL->Clear();
              Datam->yhtzzl_qry->SQL->Add("insert into tb_tzzl_user(id,name,description,user_name,remark,file_content) values(:id,:name,:description,:user_name,:remark,:file_content)");
              Datam->yhtzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->yhtzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->yhtzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->yhtzzl_qry->ParamByName("user_name")->AsString = Edit4->Text;
              Datam->yhtzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              TParam *p = Datam->yhtzzl_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);

              Datam->yhtzzl_qry->ExecSQL();
              Datam->yhtzzl_qry->Close();
          }
          else
          {
              Datam->yhtzzl_qry->SQL->Clear();
              Datam->yhtzzl_qry->SQL->Add("insert into tb_tzzl_user(id,name,description,user_name,remark) values(:id,:name,:description,:user_name,:remark)");
              Datam->yhtzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->yhtzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->yhtzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->yhtzzl_qry->ParamByName("user_name")->AsString = Edit4->Text;
              Datam->yhtzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              Datam->yhtzzl_qry->ExecSQL();
              Datam->yhtzzl_qry->Close();
          }

//          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_tzzl_user(id,";
          TemSql = "values('"+Edit1->Text+"','";

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

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

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

          mSql = mSql+"remark)";
          TemSql = TemSql+Memo1->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_tuzzl->Active = false;
          Datam->t_tuzzl->Active = true;
          DBGrid1->Refresh();
*/
     }

     else if(iButton==2)
     {
         if(ID!=Edit1->Text)
         {
               ErrorMsg = "ID值唯一标识图纸信息，不能被更改！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
         }
         if(OpenDialog1->FileName=="")
         {
              mSql = "update tb_tzzl_user set ";
              mSql = mSql+"name='"+Edit2->Text;
              mSql = mSql+"',description='"+Edit3->Text;
              mSql = mSql+"',user_name='"+Edit4->Text;
              mSql = mSql+"',remark='"+Memo1->Text;
              mSql = mSql+"' where id='"+Edit1->Text+"'";

              q_exesql(mSql);

         }
         else
         {
               Datam->yhtzzl_qry->SQL->Clear();
               Datam->yhtzzl_qry->SQL->Add("delete from tb_tzzl_user where id='"+ID+"'");
               Datam->yhtzzl_qry->ExecSQL();
               Datam->yhtzzl_qry->Close();

              Datam->yhtzzl_qry->SQL->Clear();
              Datam->yhtzzl_qry->SQL->Add("insert into tb_tzzl_user(id,name,description,user_name,remark,file_content) values(:id,:name,:description,:user_name,:remark,:file_content)");
              Datam->yhtzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->yhtzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->yhtzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->yhtzzl_qry->ParamByName("user_name")->AsString = Edit4->Text;
              Datam->yhtzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              TParam *p = Datam->yhtzzl_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);

              Datam->yhtzzl_qry->ExecSQL();
              Datam->yhtzzl_qry->Close();
         }
     }
     Edit1->Text = "";
     Edit2->Text = "";
     Edit3->Text = "";
     Edit4->Text = "";
     Memo1->Text = "";
     FileName = "";
     
     Datam->yhcad_qry->Close();
     Datam->yhcad_qry->SQL->Clear();
     Datam->yhcad_qry->SQL->Add("select * from tb_tzzl_user");
     Datam->yhcad_qry->Open();
        
}
//---------------------------------------------------------------------------
void __fastcall Tyhtzzl::BBt_CaleanClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Memo1->Text = "";        
}