教师薪酬管理系统（delphi7）

设定此窗体的BorderIcons属性，将系统菜单、最大化最小化等按钮都取消，设定borderStyle属性为bsNone，即没有边框，这样运行后外观看来就是一幅图片。 1. DBGrid使用小技巧： 直接在DBGrid中录入数据时，录入完一个字段后需要用TAB键转入下一个字段，而我们通常的输入习惯是输入完毕按回车键，下面这段代码可实现用回车键代替TAB键，例子代码如下：首先把Form1的KeyPreview属性设为True，编写窗体的KeyPress事件代码， procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then if not (ActiveControl is TDbgrid) Then //不是DBGrid组件 Begin key:=#0; perform(WM_NEXTDLGCTL,0,0); end else if (ActiveControl is TDbgrid) Then //是Dbgrid组件 begin With TDbgrid(ActiveControl) Do if Selectedindex<(FieldCount-1) then Selectedindex:=Selectedindex+1 else Selectedindex:=0; end; 2.SQL中日期型字段的查询技巧： 在SQL中查询时，对于日期型字段有特殊的表示方法，否则查询中会出现错误。比如下面的语句： select * from DEMO where PPDate = 25/07/1999 上面这个查询语句在执行时就会出现错误，因为PPDate = 25/07/1999这个表达式不正确。正确的写法是： select * from DEMO where PPDate = #25/07/1999#, 如果在查询语句中使用日期型变量，比如： select * from DEMO where PPDate = :MyDate 3. 移动到最后一条记录时再按一下“下”就会追加一条记录，如果去掉这项功能 procedure TForm1.DataSource1Change(Sender: TObject; Field: TField); begin if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel; end; 这个可以屏蔽 掉原来的使用向下箭头或者利用tab键可以增加纪录的功能。 可是不能改为利用回车键来代替，而且在最后一行的最后一列时起作用。 在ColoredDBGrid1的onDRawColoredDBGrid事件中输入下列代码，设定由Wage（工资）来决 定在ColoredDBGrid1各行的颜色。 procedure TForm1.ColoredDBGrid1 DRawColoredDBGrid (Sender: TObject; Field: TField; var Color: TColor; var Font: TFont); Var p : Integer; begin p := Table1.FindField('wage').AsInteger; //取得当前记录的Wage字段的值。 if (p < 500) then begin //程序将根据wage值设置各行的颜色。 Color := clGreen; Font.Style := [fsItalic]; //不仅可以改变颜色,还可以改变字体 end; if(p >= 500) And (p < 800) then Color := clRed; if(p >=800) then begin Color := clMaroon; Font.Style := [fsBold]; end; end; DBGrid 的 OnColEnter 事件里写代码。下面的代码，DBGrid的第1列（从0算起）不可编辑的。 void __fastcall TForm1::DBGrid1ColEnter(TObject *Sender) { TDBGridOptions Options; Options = DBGrid1->Options; if (DBGrid1->SelectedIndex == 1) //第一列不可编辑 Options >> dgEditing; else //除了第一列，其它列可以编辑 Options << dgEditing; if (DBGrid1->Options != Options) DBGrid1->Options = Options; } Table1->FieldByName("sdsd")->ReadOnly=true; var gSum: Double; begin with DataSet do try //清空AfterPost事件，避免出现AfterPost无限递规 AfterPost := nil; //开始计算 gSum := FieldByName('yw').AsFloat + FieldByName('SX').AsFloat; //比较总分是否变化，变了就保存 if Abs(gSum - FieldByName('yw').AsFloat) < 0.0001 then begin Edit; FieldByName('yw').AsFloat := gSum; Post; end; finally AfterPost := ADOQuery1AfterPost end;