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] 下一页

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有