评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

布匹出口单管理系统[开题报告＋论文＋源代码＋(5)

2013-06-09 01:10 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;

（科教作文网http://zw.ΝsΕAc.Com编辑整理）

        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