Luận văn tốt nghiệp: Biện pháp quản lý số điện thoại của công ty bưu điện trong việc kết hợp với CNTT phần 7 docx
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (45.6 KB, 5 trang )
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
%>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''
Sub FormNhapLieu(SDT,MV,Ho,Ten,DiaChi,TenNut)
%>
<form name="NhapLieu" method="POST"
action="NhapSoDienThoai.asp">
<div
align="center"><div align="center"><center><table border="1"
width="100%" cellspacing="1"
height="277">
<tr>
<td width="100%" align="center" height="29"
background="Images/topbg.gif"><strong><FONT
face=".VnArialH">NhËp
thuª bao míi</FONT></strong></td>
</tr>
<tr>
<td width="100%" align="center" height="236"
background="Images/g.gif"><table border="0"
width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><table border="0" width="90%"
height="186" cellspacing="0"
cellpadding="0">
<tr>
Đề án Môn học
Sinh Viên : Trần Trung Thuận
<td width="16%" height="24">Số điện thoại :</td>
<td width="41%" height="24"><input type="text"
name="SoDienThoai" size="18" value='<%=SDT%>'
tabindex="1"></td>
<td width="12%" height="24">Mã vùng: </td>
<td width="31%" height="24">
<%
Call ListBox("MaVung","MaVung","TenTinh","Select * From
Tinh",MV)
%></td>
</tr>
<tr>
<td width="16%" height="23">Họ : </td>
<td width="41%" height="23"><input type="text" name="Ho"
size="18" value='<%=Ho%>' tabindex="3"></td>
<td width="12%" height="23">Tên:</td>
<td width="31%" height="23"><input type="text" name="Ten"
size="15" value='<%=Ten%>' tabindex="4"></td>
</tr>
<tr>
<td width="16%" height="121" valign="top">Địa chỉ :</td>
<td width="84%" colspan="3" height="121" valign="top"
align="left"><textarea rows="5"
name="DiaChi" cols="51"
tabindex="5"><%=DiaChi%></textarea></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" align="center"><input type="submit"
value='<%=TenNut%>' name="MySubmit"
tabindex="6"> <input type="reset" value="Nhập Lại" name="B2"
tabindex="7"> <input
type="button" value="Tìm kiếm" name="TimKiem"
tabindex="8"></td>
</tr>
Đề án Môn học
Sinh Viên : Trần Trung Thuận
<tr>
<td width="100%"></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
<dd align="center"><br>
</dd>
</div><div align="center"><center><table border="1" width="100%"
cellspacing="0"
cellpadding="0">
<tr>
<td width="6%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>STT</strong></font></td>
<td width="11%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>Chọn Xóa</strong></font></td>
<td width="11%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>Chọn Sửa</strong></font></td>
<td width="40%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>Họ và tên</strong></font></td>
<td width="19%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>Số điện
thoại</strong></font></td>
<td width="13%" align="center" bgcolor="#008080"><font
color="#FFFFFF"><strong>Mã vùng<strong></font></td>
</tr>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''
Sub FormTimKiem()
%>
<form method="POST" action="KetQuaTK.asp">
<p> </p>
<div align="center"><center><table border="0" width="70%"
bgcolor="#346969"
Đề án Môn học
Sinh Viên : Trần Trung Thuận
cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><table border="0" width="100%"
cellspacing="1" height="74">
<tr>
<td width="100%" height="21"><font
color="#FFFFFF"><strong>Tìm kiếm chi tiết</strong></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#99CCCC" height="20"><div
align="center"><center><table
border="0" width="90%" cellspacing="0"
cellpadding="0">
<tr>
<td width="22%"> </td>
<td width="78%"> </td>
</tr>
<tr>
<td width="22%">Địa bàn</td>
<td width="78%">
<%
Call ListBox("DiaBan","MaVung","TenTinh","Select *
From Tinh",0)
%>
</td>
</tr>
<tr>
<td width="22%">Họ </td>
<td width="78%"><input type="text" name="Ho"
size="40"></td>
</tr>
<tr>
<td width="22%">Tên</td>
<td width="78%"><input type="text" name="Ten"
size="40"></td>
</tr>
<tr>
Đề án Môn học
Sinh Viên : Trần Trung Thuận
<td width="22%">Địa chỉ</td>
<td width="78%"><input type="text" name="DiaChi"
size="40"></td>
</tr>
<tr>
<td width="22%">Điện Thoại</td>
<td width="78%"><input type="text" name="DienThoai"
size="40"></td>
</tr>
<tr>
<td width="22%"> </td>
<td width="78%"> </td>
</tr>
</table>
</center></div></td>
</tr>
<tr>
<td width="100%" bgcolor="#99CCCC" height="21"
align="center"><input type="submit"
value="Tìm kiếm" name="MySubmit"> <input
type="reset" value="Nhập Lại" name="B2"></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><p> </p>
</form>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''
Sub ListBox(Name,Ma,Ten,SQL,Cur)
Cur=Cstr(Cur)
rs.Open SQL,Conn
%><select name='<%=Name%>'><option value=''></option><%
Do While not rs.Eof
%><option value='<%=rs(Ma)%>'<%
