?
新加一个字段,不要与query/table相连,写入就可以了
新加一个字段,不要与query/table相连,写入就可以了
解决方案 »
- 各位好,初学delphi诚恳请教。openProcessToken如何获得其他进程的token。非常感谢
- 运行报错
- 学习的困惑!
- 是系统结构问题吗?
- 界面问题!
- FastReport 在DELPHI5.0 装起来了但出现:Line too long [more than 1023 charachers]错误
- tdxTreeList v4.0 for D7的哪里下载...
- 那里有JBulider6帮助的下载网址
- 多层高手请指教,如果分不够还可以加
- 为什么我在Delphi中用Pascal下的read,write会提示错误?而在VC中用C下的scanf,printf输入,输出语句VC就会弹出DOS窗口???
- 一个关于listbox的问题!
- 很简单的问题!!!DBCtrlGrid问题?
interface
uses
Windows,Messages,SysUtils,Classes,
Graphics,Controls,Forms,Dialogs,
Db,Menus,DBTables,Grids,DBGrids;
type
TForm1=class(TForm)
DBGrid1:TDBGrid;
DataSource1:TDataSource;
Table1:TTable;
PopupMenu1:TPopupMenu;
N1:TMenuItem;
N2:TMenuItem;
N3:TMenuItem;
Table1XH:TStringField;
Table1XM:TStringField;
Table1XB:TStringField;
N4:TMenuItem;
procedureDBGrid1KeyDown
(Sender:TObject;varKey:Word;
Shift:TShiftState);
procedureN1Click(Sender:TObject);
procedureN2Click(Sender:TObject);
procedureN3Click(Sender:TObject);
procedureN4Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
procedureTForm1.DBGrid1KeyDown
(Sender:TObject;varKey:Word;
Shift:TShiftState);
var
LastEditCol:integer;
begin
LastEditCol:=DbGrid1.SelectedIndex;
ifLastEditCol< >2thenexit;//让浮动式菜单只对第二列起作用
if(Key=VK_RETURN)//VK_***是您的热键的虚键值
then
PopupMenu1.Popup(336,222);//336,222浮动式菜单显示的位置
end;procedureTForm1.N1Click(Sender:TObject);
begin
table1.Edit;
table1.FieldValues['XB']:='物理系';
table1.post;end;procedureTForm1.N2Click(Sender:TObject);
begin
table1.Edit;
table1.FieldValues['XB']:='数学系';
table1.post;
end;procedureTForm1.N3Click(Sender:TObject);
begin
table1.Edit;
table1.FieldValues['XB']:='计算机系';
table1.post;
end;procedureTForm1.N4Click(Sender:TObject);
begin
table1.Edit;
table1.FieldValues['XB']:='中文系';
table1.post;
end;
end.
这些东西也可以在运行期动态生成,无非是用TSRINGS的那些方法了。
2.Columns.Items[n].Picklist;
3.使用DBGridEh等控件。