📄 clocklb.pas
字号:
unit clocklb;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, ADODB, ExtCtrls, DBCtrls, StdCtrls, Wwdbigrd,
Wwdbgrid, Mask, wwdbedit, Wwdotdot, Wwdbcomb, Buttons;
type
TFormclocklb = class(TForm)
ADOQuery1: TADOQuery;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Label1: TLabel;
ADOQuery1clockno: TStringField;
ADOQuery1clockname: TStringField;
ADOQuery1clocklb: TStringField;
wwDBGrid1: TwwDBGrid;
wwDBComboBox1: TwwDBComboBox;
wwDBGrid1IButton: TwwIButton;
procedure ADOQuery1BeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formclocklb: TFormclocklb;
implementation
uses datamol;
{$R *.DFM}
procedure TFormclocklb.ADOQuery1BeforePost(DataSet: TDataSet);
begin
if not ((ADOQuery1.FieldByName('clocklb').value = 0) or (ADOQuery1.FieldByName('clocklb').value = 1) or (ADOQuery1.FieldByName('clocklb').value = 2)) then
begin
ADOQuery1.FieldByName('clocklb').value := 1;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -