大家好,我刚刚学delphi,好多简单的东西都不会!!请大家多多指教!!
我的数据库表结构为:
Vendor表,字段为:vendor_ID,vendor_name……buyer_ID……
buyer表,字段为:Buyer_ID,Buyer_name……
我现在希望可以通过用combobox下拉选择Buyer_name,而将相对应的Buyer_ID写入到vendor表的buyer_ID字段里!!
请问怎样可以实现这功能呢?
谢谢大家,五一节快乐!!
我的数据库表结构为:
Vendor表,字段为:vendor_ID,vendor_name……buyer_ID……
buyer表,字段为:Buyer_ID,Buyer_name……
我现在希望可以通过用combobox下拉选择Buyer_name,而将相对应的Buyer_ID写入到vendor表的buyer_ID字段里!!
请问怎样可以实现这功能呢?
谢谢大家,五一节快乐!!
procedure TForm1.FormShow(Sender: TObject);
begin
with DM.Qry_Buyer do begin
SQL.Add('Select Buyer_ID,Buyer_name From Buyer')
Prepare ;
Open;
while not EOF do begin
ComboBox1.Items.Add(FieldByName('Buyer_name').AsString, TObject(PChar(FieldByName('Buyer_ID').AsString)) );
next;
end;
end;
end;②用combobox下拉选择Buyer_name,而将相对应的Buyer_ID。
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := PChar(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
end;
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(41): Illegal character in input file: ' ' ($A1A1)
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'