胡杨的知识库

if Application.MessageBox(PChar(确实要注销 ‘+trim(DM.ADOQuery_ClassBalance.FieldByName(CLASSNO).Value)+’ 吗？),      提示信息, MB_IconInformation + MB_YesNo) = IDNO then    exit;MessageBox(handle,账户有余额，

procedure TFrmTestbookStock.Edit10KeyPress(Sender: TObject; var Key: Char);begin  if not ( Key in [0..9,#8]) then  begin    Key := #0;    exit;  end ;end;procedure TFrmTestbookStock.Edit10KeyDown(

  sqlstr:=select weekNO,weekDayNO,classNO  from  CAClassroomTimeLimit  +    where ClassroomID = +l_Classroom+ ;  DM.Qry_select.Close;  DM.Qry_select.SQL.Clear ;  DM.Qry_select.SQL.Add(sqlst

扩展名 文件类型 说 明 .BPR 项目组文件 文本文件，列出了工程项目组各个工程项目。文件由集成开发环境自动维护。.DPR 工程文件 文本文件，列出了工程项目使用的单元文件、窗体文件以及应用程序初始化程序代码。文件有集成开发环境自动维护。 .DFM 窗体文件 二进制文件，对窗体和窗体内的构件对象的特征进行描述的文档。当窗体和窗体内构件的属性值改变时，对象编辑器自动更新该文件。 .PAS 单元文件

procedure TFrmCancelIn.DateTimePicker1CloseUp(Sender: TObject);begin    if DateTimePicker1.Date > DateTimePicker2.Date then    DateTimePicker1.Date := DateTimePicker2.Date;end;