umovement.pas

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

unit Umovement;

interface

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

type
  Tfrmmovement = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    DataSource2: TDataSource;
    Button2: TButton;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Panel1: TPanel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button3: TButton;
    Label1: TLabel;
    ADOQuery2: TADOQuery;
    DBGrid2: TDBGrid;
    Button4: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Button5: TButton;
    Button6: TButton;
    DBGrid3: TDBGrid;
    Panel3: TPanel;
    Button7: TButton;
    Button8: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    DBGrid4: TDBGrid;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    Edit19: TEdit;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    PageControl3: TPageControl;
    TabSheet6: TTabSheet;
    Edit20: TEdit;
    Button9: TButton;
    DBGrid5: TDBGrid;
    TabSheet7: TTabSheet;
    DBGrid6: TDBGrid;
    Label4: TLabel;
    Label5: TLabel;
    Edit21: TEdit;
    Edit22: TEdit;
    Button10: TButton;
    DataSource6: TDataSource;
    ADOQuery6: TADOQuery;
    Label3: TLabel;
    ADOQuery7: TADOQuery;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmovement: Tfrmmovement;

implementation

uses Ubedroom;

{$R *.dfm}

procedure Tfrmmovement.RadioButton1Click(Sender: TObject);
begin
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       edit1.setfocus;
       DBGrid1.DataSource :=DataSource1;
end;

procedure Tfrmmovement.RadioButton2Click(Sender: TObject);
begin
     edit1.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit2.setfocus;
     DBGrid1.DataSource :=DataSource1;
end;

procedure Tfrmmovement.RadioButton3Click(Sender: TObject);
begin
     edit1.Text:='';
     edit2.Text:='';
     edit4.Text:='';
     edit3.setfocus;
     DBGrid1.DataSource :=DataSource1;
end;

procedure Tfrmmovement.RadioButton4Click(Sender: TObject);
begin
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.setfocus;
     DBGrid1.DataSource :=DataSource1;
end;

procedure Tfrmmovement.Button1Click(Sender: TObject);
begin
      if edit1.Text=''then
      begin
        showmessage('请输入查询编号！');
        exit;
      end;
   if radioButton1.Checked then
   begin
       DBGrid1.DataSource:=DataSource2;
       DataSource2.DataSet :=adoquery2;
       if edit1.Text='' then
       begin
          showmessage('查询号不能为空，请输入！');
       end;
      adoquery2.SQL.text:='select * from movement where moving_no='#39+edit1.Text+#39;
      adoquery2.Active :=true;
   end;
if radioButton2.Checked then
   begin
      DBGrid1.DataSource:=DataSource2;
      DataSource2.DataSet :=adoquery2;
      if edit2.Text='' then
       begin
          showmessage('查询号不能为空，请输入！');
          DBGrid1.DataSource :=DataSource1;
       end;
       adoquery2.SQL.text:='select * from movement where moving_time='#39+edit2.Text+#39;
       adoquery2.Active :=true;
   end;
if radioButton3.Checked then
   begin
     DBGrid1.DataSource:=DataSource2;
     DataSource2.DataSet :=adoquery2;
     if edit3.Text='' then
       begin
          showmessage('查询号不能为空，请输入！');
          DBGrid1.DataSource :=DataSource1;
       end;
       adoquery2.SQL.text:='select * from movement where stu_no='#39+edit3.Text+#39;
      adoquery2.Active :=true;
   end;
if radioButton4.Checked then
   begin
       DBGrid1.DataSource:=DataSource2;
       DataSource2.DataSet :=adoquery2;
       if edit4.Text='' then
       begin
          showmessage('查询号不能为空，请输入！');
          DBGrid1.DataSource :=DataSource1;
       end;
       adoquery2.SQL.text:='select * from movement where from_bedroom='#39+edit4.Text+#39;
       adoquery2.Active :=true;
end;
end;

procedure Tfrmmovement.Button2Click(Sender: TObject);
begin
frmmovement.close;
frmbedroom.show;
end;

procedure Tfrmmovement.Button7Click(Sender: TObject);
begin
 with ADOQuery4 do
  begin
 // ADOTable1.SetKey;
     if edit12.Text=''then
      begin
        showmessage('请输入修改编号！');
        exit;
      end;
     Close;
     SQL.Clear;
     SQL.Add('select * from movement where moving_no='#39+Edit12.Text+#39);
     open;
   if edit12.Text='' then
   begin
    showmessage('Edit12不能为空，请输入修改的内容！');
   end;
   Edit; //申请修改
    // FieldByName('moving_no').AsString:=Edit12.Text;
    // sql.Text:='select moving_no from movement where moving_no=:moving_no';
   // SQL.Add('select moving_no from movement where moving_no='#39+Edit12.Text+#39);
   // query1.SQL.Text:='Delete  from dwdj where 单位号='#39+Edit26.Text+#39;
     if (edit13.Text<>'') then
     begin
       FieldByName('moving_time').AsString:=Edit13.Text;
     end;
     if (edit14.Text<>'') then
     begin
       FieldByName('from_bedroom').AsString:=Edit14.Text;
     end;
     if (edit15.Text<>'') then
     begin
      FieldByName('from_bed_no').AsString:=Edit15.Text;
     end;
     if (edit16.Text<>'') then
     begin
      FieldByName('stu_no').AsString:=Edit16.Text;
     end;
     if (edit17.Text<>'') then
     begin
      FieldByName('to_bedroom').AsString:=Edit17.Text;
     end;
     if (edit18.Text<>'') then
     begin
     FieldByName('to_bed_no').AsString:=Edit18.Text;
     end;

     showmessage('修改成功！');
     Post;

  end;
      ADOQuery4.Close;
      ADOQuery4.SQL.Clear;
      ADOQuery4.SQL.Add('select * from movement');
      DBgrid4.DataSource :=Datasource4;
      ADOQuery4.Active:=true;
      Edit12.Text:='';
      Edit13.Text:='';
      Edit14.Text:='';
      Edit15.Text:='';
      Edit16.Text:='';
      Edit17.Text:='';
      Edit18.Text:='';
      Edit12.SetFocus;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from movement');
      ADOQuery1.Active:=true;
end;

procedure Tfrmmovement.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
 begin
     if edit5.Text=''then
      begin
        showmessage('请输入添加编号！');
        exit;
      end;
      close;
      sql.Text:='select moving_no from movement where moving_no=:moving_no';
      Parameters[0].Value:=Edit5.Text;
      open;

   if eof then
     begin
     close;
     SQL.Clear;
     SQL.Add('Select * from movement');
     open;
     First;
     Insert;
   FieldByName('moving_no').AsString:=Edit5.Text;
   FieldByName('moving_time').AsString:=Edit6.Text;
   FieldByName('from_bedroom').AsString:=Edit7.Text;
   FieldByName('from_bed_no').AsString:=Edit8.Text;
   FieldByName('stu_no').AsString:=Edit9.Text;
   FieldByName('to_bedroom').AsString:=Edit10.Text;
   FieldByName('to_bed_no').AsString:=Edit11.Text;
    post;
     showmessage('添加成功！');
     end
  else
    begin
     showmessage('已经存在该搬迁编号,不能添加！');
    end;

with ADOQuery7 do
 begin
     ADOQuery7.close;
     ADOQuery7.SQL.Clear;
     ADOQuery7.SQL.Add('Select * from bed_stu');
     ADOQuery7.open;
     First;
     Insert;
   ADOQuery7.FieldByName('bedroom_no').AsString:=Edit10.Text;
   ADOQuery7.FieldByName('bedcode').AsString:=Edit11.Text;
   ADOQuery7.FieldByName('student_no').AsString:=Edit9.Text;
   post;
    // showmessage('添加成功！');
   end;
 end;
      DBgrid2.DataSource :=Datasource3;
      ADOQuery3.Active:=true;
      Edit5.Text:='';
      Edit6.Text:='';
      Edit6.Text:='';
      Edit7.Text:='';
      Edit8.Text:='';
      Edit9.Text:='';
      Edit10.Text:='';
      Edit5.SetFocus;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from movement');
      ADOQuery1.Active:=true;
      ADOQuery6.Close;
      ADOQuery6.SQL.Clear;
      ADOQuery6.SQL.Add('select * from bed_stu');
      ADOQuery6.Active:=true;
end;

procedure Tfrmmovement.Button5Click(Sender: TObject);
begin
with ADOQuery5 do
 begin
     if edit19.Text=''then
      begin
        showmessage('请输入删除编号！');
        exit;
      end;
     Close;
     SQL.Clear;
     SQL.Add('select * from movement where moving_no='#39+Edit19.Text+#39);
     open;
   if edit19.Text='' then
   begin
    showmessage('Edit19不能为空，请输入修改的内容！');
   end;
   Edit; //申请修改
    //   adoquery5.Active:=false;
         FieldByName('moving_no').AsString:=Edit19.Text;
         DBGrid3.DataSource:=DataSource5;
         DataSource5.DataSet :=adoquery5;
         SQL.Clear;
         adoquery5.SQL.Text:='Delete  from movement where moving_no='#39+Edit19.Text+#39;
         adoquery5.ExecSQL;
//         query1.Active:=true;
//Active 要返回数据导致出错；
         //post;
         Showmessage('删除成功！');
        end;
      ADOQuery5.Close;
      ADOQuery5.SQL.Clear;
      ADOQuery5.SQL.Add('select * from movement');
      DBgrid3.DataSource :=Datasource5;
      ADOQuery5.Active:=true;
      Edit19.Text:='';
      Edit19.SetFocus;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from movement');
      ADOQuery1.Active:=true;
   end;

//end;

procedure Tfrmmovement.Button9Click(Sender: TObject);
begin

       DBGrid5.DataSource:=DataSource6;
       DataSource6.DataSet :=adoquery6;
       if edit20.Text='' then
       begin
          showmessage('寝室号不能为空，请输入！');
          exit;     end;
      // adoquery6.SQL.Add('select * from bed_stu where bedroom_no='#39+Edit20.Text+#39);
      adoquery6.SQL.text:='select * from bed_stu where bedroom_no='#39+edit20.Text+#39;
      adoquery6.Active :=true;
end;

procedure Tfrmmovement.Button10Click(Sender: TObject);
begin
with ADOQuery6 do  begin
  if edit21.Text=''then
      begin
        showmessage('请输入寝室编号！');
        exit;
      end;
    if edit22.Text=''then
      begin
        showmessage('请输入删除床号！');
        exit;
      end;
     Close;
     adoquery6.SQL.Clear;
     SQL.Add('select * from bed_stu');
     open;
   if edit21.Text='' then
   begin
    showmessage('Edit21不能为空，请输入修改的内容！');
   end;
   Edit; //申请修改
    //   adoquery5.Active:=false;
         FieldByName('bedroom_no').AsString:=Edit21.Text;
         FieldByName('bedcode').AsString:=Edit22.Text;
         DBGrid6.DataSource:=DataSource6;
         DataSource6.DataSet :=adoquery6;
         SQL.Clear;
         adoquery6.SQL.Text:='Delete from bed_stu where bedroom_no='#39+Edit21.Text+#39'and bedcode='#39+Edit22.Text+#39;
         adoquery6.ExecSQL;
//         query1.Active:=true;
//Active 要返回数据导致出错；
         //post;
         Showmessage('删除成功！');
        end;
      ADOQuery6.Close;
      ADOQuery6.SQL.Clear;
      ADOQuery6.SQL.Add('select * from bed_stu');
      DBgrid6.DataSource :=Datasource6;
      ADOQuery6.Active:=true;
      Edit21.Text:='';
      Edit22.Text:='';
      Edit21.SetFocus;

//end;
end;

procedure Tfrmmovement.Button6Click(Sender: TObject);
begin
frmmovement.close;
frmbedroom.show;
end;

procedure Tfrmmovement.Button8Click(Sender: TObject);
begin
frmmovement.close;
frmbedroom.show;
end;

procedure Tfrmmovement.Button4Click(Sender: TObject);
begin
frmmovement.close;
frmbedroom.show;
end;

end.