?? hbxxunit.pas
字號:
unit HBXXUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, ComCtrls,
Buttons;
type
TForm6 = class(TForm)
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
ComboBoxEx1: TComboBoxEx;
SpeedButton1: TSpeedButton;
ADOQuery1: TADOQuery;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses sqlUnit;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm6.Button2Click(Sender: TObject);
var
str:string;
begin
//ADOQuery1.Refresh;
if ComboBoxEx1.Text='' then
begin
showmessage('請選擇查詢目標!');
ComboBoxEx1.SetFocus;
end
else
begin
if edit1.Text='' then
begin
showmessage(' 請輸入查詢條件!');
edit1.SetFocus;
end
else
begin
ADOQuery1.Close;
str:='select *';
str:=str+' from 航班信息'+' where '+ComboBoxEx1.Text+'='+'"'+trim(edit1.Text)+'"';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(str);
try
ADOQuery1.Open;
finally
ADOQuery1.ExecSQL;
end;
if ADOQuery1.RecordCount=0 then
begin
showmessage('無此記錄,請確認!');
end;
label4.Caption:=inttostr(adoquery1.RecNo);
label6.Caption:=inttostr(adoquery1.RecordCount);
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -