📄 personform.~cpp
字号:
AnsiString dep;
TBlobField *Tu;
int Number,i;
if(iButton==1)
{
if(Edit1->Text=="" ||Edit2->Text==""||ComboBox4->Text==""||Edit3->Text=="")
{
ErrorMsg = "人员ID、姓名、所属局所不能为空！请重新输入。";
MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
return;
}
/*
dep = ComboBox1->Text;
mSql="select * from tb_department where department_name='"+dep+"'";
Datam->department_qry->Close();
Datam->department_qry->SQL->Clear();
Datam->department_qry->SQL->Add(mSql);
Datam->department_qry->Prepare();
Datam->department_qry->Open();
i = Datam->department_qry->RecordCount;
Datam->department_qry->Close();
if(i<1)
{
ErrorMsg = "你输入的部门不存在，请重新输入！";
MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
return;
}
*/
if(ComboBox4->Text=="----请选择----")
{
ErrorMsg = "请正确设置人员所属局所！";
MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
return;
}
if(ComboBox2->Text=="女") SexStr = "1";
else if(ComboBox2->Text=="男") SexStr = "2";
else
{
ShowMessage("性别输入错误，请重新输入");
return;
}
mSql="select employee_id from tb_employee where employee_id='" + Edit1->Text+"'";
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add(mSql);
Datam->Employee_qry->Prepare();
Datam->Employee_qry->Open();
int m_count=Datam->Employee_qry->RecordCount;
Datam->Employee_qry->Close();
// int m_count = -1;
if(m_count>0)
{
ErrorMsg = "已存该ID“"+ Edit1->Text+"”,请重新输入！";
MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
return;
}
if(ComboBox4->Text=="谐波领导小组") De_id = "1000";
else if(ComboBox4->Text=="谐波技术监督办公室") De_id = "1001";
else if(ComboBox4->Text=="潭高所") De_id = "1002";
else if(ComboBox4->Text=="潭高所-继电班") De_id = "1003";
else if(ComboBox4->Text=="湘高所") De_id = "1004";
else if(ComboBox4->Text=="湘高所-继电班") De_id = "1005";
else if(ComboBox4->Text=="县局") De_id = "1006";
else if(ComboBox4->Text=="县局-变检班") De_id = "1007";
else if(ComboBox4->Text=="湘乡局") De_id = "1008";
else if(ComboBox4->Text=="湘乡局-变检班") De_id = "1009";
else if(ComboBox4->Text=="韶山局") De_id = "1010";
else if(ComboBox4->Text=="韶山局-变检班") De_id = "1011";
else if(ComboBox4->Text=="计量所") De_id = "1012";
else if(ComboBox4->Text=="计量所-仪表班") De_id = "1013";
if(FileName!="")
{
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee(employee_id,name,sex,duty,birth,education,join_date,department_id,photo) values(:employee_id,:name,:sex,:duty,:birth,:education,:join_date,:department_id,:photo)");
Datam->Employee_qry->ParamByName("employee_id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("name")->AsString = Edit2->Text;
Datam->Employee_qry->ParamByName("sex")->AsString = ComboBox2->Text;
Datam->Employee_qry->ParamByName("duty")->AsString = Edit3->Text;
Datam->Employee_qry->ParamByName("birth")->AsDateTime = DateTimePicker1->Date;
Datam->Employee_qry->ParamByName("education")->AsString = ComboBox1->Text;
Datam->Employee_qry->ParamByName("join_date")->AsDateTime = DateTimePicker2->Date;
Datam->Employee_qry->ParamByName("department_id")->AsString = ComboBox4->Text;
TParam *p = Datam->Employee_qry->ParamByName("photo");
p->LoadFromFile(OpenDialog1->FileName,ftBlob);
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
}
else
{
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee(employee_id,name,sex,duty,birth,education,join_date,department_id) values(:employee_id,:name,:sex,:duty,:birth,:education,:join_date,:department_id)");
Datam->Employee_qry->ParamByName("employee_id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("name")->AsString = Edit2->Text;
Datam->Employee_qry->ParamByName("sex")->AsString = ComboBox2->Text;
Datam->Employee_qry->ParamByName("duty")->AsString = Edit3->Text;
Datam->Employee_qry->ParamByName("birth")->AsDateTime = DateTimePicker1->Date;
Datam->Employee_qry->ParamByName("education")->AsString = ComboBox1->Text;
Datam->Employee_qry->ParamByName("join_date")->AsDateTime = DateTimePicker2->Date;
Datam->Employee_qry->ParamByName("department_id")->AsString = ComboBox4->Text;
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
}
/*
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee3(employee_id,photo) values(:employee_id,:photo)");
Datam->Employee_qry->ParamByName("employee_id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("photo")->LoadFromStream(ph,ftBlob); //讀取保存的內存圖
Datam->Employee_qry->ExecSQL();
*/
/*
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee(id,name,sex,duty,brith,education,join_date,department_id,ph) values(:id,:name,:sex,:duty,:brith,:education,:join_date,:department_id,:ph)");
Datam->Employee_qry->ParamByName("id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("name")->AsString =Edit2->Text;
Datam->Employee_qry->ParamByName("sex")->AsString = ComboBox2->Text;
Datam->Employee_qry->ParamByName("duty")->AsString = Edit3->Text;
Datam->Employee_qry->ParamByName("brith")->AsDateTime = DateTimePicker1->Date;
Datam->Employee_qry->ParamByName("education")->AsString = ComboBox1->Text;
Datam->Employee_qry->ParamByName("join_date")->AsDateTime = DateTimePicker2->Date;
Datam->Employee_qry->ParamByName("department_id")->AsString = ComboBox4->Text;
Datam->Employee_qry->ParamByName("ph")->LoadFromStream(ph,ftBlob);
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
*/
/*
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee2(photo) values(:photo)");
TParam * p= Datam->Employee_qry->ParamByName("photo");
p->DataType = ftOraBlob;
p->LoadFromFile("c:\\a.bmp", ftOraBlob);
Datam->Employee_qry->ExecSQL();
*/
}
else if(iButton==2)
{
DateStr = DateTimePicker1->Date;
JoinDate = DateTimePicker2->Date;
if(ComboBox2->Text=="女") SexStr = "1";
else if(ComboBox2->Text=="男") SexStr = "2";
else
{
ShowMessage("性别输入错误，请重新输入");
return;
}
if(ID!=Edit1->Text)
{
ErrorMsg = "ID值唯一标识用户设备电抗器台帐信息，不能被更改！";
MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
return;
}
else
{
if(OpenDialog1->FileName!="")
{
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("delete from tb_employee where employee_id='"+ID+"'");
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("insert into tb_employee(employee_id,name,sex,duty,birth,education,join_date,department_id,photo) values(:employee_id,:name,:sex,:duty,:birth,:education,:join_date,:department_id,:photo)");
Datam->Employee_qry->ParamByName("employee_id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("name")->AsString = Edit2->Text;
Datam->Employee_qry->ParamByName("sex")->AsString = ComboBox2->Text;
Datam->Employee_qry->ParamByName("duty")->AsString = Edit3->Text;
Datam->Employee_qry->ParamByName("birth")->AsDateTime = DateTimePicker1->Date;
Datam->Employee_qry->ParamByName("education")->AsString = ComboBox1->Text;
Datam->Employee_qry->ParamByName("join_date")->AsDateTime = DateTimePicker2->Date;
Datam->Employee_qry->ParamByName("department_id")->AsString = ComboBox4->Text;
TParam *p = Datam->Employee_qry->ParamByName("photo");
p->LoadFromFile(OpenDialog1->FileName,ftBlob);
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
}
else
{
mSql = "update tb_employee set ";
mSql = mSql+"name='"+Edit2->Text;
mSql = mSql+"',sex='"+ComboBox2->Text;
mSql = mSql+"',duty='"+Edit3->Text;
mSql = mSql+"',education='"+ComboBox1->Text;
mSql = mSql+"',birth=to_date('"+DateToStr(DateTimePicker1->Date)+"','YYYY-MM-DD')";
mSql = mSql+",join_date=to_date('"+DateToStr(DateTimePicker2->Date)+"','YYYY-MM-DD')";
mSql = mSql+",department_id='"+ComboBox4->Text;
mSql = mSql+"' where employee_id='"+Edit1->Text+"'";
q_exesql(mSql);
}
/*
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("update tb_employee set ");
Datam->Employee_qry->ParamByName("employee_id")->AsString = Edit1->Text;
Datam->Employee_qry->ParamByName("name")->AsString = Edit2->Text;
Datam->Employee_qry->ParamByName("sex")->AsString = SexStr;
Datam->Employee_qry->ParamByName("duty")->AsString = Edit3->Text;
Datam->Employee_qry->ParamByName("birth")->AsDateTime = DateTimePicker1->Date;
Datam->Employee_qry->ParamByName("education")->AsString = ComboBox1->Text;
Datam->Employee_qry->ParamByName("join_date")->AsDateTime = DateTimePicker2->Date;
Datam->Employee_qry->ParamByName("department_id")->AsString = ComboBox4->Text;
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
*/
}
}
/*
Edit1->Text = "";
Edit2->Text = "";
ComboBox2->Text = "";
Edit3->Text = "";
DateTimePicker1->Date = StrToDate("1900-01-01");
ComboBox1->Text = "";
ComboBox4->Text = "";
DateTimePicker2->Date = StrToDate("2000-01-01");
*/
Datam->pople_qry->Close();
Datam->pople_qry->SQL->Clear();
Datam->pople_qry->SQL->Add("select * from tb_employee");
Datam->pople_qry->Open();
FileName = "";
}
//---------------------------------------------------------------------------
void __fastcall TPersonFrm::BBt_CaleanClick(TObject *Sender)
{
Edit1->Text = "";
Edit2->Text = "";
ComboBox2->Text = "";
Edit3->Text = "";
DateTimePicker1->Date = StrToDate("1900-01-01");
ComboBox1->Text = "";
ComboBox4->Text = "";
DateTimePicker2->Date = StrToDate("2000-01-01");
}
//---------------------------------------------------------------------------
void __fastcall TPersonFrm::BBt_RefClick(TObject *Sender)
{
GroupBox4->Caption = "所有人员信息";
Datam->pople_qry->Close();
Datam->pople_qry->SQL->Clear();
Datam->pople_qry->SQL->Add("select * from tb_employee");
Datam->pople_qry->Open();
DBGrid1->Refresh();
int row;
String Sex;
row = DBGrid1->SelectedIndex;
Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
/*
Datam->Employee_qry->Close();
Datam->Employee_qry->SQL->Clear();
Datam->Employee_qry->SQL->Add("select * from tb_employee where id='"+Edit1->Text+"'");
TGraphicField * p = (TGraphicField*)Datam->Employee_qry->FieldByName("ph");
Image1->Picture->Assign(p );
Datam->Employee_qry->ExecSQL();
Datam->Employee_qry->Close();
/**/
while(!Datam->pople_qry->Eof)
{
try
{
//((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
{
// TGraphicField * p = (TGraphicField*)Datam->pople_qry->FieldByName("photo");
TBlobField * p = (TBlobField*)Datam->pople_qry->FieldByName("photo");
if( p->IsNull )
{
Image1->Picture = NULL; //->Bitmap->FreeImage();
}
else
Image1->Picture->Assign(p );
break;
}
}
catch(...)
{
ShowMessage("图像文件格式无效");
break;
}
Datam->pople_qry->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TPersonFrm::AddDepartmentClick(TObject *Sender)
{
try
{
Add_partment = new TAdd_partment(Application);
Add_partment->ShowModal();
}
__finally
{
delete Add_partment;
}
}
//---------------------------------------------------------------------------
void __fastcall TPersonFrm::ListBox1Click(TObject *Sender)
{
Edit1->Text = "";
Edit2->Text = "";
ComboBox2->Text = "";
Edit3->Text = "";
DateTimePicker1->Date = StrToDate("1900-01-01");
ComboBox1->Text = "";
ComboBox4->Text = "";
DateTimePicker2->Date = StrToDate("2000-01-01");
BBt_OK->Enabled = true;
Image1->Picture = NULL;
OpenDialog1->FileName = "";
String LookStr;
LookStr = ListBox1->Items->Strings[ListBox1->ItemIndex];
GroupBox4->Caption = LookStr+"人员信息";
Datam->pople_qry->Close();
Datam->pople_qry->SQL->Clear();
Datam->pople_qry->SQL->Add("select * from tb_employee where department_id='"+LookStr+"'");
Datam->pople_qry->Open();
// Datam->Table1->Filter = "department_id='"+LookStr+"'";
// Datam->Table1->Filtered = true;
int row;
String Sex;
row = DBGrid1->SelectedIndex;
Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
while(!Datam->pople_qry->Eof)
{
try
{
//((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
{
// TGraphicField * p = (TGraphicField*)Datam->pople_qry->FieldByName("photo");
TBlobField * p = (TBlobField*)Datam->pople_qry->FieldByName("photo");
if( p->IsNull )
{
Image1->Picture = NULL; //->Bitmap->FreeImage();
}
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -