1,178
社区成员
发帖
与我相关
我的任务
分享
FormLogin->Query1->Close();
FormLogin->Query1->SQL->Clear();
FormLogin->Query1->SQL->Add("insert into 进货单");
FormLogin->Query1->SQL->Add("VALUES(:t1,:t2,:t3,:t4,:t5,:t6,:t7,:t8,:t9,:t10,:t11)");
FormLogin->Query1->ParamByName("t1")->Value=StrToInt(s111);
FormLogin->Query1->ParamByName("t2")->Value=StrToInt(LabeledEdit7->Text);
FormLogin->Query1->ParamByName("t3")->Value=StrToInt(LabeledEdit5->Text);
FormLogin->Query1->ParamByName("t4")->Value=StrToDateTime(LabeledEdit6->Text);
FormLogin->Query1->ParamByName("t5")->Value=LabeledEdit1->Text;
FormLogin->Query1->ParamByName("t6")->Value=LabeledEdit2->Text;
FormLogin->Query1->ParamByName("t7")->Value=LabeledEdit3->Text;
FormLogin->Query1->ParamByName("t8")->Value=LabeledEdit4->Text;
FormLogin->Query1->ParamByName("t9")->Value=StrToCurr(LabeledEdit22->Text);
FormLogin->Query1->ParamByName("t10")->Value=StrToInt(LabeledEdit23->Text);
FormLogin->Query1->ParamByName("t11")->Value=StrToCurr(LabeledEdit22->Text);
FormLogin->Query1->ExecSQL();
FormLogin->Query1->ParamByName("t4")->Value = LabeledEdit6->Text;
FormLogin->Query1->ParamByName("t9")->Value = LabeledEdit22->Text.ToDouble();
FormLogin->Query1->ParamByName("t10")->Value = LabeledEdit23->Text.ToInt();
FormLogin->Query1->ParamByName("t11")->Value = LabeledEdit22->Text.ToDouble();