Delphi学生宿舍管理系统的设计与实现 第11页

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;

 << 上一页  [11] [12] 下一页

Delphi学生宿舍管理系统的设计与实现 第11页下载如图片无法显示或论文不完整，请联系qq752018766