4.Èí¼þ²âÊÔ¹ý³Ì
4.1²âÊÔ»·¾³
4.1.1Ó²¼þ»·¾³
CPU 1.8300GHz Ó²ÅÌ£º320G 4.1.2Èí¼þ»·¾³ Delphi7 4.1.3Êý¾Ý»·¾³ SQL server 2000 4.1.4ÍøÂç»·¾³ ²»ÓÃ
4.2¹¦ÄܲâÊÔ
4.2.1Ä£ÄâÏÖ³¡²âÊÔ
ÓɵǼÖ÷½çÃæµÇ¼£¬½øÈëÖ÷²Ëµ¥£¬È»ºóÑ¡Ôñ¹¦Äܿ黹¿ÉÒÔÓû§Ö®¼äµÃÇл»¡£ 4.2.2Ó¦ÓÃÏÖ³¡²âÊÔ
¿ÉÒÔ½èÔÄ£¬¹é»¹£¬¶ÁÕßÐÅÏ¢¹ÜÀíµÈ£¬Í¼ÊéÈë¿âµÈ¡£
5.½áÂÛ
Á½¸öÐÇÆÚµÄÊý¾Ý¿â¿Î³ÌÉè¼Æ£¬Ê×ÏÈ×Ô¼º³õ²½Åª³öÁËÒ»¸öͼÊé¹ÜÀíÐÅϢϵͳ£¬¸Õ¿ªÊ¼¾õµÃÂù²»´íµÄ£¬µ«ÊÇÔÚÑéÊÕµÄʱºò£¬Í¨¹ýÀÏʦµÄÖ¸µã£¬²ÅÖªµÀ×Ô¼º¶ÔÓÚÕâ¸öϵͳ»¹ÓкܶàǷȱµÄµØ·½¡£²»¿É·ñÈϵÄÊÇ×Ô¼º¶ÔÊý¾Ý¿âµÄÏà¹ØÖªÊ¶ÓÐÁ˸üÉî¿ÌµÄÈÏʶ¡£¶ÔÓÚͼÊé¹ÜÀíÐÅϢϵͳÓÐÁ˸üÖ±¹ÛµÄÈÏʶ¡£
6²Î¿¼ÎÄÏ׺͸½Â¼
1Áõǰ½ø ¡¶DelphiÊý¾Ý¿â±à³Ì¼¼Êõ¡·
2<<Êý¾Ý¿âϵͳ¸ÅÂÛ>> Íõɺ ÈøÊ¦ìÓ ±àÖø ¸ßµÈ½ÌÓý³ö°æÉç 3ФÓÀ˳ ¡¶Delphi ³ÌÐòÉè¼Æ¡·
²¿·ÖºËÐÄ´úÂ룺
ADOQuery1.Close; ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from ϵͳ¹ÜÀíÔ± where Óû§Ãû='''+Trim(Edit1.Text)+'''and ÃÜÂë='''+Trim(Edit2.Text)+''''; ADOQuery1.Open;
issuper:=trim(ADOQuery1.FieldByName('ȨÏÞ').AsString);
if ADOQuery1.Recordset.RecordCount=0 then begin
MessageBox(handle,'Óû§Ãû»òÃÜÂë´íÎó,ÇëÖØÐÂÊäÈë','Ìáʾ',mb_IconWarning+mb_OK); Edit1.Clear; Edit2.Clear; Edit1.SetFocus; end begin inherited; adoquery1.Close; adoquery1.SQL.Clear;
adoquery1.SQL.Add('select max(Èë¿â±àºÅ) ×î´ó±àºÅ from ÐÂÔöͼÊé'); adoquery1.Open;
maxnum:=adoquery1.FieldByName('×î´ó±àºÅ').AsInteger; maxnum:=maxnum+1; newnum:=inttostr(maxnum); if length(newnum)=1 then dbedit1.Text:='000000'+newnum; if length(newnum)=2 then dbedit1.Text:='00000'+newnum; if length(newnum)=3 then
dbedit1.Text:='0000'+newnum; if length(newnum)=4 then dbedit1.Text:='000'+newnum; if length(newnum)=5 then dbedit1.Text:='00'+newnum; if length(newnum)=6 then dbedit1.Text:='0'+newnum; //²åÈ뵱ǰʱ¼ä(¶©¹ºÊ±¼ä)
dbedit8.Text:=datetostr(date)+' '+timetostr(time); //мÓÈëµÄͼÊé¶¼ÊÇδÑéÊյģ¬ËùÒÔ´ËÏî±ØÐëÊÇfalse dbcombobox1.SelText:='False'; end;
procedure TaddbookF.DBEdit6KeyPress(Sender: TObject; var Key: Char); begin inherited;
if(key<=#39)and(key>=#30) then dbedit6.Text:=dbedit6.Text+key; end;
procedure TaddbookF.DBEdit7KeyPress(Sender: TObject; var Key: Char); begin inherited;
if(key<=#39)and(key>=#30) then dbedit7.Text:=dbedit7.Text+key; end;
procedure TaddbookF.BitBtn2Click(Sender: TObject); var
newform:TselectF; begin inherited;
newform:=TselectF.Create(application);
end;
procedure TaddbookF.FormActivate(Sender: TObject); begin inherited;
if panel2.Enabled=true then dbedit2.Text:=listF.Formcap; end;
procedure TaddbookF.DBEdit2Change(Sender: TObject); begin inherited; //ÉèÖÃÊéÃûµÄÏÔʾ adoquery1.Close; adoquery1.SQL.Clear;
adoquery1.SQL.Add('select ÊéÃû from ͼÊéÐÅÏ¢ where ͼÊé±àºÅ='''+dbedit2.Text+''''); adoquery1.Open;
edit4.Text:=adoquery1.FieldByName('ÊéÃû').AsString; end;
procedure TaddbookF.BitBtn3Click(Sender: TObject); begin inherited; //ÐÂÊéÈë¿â
adocommand1.CommandText:='exec sf_ÐÂÔöͼÊé'; adocommand1.Execute; //¸üÐÂÊý¾Ý¿â
adotable1.Active:=false; adotable1.Active:=true; end;
adoquery1.Close;