uweisheng.~pas

ＤＥＬＰＨＩ开发的寝室管理系统

unit Uweisheng;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, DB, ADODB;

type
  Tfrmweisheng = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Panel3: TPanel;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery2: TADOQuery;
    Panel7: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label11: TLabel;
    Edit1: TEdit;
    Panel9: TPanel;
    Panel10: TPanel;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Panel11: TPanel;
    GroupBox5: TGroupBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    Panel13: TPanel;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox6: TGroupBox;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Panel12: TPanel;
    DBGrid3: TDBGrid;
    Button9: TButton;
    DBGrid1: TDBGrid;
    panel6: TPanel;
    Panel8: TPanel;
    Panel14: TPanel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmweisheng: Tfrmweisheng;

implementation
Uses ubedroom;

{$R *.dfm}


procedure Tfrmweisheng.Button2Click(Sender: TObject);
begin
    frmbedroom.Show;
    self.Close;
end;

procedure Tfrmweisheng.Button1Click(Sender: TObject);
begin
  if self.RadioButton1.Checked then
         begin
            Datasource1.DataSet:=ADOquery1;
            ADOQuery1.Active:=False;
            DBGrid1.DataSource:=DataSource1;
            if EDit1.Text='' then
              begin
                showmessage('请输入具体值');
                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.Add('select weisheng_info.weisheng_info_no,weisheng_info.manager_no,weisheng_info.time,weisheng_detail_no,weisheng_detail.bedroom_no,weisheng_detail.stu_no,weisheng_detail.detail from weisheng_detail,weisheng_info');
                ADOQuery1.open;
              end
            else
              begin
                ADOquery1.SQL.Text:='select * from weisheng_info,weisheng_detail where weisheng_info.weisheng_info_no = weisheng_detail.weisheng_info_no AND weisheng_info.weisheng_info_no ='#39+edit1.Text+#39;
                ADOQuery1.Active:=True;
                edit1.Text:='';
              end
          end;

  if self.RadioButton2.Checked then
         begin
            Datasource1.DataSet:=ADOquery1;
            ADOQuery1.Active:=False;
            DBGrid1.DataSource:=DataSource1;
            if EDit1.Text='' then
               begin
                showmessage('请输入具体值');
                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.Add('select weisheng_info.weisheng_info_no,weisheng_info.manager_no,weisheng_info.time,weisheng_detail_no,weisheng_detail.bedroom_no,weisheng_detail.stu_no,weisheng_detail.detail from weisheng_detail,weisheng_info');
                ADOQuery1.open;
              end
            else
              begin
                ADOquery1.SQL.Text:='select * from weisheng_info,weisheng_detail where weisheng_info.weisheng_info_no = weisheng_detail.weisheng_info_no AND weisheng_info.manager_no ='#39+edit1.Text+#39;
                ADOQuery1.Active:=True;
                edit1.Text:='';
              end
          end;


  if RadioButton3.Checked then
         begin
            Datasource1.DataSet:=ADOquery1;
            ADOQuery1.Active:=False;
            DBGrid1.DataSource:=DataSource1;
            if EDit1.Text='' then
               begin
                showmessage('请输入具体值');
                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.Add('select weisheng_info.weisheng_info_no,weisheng_info.manager_no,weisheng_info.time,weisheng_detail_no,weisheng_detail.bedroom_no,weisheng_detail.stu_no,weisheng_detail.detail from weisheng_detail,weisheng_info');
                ADOQuery1.open;
              end
            else
              begin
                ADOquery1.SQL.Text:='select * from weisheng_info,weisheng_detail where weisheng_info.weisheng_info_no = weisheng_detail.weisheng_info_no AND weisheng_info.time ='#39+edit1.Text+#39;
                ADOQuery1.Active:=True;
                edit1.Text:='';
              end
        end;

  if RadioButton4.Checked then
         begin
            Datasource1.DataSet:=ADOquery1;
            ADOQuery1.Active:=False;
            DBGrid1.DataSource:=DataSource1;
            if EDit1.Text='' then
              begin
                showmessage('请输入具体值');
                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.Add('select weisheng_info.weisheng_info_no,weisheng_info.manager_no,weisheng_info.time,weisheng_detail_no,weisheng_detail.bedroom_no,weisheng_detail.stu_no,weisheng_detail.detail from weisheng_detail,weisheng_info');
                ADOQuery1.open;
              end
            else
              begin
                ADOquery1.SQL.Text:='select * from weisheng_info,weisheng_detail where weisheng_info.weisheng_info_no = weisheng_detail.weisheng_info_no AND bedroom_no ='#39+edit1.Text+#39;
                ADOQuery1.Active:=True;
                edit1.Text:='';
              end
          end;

  if RadioButton5.Checked then
         begin
            Datasource1.DataSet:=ADOquery1;
            ADOQuery1.Active:=False;
            DBGrid1.DataSource:=DataSource1;
            if EDit1.Text='' then
               begin
                showmessage('请输入具体值');
                ADOQuery1.close;
                ADOQuery1.sql.Clear;
                ADOQuery1.sql.Add('select weisheng_info.weisheng_info_no,weisheng_info.manager_no,weisheng_info.time,weisheng_detail_no,weisheng_detail.bedroom_no,weisheng_detail.stu_no,weisheng_detail.detail from weisheng_detail,weisheng_info');
                ADOQuery1.open;
              end
            else
              begin
                ADOquery1.SQL.Text:='select * from weisheng_info,weisheng_detail where weisheng_info.weisheng_info_no = weisheng_detail.weisheng_info_no AND detail >='+edit1.Text;
                ADOQuery1.Active:=True;
                edit1.Text:='';
              end;
          end;
end;

procedure Tfrmweisheng.Button9Click(Sender: TObject);
begin
  frmbedroom.Show;
  self.Close;
end;

procedure Tfrmweisheng.Button3Click(Sender: TObject);
begin
  if (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') then
    //with self.ADOQuery2 do
      begin
        ADOQuery2.close;
        ADOQuery2.sql.Clear;
        ADOQuery2.sql.Text:='select * from weisheng_detail where weisheng_info_no=:weisheng_info_no and weisheng_detail_no=:weisheng_detail_no';
        ADOQuery2.Parameters[0].Value:=Edit2.Text;
        ADOQuery2.Parameters[1].Value:=Edit3.Text;
        ADOQuery2.open;
        if ADOQuery2.eof then
          begin

            ADOQuery3.close;
            ADOQuery3.sql.Clear;
            ADOQuery3.sql.Text:='select * from weisheng_info where weisheng_info_no=:weisheng_info_no';
            ADOQuery3.Parameters[0].Value:=Edit2.Text;
            ADOQuery3.open;
            if not ADOQuery3.eof then

            begin
            ADOQuery2.close;
            ADOQuery2.SQL.Clear;
            ADOQuery2.SQL.Add('Select * from weisheng_detail');
            ADOQuery2.open;
            ADOQuery2.First;
            ADOQuery2.Insert;
            ADOQuery2.FieldByName('weisheng_info_no').AsString:=Edit2.Text;
            ADOQuery2.FieldByName('weisheng_detail_no').AsString:=Edit3.Text;
            ADOQuery2.FieldByName('bedroom_no').AsString:=Edit4.Text;
            ADOQuery2.FieldByName('stu_no').AsString:=Edit5.Text;
            ADOQuery2.FieldByName('detail').AsString:=Edit6.Text;
            ADOQuery2.post;
            showmessage('添加成功！');