计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

布匹出口单管理系统[开题报告+论文+源代码+(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('系统
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

上一篇:delphi+sql办公自动化系统(+开题报告源程序+ 下一篇:没有了