论文首页哲学论文经济论文法学论文教育论文文学论文历史论文理学论文工学论文医学论文管理论文艺术论文 |
procedure TInputForm.CpmcComboBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F3 then
begin
try
with MDataForm.FreeFind_ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('select 品种名称 from BreedName where 品种名称 like :pm');
Parameters.ParamByName('pm').Value := '%'+CpmcComboBox.Text+'%';
Open;
CpmcComboBox.Items.Clear;
while not Eof do
begin
CpmcComboBox.Items.Add(FieldByName('品种名称').AsString);
Next;
(科教作文网http://zw.ΝsΕAc.Com编辑整理)
procedure TInputForm.CpmcComboBoxExit(Sender: TObject);
begin
try //读取品种资料
with MDataForm.FreeFind_ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from BreedName where 品种名称 = :pm');
Parameters.ParamByName('pm').Value := CpmcComboBox.Text;
Open;
WidthEdit.Text := FieldByName('幅宽').AsString;
MzEdit.Text := FieldByName('码重').AsString;
KcEdit.Text := FieldByName('扣除').AsString;
CfnrEdit.Text := FieldByName('成份').AsString;
KhpmEdit.Text := CpmcComboBox.Text;
Close;
end;
except
MainForm.PshowMessage('系统错误','读取你所选择的品种名称资料时失败!',0);
&nbs