代码如下: iCKID:=strtoint(BasicInfo_storage_List.selectedID); sql:=' select Storage_Code,Storage_Name,Storage_FZR,fzr,Storage_FZRTel,Storage_Address,Storage_BranchID,Storage_Remarks,fzjg,Storage_SaleBill,Storage_UnifyCost from [dbo].[QC_GetStorageMod] (:p1) '; // try ClientModule1.ClientDataSet1.Close; ClientModule1.ClientDataSet1.CommandText:=sql; ClientModule1.ClientDataSet1.ParamByName('p1').AsInteger:=iCKID; ClientModule1.ClientDataSet1.Open; showmessage(ClientModule1.ClientDataSet1.FieldByName('fzr').AsString); if ClientModule1.ClientDataSet1.RecordCount>0 then begin Edit1.Text:=ClientModule1.ClientDataSet1.FieldByName('Storage_Code').AsString; Edit2.Text:=ClientModule1.ClientDataSet1.FieldByName('Storage_Name').AsString; Edit3.Text:=ClientModule1.ClientDataSet1.FieldByName('fzr').AsString; Edit4.Text:=ClientModule1.ClientDataSet1.FieldByName('Storage_FZRTel').AsString; Edit5.Text:=ClientModule1.ClientDataSet1.FieldByName('Storage_Address').AsString; Edit6.Text:=ClientModule1.ClientDataSet1.FieldByName('fzjg').AsString; Edit7.Text:=ClientModule1.ClientDataSet1.FieldByName('Storage_Remarks').AsString; if ClientModule1.ClientDataSet1.FieldByName('Storage_SaleBill').AsString='1' then begin CheckBox1.Checked:=True; end else CheckBox1.Checked:=False;
if ClientModule1.ClientDataSet1.FieldByName('Storage_UnifyCost').AsString='1' then begin CheckBox2.Checked:=True; end else CheckBox2.Checked:=False;
end;
except On E:Exception do Application.MessageBox(PChar(E.Message), '错误', 16);//抛出异常信息
if ClientModule1.ClientDataSet1.RecordCount>0 then begin s1:=ClientModule1.ClientDataSet1.FieldByName('Storage_Code').AsString; s2:=ClientModule1.ClientDataSet1.FieldByName('Storage_Name').AsString; s3:= ClientModule1.ClientDataSet1.FieldByName('fzr').AsString; s4:=ClientModule1.ClientDataSet1.FieldByName('Storage_FZRTel').AsString; s5:=ClientModule1.ClientDataSet1.FieldByName('Storage_Address').AsString; s6:=ClientModule1.ClientDataSet1.FieldByName('fzjg').AsString; s7:=ClientModule1.ClientDataSet1.FieldByName('Storage_Remarks').AsString; s8:=ClientModule1.ClientDataSet1.FieldByName('Storage_SaleBill').AsString; s9:=ClientModule1.ClientDataSet1.FieldByName('Storage_UnifyCost').AsString;