delphi课程设计报告

1、delphi课程设计报告delphi课程计划呈报教院：盘算机手艺取硬件工程教院班级：盘算机疑息办理09302班教号：09033699姓名：冯树新引导先生：何定华一：计划称号：用delphi分离所教学问计划一个收集版成就办理体系2：计划内容及请求：1、利用基于tcp/ip协定的多层散布式数据库，创建办事器、客户端。2、请求3张表，个中：两张成就表、一张登录表，能够真现基础的查问、加减建改、删除了功效。3、利用皮肤控件，能够改换皮肤。4、利用注册表编程、利用网卡mac天址编程，运转次数由注册表把持。5、造做关心文件、造做安置步伐。6、界里好不雅、友爱。3：计划历程：1，办事器。a)用databas

2、e desktop创立3张表分手为：sgcj.DB、yhdl.db、shcj.DB，用去寄存教死相干疑息等。b)挨开delphi，正在form1中加减bsskinlable1，正在其caption属性中写上“服务器运转中.”，加减“bsBusinessSkinForm1”，“bsSkinData1”，“bsStoredSkin1”，配置bsBusinessSkinForm1的skindata属性为“bsSkinData1”，配置bsSkinData1的storeskin属性为“bsStoredSkin1”，正在bsStoredSkin1的filename值为恣意的一skin.inic)File

3、newothersmultitierremote data module，coclass name为socket，正在socket上加减table1，table2，table3，datasetprovider1，datasetprovider2，datasetprovider3，配置table1，table2，table3，的databasename为e:delphidelphidata（表地点的途径），tablename分手为：sgcj.db，shcj.DB，yhdl.db，datasetprovider1，datasetprovider2，datasetprovider3的dataset分

4、手配置为table1，table2，table3。2，客户端。a)正在form1中加减bsSkinDBGrid1，SocketConnection1，DataSource1，DataSource2，ClientDataSet1，ClientDataSet2，DataSource1，DataSource2，加减“bsBusinessSkinForm1”，“bsSkinData1”，“bsStoredSkin1”，“bsStoredSkin2”，“bsStoredSkin3”，“bsStoredSkin4”，为“bsStoredSkin1”，“bsStoredSkin4”分手拔取4个skin.in

5、i “bsStoredSkin2”，“bsStoredSkin3”，文件。配置SocketConnection1的address为“”，servername为Project1.socket，connected为“true”，配置DataSource1的dataset属性“ClientDataSet1”，配置DataSource2的dataset属性“ClientDataSet2”配置bsSkinDBGrid1的skindata属性为bsSkinData1，加减bsSkinScrollBar1，bsSkinScrollBar2，配置其skindata属性为bsSkinData1

6、，bsSkinScrollBar2的kind属性为sbV ertical，bsSkinScrollBar1kind属性为sbHorizontal，bsSkinDBGrid1的hscrollbar为bsSkinScrollBar1，vscrollbar 为sbV ertical。配置配置加减bsSkinLabel10，其caption属性为取舍表，配置其skindata属性为bsSkinData1，加减bsSkinComboBox2，正在其tems 属性中写下成就表一，成就表2，配置其skindata属性为bsSkinData1，正在其onclick事务中写进代码：procedure TForm

7、1.bsSkinComboBox2Click(Sender: TObject);beginif bsSkinComboBox2.Text=成就表一then beginClientDataSet1.Active:=true;bsSkinDBGrid1.DataSource:=dataSource1;end;if bsSkinComboBox2.Text=成就表2then beginClientDataSet2.Active:=true;bsSkinDBGrid1.DataSource:=dataSource2;end;end;加减bsSkinLabel9，其caption属性为取舍作风，配置其s

8、kindata属性为bsSkinData1，加减bsSkinComboBox1，正在其tems属性中写上风格一，作风2，作风3，作风4，配置其skindata属性为bsSkinData1，正在其onclick 事务中写进代码：procedure TForm1.bsSkinComboBox1Click(Sender: TObject);var reg:tregistry;beginif bsSkinComboBox1.Text=作风一then beginbsSkinData1.StoredSkin:=bsStoredSkin1;bsSkinComboBox1.SkinData:=bsSkinDa

9、ta1;reg:=tregistry.Create;reg.RootKey:=HKEY_LOCAL_MACHINE;if reg.OpenKey(sotfwaremicrosofttest,true)then beginreg.WriteInteger(count,1);end;end;if bsSkinComboBox1.Text=作风2then beginbsSkinData1.StoredSkin:=bsStoredSkin2;bsSkinComboBox1.SkinData:=bsSkinData1;reg:=tregistry.Create;reg.RootKey:=HKEY_LOC

10、AL_MACHINE;if reg.OpenKey(sotfwaremicrosofttest,true)then beginreg.WriteInteger(count,2);end;end;if bsSkinComboBox1.Text=作风3then beginbsSkinData1.StoredSkin:=bsStoredSkin3;bsSkinComboBox1.SkinData:=bsSkinData1;reg:=tregistry.Create;reg.RootKey:=HKEY_LOCAL_MACHINE;if reg.OpenKey(sotfwaremicrosofttest

11、,true)then beginreg.WriteInteger(count,3);end;end;if bsSkinComboBox1.Text=作风4then beginbsSkinData1.StoredSkin:=bsStoredSkin4;bsSkinComboBox1.SkinData:=bsSkinData1;reg:=tregistry.Create;reg.RootKey:=HKEY_LOCAL_MACHINE;if reg.OpenKey(sotfwaremicrosofttest,true)then beginreg.WriteInteger(count,4);end;e

12、nd;end;加减bsSkinPanel1，配置其skindata属性为bsSkinData1，正在下面加减bsSkinButton1，bsSkinButton2，bsSkinButton3，bsSkinButton4其caption 分手为：尾条，上一条，下一条，终条。配置其skindata属性为bsSkinData1正在其onclick事务上写下代码：procedure TForm1.bsSkinButton1Click(Sender: TObject);beginif bsSkinDBGrid1.DataSource=DataSource1then beginClientDataSet1

13、.First;end;if bsSkinDBGrid1.DataSource=DataSource2then beginClientDataSet2.First;end;end;procedure TForm1.bsSkinButton2Click(Sender: TObject);beginif bsSkinDBGrid1.DataSource=DataSource1then beginClientDataSet1.Prior;end;if bsSkinDBGrid1.DataSource=DataSource2then beginClientDataSet2.Prior;end;end;p

14、rocedure TForm1.bsSkinButton3Click(Sender: TObject);beginif bsSkinDBGrid1.DataSource=DataSource1then beginClientDataSet1.Next;end;if bsSkinDBGrid1.DataSource=DataSource2then beginClientDataSet2.Next;end;end;procedure TForm1.bsSkinButton4Click(Sender: TObject);beginif bsSkinDBGrid1.DataSource=DataSou

15、rce1then begin/doc/7c9c3a05eff9aef8941e06ab.htmlst;end;if bsSkinDBGrid1.DataSource=DataSource2then begin/doc/7c9c3a05eff9aef8941e06ab.htmlst;end;end;加减bsSkinDBNavigator1，配置其skindata属性为bsSkinData1，DataSource为DataSource1。加减bsSkinLabel1，bsSkinLabel2，bsSkinLabel3，bs

16、SkinLabel4，bsSkinLabel5，bsSkinLabel6，bsSkinLabel7，bsSkinLabel8，bsSkinLabel11他们的caption属性分手为：教号，姓名，性别，语文，数教，英语，综开，是不是党员，照片，配置他们的skindata属性皆为bsSkinData1，加减bsSkinDBEdit1，bsSkinDBEdit2，bsSkinDBEdit3，bsSkinDBEdit4，bsSkinDBEdit5，bsSkinDBEdit6，其DataSource皆为DataSource1，其datafield分手对于应，加减bsSkinDBRadioGroup1，

17、bsSkinDBRadioGroup2，配置其skindata属性皆为bsSkinData1，配置datafield分手为性别，是不是党员，正在items属性平分别加减男，女以及Y，F，配置columns值皆为2，加减bsSkinDBImage1，控件OpenPictureDialog1，正在bsSkinDBImage1的onclick事务上写下代码：procedure TForm1.bsSkinDBImage1Click(Sender: TObject);beginif openpicturedialog1.Executethen beginclientdataset1.Edit;bsski

18、ndbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);clientdataset1.Post;end;end;加减bsSkinButton7，bsSkinButton8，caption分手为总分，名次，正在bsSkinButton7的onclick事务上写下代码：procedure TForm1.bsSkinButton7Click(Sender: TObject);vari,s:integer;beginif bsSkinComboBox2.text=成就表一then beginif bsSkinDBGrid1.DataSou

19、rce=dataSource1thenClientDataSet1.First;while not ClientDataSet1.eof dobegins:=0;for i:=4 to ClientDataSet1.fieldcount-6 dos:=s+ClientDataSet1.Fieldsi.AsInteger;ClientDataSet1.Edit;ClientDataSet1.FieldByName(总分).AsInteger:=s;ClientDataSet1.Post;ClientDataSet1.Next;end;end;if bsSkinComboBox2.text=成就表

20、2then beginif bsSkinDBGrid1.DataSource=dataSource2thenClientDataSet2.First;while not ClientDataSet2.eof dobegins:=0;for i:=4 to ClientDataSet2.fieldcount-6 dos:=s+ClientDataSet2.Fieldsi.AsInteger;ClientDataSet2.Edit;ClientDataSet2.FieldByName(总分).AsInteger:=s;ClientDataSet2.Post;ClientDataSet2.Next;

21、end;end;end;正在bsSkinButton8的onclick事务上写下代码：procedure TForm1.bsSkinButton8Click(Sender: TObject);varbm:tbookmarkstr;mmcc,zzff:integer;beginbm:=ClientDataSet1.Bookmark;ClientDataSet1.IndexName:=zf;mmcc:=-1;zzff:=-1;ClientDataSet1.First;while not ClientDataSet1.Eof dobeginClientDataSet1.Edit;ClientData

22、Set1.FieldByName(名次).AsInteger:=ClientDataSet1.RecNo;ClientDataSet1.Post;if ClientDataSet1.FieldByName(总分).AsInteger=zzffthen beginClientDataSet1.Edit;ClientDataSet1.FieldByName(名次).AsInteger:=mmcc;ClientDataSet1.Post;end;zzff:=ClientDataSet1.FieldByName(总分).AsInteger;mmcc:=ClientDataSet1.FieldByNam

23、e(名次).AsInteger;ClientDataSet2.Next;end;ClientDataSet1.IndexName:=;ClientDataSet1.Bookmark:=bm;end;filenewothersbsinessquick report wizard加减bsSkinButton5，caption属性为挨印，正在onclick事务上写下代码：form3.QuickRep1.Preview;加减bsSkinLabel12caption属性为请输出教号，加减bsSkinEdit1，加减bsSkinButton6，其caption属性为查问，他们的skindata属性为bsS

24、kinData1 ，正在bsSkinButton6的onclick光阴上写下代码：procedure TForm1.bsSkinButton6Click(Sender: TObject);beginif bsSkinComboBox2.text=成就表一then beginif not ClientDataSet1.Locate(教号,bsSkinEdit1.Text,)then ShowMessage(查无这人！);end;if bsSkinComboBox2.text=成就表2then beginif not ClientDataSet2.Locate(教号,bsSkinEdit1.Tex

25、t,)then ShowMessage(查无这人！);end;end;加减bsSkinEdit12，bsSkinButton9属性为删除了，配置他们的skindata属性为bsSkinData1，其onclick事务上写下代码：procedure TForm1.bsSkinButton9Click(Sender: TObject);beginif bsSkinComboBox2.text=成就表2then beginif ClientDataSet2.Locate(教号,bsSkinEdit12.Text,)then beginClientDataSet2.Delete;ClientDataS

26、et2.ApplyUpdates(2);endelse showmessage(查无这人！);end;if bsSkinComboBox2.text=成就表一then beginif ClientDataSet1.Locate(教号,bsSkinEdit12.Text,)then beginClientDataSet1.Delete;ClientDataSet1.ApplyUpdates(2);endelse showmessage(查无这人！);end;end;加减RzSizePanel1正在他下面加减两个Image，分手为Image1，Image2，加减bsSkinButtonsBar1，

27、正在其section属性上加减3个值分手为导航，选表，换作风，正在导航的items中加减尾条，上一条，下一条，终条，正在选表的items中加减成就表一，成就表2，正在换作风的items中加减作风一，作风2，作风3，作风4加减一个ImageList1控件正在内里加减一些图片，配置itemimages属性为ImageList1他们的skindata属性为bsSkinData1，各按钮事务取后面的不异，那里没有再赘述。计划好后的视图：登录窗心：b)新建一form，加减bsSkinLabel1，bsSkinLabel2，bsSkinLabel3，其caption属性分手为：悲迎利用教死疑息体系，用户名

28、，稀码，加减bsSkinComboBox1，bsSkinPasswordEdit1，bsSkinButton1，bsSkinButton2其caption属性为登录，加入，以上各控件的skindata属性为bsSkinData1，加减bsBusinessSkinForm1，bsSkinData1，bsStoredSkin1，ClientDataSet1，SocketConnection1，配置bsBusinessSkinForm1的skindata属性为“bsSkinData1”，配置bsSkinData1的storeskin属性为“bsStoredSkin1”，正在bsStoredSkin1

29、的filename值为恣意的一skin.ini，配置ClientDataSet1的remoteserver为SocketConnection1，providername为DataSetProvider3 配置SocketConnection1的的address为，connected为true，servername为Project1.socket，正在bsSkinButton1的Onclick事务上写下代码：procedure TForm2.bsSkinButton1Click(Sender: TObject);varst:string;mima:string;beginst:

30、=bsSkinComboBox1.Text;clientdataset1.First;clientdataset1.Locate(用户名,st,);mima:=clientdataset1.FieldByName(稀码).AsString;if mima=bsSkinPasswordEdit1.Textthen beginform2.Hide;form1.show;endelse beginshowmessage(稀码同伴！);end;end;FormCreate写下代码：procedure TForm2.FormCreate(Sender: TObject);beginclientdatas

31、et1.First;while not clientdataset1.Eof dobeginbsskincombobox1.Items.Add(clientdataset1.FieldByName(用户名).AsString);clientdataset1.Next;end;end;bsSkinButton2写下代码：procedure TForm2.bsSkinButton2Click(Sender: TObject);beginapplication.Terminate;end;加减bsSkinLinkLabel1控件，正在caption属性为“若有疑难，请分割做者！”url为/doc