Description: unit Unit3
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, jpeg, ExtCtrls
type
TForm3 = class(TForm)
MainMenu1: TMainMenu
N1: TMenuItem
Exel1: TMenuItem
N3: TMenuItem
N4: TMenuItem
ADOConExcel: TADOConnection
ADOQryExcel: TADOQuery
DataSource1: TDataSource
Image1: TImage
procedure N3Click(Sender: TObject)
procedure N1Click(Sender: TObject)
procedure Exel1Click(Sender: TObject)
procedure N2Click(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
var
Form3: TForm3
implementation
uses Unit1, Unit4, Unit6, Unit5
{$R*.dfm}
procedure TForm3.N3Click(Sender: TObject)
begin
form1.ShowModal
end
procedure TForm3.N1Click(Sender: TObject)
begin
form4.ShowModal
end
procedure TForm3.Exel1Click(Sender: TObject)
begin
try
//查询Excel 表1 的数据
To Search:
File list (Check if you may need any files):
3-04
....\bm.ldb
....\bm.mdb
....\BM_ABOUTU.dcu
....\BM_ABOUTU.ddp
....\BM_ABOUTU.dfm
....\BM_ABOUTU.pas
....\BM_ABOUTU.~ddp
....\BM_ABOUTU.~dfm
....\BM_ABOUTU.~pas
....\BM_BUMENU.dcu
....\BM_BUMENU.ddp
....\BM_BUMENU.dfm
....\BM_BUMENU.pas
....\BM_BUMENU.~ddp
....\BM_BUMENU.~dfm
....\BM_BUMENU.~pas
....\BM_CHANGEFILEU.dcu
....\BM_CHANGEFILEU.ddp
....\BM_CHANGEFILEU.dfm
....\BM_CHANGEFILEU.pas
....\BM_CHANGEFILEU.~ddp
....\BM_CHANGEFILEU.~dfm
....\BM_CHANGEFILEU.~pas
....\BM_DMU.dcu
....\BM_DMU.ddp
....\BM_DMU.dfm
....\BM_DMU.PAS
....\BM_DMU.~ddp
....\BM_DMU.~dfm
....\BM_DMU.~PAS
....\BM_EXCELU.dcu
....\BM_EXCELU.ddp
....\BM_EXCELU.dfm
....\BM_EXCELU.pas
....\BM_EXCELU.~ddp
....\BM_EXCELU.~dfm
....\BM_EXCELU.~pas
....\BM_FLASHU.dcu
....\BM_FLASHU.ddp
....\BM_FLASHU.dfm
....\BM_FLASHU.pas
....\BM_FLASHU.~ddp
....\BM_FLASHU.~dfm
....\BM_FLASHU.~pas
....\BM_HINTU.dcu
....\BM_HINTU.ddp
....\BM_HINTU.dfm
....\BM_HINTU.pas
....\BM_HINTU.~ddp
....\BM_HINTU.~dfm
....\BM_HINTU.~pas
....\BM_IDU.dcu
....\BM_IDU.ddp
....\BM_IDU.dfm
....\BM_IDU.pas
....\BM_IDU.~ddp
....\BM_IDU.~dfm
....\BM_IDU.~pas
....\BM_IPU.dcu
....\BM_IPU.ddp
....\BM_IPU.dfm
....\BM_IPU.pas
....\BM_IPU.~ddp
....\BM_IPU.~dfm
....\BM_IPU.~pas
....\BM_LOGINU.dcu
....\BM_LOGINU.ddp
....\BM_LOGINU.dfm
....\BM_LOGINU.pas
....\BM_LOGINU.~ddp
....\BM_LOGINU.~dfm
....\BM_LOGINU.~pas
....\BM_MONGTHU.dcu
....\BM_MONGTHU.ddp
....\BM_MONGTHU.dfm
....\BM_MONGTHU.pas
....\BM_MONGTHU.~ddp
....\BM_MONGTHU.~dfm
....\BM_MONGTHU.~pas
....\BM_OFFICE.cfg
....\BM_OFFICE.dof
....\BM_OFFICE.dpr
....\BM_OFFICE.exe
....\BM_OFFICE.res
....\BM_OFFICE.~dpr
....\BM_OFICEU.dcu
....\BM_OFICEU.ddp
....\BM_OFICEU.dfm
....\BM_OFICEU.pas
....\BM_OFICEU.~ddp
....\BM_OFICEU.~dfm
....\BM_OFICEU.~pas
....\BM_POSTU.dcu
....\BM_POSTU.ddp
....\BM_POSTU.dfm
....\BM_POSTU.pas
....\BM_POSTU.~ddp
....\BM_POSTU.~dfm
....\BM_POSTU.~pas