【正文】 FormActivate(Sender)。 procedure (Sender: TObject。 end。 ExecSQL。 (SQLStr)。,MB_OK)。 // (Pchar(SQLStr),39。 ORDER BY 借用人 ,儀器編號 ,借用日期 ,歸還日期 39。 then StrCat(SQLTemp,Pchar(SQLAll)+3)。 if SQLAll[1]=39。O39。 SQLTemp^ := Chr(0)。 l:=strlen(Pchar(SQLAll))。 exit。沒有查詢項(xiàng)目？ 39。39。 end。39。 for i:=1 to 4 do begin arrstr[5]:=arrstr[5]+arrstr[i]。 arrstr[5]:=39。39。++39。39。 if Getsth(Edit_DateIn) then arrstr[4]:=39。39。++39。39。 if Getsth(Edit_DateOut) then arrstr[3]:=39。39。++39。39。 if Getsth(Edit_No) then arrstr[2]:=39。39。++39。39。 if Getsth(Edit_name) then arrstr[1]:=39。 else Log:=39。 if =1 then Log:=39。 SQLStr:=39。 begin SQLAll:=39。 then result:=true。 if 39。 function getsth(CurrEdit:TEdit):boolean。 arrstr:array[1..5]of String。 var SQLStr,SQLAll,Log:String。 end。 end。 1:begin :=Query1。 。 procedure (Sender: TObject)。 Action:=caFree。39。儀器借用庫已關(guān)閉 39。 。 begin 。 procedure (Sender: TObject。 。mdb39。儀器庫 .db39。mdb39。儀器借出 信息庫 .db39。mdb39。 :=alClient。 :=alClient。 :=alTop。 begin Height:=。 end。 Open。 Prepare。SELECT * FROM 儀器借出信息庫 .db39。 begin with Query1 do begin 。 implementation uses Main。 { Private declarations } public { Public declarations } end。 procedure FormActivate(Sender: TObject)。 procedure DataSource1DataChange(Sender: TObject。 procedure PageControl1Change(Sender: TObject)。 procedure FormClose(Sender: TObject。 DBGrid1: TDBGrid。 RadioGroup1: TRadioGroup。 Edit_name: TEdit。 SpeedButton2: TSpeedButton。 Label23: TLabel。 Label21: TLabel。 Panel2: TPanel。 DBEdit1: TDBEdit。 EditDBEdit3: TDBEdit。 EditDBEdit: TDBEdit。 EditDBEdit6: TDBEdit。 EditDBEdit8: TDBEdit。 Label4: TLabel。 Label1: TLabel。 Label5: TLabel。 Label7: TLabel。 TabSheet1: TTabSheet。 Panel3: TPanel。 Table2: TTable。 Query1: TQuery。 DBNavigator: TDBNavigator。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids, Buttons。 end。 。 :=。) then begin :=39。 while not do begin if (=)and(=39。否 39。 procedure (DataSet: TDataSet)。 end。 end。) then begin :=True。 while not do begin if (=)and(=39。 begin :=false。 end。+inttostr()+39。+inttostr()+39。 begin [1].Text:=39。 end。 Field: TField)。 end。 。 end。)。 1:begin ShowMessage(39。 :=Table1。 begin (Tfrm_prt_Lab, frm_prt_Lab)。 end。 Open。 Prepare。 with Query1 do begin 。 預(yù)查詢的 SQL 語句39。 FreeMem(SQLTemp)。 SQLStr:=SQLStr+SQLTemp+39。A39。 then StrCat(SQLTemp,Pchar(SQLAll)+2)。 if SQLAll[1]=39。 GetMem(SQLTemp,l)。 end。)。 then begin showmessage(39。 if arrstr[7]=39。 then SQLAll:=SQLAll+Log+arrstr[i]。 if arrstr[i]39。39。)39。39。39。(所屬實(shí)驗(yàn) =39。)39。39。39。(放置位置 =39。)39。39。39。(啟用日期 =39。)39。39。39。(型號 =39。)39。39。39。(狀況 =39。39。 arrstr[2]:=。39。++39。39。 if Getsth(Edit_name) then arrstr[1]:=39。 else Log:=39。 if =1 then Log:=39。 SQLStr:=39。 begin SQLAll:=39。 then result:=true。 if 39。 function getsth(CurrEdit:TEdit):boolean。 arrstr:array[1..7]of String。 var SQLStr,SQLAll,Log:String。 end。 procedure (Sender: TObject)。 end。 // AllRec。 end。 begin case of 0:begin :=Table1。 end。 end。 if MDIChildCount=1 then [1].Text:=39。 with Mainform do begin // [1].Text:=39。 。 begin 。 procedure (Sender: TObject。 。 。mdb39。 。 :=39。 :=+39。 :=39。 :=+39。 :=39。 :=+39。 :=39。 :=+39。 :=0。 :=alClient。 Width:=。 procedure (Sender: TObject)。 end。 ExecSQL。)。 (39。 {$R *.DFM} procedure 。 var frm_YQ_Lab: Tfrm_YQ_Lab。 private procedure AllRec。 procedure Table1CalcFields(DataSet: TDataSet)。 Field: TField)。 procedure SpeedButton3Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 var Action: TCloseAction)。 procedure FormCreate(Sender: TObject)。 Query1Field_OutUserName: TStringField。 Query1BDEDesigner9: TSmallintField。 Query1BDEDesigner7: TStringField。 Query1BDEDesigner5: TCurrencyField。 Query1BDEDesigner3: TStringField。 Query1_YQBH: TStringField。 Table1Field_OutUserName: TStringField。 DBEdit3: TDBEdit。 DataSource2: TDataSource。 Table4BDEDesigner8: TStringField。 Table4_GHRQ: TStringField。 Table4BDEDesigner4: TStringField。 Table4_UserName: TStringField。 Table3BDEDesigner2: TStringField。 Table2BDEDesigner2: TStringField。 DBCheckBox1: TDBCheckBox。 RadioGroup3: TRadioGroup。 SpeedButton3: TSpeedButton。 Edit_experi: TEdit。 RadioGroup1: TRadioGroup。 Edit_date: TEdit。 Edit_No: TEdit。 Label11: TLabel。 SpeedButton1: TSpeedButton。 Label20: TLabel。 Label22: TLabel。 DBGrid1: TDBGrid。 DBComboBox2: TDBComboBox。 DBComboBox1: TDBComboBox。 EditDBEdit4: TDBEdit。 EditDBEdit2: TDBEdit。 EditDBEdit9: TDBEdit。 EditDBEdit7: TDBEdit。 EditDBEdit10: TDBEdit。 Label4: TLabel。 Label1: TLabel。 Label6: TLabel。 Label8: TLabel。 Label10: TLabel。 PageControl1: TPageControl。 DBNavigator: TDBNavigator。 Table3: TTable。 Table2: TTable。 Table1StringField6: TStringField。 Table1SmallintField: TSmallintField。 Table1StringField4: TStringField。 Table1DateField: TDateField。 Table1StringField2: TStringField。 type Tfrm_YQ_Lab = class(TForm