課程設(shè)計（論文）-delphi 7.0學(xué)校餐飲ic系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：doc 頁數(shù)：33 大小：502.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩32頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　湖南農(nóng)業(yè)大學(xué)　　課程設(shè)計報告　　學(xué)校餐飲IC卡系統(tǒng)　　UNIVERSITY CANTEEN IC CARD SESTEM　　學(xué)生姓名 :

2、 　　年級專業(yè) : 　　指導(dǎo)老師 : 　　學(xué) 院 : 　　提交日期：2007年6月　　目錄<

3、/p>　　前言………………………………………………………………………………………………2　　1.需求分析3　　1.1數(shù)據(jù)需求分析3　　1.1.1數(shù)據(jù)字典3　　1.1.2系統(tǒng)數(shù)據(jù)流圖5</p&

4、gt;　　1.2應(yīng)用系統(tǒng)功能分析5　　2 概要結(jié)構(gòu)設(shè)計5　　3邏輯結(jié)構(gòu)設(shè)計7　　4詳細(xì)設(shè)計與實(shí)現(xiàn)7　　4.1建立數(shù)據(jù)庫和表7　　4.2系統(tǒng)主窗體9</p

5、>　　4.3管理員登錄窗口12　　4.4辦理新卡窗口15　　4.5 IC卡注銷窗口20　　4.6充值窗口234　　4.7管理員權(quán)限窗口26　　4.8關(guān)于系統(tǒng)窗口311

6、　　5總結(jié)311　　參考文獻(xiàn)311　　致謝…………………………………………………………………………………32　　學(xué)校餐飲IC卡系統(tǒng)&l

7、t;b>　　作者： 　　指導(dǎo)老師：　?。ê限r(nóng)業(yè)大學(xué)信息科學(xué)技術(shù)學(xué)院2005級計算機(jī)科學(xué)與技術(shù)專業(yè)3班，長沙 410128）　　摘要：隨著高校招生規(guī)模的不斷擴(kuò)大，學(xué)校的后勤管理變得越來越復(fù)雜，一個重要的方面就是解決學(xué)生的用餐問題。一直延續(xù)

8、的餐票制度已經(jīng)不能適應(yīng)龐大的信息管理需要。引進(jìn)一個信息管理系統(tǒng)就成為解決這一問題的迫切要求。餐飲IC卡系統(tǒng)是根據(jù)學(xué)生的學(xué)籍信息來發(fā)放一張IC智能卡，學(xué)生在卡上充入一定金額，就餐時進(jìn)行刷卡，無現(xiàn)金交易，避免了工作人員找零而耽誤時間。該系統(tǒng)具有辦理新卡、IC卡掛失、IC卡充值、消費(fèi)查詢等功能，為工作人員和學(xué)生就餐提供了方便。　　關(guān)鍵字：餐飲IC卡、SQL2000數(shù)據(jù)庫、Delphi 7</p&

9、gt;　　CANTEEN IC CARD SESTEM FOR CAMPUS　　Author:　　Tutor:　　(Computer and Information Engineering college, Comp

10、uter Science and Technology Class 3,Grade2005, Hunan Agricultural University, ChangSha 410128)　　Abstract: With enrollments in colleges and universities continues to expand, schools logistical managem

11、ent has become increasingly complex, An important aspect is to solve the problem of meals. It has extended the meal ticket system can not cope with large-scale information management needs. The introduction of an informa

12、tion management system for solving the problem is an urgent requirement. Canteen IC card system is based on the information of any pupil to release an IC smart cards students on　　Key words: Canteen I

13、C Card, SQL2000 Server, Delphi 7　　前言　　隨著高校招生規(guī)模的不斷擴(kuò)大，學(xué)校的后勤管理變得越來越復(fù)雜，一個重要的方面就是解決學(xué)生的用餐問題。一直延續(xù)的餐票制度已經(jīng)不能適應(yīng)龐大的信息管理需要。引進(jìn)一個信息管理系統(tǒng)就成為解決這一問題的迫切要求。該系統(tǒng)應(yīng)具有辦理新卡、IC卡掛失、IC卡充值、

14、消費(fèi)查詢、密碼修改等功能。　　1.需求分析　　1.1數(shù)據(jù)需求分析　　學(xué)籍信息：記錄學(xué)生的基本信息，以便于辦理新卡調(diào)出檔案之用。包括學(xué)生姓名、學(xué)號、性別、年級、班級、專業(yè)。　　卡信息：卡號、金額、密

15、碼、辦卡時間。　　卡用戶信息：卡號、學(xué)號、姓名、性別、年級、專業(yè)、班級、辦卡時間　　管理員信息：姓名、性別、出生日期、編號、密碼、權(quán)限　　1.1.1數(shù)據(jù)字典　　表1．卡的各項(xiàng)數(shù)據(jù)描述　　卡={

16、卡號、學(xué)號、金額、密碼，存取方式：更新}　　表2．卡用戶的各項(xiàng)數(shù)據(jù)描述　　卡用戶={卡號、學(xué)號、姓名、性別、年級、專業(yè)　　班級、辦卡日期，存取方式：更新}　　表3．學(xué)籍信息的各項(xiàng)數(shù)據(jù)描述　　學(xué)籍={學(xué)號、姓名、性別、年級、班級、專

17、業(yè)，　　存取方式：更新}　　表4．用戶消費(fèi)的各項(xiàng)數(shù)據(jù)描述　　用戶消費(fèi)={卡號、學(xué)號、消費(fèi)日期、消費(fèi)金額，　　存取方式：更新}　　表5．管理員信息的各項(xiàng)數(shù)據(jù)

18、描述　　管理員={編號、性別、姓名、密碼、出生年月、　　是否超級管理員，存取方式：更新}　　數(shù)據(jù)流描述1={管理員登錄請求，用戶名、密碼，數(shù)據(jù)來源：用戶輸入，　　數(shù)據(jù)流向：在管理員信息表中查找比對}　　數(shù)據(jù)流描述2={辦理新卡，學(xué)

19、號、卡號、密碼、金額，數(shù)據(jù)來源：學(xué)籍　　信息表中查詢結(jié)果，數(shù)據(jù)流向：將新卡信息加入到卡信息表、卡用戶信息表中}　　數(shù)據(jù)流描述3={撤銷卡，卡號、卡用戶表信息，數(shù)據(jù)來源：在卡信息表和卡用戶信息表中與對應(yīng)卡號相關(guān)的信息，數(shù)據(jù)流向：去除學(xué)籍信息表以外的其他表中與被撤銷卡卡號相對應(yīng)的信息}　　1.1.2系統(tǒng)數(shù)據(jù)流圖<

20、;/p>　　1.2應(yīng)用系統(tǒng)功能分析　　圖2 系統(tǒng)功能模塊　　2 概要結(jié)構(gòu)設(shè)計　　圖3 學(xué)生信息實(shí)體E-R圖　　圖4 卡用戶實(shí)體信息E-R圖<

21、;p>　　圖5 管理員實(shí)體信息E-R圖　　圖6 IC卡實(shí)體信息E-R圖　　圖7 系統(tǒng)E-R圖　　3邏輯結(jié)構(gòu)設(shè)計　　根據(jù)餐飲IC卡系統(tǒng)數(shù)據(jù)需求分析，設(shè)計出數(shù)據(jù)的邏輯結(jié)構(gòu)

22、　　數(shù)據(jù)表名稱主要字段　　學(xué)籍信息表：記錄學(xué)生的基本信息，以便于辦理新卡調(diào)出檔案之用。包括學(xué)生姓名、學(xué)號、性別、年級、班級、專業(yè)。　　卡信息表：卡號、金額、密碼、辦卡時間。　　卡用戶信息表：卡號、學(xué)號、姓名、性別、年級、專業(yè)、班級、辦卡時間</

23、p>　　管理員信息表：姓名、性別、出生日期、編號、密碼、權(quán)限　　4詳細(xì)設(shè)計與實(shí)現(xiàn)　　4.1建立數(shù)據(jù)庫和表　　本系統(tǒng)采用的數(shù)據(jù)庫由SQL SERVER 2000搭建，建立名為“canteen”的數(shù)據(jù)庫。各數(shù)據(jù)表的建表SQL腳本語言如下。</p&

24、gt;　　創(chuàng)建“學(xué)籍信息”表的腳本　　CREATE TABLE [dbo].[學(xué)籍信息] (　　[學(xué)號] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[姓名] [char] (10) COLLATE Chinese_PRC_CI_AS

25、NOT NULL ,　　[性別] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[年級] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[班級] [char] (10) COLLATE Chinese_PR

26、C_CI_AS NOT NULL ,　　[專業(yè)] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL 　　) ON [PRIMARY]　　GO　　創(chuàng)建卡信息表的腳本</

27、b>　　CREATE TABLE [dbo].[卡信息] (　　[卡號] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[學(xué)號] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,<p&

28、gt;　　[金額] [float] NOT NULL ,　　[狀態(tài)] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[密碼] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL 　　) ON [PRIMARY]</p&g

29、t;　　GO　　創(chuàng)建卡用戶信息表的腳本　　CREATE TABLE [dbo].[卡用戶信息] (　　[卡號] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[學(xué)號]

30、 [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[姓名] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[性別] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,<p&g

31、t;　　[年級] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[專業(yè)] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[班級] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,

32、　　[辦卡日期] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL 　　) ON [PRIMARY]　　GO　　創(chuàng)建管理員表的腳本

33、　CREATE TABLE [dbo].[管理員表] (　　[編號] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[性別] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[姓名] [char] (10) COLL

34、ATE Chinese_PRC_CI_AS NOT NULL ,　　[密碼] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[出生年月] [datetime] NOT NULL ,　　[是否超級管理員] [char] (10) COLLATE Chinese_

35、PRC_CI_AS NOT NULL 　　) ON [PRIMARY]　　GO　　4.2系統(tǒng)主窗體　　圖8 系統(tǒng)主窗體

36、;　　系統(tǒng)主窗體主要代碼如下：　　uses loginF, //管理員登錄窗口　　addcardF, //辦理新卡窗口　　addmoneyF, //IC卡充值窗口　　adminF, //

37、管理員權(quán)限窗口　　dropcardF, //IC卡注銷窗口　　aboutF; //關(guān)于系統(tǒng)窗口　　//************狀態(tài)欄顯示是期函數(shù)************　　function Load_Week(const Dt

38、ime: TDateTime): string;　　const　　dstr: array[1..7] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '

39、星期六');　　begin　　result := dstr[DayOfWeek(dtime)];　　end;　　//*************狀態(tài)欄顯示日期，星期，系統(tǒng)時間 *******

40、****　　procedure Tmain.Timer1Timer(Sender: TObject);　　begin　　state.Panels[1].Text := DateToStr(Now);　　state.Panels[2].

41、Text := Load_Week(Now);　　state.Panels[4].Text := TimeToStr(Now);　　end;　　//***************管理員登錄窗口************　　procedu

42、re TMain.N2Click(Sender: TObject);　　begin　　if SpeedButton1.Enabled=true then　　begin　　messagedlg(&#

43、39;已經(jīng)有管理員登錄！',mtInformation,[mbOK],0);　　exit;　　end;　　login.Show;　　end;</

44、p>　　//****************退出系統(tǒng)************　　procedure Tmain.N3Click(Sender: TObject);　　begin　　close;

45、;　　end;　　//********打開辦理新卡窗口************　　procedure Tmain.N4Click(Sender: TObject);　　begin<p&g

46、t;　　addcard.Show;　　end;　　//***********打開IC卡注銷窗口***********　　procedure Tmain.IC4Click(Sender: TObject);　　begi

47、n　　dropcard.Show;　　end;　　//************打開IC卡充值窗口************　　procedure Tmain.IC5Click(Sender: TObject);<

48、;/p>　　begin　　addmoney.Show;　　end;　　//************打開管理員權(quán)限設(shè)置窗口*****　　procedure Tmain.N

49、6Click(Sender: TObject);　　begin　　admin.Show;　　end;　　//*******辦理新卡快捷鍵**********

50、;　　procedure Tmain.SpeedButton1Click(Sender: TObject);　　begin　　N4Click(Sender);　　end;　　//*******IC

51、卡注銷快捷鍵************　　procedure Tmain.SpeedButton4Click(Sender: TObject);　　begin　　IC4Click(Sender);　　end;</

52、b>　　//***********IC卡充值快捷鍵************　　procedure Tmain.SpeedButton5Click(Sender: TObject);　　begin　　IC5Click(Sender

53、);　　end;　　//*************管理員權(quán)限窗口快捷鍵***********　　procedure Tmain.SpeedButton6Click(Sender: TObject);　　begin&l

54、t;/b>　　N6Click(Sender);　　end;　　//**********關(guān)于系統(tǒng)提示**********　　procedure Tmain.N11Click(Sender: TObject);

55、　　begin　　about.Show;　　end;　　end.　　4.3管理員登錄窗口<

56、b>　　圖9管理員登路窗口　　管理員登錄窗口主要代碼如下：　　public　　{ Public declarations }　　procedure clear();//定義清除函數(shù)clear();</p

57、>　　end;　　var　　login: Tlogin;　　implementation　　{$R *.dfm}　　uses

58、mainF;　　// *********清除輸入框信息函數(shù)clear()***********　　procedure Tlogin.clear;　　begin　　edit1.Clear;　　e

59、dit2.Clear;　　end;　　//***********用戶登錄過程************　　procedure Tlogin.BitBtn1Click(Sender: TObject);　　var<

60、/b>　　number,user,passw,issuper:string;　　begin　　user:=trim(edit1.Text);　　passw:=trim(edit2.Text);<p&

61、gt;　　//要求在用戶姓名輸入框和密碼輸入框中輸入信息　　if user='' then　　begin　　messagedlg('請輸入用戶姓名!',mtWarning,[mbOK],0);　　ed

62、it1.SetFocus;　　exit;　　end;　　if passw='' then　　begin

63、;　　messagedlg('請輸入用戶密碼!',mtWarning,[mbOK],0);　　edit2.SetFocus;　　exit;　　end;　　//查看是否存在此用戶&l

64、t;/p>　　adoquery1.Close;　　adoquery1.SQL.clear;　　adoquery1.SQL.Add('select * from 管理員表 where 姓名 ='''+user+'''and 密碼='''+pas

65、sw+'''');　　adoquery1.Open;　　number:=adoquery1.FieldByName('編號').AsString;　　issuper:=trim(adoquery1.fieldByName('是否超級管理員').AsS

66、tring);　　if (number<>'') then　　begin　　//打開可執(zhí)行權(quán)限　　main.IC1.Enabled:=true; //卡登記&l

67、t;/p>　　main.N4.Enabled:=true; //辦理新卡　　main.IC4.Enabled:=true; //IC卡注銷　　main.IC5.Enabled:=true; //IC卡充值　　main.N5.Enabled:=true;

68、 //密碼修改起始欄　　main.SpeedButton1.Enabled:=true; //辦理新卡　　main.SpeedButton4.Enabled:=true; //IC卡注銷快捷鍵　　main.SpeedButton5.Enabled:=true; //IC卡充值快捷鍵</p

69、>　　if (issuper='是') then　　begin　　//超級管理員可進(jìn)行管理員權(quán)限操作　　main.N6.Enabled:=true; //管理員權(quán)限

70、main.SpeedButton6.Enabled:=true; //管理員權(quán)限快捷鍵　　　end;　　messagedlg(‘ 登錄成功! ',mtInformation,[mbOK],0);　　close;

71、;　　end　　else　　messagedlg('用戶名或密碼錯誤，請核對！',mtWarning,[mbOK],0);　　end;&l

72、t;p>　　//*************退出窗口并清空信息*************　　procedure Tlogin.BitBtn2Click(Sender: TObject);　　begin　　clear();</p&

73、gt;　　close;　　end;　　//**********啟動窗口時清空信息***********　　procedure Tlogin.FormCreate(Sender: TObject);

74、　　begin　　clear();　　end;　　//***********輸入完密碼之后按回車鍵，執(zhí)行登錄***********　　p

75、rocedure Tlogin.Edit2KeyPress(Sender: TObject; var Key: Char);　　begin　　if key=#13 then　　bitbtn1.Click;　　end;

76、　　end.　　4.4辦理新卡窗口　　圖10 辦理新卡窗口　　辦理新卡窗口主要代碼如下：　　public</b

77、>　　{ Public declarations }　　//學(xué)號，姓名，出生年月，性別，專業(yè)，年級字段　　studno,name,bornyear,man,clas,major,grade:string;　　procedure clear(); //定義輸入框信息

78、函數(shù)clear();　　end;　　var　　addcard: Taddcard;　　implementation　　{$R *.dfm}</p&g

79、t;　　uses mainF;　　//清除輸入框信息函數(shù)clear();　　procedure Taddcard.clear;　　begin　　edit1.Clear;

80、　edit2.Clear;　　edit3.Clear;　　edit4.Clear;　　edit5.Clear;　　edit6.Clear;　　radiobutton1.Checked:=false;<

81、p>　　radiobutton2.Checked:=false;　　end;　　//**********顯示總共卡記錄數(shù)**************　　procedure Taddcard.DataSource1DataChange(Sender: TObject; F

82、ield: TField);　　begin　　edit4.Text:=inttostr(adotable1.RecordCount);　　end;　　//**********搜索學(xué)生信息*****

83、*************　　procedure Taddcard.BitBtn3Click(Sender: TObject);　　begin　　if (trim(edit1.Text)='')and (trim(edit2.Text)='')

84、 then　　begin　　MessageDlg(‘請輸入查詢條件! ',mtWarning,[mbOk], 0);　　exit;　　end;<

85、/p>　　adoquery1.Close;　　adoquery1.SQL.Clear;　　adoquery1.SQL.Add('select * from '+adotable1.TableName);　　if radiobutton1.Checked then<

86、/p>　　begin　　//按學(xué)號查詢　　adoquery1.SQL.Add('where('+radiobutton1.Caption+'like ''%'+trim(edit1.Text)+'

87、%'')');　　edit1.SetFocus;　　edit2.Clear;　　end　　else　　begin

88、　　//按姓名查詢　　adoquery1.SQL.Add('where('+radiobutton2.Caption+'like ''%'+edit2.Text+'%'')');

89、;　　edit2.SetFocus;　　edit1.Clear;　　end;　　adoquery1.Open;　　studno:=trim(adoquery1.fieldByName('學(xué)號').AsString);&

90、lt;/p>　　name:=trim(adoquery1.fieldByName('姓名').AsString);　　clas:=trim(adoquery1.fieldByName('班級').AsString);　　man:=trim(adoquery1.fieldByName('性

91、別').AsString);　　grade:=trim(adoquery1.fieldByName('年級').AsString);　　major:=trim(adoquery1.fieldByName('專業(yè)').AsString);　　//將查詢得到的數(shù)據(jù)通過復(fù)制到數(shù)據(jù)

92、庫中　　adotable1.Clone(adoquery1,ltUnspecified);　　adoquery1.Close;　　end;　　//***********辦理新卡***************&l

93、t;p>　　procedure Taddcard.BitBtn1Click(Sender: TObject);　　var　　cardno,cardpassw,money,date,tempcard,tempno:string;　　begin</b

94、>　　cardno:=trim(edit3.Text);　　cardpassw:=trim(edit5.Text);　　money:=trim(edit6.Text);　　date:=datetostr(now);　　//要

95、求用戶輸入基本信息　　if cardno='' then　　begin　　MessageDlg(‘請輸入新卡號！',mtWarning,[mbOk], 0);　　edit3.SetFocus;

96、;　　exit;　　end;　　if cardpassw='' then　　begin　　MessageDlg(‘請為新

97、卡確定密碼！',mtWarning,[mbOk], 0);　　edit5.SetFocus;　　exit;　　end;　　if money='' then

98、;　　begin　　MessageDlg(‘請輸入要充入的金額！',mtWarning,[mbOk], 0);　　edit6.SetFocus;　　exit;<

99、b>　　end;　　//查詢是否已經(jīng)存在此卡號，如是則要求另輸入一新卡號　　adoquery3.Close;　　adoquery3.SQL.Clear;　　adoquery3.SQL.Add('select * from 卡用戶信息 wh

100、ere 卡號='''+cardno+'''');　　adoquery3.Open;　　tempcard:=trim(adoquery3.fieldByName('卡號').AsString);　　adoquery3.Close;</

101、p>　　//查詢該生是否已經(jīng)辦理了卡，不允許一人多卡　　adoquery2.Close;　　adoquery2.SQL.Clear;　　if radiobutton1.Checked then　　adoquery2.SQL.Add('s

102、elect * from 卡用戶信息 where 學(xué)號='''+trim(edit1.Text)+'''')　　else　　adoquery2.SQL.Add('select * from 卡用戶信息 where 姓名=''

103、9;+trim(edit2.Text)+'''');　　adoquery2.Open;　　tempno:=trim(adoquery2.fieldByName('學(xué)號').AsString);　　adoquery2.Close;<p&g

104、t;　　if tempno<>'' then　　begin　　MessageDlg(‘該生已經(jīng)辦理了餐卡!',mtWarning,[mbOk], 0);　　exit;<p&

105、gt;　　end;　　if tempcard<>’’then　　begin　　MessageDlg(‘已經(jīng)存在此卡號，請重新輸入新卡號！’,mtWarning,[mbOk], 0);

106、　edit3.SetFocus;　　exit;　　end;　　//在卡用戶信息表中添加新卡記錄　　adoquery1.Close;　　adoquery1.

107、SQL.Clear;　　adoquery1.SQL.Add('insert into 卡用戶信息(卡號,學(xué)號,姓名,性別,年級,專業(yè),班級,辦卡日期) values ('''+cardno+''','''+studno+''','''+name+''

108、','''+man+''','''+grade+''','''+major+''','''+clas+''','''+date+''')');

109、　　adoquery1.Open;　　adoquery1.Close;　　//在卡信息表中添加新記錄　　adoquery2.Close;　　adoquery2.SQL.Clear;　　adoquery2.SQL.Add('

110、insert into 卡信息(卡號,密碼,學(xué)號,金額,狀態(tài)) values ('''+cardno+''','''+cardpassw+''','''+studno+''','''+money+''',''正常''

111、)');　　adoquery2.ExecSQL;　　adoquery2.Close;　　MessageDlg(‘新卡辦理成功!',mtInformation,[mbOk], 0);　　end;&

112、lt;p>　　//********輸入完查詢條件后按回車執(zhí)行查詢功能**********　　procedure Taddcard.Edit1KeyPress(Sender: TObject; var Key: Char);　　begin　　if key=#13 then

113、　　bitbtn3.Click;　　end;　　// ***********輸入完查詢條件之后按回車執(zhí)行查詢功能********　　procedure Taddcard.Edit2KeyPress(Sender: TObject; v

114、ar Key: Char);　　begin　　if key=#13 then　　bitbtn3.Click;　　end;　　//***********輸入

115、完充值金額后按回車執(zhí)行增加新卡功能*******　　procedure Taddcard.Edit6KeyPress(Sender: TObject; var Key: Char);　　begin　　if key=#13 then

116、Bitbtn1.Click;　　end;　　4.5 IC卡注銷窗口　　圖11 IC卡注銷窗口　　IC卡注銷窗口主要代碼如下：　　public</p&

117、gt;　　{ Public declarations }　　procedure clear(); //定義清除函數(shù)clear();　　end;　　var　　dropcard:

118、 Tdropcard;　　implementation　　{$R *.dfm}　　uses mainF;　　//*****清除各選選項(xiàng)的信息*******　　procedure Tdropcard.clear;

119、　　begin　　edit1.Clear;　　edit2.Clear;　　checkbox1.Checked:=false;　　radiobutton1.Checked:=false;&l

120、t;p>　　radiobutton2.Checked:=false;　　end;　　//***********搜索卡信息*************　　procedure Tdropcard.BitBtn3Click(Sender: TObject);

121、　　begin　　if (trim(edit1.Text)=‘’)and (trim(edit2.Text)='') then　　begin　　messagedlg('請輸入查詢條件!!

122、9;,mtWarning,[mbOK],0);　　edit1.SetFocus;　　exit;　　end;　　adoquery1.Close;　　adoq

123、uery1.SQL.Clear;　　adoquery1.SQL.Add('select * from '+adotable1.TableName);　　if radiobutton1.Checked then　　begin<p&g

124、t;　　adoquery1.SQL.Add('where('+radiobutton1.Caption+'like ''%'+edit1.Text+'%'')');　　edit1.SetFocus;　　edit2.Clear;<

125、b>　　end　　else　　begin　　adoquery1.SQL.Add('where('+radiobutton2.Caption+'like ''%'+e

126、dit2.Text+'%'')');　　edit2.SetFocus;　　edit1.Clear;　　end;　　adoquery1.open;　　adotab

127、le1.Clone(adoquery1,ltUnspecified);　　adoquery1.Close;　　clear();　　end;　　//*************注銷IC卡*******

128、************　　procedure Tdropcard.BitBtn1Click(Sender: TObject);　　begin　　if (trim(edit1.Text)='')and (trim(edit2.Text)='')

129、 then　　begin　　messagedlg('請輸入要注銷的卡號或相應(yīng)學(xué)號!!',mtWarning,[mbOK],0);　　edit1.SetFocus;　　exit;&l

130、t;/p>　　end;　　if checkbox1.Checked then　　begin　　//********刪除卡用戶信息表中的記錄******　　adoquer

131、y1.Close;　　adoquery1.SQL.Clear;　　if radiobutton1.Checked then　　adoquery1.SQL.Add('delete from 卡用戶信息 where 卡號='''+trim(edit1.Text)+''

132、;'')　　else　　adoquery1.SQL.Add('delete from 卡用戶信息 where 學(xué)號='''+edit2.Text+'''');　　adoquery1.ExecS

133、QL;　　//********刪除卡信息表中的記錄*******　　adoquery2.Close;　　adoquery2.SQL.Clear;　　if radiobutton1.Checked then　　adoquery2.S

134、QL.Add('delete from 卡信息 where 卡號='''+trim(edit1.Text)+'''')　　else　　adoquery2.SQL.Add('delete from 卡信息where學(xué)號 ='

135、9;'+trim(edit2.Text)+'''');　　adoquery2.ExecSQL;　　adoquery2.Close;　　//*********刪除用戶消費(fèi)中的相應(yīng)記錄*********　　adoquery1.SQL.C

136、lear;　　if radiobutton1.Checked then　　adoquery1.SQL.Add('delete from 用戶消費(fèi)where卡號='''+trim(edit1.Text)+'''')　　else&l

137、t;/b>　　adoquery1.SQL.Add('delete from 用戶消費(fèi)where 學(xué)號='''+trim(edit2.Text)+'''');　　adoquery1.ExecSQL;　　adoquery1.Close;<

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

課程設(shè)計（論文）-delphi 7.0學(xué)校餐飲ic系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

課程設(shè)計（論文）-delphi 7.0學(xué)校餐飲ic系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載