DELPHI040宿舍管理系統原程序与论文.doc

DELPHI040宿舍管理系统原程序与论文 pnbsp;nbsp;nbsp; MessageBoDELPHI040宿舍管理系统原程序与论文 x(handle,值班人不能为空!,警告,MB_OKDELPHI040宿舍管理系统原程序与论文 +MB_ICONWARNING);?/P pnbsDELPHI040宿舍管理系统原程序与论文 p;nbsp;nbsp; ComboBox2.SetFocusDELPHI040宿舍管理系统原程序与论文 ;/P pnbsp;nbsp;nbsp; exitDELPHI040宿舍管理系统原程序与论文 ;/P pnbsp; end;/P pADDELPHI040宿舍管理系统原程序与论文 OQuery1.Connection :=DataModulDELPHI040宿舍管理系统原程序与论文 e2.ADOConnection1 ;/P pADOQDELPHI040宿舍管理系统原程序与论文 uery1.Close ;nbsp;nbsp;nbsp;nDELPHI040宿舍管理系统原程序与论文 bsp;nbsp;nbsp;nbsp;nbsp;nbDELPHI040宿舍管理系统原程序与论文 sp;nbsp;nbsp;nbsp;nbsp;nbspDELPHI040宿舍管理系统原程序与论文 ;nbsp;nbsp;nbsp;nbsp;nbspDELPHI040宿舍管理系统原程序与论文 ;nbsp;nbsp;nbsp; /P pADOQDELPHI040宿舍管理系统原程序与论文 uery1.SQL.Clear ;/P pADOQueryDELPHI040宿舍管理系统原程序与论文 1.SQL.Add(select * from 学生信息表 wDELPHI040宿舍管理系统原程序与论文 here 学号=+Edit1.Text +);DELPHI040宿舍管理系统原程序与论文 /P pADOQuery1.Prepared ;/DELPHI040宿舍管理系统原程序与论文 P pADOQuery1.Open ;/P pifDELPHI040宿舍管理系统原程序与论文 ADOQuery1.Eof then/P pnbsDELPHI040宿舍管理系统原程序与论文 p; begin/P pnbsp;nbsp;nbsDELPHI040宿舍管理系统原程序与论文 p; MessageBox(handle,没有这个学号的学生DELPHI040宿舍管理系统原程序与论文 !,警告,MB_OK+MB_ICONWARNING);DELPHI040宿舍管理系统原程序与论文 /P pnbsp;nbsp;nbsp; EditDELPHI040宿舍管理系统原程序与论文 1.SelectAll;/P pnbsp;nbsDELPHI040宿舍管理系统原程序与论文 p;nbsp; exit;/P pnbsp; end;DELPHI040宿舍管理系统原程序与论文 /P pif ADOQuery1.Fields.FiDELPHI040宿舍管理系统原程序与论文 eldByName(姓名).AsString lt;gtDELPHI040宿舍管理系统原程序与论文 ;trim(Edit2.Text) then/P pnbDELPHI040宿舍管理系统原程序与论文 sp; begin/P pnbsp;nbsp;nDELPHI040宿舍管理系统原程序与论文 bsp; MessageBox(handle,警告,学号与DELPHI040宿舍管理系统原程序与论文 姓名不匹配!,警告,MB_OK+MB_ICONWARNIDELPHI040宿舍管理系统原程序与论文 NG);/P pnbsp;nbsp;nbsp; DELPHI040宿舍管理系统原程序与论文 Edit2.SelectAll;/P pnbsp;nDELPHI040宿舍管理系统原程序与论文 bsp;nbsp; exit;/P pnbsp;DELPHI040宿舍管理系统原程序与论文 end;/P pADOQuery1.Close ;/PDELPHI040宿舍管理系统原程序与论文 pADOQuery1.SQL.Clear ;/PDELPHI040宿舍管理系统原程序与论文 pADOQuery1.SQL.text :=selecDELPHI040宿舍管理系统原程序与论文 t * from 货物出楼表;/P pADOQuerDELPHI040宿舍管理系统原程序与论文 y1.Open ;/P pADOQuery1.AppDELPHI040宿舍管理系统原程序与论文 end ;/P pADOQuery1.FieldByNamDELPHI040宿舍管理系统原程序与论文 e (学号).AsString :=trim(Edit1.DELPHI040