將包含DataSet
的單位添加到具有ListBox
的單位的implementation
使用條款。如果您TDataSet
是DataSet1
在一個名爲MyDataMod.pas
dmMyData
TDataModule
,你會做這樣的事情(見下文我注意):
unit Main;
interface
uses Forms, ....
type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
protected
procedure Button1Click(Sender: TObject);
private
...
public
...
end;
implementation
uses
MyDataMod; // Use the actual unit name, of course
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ListBox1.ItemIndex <> -1) then
if (ListBox2.ItemIndex <> -1) then
begin
// Access the dataset however you need here
dmMyData.DataSet1.Insert;
end;
end;
注意更好的方法,當然是分開來自UI的數據,並創建一個將僱員和經理信息作爲參數並處理那些信息的所有處理的過程。然而,這是一個完全不同於你在這裏問的問題。
您能否舉一個例子來處理員工和經理的參數?我想現在我的問題不在不同的單位,而是在我制定的程序中。 我無法從列表框中獲取名稱,將該名稱關聯到ID,並將此ID導出到DataSet。 – fmmatheus 2013-04-05 18:18:36