各位前辈,我是一位Delphi的菜鸟,现有一个小小的问题请教。 (case when a.lwzt = 0 then ''整订''' when a.lwzt = 1 then ''破订''') 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 (case when a.lwzt = 0 then ''整订''' when a.lwzt = 1 then ''破订'''end) 在DBComBoBox的Change中写: if DBConBoBox.text='整订' then begin ADOQuery['lx']:='0'; end else if DBComBoBox.text='' then begin ADOQuery['lx']:='1' end; 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; 我是geici,谢谢各位前辈指教! 讨论DELPHI C/S客户端的开发架构 小问题:怎样判断一个字符是否是空格? 如何实现如下的功能呢?使用消息方式。 在Applyupdates的时候出现Invalid Paramers错误? 文件指针移动 在treeview中使用右健菜单事件,高分请教, 在DELPHI里怎样求出硬盘的序列号? 解决这问题50元另外再加200分, 气晕了 请问sql server中有没有自动增加的数据类型? 绘制基准谱是怎么做的呢,用什么控件比较好呢啊?请各位高手指点一下, 请问哪里有ADOExpress的下载?????????????????????????? 怎样判断一个文本文件中的数据。
when a.lwzt = 0 then ''整订'''
when a.lwzt = 1 then ''破订'''
end)
if DBConBoBox.text='整订' then
begin
ADOQuery['lx']:='0';
end
else if DBComBoBox.text='' then
begin
ADOQuery['lx']:='1'
end;
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;