A表:
性别 性别代号
男 1
女 2B表:
姓名 姓别 年龄
张三 1 12
李四 2 13现在输入界面中:edit1内容为姓名,combobox内容为性别(男,女),edit2内容为年龄.
如何在写入表B中时,将combobox中的男或女自动转换成1或者2谢谢.
性别 性别代号
男 1
女 2B表:
姓名 姓别 年龄
张三 1 12
李四 2 13现在输入界面中:edit1内容为姓名,combobox内容为性别(男,女),edit2内容为年龄.
如何在写入表B中时,将combobox中的男或女自动转换成1或者2谢谢.
解决方案 »
- 请问:如何改变网页里面的数据
- dspack中如何才能更改 preview的解析度?(我指定的影像的解析度为何只能在capture可以,)
- 说句实在话 现在是不是delphi不行了 ?
- 怎样给PANEL控件加个图片背景呀?
- 关于内存映射的问题,应该很简单,就是不知道问题出在哪里
- 请问如何制作象《程序员大本营》那样的多媒体光盘??
- Query为何删除不掉Dbase数据库中的记录?代码如下
- 急!!!请各位高手指教,不会的也请看看。
- 我有一个win2000和enternet300的问题!!!
- 如何用query组件对数据库进行插入,删除和修改?
- 菜鸟问一问题,!
- 这是一段关于曲线拟合的程序,我是初学者,看不太懂,希望哪位高人给详细解释一下,谢谢大家了!
left join A表 a on(b.性别=a.性别代号)如果你的控件是数据敏感控件就行了
values(:XM, :XB, :NL)
cdspublic.Params.ParamByName('XM').asstring:=trim(edit1.text);
if combobox.text='男' then
cdspublic.Params.ParamByName('XB').asstring:=1
else
cdspublic.Params.ParamByName('XB').asstring:=2;
cdspublic.Params.ParamByName('NL').asstring:=trim(edit2.text);
具体用法为:
1.设定DBlookupComboBox的DataSource为获取B表的table或query组件(TDataSource),DataField为性别
2.设定DBLookupComboBox的ListSource为获取A表的table或query组件(TDataSource),ListField为性别,KeyField为性别代号
按照以上两步操作即可满足你要实现的目标
insert into tttt values(1,'男');
insert into tttt values(1,'女');insert into ttt select fm,'lidddd' from tttt where fmdesc='男'select * from ttt
INSERT INTO b
SELECT Name ,CASE WHEN '男' then 1 ELSE 0 END
所以楼主可以在这样的表中加一个 自动id ,这样
一班 对应 1,
二班 对应 2,
三班 对应 3,
...
十班 对应 10
楼主在找某个班级时,如 SELECT ID FROM T WHERE NAME='五班'
INSERT INTO TEST
SELECT XXX,(SELECT ID FROM T WHERE NAME=COMBOX1.VALUE)
// 你按下边的方式处理,保存ComboBox1.ItemIndex值就可以了procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('男');
ComboBox1.Items.Add('女');
combobox1.Text := combobox1.Items.Strings[0];
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(ComboBox1.ItemIndex));
end;