第一篇：上機實習報告總結結尾

上機實習報告總結結尾

一.首頁

代碼如下;

using System;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form5 : Form {

public Form5()

{

InitializeComponent();

}

private void button1_Click(object sender, {

logo from = new logo();

();EventArgs e)

} private void button2_Click(object sender, EventArgs e){

Form2 from = new Form2();

();

} private void button3_Click(object sender, EventArgs e)http:///shijuan/ 試卷 {

Form3 from = new Form3();

();

} private void button4_Click(object EventArgs e){

Form4 from = new Form4();

();

}

}

}

二.登錄模塊

代碼如下：

using System;

using;

using;

using;

sender，using

;

using;

using;

using;

namespace WindowsApplication1

{

public partial class logo : Form

{

public logo()

{

InitializeComponent();

}

private void Form1_Load(object sender, EventArgs e)

{

} private void button1_Click(object sender, EventArgs e){ string

connstring

=

@“Data Source=panlunzhao;Initial Security=True”;

Catalog=;Integrated

SqlConnection conn = new SqlConnection(connstring);();

string username =();string password =();SqlCommand comm =();

= “select * from manage where username='” + username + “' and password='” + password + “'”;

SqlDataReader sqlda =();

if(())

{ ifhttp:///gongzuobaogao/

工

作

報

告

(sqlda.ToString().Trim()== password){

//(“恭喜您登陸成功!”, “登陸成功!”, ,);

//Form2 f = new Form2();

//();

Form3 from = new Form3();

();

}

else {(“密碼錯誤，請重新輸入!”, “錯誤

”, ,);}

}

else {(“此用戶不存在，請您注冊!”, “注冊”, ,);}

();http:///dangtuangongzuozongjie/ 黨團工作總結

();

} private void button2_Click(object sender, EventArgs e){

= “";

= ”“;

}

}

}

三.會員管理模塊

代碼如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form2 :

Form

{

protected SqlConnection conn;

protected SqlCommand cmd;

string connstring = @”Data Sou/article/ 述職報告rce=panlunzhao;Initial

Catalog=;Integrated Security=True“;

public Form2()

{

InitializeComponent();

}

private void Form2_Load(object sender, EventArgs e)

{

load1();

load();

}

protected void load1()

{

string sql = ”select *from customer“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

}

protected void load()

{

conn = new SqlConnection(connstring);

();

string sql_select = ”SELECT ID FROM customer “;cmd = new SqlCommand(sql_select, conn);

SqlDataReader dr =();

();

while(())

(dr);

();

}

private DataTable BindData(string sql)

{

string sql_select = sql;

conn = new SqlConnection(connstring);

SqlDataAdapter ad = new SqlDataAdapter(sql_select, conn);DataSet ds = new DataSet();

(ds, ”customer“);

return;

} private void button1_Click(object sender, EventArgs e){

string sql = ”select * from customer where ID='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

http:///xuexiaogongzuozongjie/ 學校工作總結 = ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

} private void update_Click(object sender, EventArgs e){

string sql = ”customer set

name=@name,Levels=@Levels,Birthday=@Birthday,Degree=@Degree,Address=@Address,Telephone=@Telephone,Email=@Email,Score=@Score where ID=@ID“;conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@ID“,).Value =();

(”@name“, , 20).Value =();

(”@Levels“,).Value =();

(”@Birthday“，).Value =();

(”@Degree“, ，20).Value =();

(”@Address“, , 256).Value =();

(”@Telephone“, ，50).Value =();

(”@Email“, , 50).Value =();

(”http:///yundonghuiyanjianggao/ 運動會演講稿 @Gender“,).Value =(bool);

(”@Score“,).Value =();

();

SqlDataReader ds =();

();

load1();

}

private void _Click(object sender, EventArgs e){

string sql_ = ” into

customer(Name,Levels,Gender,Birthday,Degree,Address,Telephone,Email,Score)

values(@Name,@Levels,@Gender,@Birthday,@Degree,@Address,@Telephone,@Email,@Score)“;

cmd = new SqlCommand(sql_, conn);

try

{

();

(”@Name“, ，20).Value =();

(”@Levels“，).Value =(());(”@Birthday“，).Value =

(());

(”@Degree“, ，20).Value =();

(”@Address“, , 256).Value =();

(”@Telephone“, ，50).Value =();

(”@Email“, ，50).Value =();

(”@Score“,).Value =(());

if()

{

(”@Gender“，).Value = ”true“;

}

else

{

(”@Gender“，).Valuhttp:///yuegongzuozongjie/ 月工作總結 e = ”false“;

}

int count =();

if(count == 1)

{

if((”確認添加讀者嗎?“, ”提示“, ,)==)return;

(”添加成功！“, ”提示!“);}

else

{

(”添加失敗“, ”提示“, ,);

}

}

catch(Exception ex)

{

();

}

finally

{

();

}

}

}

}

四.增加、刪除、修改圖書模塊

代碼如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form3 : Form

{

protected SqlConnection conn;

protected SqlComhttp:///shijicailiao/ mand cmd;

事跡材料

string connstring = @”Data Source=panlunzhao;Initial Security=True“;

public Form3()

{

InitializeComponent();

}

Catalog=;Integrated

private void textBox7_TextChanged(object sender, EventArgs e){

} private void label6_Click(object sender, EventArgs e){

} private void select_Click(object sender, EventArgs e){

string book_name =();

string press =();

string Author =();

StringBuilder sb1 = new StringBuilder();

(”select * from book where “);

if()

((”Name LIKE '%{0}%'“, book_name));

if(&&)(”AND “);

if()

{

((”Press = '{0}'“, press));}

if(&&)(”AND “);

if()

{

((”Author LIKE '%{0}%'“, Author));

}

= Binhttp:///banzhurengongzuojihua/ 班主任工作計劃 dData(());} private void reset_Click(object sender, EventArgs e){

= true;

= false;

= false;

= ”“;

= ”“;

= ”“;

} private void button1_Click(object sender, EventArgs e){

string sql = ”select * from book where ISBN='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString(http:///shiyongqigongzuozongjie/ 試用期工作總結);

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

= ds.ToString();

} private void button2_Click(object sender, EventArgs e){

string sql = ” into

book(ISBN,name,author,press,publishdate,price,pages,barcode,cd,storage)

values(@ISBN,@name,@author,@press,@publishdate,@price,@pages,@barcode,@cd,@storage)“;

conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@isbn“, , 10).Value =();

(”@name“, , 256).Value =();

(”@author“, , 100).Value =();

(”@press“, , 50).Value =();

(”@publishdate“, ，50).Value =();

(”@price“, , 50).Value =();

(”@pages“, , 50).Value

=();

(”@barcode“, SqlDbTypehttp:///dangxiaoxuexixindetihui/ 黨校學習心得體會.NVarChar，50).Value =();

(”@cd“, , 50).Value =(bool);

(”@storage“, ，50).Value =();

();

load1();

load();

}

private void save_Click(object sender, EventArgs e)

{

string sql = ”book set

name=@name,author=@author,press=@press,publishdate=@publishdate,price=@price,pages=@pages,barcode=@barcode,cd=@cd,Storage=@Storage where ISBN=@ISBN“;

conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@isbn“, , 10).Value =();

(”@name“, , 256).Value =();

(”@author“, , 100).Value =();

(”@press“, , 50).Value =();

(”@publishdate“, ，50).Value =();

(”@price“, , 50).Value =();

(”@pages“, , 50).Value =();

(”@barcode“, ，50).Value =();

(”@cd“, , 50).Value =(bool);

(”@storage“, ，50).Value =();

();

SqlDataReader ds =();

();

load1();

}

private void quxiaosave_Click(object sender, EventArgs e){

= ”“;

= ”“;

= ”“;

= ”“;

= ”&http:///shenbaocailiao/ 申報材料quot;;

= “";

= ”“;

= ”“;

= false;

= ”“;

}

private void _Click(object sender, EventArgs e){

string sql = ” from book where isbn=@isbn“;conn = new SqlConnection(connstring);

cmd = new SqlCommand(sql, conn);

();

(”@isbn“, , 10).Value =();

();

load1();

load();

}

private void Form3_Load(object sender, EventArgs e){

load();

load1();

}

protected void load()

{

conn = new SqlConnection(connstring);

();

string sql_select = ”SELECT DISTINCT FROM ORDER BY “;

cmd = new SqlCommand(sql_select, conn);

SqlDataReader dr =();

();

while(())

(dr);

();

= ”SELECT DISTINCT FROM ORDER BY “;

SqlDataReader ds =();

();

while(())

(ds);

();

= ”SELECT DISTINCT FROM ORDER BY “;

SqlDataReader st =();

();

while(())

(st);

();

}

protected void load1()

{

string sql = ”select *from book“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = http:///qingkuangbaogao/ 情況報告new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

}

private DataTable BindData(string sql)

{

string sql_select = sql;

conn = new SqlConnection(connstring);

SqlDataAdapter

ad

=

new SqlDataAdapter(sql_select, conn);DataSet ds = new DataSet();

(ds, ”Book“);

return;

}

private void all_Click(object sender, EventArgs e)

{

string sql = ”select *from book“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);

DataSet ds = new DataSet();

(ds, ”book“);

=;}

}

}

五.借書模塊

代碼如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form4 : Form

{

protected SqlConnection conn;

protected SqlCommand cmd;string

connstring

=

@”Data Source=panlunzhao;Initial Catalog=:///banjigongzuojihua/ 班級工作計劃 F;Integrated Security=True“;

public Form4()

{

InitializeComponent();

}

private void Form4_Load(object sender, EventArgs e)

{

try

{

conn = new SqlConnection(@”Data

Source=panlunzhao;Initial Catalog=;Integrated

Security=True“);

();

();

}

catch(Exception exp)

{

(”無法建立數(shù)據(jù)連接:“ +);();

}

}

protected void InitData()

{

cmd = new SqlCommand(”select distinct from Book order By “, conn);

SqlDataReader reader1 =();

();

while(())

(reader1);

();

cmd = new SqlCommand(”select id from reader order by“,conn);

SqlDataReader reader2 =();

();

while(())

(reader2);

();

} private void select_Click(object sender, EventArgs e)http:///chengxinyanjianggao/ 誠信演講稿 {

string sql = ”select * from book where ID='“ +

()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

= ds.ToString();

} private void jieshu_Click(object sender, EventArgs e){

string sql = ”select * from reader where ID='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

string sql_up = ”book set Storage=Storage-1 where ID='“ +()+ ”'“;

cmd = new SqlCommand(sql_up, conn);

();

DataSet hs = new DataSet();

(hs, ”book“);

=;

if(== ”“)

return;

= ”SELECT * FROM WHERE =“ +;

SqlDataReader reader1 = null;

try

{

reader1 =();

if(())

{

textBhttp:///gerengongzuojihua/ = reader1.ToString();

}

else

{

(”沒有符合條件的記錄“, ”提示“, ,);

}

}

catch(Exception exp)

{

(”數(shù)據(jù)訪問錯誤:“ + + , ”錯誤", ,);}

finally

{

if(reader1!= null &&!)

個人工作計劃

();

}

}

}

}

總結

此次實訓綜合考查了所學的c#知識，讓我知道一個項目從構思、設計、實結題報告現(xiàn)、測試的過程。在實訓中也綜合運用了所學的知識，也涵蓋了數(shù)據(jù)庫的知識，用數(shù)據(jù)庫存放數(shù)據(jù)，用腳本實現(xiàn)功能。

第二篇：上機實習報告格式

文獻檢索實習報告（參考格式）

課程名稱：文獻檢索日期：

學院：班號：姓名：學號：

實驗名稱：電子圖書等資源檢索。

實驗目的：掌握圖書資源如何檢索和利用，熟悉人名錄或機構名錄的檢索。實驗內容：

1、用CALIS檢索你們自己任課教師的編著發(fā)表情況。

2、用超星檢索自己所在專業(yè)的某一方面的圖書出版情況，并采集某一本書的一段文字，一個圖。（以超星為例）

(1).登陸四川理工學院圖書館主頁。

(2).找到電子資源，點擊進入圖書館電子資源界面。

(3).找到熱門資源中的“超星數(shù)字圖書館”，并點擊“本地”，進

入超星數(shù)字圖書館。

(4).找到“瀏覽器”，點擊并下載超星星瀏覽器。

(5).下載好“超星星瀏覽器”后就可以瀏覽圖書了。

(6).例如查

3、利用物競化學品數(shù)據(jù)庫檢索某一具體化學物質的相關數(shù)據(jù)。

4、用萬方數(shù)據(jù)庫檢索我國某一位院士/科學家/某學科領域著名學者的名錄。

實習報告要求：用自己姓名作為文件名稱，將作業(yè)發(fā)送給各班指定的同學。

第三篇：計算機上機實習報告

計算機上機實習報告

姓名：張陸浩 班級：高材11001 學號：201001978 老師：張老師 熊老師 時間：2011年12月24日

一．實驗目的: 1.熟悉VB 6.0的開發(fā)環(huán)境,掌握基本的編程方法,熟悉用VB語言完成一個應用程序的設計過程,掌握有關編輯和調試程序的方法和技巧;2.主要掌握VB語言中的標準模塊的建立﹑數(shù)據(jù)文件的讀出與寫入、數(shù)組與選擇結構的運用，圖形操作等內容

3.了解開發(fā)簡單應用程序的全過程,包括:分析﹑設計﹑編程﹑調試和編寫報告.二．實習要求：

（一）。用記事本新建一個文本文件，將本班M名學生N門考試課的成績輸入到這個文件中，建議按如下形式存放（注：20=M<=50,5<=N<=8，下文以M=4，N=3為例）: 學號

姓名

英語

數(shù)學

物理

化學

VB 1

張陸浩

2

林丹

3

李宗偉

4

李永波

（二）。將N門考試課以及其分數(shù)輸入到另一個數(shù)據(jù)文件（文件類型同上題）中，建議以下列形式存放： 編號 課程名稱 課程學分 1 英語 5.0 2 數(shù)學 4.5 3 物理 5.0 4 化學 4.5 5 VB 4.5

（三）。請編寫一個簡單的學生成績管理程序，以完成以下功能： 1.根據(jù)以上兩文件內容分別計算每個學生N門課程的加權平均分（保留兩位小數(shù)，四舍五入），按平均分排列名次，平均分相同則名

次并列。用VB創(chuàng)建一個數(shù)據(jù)文件，存放班級的成績表。

2.分別統(tǒng)計全班每門課的平均分,并計算各分數(shù)段(90分以上;80～89;70～79;60～69;60分以下)的學生數(shù)。.3.打印每名學生成績條（并將結果存放到用VB創(chuàng)建的一個新的數(shù)據(jù)文件中）。

4.顯示所有存在不及格課程的學生的名單(含學號,不及格課程名稱,課程的學分及成績)。

5.屏幕顯示優(yōu)等生名單及打印每門課程成績分布圖。優(yōu)等生條件(只要滿足三個中任一個就可以): a)平均分>=90分

b)名次在本班位于前四名

c)平均分>=85分,并且至少有一門課的成績>=95分

三、實習步驟

1、用記事本新建一個學生成績文本文件(其中包括學生學號，成績，姓名，課程及成績)。

2、用記事本新建一個課程學分文本文件。

3、編輯菜單編輯器：編輯四個可拉式菜單，包括學生成績、成績處理、成績編輯、畫圖。

4、編輯代碼：分別編輯打印學生成績和學分代碼，編輯加權平均分、各科平均分、分數(shù)段、成績條、排名、優(yōu)等生、差等生的代碼，還有畫各科目成績人數(shù)圖的代碼。

5、調試程序代碼并保存。

6、打印代碼。

三.相關數(shù)據(jù)列表：

（一）。源文件

（1）成績

學號 姓名 英語 數(shù)學 物理 化學 VB 1 張陸浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗偉 75 96 83 75 73 4 李永波 89 93 83 86 82 5 王儀涵 92 79 89 86 80 6 汪鑫 93 65 86 68 84 7 付海峰 94 91 89 92 80 8 湛龍 86 83 88 80 92 9 蓋德 68 79 54 72 71 10 陶菲克 69 76 59 81 75 11 佐佐木 85 83 68 57 71 12 李娜 94 63 62 65 53 13 陳金 86 79 89 94 83 14 蘭洋 91 93 92 89 75 15 小志 95 89 93 86 87 16 棃一名 92 86 83 67 59 17 吳凱飛 67 75 57 82 62 18 江方 93 80 73 76 84 19 胡艷 74 68 58 63 71 20 張繼原 68 95 68 84 93（2）.學分

編號 課程名稱 課程學分 1 英語 5.0 2 數(shù)學 4.5 3 物理 5.0 4 化學 4.5 5 VB 4.5 四．運行效果：

（一）.學生管理

（1）打開課程成績及學分

（2）打開計算的加權平均分﹑排名及各科平均分

(三）.編輯

（1）打開計算的各科人數(shù)分布

（2）打開按學號查找每個學生的成績 a）輸入要查找學生的學號

b）得到該生的成績條

（3）打開查找到的優(yōu)等生信息

（4）打開不及格學生的分布

（四）.成績分布圖

五．實習小結

通過兩個星期的上機實習，我體會頗深，不僅表現(xiàn)在VB語言程序設計中，而且表現(xiàn)在與人交流和獨立自主完成任務的決心中。

本次上機在VB程序設計中我學會了很多以前不會或根本一點都不懂的東西。比如，在程序設計過程中，剛開始我弄不清楚怎樣把編輯的文件讀到VB中，但是通過詢問老師和同學討論，終于弄清了思路，即先將文件打開，再將數(shù)據(jù)分別放入若干個數(shù)組中，最后再將它讀出來。除此之外，我還明白了變量的作用域對編程的重要性和子過程，函數(shù)過程數(shù)據(jù)處理的幫助。而對以前學的，像選擇結構，循環(huán)結構等也進行了鞏固和運用。在數(shù)據(jù)處理和打印的時候進行了大量運用。為了使程序更人性化化，我還運用了msgbox，inputbox等方法，使我對所學的知識進行了綜合的運用。

我相信通過這次實習，我對VB和計算機語言都有了更深刻的認識。雖然在實習的過程中，我發(fā)現(xiàn)了自己在編寫程序中的不足，像思維不夠嚴密等，但我相信，只要認真、努力就一定會有收獲

六.程序代碼

（一）.創(chuàng)建標準模塊

Type student “定義變量：student” number As String * 9 name As String * 3 score(1 To 5)As Single average As Single rank As Integer End Type Type class “定義變量：class” num As String * 9 nam As String * 3 scor As Single End Type Public stu()As student, cla()As class, sumscor As Integer, subj()As class Public q(5)As Integer, t(5)As Integer, x(5)As Integer, y(5)As Integer, h(5)As Integer “定義刪除空格函數(shù)” Public Function deletespace(str As String)As String Dim i% i = InStr(str, “ ”)Do While i <> o str = Replace(str, “ ”, “ ”)i = InStr(str, “ ”)Loop deletespace = str End Function Public Sub addave(stu()As student, cou()As course)“定義計算加 For i = 1 To UBound(stu)權平均分 Dim jqpj!, x!, y!的子過

程

x = 0 y = 0 For j = 1 To 5 x = x + cou(j).score y = y + stu(i).score(j)* cou(j).score Next j stu(i).jqpj = y / x Next i End Sub Public Sub mc(stu()As student)“定義計算排名的子過程” For i = 1 To UBound(stu)stu(i).rank = 0 For j = 1 To UBound(stu)If stu(i).jqpj <= stu(j).jqpj Then stu(i).rank = stu(i).rank + 1 End If Next j Next i End Sub(二).讀取考試成績和課程學分（1）.打開文件

Private Sub studentscore_Click()CommonDialog1.Filter = “文本文件|*.txt” CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Line Input #1, str1 Print str1 Do While Not EOF(1)Line Input #1, str str = deletespace(Trim(str))a = Split(str, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).number = a(0)stu(n).name = a(1)For i = 1 To 5 stu(n).score(i)= a(i + 1)Next i Loop For i = 1 To n Print stu(i).number;Spc(1);stu(i).name;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(3);Next j Print Next i Close #1 End Sub Private Sub classrank_Click()CommonDialog2.Filter = “文本文件|*.txt” CommonDialog2.ShowOpen Open CommonDialog2.FileName For Input As #2 Line Input #2, str2 Print str2 sumscor = 0 Do While Not EOF(2)Line Input #2, str3 str3 = deletespace(Trim(str3))b = Split(str3, “ ”)m = m + 1 ReDim Preserve cla(m)cla(m).num = b(0)cla(m).nam = b(1)cla(m).scor = b(2)sumscor = sumscor + Val(cla(m).scor)Loop For k = 1 To m Print cla(k).num;Spc(2);cla(k).nam;Spc(3);cla(k).scor;Spc(3)Next k End Sub(2).分數(shù)處理

Private Sub ran_Click()“加權平均分及名次” Form1.Cls For n = 1 To 20 sum = 0 For i = 1 To 5 sum = sum + stu(n).score(i)* cla(i).scor Next i stu(n).average = Format(sum / sumscor, “##.##”)Next n For n = 1 To 20 stu(n).rank = 1 For j = 1 To 20 If stu(n).average < stu(j).average Then stu(n).rank = stu(n).rank + 1 End If Next j Next n Print “學號”;Spc(6);“姓名”;Spc(4);“英 語”;Spc(2);“數(shù) 學”;Spc(2);“ 物 理”;Spc(3);“化 學”;Spc(2);“V B”;Spc(2);“加權平均分”;Spc(2);“名次” For n = 1 To 20 Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i Print stu(n).average;Spc(3);stu(n).rank Next n End Sub Private Sub eaverage_Click()“ 課程平均分”

Print Spc(7);“英 語”;Spc(1);“數(shù) 學”;Spc(1);“ 物 理”;Spc(1);“化 學”;Spc(1);“V B” Print “平均分”;For i = 1 To 5 sum = 0 For n = 1 To 20 sum = sum + stu(n).score(i)Next n j = Format(sum / 20, “00.00”)Print Spc(2);j;Next i End Sub（3）.編輯 Private Sub scor_Click()“計算打印個分數(shù)段人數(shù)” Form1.Cls Print “范圍”;“英 語”;Spc(3);“數(shù) 學”;Spc(3);“ 物 理”;Spc(3);“化 學”;Spc(3);“V B” For i = 1 To 5 For n = 1 To 20 Select Case stu(n).score(i)Case 90 To 100 q(i)= q(i)+ 1 Case 80 To 89 x(i)= x(i)+ 1 Case 70 To 79 t(i)= t(i)+ 1 Case 60 To 69 h(i)= h(i)+ 1 Case Else y(i)= y(i)+ 1 End Select Next n Next i Print “>90”;For i = 1 To 5 Print Spc(4);q(i);Next i Print Print “80_89”;For i = 1 To 5 Print Spc(4);x(i);Next i Print Print “70_79”;For i = 1 To 5 Print Spc(4);t(i);Next i Print Print “60_69”;For i = 1 To 5 Print Spc(4);h(i);Next i Print Print “<60”;For i = 1 To 5 Print Spc(4);y(i);Next i End Sub Private Sub stuscolist_Click()“打印成績條” Form1.Cls n = InputBox(“請輸入學號”)Print “學號”;Spc(5);“姓名”;Spc(3);“英 語”;Spc(3);“數(shù) 學”;Spc(3);“ 物 理”;Spc(3);“化 學”;Spc(3);“V B” Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i End Sub Private Sub excellent_Click()“打印優(yōu)等生” Form1.Cls Dim t As Integer Print “姓名”;Spc(4);“學號”;Spc(8);“英 語”;Spc(4);“數(shù) 學”;Spc(3);“ 物 理”;Spc(3);“化 學”;Spc(4);“V B”;Spc(6);“平均分”;Spc(4);“名次” For i = 1 To 20 t = 0 For j = 1 To 5 If stu(i).score(j)>= 95 Then t = t + 1 End If Next j If stu(i).average >= 85 And t >= 2 Or stu(i).average >= 90 Or stu(i).rank <= 3 Then Print stu(i).name;Spc(2);stu(i).number;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(5);Next j Print stu(i).average;Spc(5);stu(i).rank End If Next i End Sub Private Sub ugstulist_Click()“打印不及格學生” Form1.Cls For n = 1 To 20 For i = 1 To 5 If stu(n).score(i)< 60 Then Print stu(n).number;stu(n).name;stu(n).score(i);cla(i).nam;cla(i).scor End If Next i Next n End Sub（5）.成績分布圖

Private Sub Command1_Click()“新建窗體form2” For i = 0 To 4 Picture1(i).Scale(0, 14)-(100, 0)Picture1(i).Line(10, 2)-(92, 2), vbRed Picture1(i).Print “分數(shù)段” Picture1(i).Line(10, 2)-(10, 14), vbRed Picture1(i).Print “人數(shù)” For j = 2 To 10 Step 2 Picture1(i).CurrentY = j + 2 Picture1(i).CurrentX = 4 Picture1(i).Print j Next j Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Line(10, 2)-(26, 2 + q(1 + i)), vbGreen, BF Picture1(i).CurrentX = 26 Picture1(i).CurrentY = 2 Picture1(i).Line(26, 2)-(42, 2 + x(i + 1)), vbRed, BF Picture1(i).CurrentX = 42 Picture1(i).CurrentY = 2 Picture1(i).Line(42, 2)-(58, 2 + t(i + 1)), vbGreen, BF Picture1(i).CurrentX = 58 Picture1(i).CurrentY = 2 Picture1(i).Line(58, 2)-(74, 2 + h(i + 1)), vbRed, BF Picture1(i).CurrentX = 74 Picture1(i).CurrentY = 2 Picture1(i).Line(74, 2)-(90, 2 + y(i + 1)), vbGreen, BF Picture1(i).Line(10, 2)-(26, 2), vbGreen Picture1(i).Line(26, 2)-(42, 2), vbRed Picture1(i).Line(42, 2)-(58, 2), vbGreen Picture1(i).Line(58, 2)-(74, 2), vbRed Picture1(i).Line(74, 2)-(90, 2), vbGreen Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Print “ >=90 80-89 70-79 60-69 <=60” Next i End Sub

第四篇：CAD上機實習報告

CAD

班級：電子質檢1101班 姓名：郭利智 學號：2011110902 指導老師：潘慶杰 上機實習報告

CAD上機實習報告

1.實習任務

用一周的時間對AUTOCAD軟件練習的同時，完成機自教研室發(fā)的二維圖例以及6個練習圖，并完成相應的實習報告，并將繪制圖形的各個步驟在實習報告中體現(xiàn)出來，將在實習過程中遇到的問題和繪圖的關鍵步驟更具體的按要求寫。

2.實習任務圖（見附頁）

3.實習任務圖分析：

在老師所給的這些圖中，基本包含了所有AUTOCAD經(jīng)常使用的畫圖命令，并且能夠進行熟練的操作，為以后的學習和工作打下堅定的基礎。因此，畫好這些圖很有意義。

4.CAD上機實習總結

我們在此CAD培訓中，不僅掌握了一些畫圖命令，更加熟悉了CAD環(huán)境和CAD桌面系統(tǒng)操作并且能夠熟練的進行操作，進而畫出一些簡單二維圖形，還學會了一些畫圖的快捷命令，使我的畫圖速度有所提高，也為我以后的學習和工作提供了有利的條件。

對于AUTOCAD，在繪圖過程中，通過老師的講解和自己的摸索以為自己以前所學的知識，我能熟練的運用有關快捷的命令，比起以前手繪圖快了許多。更重要的是掌握了有關字母類的快捷命令，更方便了繪圖。

第五篇：arcgis上機實習報告

課程實習報告

實習課程：《ArcGIS專業(yè)技能訓練實習報告》

姓

名：

學

號：

專

業(yè)：

班

級：

2012年 6月

20日

ArcGIS專業(yè)技能訓練實習報告

實習目的：

通過學習Arcgis這款Gis應用軟件熟練我們的實際應用能力，深入理解GIS軟件應用的核心部分，通過熟練Arcgis能掌握類似相關軟件操作，加強動手能力。

實習步驟：

1.對Arcgis軟件整體掌握，并與之前各類軟件操作對比和學習。

2.具體對軟件操作掌握空間數(shù)據(jù)的采集與組織、數(shù)據(jù)的處理與變、數(shù)據(jù)的可視化表達。

3.Arcgis的空間分析能力的掌握：矢量數(shù)據(jù)的空間分析、柵格數(shù)據(jù)的空間分析、三維分析、地統(tǒng)計分析、水文分析等。4.掌握Arcgis的空間分析建模。

實習內容：

根據(jù)練習內容，選擇了練習第3、4、5、7、12章的內容，其余在課下自己練習完成，這些章內容分別為：空間數(shù)據(jù)的采集與組織、數(shù)據(jù)的處理與變換、數(shù)據(jù)的可視化表達、矢量數(shù)據(jù)空間分析、空間分析建模

Geodatabase是一種采用標準關系數(shù)據(jù)庫技術來表現(xiàn)地理信息的數(shù)據(jù)模型。Geodatabase支持在標準的數(shù)據(jù)庫管理系統(tǒng)（DBMS）表中存儲和管理地理信息。一． 基于Geodatabase的數(shù)據(jù)庫設計

Geodatabase支持面向對象的矢量數(shù)據(jù)模型，它將地理數(shù)據(jù)組織成一個數(shù)據(jù)對象的結構體系。在Geodatabase模型中，實體被表示為屬性,行為，關系的對象。Geodatabase還允許用戶定義對象之間的關系，以及保持對象之間參照完整性的規(guī)則。Geodatabase也定義了簡單的對象，地理要素，幾何網(wǎng)絡，注記要素等多種對象類型。二． Geodatabase中的信息類型

1.表（table）：是記錄的集合，每個記錄（行）中包括許多列（字段）；

2.對象類（object classes）：對象表示一個沒有空間幾何的實體，沒有位置相關信息，但是可以通過關系類與要素聯(lián)系起來，一個對象類作為一個表存儲在Geodatabase中，一個對象是表中的一行。3.要素類（feature classes）：表示有空間幾何的實體，有位置相關信息。要素類是具有相同的屬性和相同的幾何表示類型的要素集合。1）簡單要素類：沒有拓撲關聯(lián)，包括點，線，多邊形，注記等多種類型，以要素的方式管理，存放在要素集內外均可。

2）復雜要素類則是有拓撲關聯(lián)的若干個要素類的組合，必須存放在同一個要素數(shù)據(jù)集中，例如拓撲要素、幾何網(wǎng)絡等類型。

4.子類（subtype）：在要素類內部可以劃分若干個次一級的組，每個組是一個子類。每個子類有其自己的完整性規(guī)則和GIS行為。5.要素數(shù)據(jù)集（feature database）：要素數(shù)據(jù)集是一個具有相同空間參照的要素類的集合。

6.關系（relationships）：是一種表（或要素類）與表（或要素類）之間的聯(lián)系機制。關系類建立在對象（或要素）類之間，由一個對象（或要素）類指向另一個對象（或要素）類。

7.柵格數(shù)據(jù)集（raster data sets）:影像作為柵格表來管理。

8.拓撲關系（topology）：拓撲關系將參與拓撲的各個要素類集成在一個拓撲圖中作為一個拓撲單元來管理，規(guī)定同一個要素類中的各個要素如何與其他要素共享幾何或不同要素類之間如何共享幾何。9.元數(shù)據(jù)：對數(shù)據(jù)庫中各個數(shù)據(jù)元素的描述。

10.幾何網(wǎng)絡（geometric network）：若干個要素類作為一個整體參與到幾何網(wǎng)絡的構造，Geodatabase通過拓撲關聯(lián)保證參與到幾何網(wǎng)絡中的各個要素類的空間幾何的連通性。幾何網(wǎng)絡將導致保證網(wǎng)絡連通性的行為。

三． Geodatabase的優(yōu)勢：

1.所有圖形數(shù)據(jù)和屬性數(shù)據(jù)統(tǒng)一存儲在商業(yè)DBMS中。

2.便于使用DBMS支持的多用戶并發(fā)訪問、事務管理、失敗事務恢復、用戶權限策略等機制，有利于空間信息共享、數(shù)據(jù)安全，提高了數(shù)據(jù)庫性能。

3.支持智能化的要素、規(guī)則和關系。4.完善的用戶支持。

四．Geodatabase數(shù)據(jù)庫設計的內容

1.基本內容是規(guī)定 構成數(shù)據(jù)庫的要素類、柵格數(shù)據(jù)集、其他表，以及表之間的各種關系。

2.其中，要素（或對象）類之間的關系通過要素數(shù)據(jù)集、關系類、拓撲來管理。

3.一個要素數(shù)據(jù)集中的各個要素類具有相同的空間參照；拓撲類、幾何網(wǎng)絡中的要素類受拓撲完整性約束。五

Geodatabase數(shù)據(jù)庫設計的步驟

1.用戶視圖建模 2.定義實體和關系 3.明確實體的表示 4.匹配到Geodatabase模型 5.組織地理數(shù)據(jù)集

六．將地理實體表示為Geodatabase數(shù)據(jù)類型

要在識別地理實體并決定其幾何表示類型之后，決定數(shù)據(jù)如何在Geodatabase中表示。具體包括兩方面處理：

1.決定各種地理實體的表示類型及其拓撲關系； 2.決定各實體的屬性字段。

決定實體的表示類型的依據(jù)是其幾何表示類型：點實體用點要素、簡單節(jié)點、復合節(jié)點表示，線實體用線要素、簡單邊、復合邊表示，面實體用多邊形要素表示，表面實體用TIN或柵格數(shù)據(jù)集表示，空間位置無關的實體用對象（表）表示。

? 其中點、線、面實體的離散分布有兩種：

1.獨立分布的實體，與其他要素無關，可以表示為簡單的點、線、面要素；

2.與其他要素的分布相關，這種點、線實體可以表示為節(jié)點、邊要素，面實體表示為有拓撲關系的多邊形要素。

? 考慮要素之間的拓撲關系，定義復合要素類:平面拓撲和幾何網(wǎng)絡。?平面拓撲強制保證要素不能相互交叉而沒有交點。如土地或區(qū)劃系統(tǒng)，采用平面拓撲管理要素間的公共邊。

? 幾何網(wǎng)絡強制保持網(wǎng)絡要素之間的連通性，是網(wǎng)絡編輯易于操作。如對于線狀系統(tǒng)，交通網(wǎng)絡，多采用幾何網(wǎng)絡表示。? 確定對象的屬性類型

1.主要依據(jù)要素（或對象）的專題性質而定。

2.每個實體可能有多種屬性，依據(jù)相關原則確定每種屬性（字段）的數(shù)據(jù)類型，使用默認值、域等工具保證數(shù)據(jù)的完整性。六． 將數(shù)據(jù)組織到Geodatabase地理數(shù)據(jù)集

1.工作包括：

（1）.劃分要素類和子類（2）.規(guī)定要素類的拓撲關系（3.）構建地理數(shù)據(jù)集（4.）組織地理數(shù)據(jù)庫

（1）劃分要素類和子類

下列情況下必須建立單列的要素類：

1）當各組相關要素的屬性字段組合根本不同時 2）當各組相關要素需要有特有的定制行為時 3）當需要對各組要素賦予不同存取權限時

4）當有些要素要采用版本管理存取而另一些要素不需要版本管理時（2）規(guī)定要素類的拓撲關系

1）將相關要素分組為幾何網(wǎng)絡好或平面拓撲

2）如果要素類是獨立點、線、面要素，那么它不參與幾何網(wǎng)絡或者平面拓撲

3）如果要素類是簡單邊、簡單節(jié)點、復合邊、復合節(jié)點，那么它參與幾何網(wǎng)絡的構成

4）如果要素類是拓撲關聯(lián)的多邊形要素類，其內部各個要素必須滿足特定的拓撲關系（3）構建地理數(shù)據(jù)集

1）要素數(shù)據(jù)集是一個容器，使用它可以將相似的要素類組合在一起。2）將具有相同空間參照的要素類組織到同一個要素數(shù)據(jù)集中是有利的，因為不同要素數(shù)據(jù)集在運算過程中可能會出現(xiàn)細微的差別而引起數(shù)據(jù)不一致。3）同時參加到平面拓撲或幾何網(wǎng)絡中的各個要素類必須被組織到同一個要素數(shù)據(jù)集中。

（4）最后將要素數(shù)據(jù)集和要素類組合起來。

1）確定了各要素及其拓撲聯(lián)系之后，最后需要將它們組合到地理數(shù)據(jù)庫中。2）如果企業(yè)用戶包括多個部門，不同部門使用不同的數(shù)據(jù)集。地理數(shù)據(jù)庫可以安裝企業(yè)組織結構部署。

4）如果使用personal Geodatabases,由于數(shù)據(jù)庫容量的限制，必須對數(shù)據(jù)庫按專題或空間進行分割。七． Geodatabase的建庫步驟

1.在F盤中建立自己的文件夾070141； 2.在自己的文件夾中建立個人數(shù)據(jù)庫database;截圖說明

3.在personal database中建立點要素a，線要素aa，面要素aaa。八． Geodatabase的拓撲建立

若干個要素類作為一個整體參與到幾何網(wǎng)絡的構造，Geodatabase通過拓撲關聯(lián)保證參與到幾何網(wǎng)絡中的各個要素類的空間幾何的連通性。幾何網(wǎng)絡將導致保證網(wǎng)絡連通性的行為。

1.右鍵單擊數(shù)據(jù)庫database，點擊new再點擊Feature Dataset

截圖說明：

出現(xiàn)對話框New Feature Dataset 在name中填寫名字topology;2.點擊“下一步”出現(xiàn)如下對話框，點擊對話框中的Import,又出現(xiàn)對話框在Ext文件夾中點擊Blocks.shp，點擊Add即可添加數(shù)據(jù)；

截圖說明；

再點擊繼續(xù)點擊下一步，下一步，F(xiàn)inish,即可建立topology； 3.右鍵單擊topology，點擊Import,再點擊Feature Class(mulitiple)

截圖說明：

出現(xiàn)如下對話框，在對話框中點擊第一個圖標瀏覽，在出現(xiàn)的對話框中加入Ex1中的兩個數(shù)據(jù)Blocks.shp和Parcels.shp，點擊Add；

點擊ok，則topology中增加了Blocks.shp和Parcels.shp兩個數(shù)據(jù)項； 4.右鍵單擊topology中的Blocks,點擊Properties 截圖說明：

出現(xiàn)如下對話框, 在對話框中的子類SubtypeField一欄下拉選擇Res,在Subtype中設置Code和Description為0，nonres;1，res； 點擊確定；

截圖說明：

4.同理設置Parcels的Properties；

5.右鍵單擊topology，點擊new，再點擊Topology：

6.在出現(xiàn)的如下對話框中點擊下一步

7在.出現(xiàn)的如下對話框中點擊下一步

8.在出現(xiàn)的New Topology如下對話框中點擊Select All 截圖說明：

9.在出現(xiàn)的New Topology如下對話框中，在Enter the number of ranks中填1；

10.點擊下一步，在出現(xiàn)的New Topology對話框中，點擊Add Rule,再Add Rule中的三欄中選擇Parcels，Must Not Overlap With，Blocks，點擊ok； 截圖說明：

點擊下一步，再點擊Finish.再出現(xiàn)的對話框是否拓撲查詢，點擊否。則在Topology中建立了topology-Topology。

11.打開ArcMap，將topology-Topology拖到ArcMap的Layers中，則在Layers中添加了topology-Topology，Blocks和Parcels； 截圖說明：

12.點擊工具欄中的View，點擊Toolbars，再點擊Topology，將出現(xiàn)進行拓撲操作的Topology工具欄；在Editor下拉菜單中點擊Starting Editor，將工具激活；

截圖說明：

13.點擊Topology工具欄的Topology Editor Tool圖標，雙擊弧線段，在結點處進行操作即可

拓撲結果圖：