QL.Clear;
SQL.Add('select * from ClientName');
Open;
while not Eof do
begin
ClientNameComboBox.Items.Add(FieldByName('客户名称').AsString);
Next;
end;
Close;
end;
except
MainForm.PshowMessage('系统错误','提取客户名称列表时失败！',0);
MDataForm.FreeFind_ADOQuery.Close;
end;
end;
end;
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;
end;
Close;
end;
except
MainForm.PshowMessage('系统错误','提取品种名称资料失败！',0);
end;
end;
end;
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
