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

DELPHI040宿舍管理系统原程序与论文 nbsp;nbsp;nbsp; MessageBoDELPHI040宿舍管理系统原程序与论文 xhandle,值班人不能为空!,警告,MB_OKDELPHI040宿舍管理系统原程序与论文 +MB_ICONWARNING;? nbsDELPHI040宿舍管理系统原程序与论文 p;nbsp;nbsp; ComboBox2.SetFocusDELPHI040宿舍管理系统原程序与论文 ; nbsp;nbsp;nbsp; exitDELPHI040宿舍管理系统原程序与论文 ; nbsp; end; ADDELPHI040宿舍管理系统原程序与论文 OQuery1.Connection :DataModulDELPHI040宿舍管理系统原程序与论文 e2.ADOConnection1 ; ADOQDELPHI040宿舍管理系统原程序与论文 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; ADOQDELPHI040宿舍管理系统原程序与论文 uery1.SQL.Clear ; ADOQueryDELPHI040宿舍管理系统原程序与论文 1.SQL.Addselect * from 学生信息表 wDELPHI040宿舍管理系统原程序与论文 here 学号+Edit1.Text +;DELPHI040宿舍管理系统原程序与论文 ADOQuery1.Prepared ;/DELPHI040宿舍管理系统原程序与论文 P ADOQuery1.Open ; ifDELPHI040宿舍管理系统原程序与论文 ADOQuery1.Eof then nbsDELPHI040宿舍管理系统原程序与论文 p; begin nbsp;nbsp;nbsDELPHI040宿舍管理系统原程序与论文 p; MessageBoxhandle,没有这个学号的学生DELPHI040宿舍管理系统原程序与论文 !,警告,MB_OK+MB_ICONWARNING;DELPHI040宿舍管理系统原程序与论文 nbsp;nbsp;nbsp; EditDELPHI040宿舍管理系统原程序与论文 1.SelectAll; nbsp;nbsDELPHI040宿舍管理系统原程序与论文 p;nbsp; exit; nbsp; end;DELPHI040宿舍管理系统原程序与论文 if ADOQuery1.Fields.FiDELPHI040宿舍管理系统原程序与论文 eldByName姓名.AsString lt;gtDELPHI040宿舍管理系统原程序与论文 ;trimEdit2.Text then nbDELPHI040宿舍管理系统原程序与论文 sp; begin nbsp;nbsp;nDELPHI040宿舍管理系统原程序与论文 bsp; MessageBoxhandle,警告,学号与DELPHI040宿舍管理系统原程序与论文 姓名不匹配!,警告,MB_OK+MB_ICONWARNIDELPHI040宿舍管理系统原程序与论文 NG; nbsp;nbsp;nbsp; DELPHI040宿舍管理系统原程序与论文 Edit2.SelectAll; nbsp;nDELPHI040宿舍管理系统原程序与论文 bsp;nbsp; exit; nbsp;DELPHI040宿舍管理系统原程序与论文 end; ADOQuery1.Close ;/PDELPHI040宿舍管理系统原程序与论文 ADOQuery1.SQL.Clear ;/PDELPHI040宿舍管理系统原程序与论文 ADOQuery1.SQL.text :selecDELPHI040宿舍管理系统原程序与论文 t * from 货物出楼表; ADOQuerDELPHI040宿舍管理系统原程序与论文 y1.Open ; ADOQuery1.AppDELPHI040宿舍管理系统原程序与论文 end ; ADOQuery1.FieldByNamDELPHI040宿舍管理系统原程序与论文 e 学号.AsString :trimEdit1.DELPHI040宿舍管理系统原程序与论文 Text ; ADOQuery1.FieldByDELPHI040宿舍管理系统原程序与论文 Name姓名.AsString :trimEdit2.TDELPHI040宿舍管理系统原程