评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

sql2000+公寓管理系统+delphi[开题报告＋论文＋源代(5)

2013-06-08 02:45 p; edit2.Text:='';
           edit3.Text:='';
         end;
  end;
end;
procedure TForm_infos_del.Button2Click(Sender: TObject);
begin
  if Form_infos_del.Edit2.Text<>'' then
  begin
    Form_info_q3.Edit5.Text:=Form_infos_del.Edit2.Text;
    Form_info_q3.Show;
    Form_info_q3.Button1.Click;
    if Form_info_q3.query1.RecordCount>0 then
     Button3.enabled:=true
     else
     begin
     Button3.enabled:=false;
     edit2.SetFocus;
     end;
  end
  else
  begin
    showmessage('请填写要查找的寝室号!');
  end;
end;
来访进入楼时的登记窗体：

procedure TForm_vist_in.Button2Click(Sender: TObject);
begin
  if (edit1.Text<>'') and (edit5.Text<>'') and (edit2.Text<>'') then
  begin
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('insert into vist_log (visitor_name,host_name,host_room,relation,time_in,time_out,watch,certificate,remark) values(:visitor_name,:host_name,:host_room,:relation,:time_in,:time_out,:watch,:certificate,:remark)');
    query1.ParamByName('visitor_name').AsString:=Edit2.Text;
    query1.ParamByName('host_name').AsString:=Edit1.Text;
    query1.ParamByName('host_room').AsString:=Edit5.Text;
    query1.ParamByName('relation').AsString:=ComboBox1.Text;
    query1.ParamByName('time_in').AsString:=Edit3.Text;
    query1.ParamByName('time_out').AsString:=Edit4.Text; （科教范文网 lw.nSeAc.com编辑发布）
    query1.ParamByName('watch').AsString:=ComboBox2.Text;
    query1.ParamByName('certificate').AsString:=ComboBox3.Text;
    query1.ParamByName('remark').AsString:=Memo1.Text;
    query1.ExecSQL;
    showmessage('已记入数据库，访问完请急时下楼登记！');
    Form_vist_in.Close;
  end
  else
  begin
    showmessage('请完整填写信息!');
  end;
end;
来访出楼时的登记窗体：
  
procedure TForm_vist_out2.Button1Click(Sender: TObject);
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('update vist_log set time_out=:time_out ,is_out=1  where id=:id');
  query1.ParamByName('time_out').AsString:=Edit4.Text;
  query1.ParamByName('id').AsInteger:=Form_vist_out.DataSource1.DataSet.FieldList.Fields[0].Value;
  query1.ExecSQL;
  showmessage('登记完毕!');
  Form_vist_out2.Close;
end;
10．贵重物品搬出登记：

procedure TForm_valuables_move.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and(Edit4.Text<>'') and(Edit5.Text<>'') then
  begin
    query1.Close;
    query1.ParamByName('name_res