SMT-ACESS.rar_smt

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::Button2Click(TObject *Sender) { AnsiString msql="select * from SMT网板登记表 where 1=1"; if(strcmp(Edit1->Text.c_str(),"")!=0) { msql+=" and PCB板号='"+Edit1->Text+"'"; } if(strcmp(Edit2->Text.c_str(),"")!=0) { msql+=" and 开网板日期='"+Edit2->Text+"'"; } if(strcmp(Edit3->Text.c_str(),"")!=0) { msql+=" and 预计需求日='"+Edit3->Text+"'"; } if(strcmp(Edit4->Text.c_str(),"")!=0) { msql+=" and 需求者='"+Edit4->Text+"'"; } if(strcmp(Edit5->Text.c_str(),"")!=0) { msql+=" and 可报废网板='"+Edit5->Text+"'"; } if(strcmp(Edit6->Text.c_str(),"")!=0) { msql+=" and 特殊要求='"+Edit6->Text+"'"; } ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->Active=false; ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(msql); ADOQuery1->Active=true; } //--------------------------------------------------------------------------- void __fastcall TForm2::Button1Click(TObject *Sender) { if(Edit1->Text=="") { ShowMessage("未填写PCB板号"); return; } if(Edit2->Text=="") { ShowMessage("未填写开网板日期"); return; } if(Edit3->Text=="") { ShowMessage("未填写预计需求日"); return; } if(Edit4->Text=="") { ShowMessage("未填写需求者"); return; } if(Edit5->Text=="") { ShowMessage("未填写可报废网板"); return; } if(Edit6->Text=="") { ShowMessage("未填写特殊要求"); return; } AnsiString s1="insert into SMT网板登记表 (PCB板号,开网板日期,预计需求日,需求者,可报废网板,特殊要求) values(:data1,:data2,:data3,:data4,:data5,:data6)"; //AnsiString s1="insert into SMT网板登记表 (PCB板号,开网板日期,预计需求日,可报废网板,特殊要求) values(:data1,:data2,:data3,:data4,:data5)"; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(s1); ADOQuery1->Parameters->ParamByName("data1")->Value =Edit1->Text; ADOQuery1->Parameters->ParamByName("data2")->Value =Edit2->Text; ADOQuery1->Parameters->ParamByName("data3")->Value =Edit3->Text; ADOQuery1->Parameters->ParamByName("data4")->Value =Edit4->Text; ADOQuery1->Parameters->ParamByName("data5")->Value =Edit5->Text; ADOQuery1->Parameters->ParamByName("data6")->Value =Edit6->Text; ADOQuery1->ExecSQL(); Button2Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm2::FormCreate(TObject *Sender) { AnsiString DataBase1; DataBase1=ExtractFilePath(Application->ExeName)+"SMT网板登记表.mdb"; ADOQuery1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Data Source="+DataBase1+";Persist Security Info=False;Jet OLEDB:Database Password=123456"; } //---------------------------------------------------------------------------