CS程序綜合設(shè)計-設(shè)計小型的庫存管理系統(tǒng)軟件

《C/S程序綜合設(shè)計》課題設(shè)計設(shè)計小型的庫存管理系統(tǒng)軟件實驗課題一、人員檔案的管理、物料檔案管理:其它所有子程序。人員檔案的增加、修改、刪除的程序，其中人員檔案表在數(shù)據(jù)庫中必須以“班級＋座號＋（表示人員的中英文信息）"來命名,人員檔案的信息管理程序也必須以“班級＋座號＋（表示程序名的中英文信息)”來命名。其中人員代碼不能為空，性別必須用“男"“女”選擇方式,出生日期必須用日期控件來控制.修改、刪除程序在執(zhí)行修改刪除操作前，都必須進行記錄定位操作，所以必須有相應(yīng)的查詢程序，可以借用查詢程序來完成人員檔案的增加、修改、刪除程序也可以用三個程序名，分別編程。修改代碼:if(maskedit1.Text=）or（editText）or（combobox1.text=)or（DateToStr（DateTimePicker1or（maskedit3.text=''）or（edit3.text=’）or（edit4。text=’）or（maskedit2。text='')thenmessagedl（’,mterro［mbo，）elseifmessagedlgmtinformatio［mbye，mbn，）=mryesthenbeginADOQuery1。Close;ADOQuery1。SQL。Clear；ADOQuery1。。Add（’update1002_23staffset。text+’''，sex=+combobox1text+sno=birthdate='+DateToStr(DateTimePickerDate)id='+maskedit3.textnative_place=’+edit3。text+’address’’+edit4。text’',phone='''+maskedit。text+’''wheresno='''+maskedit1。ADOQuery1。execSQL;end;ADOQuery1。Close;adoquery1。sql。clear；adoquery1。SQL。add（'select*from1002_23staffadoquery1。open；edit2。maskedit3.tex：。text：='’;edit4.text：=’';maskedit2。人員檔案查詢程序，程序名以“班級＋座號＋（表示程序名的中英文信息.查詢代碼：withadoQuery1dobeginclos；SQL.Clear；SQL.Add('selec＊from信管1002_23sta）;SQL。Add（’wheresnamelik’％’+edit。）open;物料檔案包括物料代碼、物料名稱、規(guī)格型號、計量單位、庫存數(shù)量、備注等字段.物料檔案的增加、修改、刪除程序，程序名以“班級＋座號＋（表示程序名的中英文信息表示程序名的中英文信息”來命名表，客戶端輸入時要求物料代碼不為空，計量單位可以選0.增加代碼：withadoquery1doBeginclose;sql.clerif（maskedit1。Text<’10000000'）thenelse

輸入正確八位物料代碼，mterro［mbok，0)begini（maskedit1.Text)o（edit2.Text='')oeditthen

or（combobox1text='')messagedlg，［elsebeginsql。Add（'insertinto1002_23materiel+edit。Text+’，’+edit。text+'+combobox1.text’’+edit。text+’，’+memo。text’’；execsql；showmessag（’添maskedit1。edit3。text:=’'；edit。：combobox1。end;end;end;物料查詢程序可以在通過輸入框的文字進行模糊查詢（有輸入框的文字，程序名用“班級＋座號＋（”來命名。查詢代碼：

withadoQuery1dobeginclose；SQL。Clear；SQL。Add(’select＊from信管1002_23materiel'）;SQ。Ad（'wheremno+mname+sStylelike’%'+edit1.text；open；end;實驗課題二、簡單物料進倉/出倉信息管理作人員代碼、備注、物料代碼、進倉數(shù)量、出倉數(shù)量等企業(yè)倉庫進出倉信息表以“班級＋座號＋（表示程序名的中英文信息也可以用二個表（一對多關(guān)系具體表設(shè)計的思路須在報告中描述。進倉程序與出倉程序可以合并，也可以分開做，名稱以“班級＋座號＋（表示程序名的;;當物料存儲過程將,顯示成功或失敗的信息。進倉、出倉的存儲過程可以合并或分開做，存儲過程名稱以“班級＋座號＋（名的中英文信息）"來命名,存儲過程要判斷物料是否存在，操作后物料庫存數(shù)量是否不;否則回滾。進出倉單查詢程序，以“班級＋座號＋（表示程序名的中英文信息)”來命名,物料代碼、操作人員、備注（)來完成。實驗課題三、統(tǒng)計程序設(shè)計與報表打印出倉單，按物料打印倉庫賬本。進倉流量統(tǒng)計代碼：DBChart1。Show；result。Hide；series。XLabelsSource:=。adoquery1。。Clear；adoquery。SQL.Ad（’select＊from信管adoquery1。Open；adoquery1。Active：=true；series1。XLabelsSource：=’mname';series。：’series1。Active:=true;adoquery2。SQL。Clear；adoquery2top1from1002_Elevatwhere1002_Elevat.dateand1002_Elevat。date〈=’''+datetostr（datetimepicker2.date）+’'orderbyjsumadoquery。）adoquery2。Open；ifadoquery2。RecordCount〉0thenbeginsmall。Show；small。Caption：='進倉流量最小物料的是：'+adoquery2。FieldValues[’mname'];endelsesmall。Caption:=’';總流量統(tǒng)計代碼：savebtn。Hide；DBChart1。Show；result。Hide；series1。XLabelsSource：=''；series1。YValues。ValueSource:='’;adoquery1。SQL。Clear；adoquery1。。Add（’selectfrom1002_23wljc3’);adoquery1。Open；adoquery1。Active:=true;series1。XLabelsSource：='mname'；series1。YValues。ValueSource:=’zll'；series1。Active：=true;adoquery2.SQL。Clear;adoquery。SQ。Ad（’selecttop1*from信管1002_23wljc3orderbyzllasc；adoquery2。Open;ifadoquery2。RecordCount〉0thenbeginsmall.Show；small.Captio：+adoqueryFieldValue［mnam’];endelsesmall。Caption：='’;Show；DBChart1。Hide；result.Shwsmall.Captin=’；

XLabelsSource：='';YValues.ValueSource；adoquery2.sql.Cleradoquery2.sql.Ad(adoquery2。Open;

selec＊from信管1002_23wlllorderbyzlacmemo1。lines.Clermemo1Lines.Add(fm（’4+’物料進出倉流動統(tǒng)計報'#13＃10+＃13+#10；memo1。。Add（’代碼 名稱 規(guī)格單位 進倉量 出倉量 總流量；memo1.LinesAdd-————————————————-——————————————————-——-—-—-—--——-——--—--’)；ifbegin

RecordCount〉0thenwl：物料代碼為：'+adoqueryfieldbynam（'mno）.AsString;wl：=wl+’+adoquery。FieldValus'mname'］;wl:=wl’+adoquery?！痺hilenotadoquery2.Eofdobeginstr:=fmt(adoquery2.FieldValues’mn’],1；st：=str’（’st：=str+fm（adoquery2.FieldValue［’sStyl，2；str：=str+fmt（adoquery2.FieldValues[’sUnit'],10);if。])st：=str+fm（1）elsestr：=str+fmt(inttostr(adoquery2。ifVarisNul（adoqueryFieldValue［’csu）thenstr：=str+fmt（’0',13)elsestr:=str+fm（inttostr(adoquery2.FieldValue［'csu］，13；ifVarisNul（adoquery2.FieldValues’zl］)thenstr：=str+fmt（’0’,13)elsest：=str+fm（inttost（adoquery。FieldValue［'zl］),1；memo。Line。Ad（st；adoquery2。Next;end;-———————--——————-————-—-—-—————-—--—-———---——-—————————————————————')；memo1.Line。Ad（’'+wl+#13+#1；Memo。Line。Add(fmt8）’統(tǒng)計日期'+datetost（date；end；.,程序名以“班級＋座號＋（表示程序名的中英文信息.預覽代碼：varyy:integer；beginyy:=strtoint(year。Text）;if（year。thenmessagedl（’請先選擇年份’，elsebeginadoquery1 。 SQL.Clear;//year（date)=’'’+inttostr（yy）+'’'andadoquery1。SQL.Add(’selectmno，mname，sStyle，sUnit,UnitsInStockfrom信管1002_23materielwhere mname=’’adoquery1。Open；adoquery1。Active：=true；QuickRep3.Preview；end；end;實驗課題四、用戶登錄與權(quán)限設(shè)計用戶登錄程序，名稱用以“班級＋座號＋（表示程序名的中英文信息）見或不可操作。登陸代碼：varobeginmainstaff.show;main.materiel.shwmainmain。showif(useiText=’)opass.Tex）thenshowmessage(請先確認是否輸入已經(jīng)賬號和者密碼）elsebeginADOQuery1。close;ADOQuery1。SQL。Clear；ADOQuery1。SQL.Add（’selec＊from信管1002_23master；ADOQuery1.SQL.Add（'whereADOQuery1open；

''+userdtext’；use：=ADOQuery1。FieldByName（'usernam。userd：=ADOQuery1.FieldByName(’userdo。AsString;ifADOQuery1FieldByNamesTextthenifps’員工管理mainstaff.hide;

=0thenifpo（’userd）=0main.materiel。hide；ifpos（'物料進出倉管理'，userdo）=0thenmain.inout。Hide；ifposuserd）=0main。flux。hide;ifposuserdo)=0main。print。hide;ifpos(’用戶管理'，userdo）=0thenmain。master。hide；main.showend;end；用戶授權(quán)程序，名稱用以“班級＋座號＋（表示程序名的中英文信息或被禁止某個程序的執(zhí)行權(quán)。注冊代碼：root：=’';fori：=0toCheckListbox1。Count-1doifCheckListBox1.Checked［i]=trueroo：=root+CheckListBox。Item。Strings[］’｜if（username.Text=’）or(userid。Text=''）thenmessagedlg（’請完整輸入用戶注冊信息，密碼可以為空！'，mterror，[mbok]，0）elseifpassword1。Text〈>password。Textthenbeginmessagedlg［，）password.Clear；password1。Clear;endelsebeginAdoquery2.Close；Adoquery2。SQL.Clear;Adoquery2。。Add（'selectfrom1002_23master’)；Adoquery。SQ。Add’whereuserid='''+useri。Text’''；Adoquery2。open；ifAdoquery2.RecordCount〉0thenmessagedl（’該，elsebeginAdoquery2。Close；Adoquery2。SQL。Clear;AdoquerySQAd（'exec信管1002_23insertuser+userid.Text'+passworText++usernam。Text’’+root；Adoquery2.ExecSQL;Adoquery1.Close；Adoquery1.SQL。Clear;Adoquery1。。Add（'select*from1002_23master’);Adoquery1。Open；messagedl（］username.Clear；userid。Clear;password.Clear；password1。Clear;end;end；修改代碼：root：員工管理｜物料管理物料進出倉管理｜統(tǒng)計流量管理｜root：=’';fori：=0toCheckListbox1.Count-1doifCheckListBox1。Checked［i］=truethenroot：=root+CheckListBox1。。Strings［i]+'｜Adoquery2。Close；Adoquery2。SQL。Clear;Adoquery2.SQ。Add’select＊from信管1002_23maste；Adoquery2。SQL。Add(’whereuserid=’''+userid。Adoquery2.open；if。RecordCount=0thenmessagedlg’該賬，，，elseifpassword1。Text<〉password。Textthenbeginmessagedl（，，password。Clear；password1。Clear;endelsebeginifmessagedl（thenbeginAdoquery2.Close；Adoquery2。SQL。Clear；

mbyes，mbno]，0)=mryesAdoquery2。SQL.Add（’exec 信管1002_23updateuser ’’’+userid。Text+'’,'''+passwor。Text’