评论

#PASSWORD 发表于2004-07-27 10:51:00  IP: 61.186.111.*

做了几个项目后发现customer其实关心的并不是你采用了什么什么new technology 他们关心的只是能否
实现他们的要求.在C/S结构中,前台的customer关心的是录入是否人性化,是否复合他们的habit!这是
使用者最最关心的,在Database system 中人性化的设计应该符合WINDOWS的录入习惯,毕竟大家平时都在用
这样设计系统可以少很多系统的后期培训费用和时间,也可以让customer在最习惯的情况下录入和删除数据
而这些人性化的设计我总结了以下几点:
1:键盘事件(快捷键的设计,Tab,Enter......)
2:鼠标事件(双击,右键)
而这两点中尤其对Tab,Enter的代码编写最为重要,其余的DELPHI中进行相应的设置即可.
下面就以DBGrid(StringGrid)举例explain:
相应的ADOConnection,ADOTable(ADOQuer),DataSource,DBGrid(StringGrid)的代码就不用再说了:)

/////////////DBGrid(Tab和Enter的应用)
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl
else
begin
ADOTable1.next;
DBGrid1.Columns[0].field.FocusControl;
end;

end;


/////////////StingGrid(数据添加)


procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin

i:=1;
stringgrid1.Colcount:=adotable1.FieldCount+1;
StringGrid1.RowCount:=adotable1.RecordCount+1;
stringgrid1.cells[1,0]:='english'; //caption
stringgrid1.Cells[2,0]:='chinese'; //caption
adotable1.open;
while not adotable1.eof do
begin
stringgrid1.cells[1,i]:=adotable1.fields[0].asstring;
stringgrid1.cells[2,i]:=adotable1.fields[1].asstring;
i:=i+1;
adotable1.next;
end;
// adotable1.close;
end;