實驗室儀器管理系統—免費計算機畢業設計論文(編輯修改稿)

　

【文章內容簡介】 og:=39。AND39。 if Getsth(Edit_name) then arrstr[1]:=39。(儀器名稱 =39。39。39。++39。39。39。)39。 arrstr[2]:=。 if arrstr[2]39。39。 then arrstr[2]:=39。(狀況 =39。39。39。+arrstr[2]+39。39。39。)39。 if Getsth(Edit_No) then arrstr[3]:=39。(型號 =39。39。39。++39。39。39。)39。 if Getsth(Edit_date) then arrstr[4]:=39。(啟用日期 =39。39。39。++39。39。39。)39。 if GetSth(Edit_address) then arrstr[5]:=39。(放置位置 =39。39。39。++39。39。39。)39。 if GetSth(Edit_experi) then arrstr[6]:=39。(所屬實驗 =39。39。39。++39。39。39。)39。 arrstr[7]:=39。39。 for i:=1 to 6 do begin arrstr[7]:=arrstr[7]+arrstr[i]。 if arrstr[i]39。39。 then SQLAll:=SQLAll+Log+arrstr[i]。 end。 if arrstr[7]=39。39。 then begin showmessage(39。沒有查詢項目？ 39。)。 exit。 end。 l:=strlen(Pchar(SQLAll))。 GetMem(SQLTemp,l)。 SQLTemp^ := Chr(0)。 if SQLAll[1]=39。O39。 then StrCat(SQLTemp,Pchar(SQLAll)+2)。 if SQLAll[1]=39。A39。 then StrCat(SQLTemp,Pchar(SQLAll)+3)。 SQLStr:=SQLStr+SQLTemp+39。 ORDER BY 儀器名稱 ,型號 ,啟用日期 ,狀況 ,放置位置 ,所屬實驗 39。 FreeMem(SQLTemp)。 // (Pchar(SQLStr),39。 預查詢的 SQL 語句39。,MB_OK)。 with Query1 do begin 。 (SQLStr)。 Prepare。 ExecSQL。 Open。 end。 end。 procedure (Sender: TObject)。 begin (Tfrm_prt_Lab, frm_prt_Lab)。 Case of 0:begin :=Table1。 :=Table1。 end。 1:begin ShowMessage(39。*_^ 沒編完?? 39。)。 exit。 end。 end。 。 。 end。 procedure (Sender: TObject。 Field: TField)。 begin FormActivate(Sender)。 end。 procedure (Sender: TObject)。 begin [1].Text:=39。 儀器庫紀錄導航信息：第39。+inttostr()+39。 筆紀錄 總共39。+inttostr()+39。筆紀錄 39。 end。 procedure (DataSet: TDataSet)。 begin :=false。 。 while not do begin if (=)and(=39。39。) then begin :=True。 :=。 end。 。 end。 end。 procedure (DataSet: TDataSet)。 begin :=39。否 39。 。 while not do begin if (=)and(=39。39。) then begin :=39。是 39。 :=。 end。 。 end。 end。 end. 儀器借用庫維護界面與代碼設計 實現及功能 代碼設計 : unit Child_Borrow。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids, Buttons。 type Tfrm_Borrow = class(TForm) Panel1: TPanel。 DBNavigator: TDBNavigator。 DataSource1: TDataSource。 Query1: TQuery。 DataSource2: TDataSource。 Table2: TTable。 Table1: TTable。 Panel3: TPanel。 PageControl1: TPageControl。 TabSheet1: TTabSheet。 Label8: TLabel。 Label7: TLabel。 Label6: TLabel。 Label5: TLabel。 Label2: TLabel。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label9: TLabel。 EditDBEdit8: TDBEdit。 EditDBEdit5: TDBEdit。 EditDBEdit6: TDBEdit。 EditDBEdit7: TDBEdit。 EditDBEdit: TDBEdit。 EditDBEdit2: TDBEdit。 EditDBEdit3: TDBEdit。 EditDBEdit4: TDBEdit。 DBEdit1: TDBEdit。 TabSheet2: TTabSheet。 Panel2: TPanel。 Label22: TLabel。 Label21: TLabel。 Label20: TLabel。 Label23: TLabel。 SpeedButton1: TSpeedButton。 SpeedButton2: TSpeedButton。 Edit_No: TEdit。 Edit_name: TEdit。 Edit_DateIn: TEdit。 RadioGroup1: TRadioGroup。 Edit_DateOut: TEdit。 DBGrid1: TDBGrid。 procedure FormCreate(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure PageControl1Change(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 procedure DataSource1DataChange(Sender: TObject。 Field: TField)。 procedure FormActivate(Sender: TObject)。 private procedure AllRec。 { Private declarations } public { Public declarations } end。 var frm_Borrow: Tfrm_Borrow。 implementation uses Main。 {$R *.DFM} procedure 。 begin with Query1 do begin 。 (39。SELECT * FROM 儀器借出信息庫 .db39。)。 Prepare。 ExecSQL。 Open。 end。 end。 procedure (Sender: TObject)。 begin Height:=。 Width:=。 :=alTop。 :=alClient。 :=alClient。 :=0。 :=alClient。 :=+39。mdb39。 :=39。儀器借出 信息庫 .db39。 :=+39。mdb39。 :=39。儀器庫 .db39。 :=+39。mdb39。 。 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 。 。 with Mainform do begin // [1].Text:=39。儀器借用庫已關閉 39。 if MDIChildCount=1 then [1].Text:=39。39。 end。 Action:=caFree。 end。 procedure (Sender: TObject)。 begin case of 0:begin :=Table1。 。 end。 1:begin :=Query1。 AllRec。 end。 end。 end。 procedure (Sender: TObject)。 var SQLStr,SQLAll,Log:String。 SQLTemp:Pchar。 arrstr:array[1..5]of String。 i,l:integer。 function getsth(CurrEdit:TEdit):boolean。 begin result:=false。 if 39。39。 then result:=true。 end。 begin SQLAll:=39。39。 SQLStr:=39。SELECT * FROM 儀器借出信息庫 .db WHERE 39。 if =1 then Log:=39。OR39。 else Log:=39。AND39。 if Getsth(Edit_name) then arrstr[1]:=39。(借用人 =39。39。39。++39。39。39。)39。 if Getsth(Edit_No) then arrstr[2]:=39。(儀器編號 =39。39。39。++39。39。39。)39。 if Getsth(Edit_DateOut) then arrstr[3]:=39。(借用日期 =39。39。39。++39。39。39。)39。 if Getsth(Edit_DateIn) then arrstr[4]:=39。(歸還日期 =39。39。39。++39。39。39。)39。 arrstr[5]:=39。39。 for i:=1 to 4 do begin arrstr[5]:=arrstr[5]+arrstr[i]。 if arrstr[i]39。39。 then SQLAll:=SQLAll+Log+arrstr[i]。 end。 if arrstr[5]=39。39。 then begin showmessage(39。沒有查詢項目？ 39。)。 exit。 end。 l:=strlen(Pchar(SQLAll))。 GetMem(SQLTemp,l)。 SQLTemp^ := Chr(0)。 if SQLAll[1]=39。O39。 then St