【文章內(nèi)容簡(jiǎn)介】 adoque: TADOQuery。 adoqueDSDesigner: TWideStringField。 adoqueDSDesigner2: TWideStringField。 adoqueDSDesigner3: TWideStringField。 adoqueDSDesigner4: TWideStringField。 adoqueDSDesigner5: TWideStringField。 adoqueDSDesigner6: TWideStringField。 adoqueDSDesigner7: TWideStringField。 adods: TDataSource。 Label3: TLabel。 ToolBar1: TToolBar。 ImageList1: TImageList。 tblfirst: TToolButton。 tblpri: TToolButton。 tblnext: TToolButton。 tbllast: TToolButton。 ToolButton2: TToolButton。 tbladd: TToolButton。 tbldel: TToolButton。 tbledt: TToolButton。 tblok: TToolButton。 tblcancel: TToolButton。 tblref: TToolButton。 ToolButton1: TToolButton。 tblprint: TToolButton。 tblclose: TToolButton。 Panel1: TPanel。 Label1: TLabel。 Label2: TLabel。 cbotype: TComboBox。 cboarea: TComboBox。 Label4: TLabel。 dbgrid: TDBGrid。 cbounit: TComboBox。 Label5: TLabel。 cboorderby: TComboBox。 Shape1: TShape。 adoqueDSDesigner10: TWideStringField。 adoqueDSDesigner11: TWideStringField。 procedure FormCreate(Sender: TObject)。 procedure cboareaChange(Sender: TObject)。 procedure cbotypeChange(Sender: TObject)。 procedure mnudataClick(Sender: TObject)。 procedure mnufileprintpreClick(Sender: TObject)。 procedure tblfirstClick(Sender: TObject)。 procedure tblpriClick(Sender: TObject)。 procedure tblnextClick(Sender: TObject)。 procedure tbllastClick(Sender: TObject)。 procedure tbladdClick(Sender: TObject)。 procedure tbldelClick(Sender: TObject)。 procedure tbledtClick(Sender: TObject)。 procedure tblokClick(Sender: TObject)。 procedure tblcancelClick(Sender: TObject)。 procedure tblrefClick(Sender: TObject)。 procedure tbltableClick(Sender: TObject)。 procedure tblprintClick(Sender: TObject)。 procedure tblcloseClick(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure cbounitChange(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure dbgridDrawColumnCell(Sender: TObject。 const Rect: TRect。 DataCol: Integer。 Column: TColumn。 State: TGridDrawState)。 procedure cbounitClick(Sender: TObject)。 procedure cboorderbyChange(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var frmmaintable: Tfrmmaintable。 myinifile:tinifile。 //聲明 INI 文件 tablename :string。 //當(dāng)前查詢(xún)表格的名稱(chēng) savesql:string。//當(dāng)前執(zhí)行的 SQL 語(yǔ)句的內(nèi)容 implementation uses Unit2, Unit3,unit5。 const ScreenWidth: LongInt = 800。 ScreenHeight: LongInt = 600。 {$R *.dfm} procedure (Sender: TObject)。 begin myinifile:=(extractfilepath(paramstr(0))+39。39。)。 (39。username39。,([5].PickList))。// 讀取 INI 文件中的用戶(hù) (39。username39。,([6].PickList))。 (39。area39。,([1].PickList))。 :=300。 //初始窗體大小 :=500。 scaled := true。 //根據(jù)分辯率調(diào)整熒幕大小 if ( ScreenWidth) then begin height := longint(height) * longint() div ScreenHeight。 width := longint(width) * longint() div ScreenWidth。 scaleBy(, ScreenWidth)。 end。 :=。 //建立數(shù)據(jù)鏈接 。 tablename:=39。e_table39。 (39。select * from 39。+tablename)。 。 :=adoque。 :=adods。 savesql:=。 //保存當(dāng)前查詢(xún)語(yǔ)句的內(nèi)容 [1].Text:=39。 共有39。+inttostr()+39。條信息 39。 。 end。 procedure (Sender: TObject)。 begin with adoque do begin if =39。ALL39。 then begin close。 。 (39。select * from 39。+tablename)。 open。 savesql:=。 //保存當(dāng)前查詢(xún)語(yǔ)句的內(nèi)容 [1].Text:=39。 共有39。+inttostr()+39。條信息 39。 end else begin close。 。 (39。select * from e_table where 區(qū)域 = 39。+39。39。++39。39。 )。 open。 savesql:=。 // 保 存 當(dāng)前 查 詢(xún)語(yǔ) 句 的內(nèi)容 :=。 //保存當(dāng)前查詢(xún)語(yǔ)句的內(nèi)容 [1].Text:=39。 共查詢(xún)到39。+inttostr()+39。條信息 39。 end。 end。 end。 procedure (Sender: TObject)。 begin with adoque do begin close。 。 case strtoint() of 0:(39。select * from e_table39。)。 1:(39。select * from e_table where 類(lèi)別 =39。+39。139。 )。 2:(39。select * from e_table where 類(lèi)別 =39。+39。239。 )。 3:(39。select * from e_table where 類(lèi)別 =39。+39。339。 )。 4:(39。select * from e_table where 類(lèi)別 =39。+39。439。 )。 5:(39。select * from e_table where 類(lèi)別 =39。+39。539。 )。 7:(39。select * from e_table where 類(lèi)別 =39。+39。739。 )。 8:(39。select * from e_table where 類(lèi)別 =39。+39。839。 )。 end。 open。 savesql:=。 //保存當(dāng)前查詢(xún)語(yǔ)句的內(nèi)容 [1].Text:=39。 共查詢(xún)到39。+inttostr()+39。條信息 39。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if not then begin 。 end。 end。 procedure (Sender: TObject)。 begin if not then begin 。