Delphi学生宿舍管理系统的设计与实现 第11页
showmessage('你还没输入系名,请确认!');
edit2.SetFocus;
exit;
end;
if edit3.Text='' then
begin
showmessage('你还没输入班级,请确认!');
edit3.SetFocus;
exit;
end;
if combobox1.Text='' then
begin
showmessage('你还没输入住楼名,请确认!');
combobox1.SetFocus;
exit;
end;
if combobox2.Text='' then
begin
showmessage('你还没输入住几楼,请确认!');
combobox2.SetFocus;
exit;
end;
if edit4.Text='' then
begin
showmessage('你还没输入住哪间,请确认!');
edit4.SetFocus;
exit;
end;
PfmMain.Table1.AppendRecord([edit1.Text,edit2.Text,edit3.Text,combobox1.Text,combobox2.Text,edit4.Text]);
qingkong;
end;
procedure Tfmluru.SpeedButton2Click(Sender: TObject);
begin
qingkong;
end;
procedure Tfmluru.SpeedButton3Click(Sender: TObject);
begin
close;
end;
end.
查询界面代码:
unit Pchaxunbiaodan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls;
type
Tfmchaxun = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
StatusBar1: TStatusBar;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
GroupBox4: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
ComboBox2: TComboBox;
Label3: TLabel;
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
function fanhui():boolean;
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
chaxunziduan:string;
{ Public declarations }
end;
var
fmchaxun: Tfmchaxun;
implementation
uses Pmain, Pxueshengbaobiao;