anmi_unit.pas

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

unit anmi_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ComboBox1: TComboBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Animate1: TAnimate;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    procedure waitSplash;
    procedure endSplash;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.waitsplash;
begin
  Animate1.Active:=true;
  Show;
  update;
end;

procedure TForm1.endSplash;
begin
  Animate1.Active:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   with combobox1 do
    begin
      items.Clear;
      items.Add('全部');
      query1.Open;
      query1.First;
      while not query1.Eof do
        begin
        items.Add(query1.fieldbyname('custno').AsString);
        query1.Next;
        end;
    end;
    combobox1.ItemIndex:=0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
   i:=1;
   Animate1.Visible:=true;
   waitsplash;
   Screen.Cursor := crHourGlass;
   while i<1000000000 do
       i:=i+1;

   with query1 do
   begin
   close;
   sql.Clear;
   if combobox1.Text='全部' then
   sql.Add('select * from orders')
   else
   begin
   sql.Add('select * from orders where custno=:x');
   parambyname('x').AsInteger:=strtoint(combobox1.text);
   end;
   open;
   end;
   Screen.Cursor := crDefault;
   endSplash;
   Animate1.Visible:=false;

end;

end.