各位前辈，我是一位Delphi的菜鸟，现有一个小小的问题请教。

Question

(case
    when a.lwzt = 0 then ''整订'''
    when a.lwzt = 1 then ''破订'''）

Answer 1

(case
    when a.lwzt = 0 then ''整订'''
    when a.lwzt = 1 then ''破订'''
end） 

Answer 2

在DBComBoBox的Change中写:
  if DBConBoBox.text='整订' then
    begin
     ADOQuery['lx']:='0';
    end
  else if DBComBoBox.text='' then
     begin
        ADOQuery['lx']:='1'
     end;
   

Answer 3

procedure TForm1.Table1idSetText(Sender: TField; const Text: String);
begin
  Sender.AsInteger := DBComboBox1.Items.IndexOf(Text);
end;procedure TForm1.Table1idGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
const
  cList: array[0..1] of string = ('整订', '破订');
begin
  Text := cList[Sender.AsInteger];
  DisplayText := True;
end;procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('id').OnGetText := Table1idGetText;
  DataSet.FieldByName('id').OnSetText := Table1idSetText;
end;

Answer 4

我是geici,谢谢各位前辈指教！