做了幾個項目后發現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;

////////雙擊改變顯示大小
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
p : TPoint;
r : TRect;
ACol, ARow : Integer;
begin
if GetCursor = Screen.Cursors[crHSplit] then
begin
GetCursorPos(p);
p := StringGrid1.ScreenToClient(p);
StringGrid1.MouseToCell(p.X, p.Y, ACol, ARow);
r := StringGrid1.CellRect(ACol, ARow);
if p.X - r.Left < 10 then
ACol := ACol - 1;
if ACol = -1 then
ACol := StringGrid1.ColCount - 1;
StringGrid1.ColWidths[ACol] := 100;
end;
end;

/////////////另付雙擊ADD
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
DataModule3.DataSource2.DataSet.Insert;
DataModule3.ADOTable2.Fields[0] := DataModule3.ADOTable1.Fields[0];
DataModule3.ADOTable2.Fields[1] := DataModule3.ADOTable1.Fields[1] ;
form1.Close;
end;

||||||||||||||||||||||||||
|作者:VIIVD |
|E-MAIL:bao-er@163.com |
|日期:2004.6.22 |
||||||||||||||||||||||||||