unit3.pas

仿速达界面控件

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitASEdit, ComCtrls, UnitASComboBox, UnitASBase, UnitASGrids,
  UnitASDBGrids, StdCtrls, ExtCtrls, Buttons, DB, DBClient;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ASDBGrid1: TASDBGrid;
    ASComboBox1: TASComboBox;
    DateTimePicker1: TDateTimePicker;
    ASEdit1: TASEdit;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    procedure ASComboBox1ButtonClick(Sender: TObject;
      ButtonIndex: Integer);
    procedure ASDBGrid1Columns0ButtonClick(Sender: TObject;
      Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3             : TForm3;

implementation

{$R *.dfm}

procedure TForm3.ASComboBox1ButtonClick(Sender: TObject;
  ButtonIndex: Integer);
begin
  case ButtonIndex of
    0:
      begin
        ShowMessage('可以调用新增界面');
      end;
    1:
      begin
        ShowMessage('可以调用编辑界面');
      end;
    2:
      begin
        //ShowMessage('可以置空');
        ASComboBox1.ItemIndex := -1;
      end;
    3:
      begin
        ShowMessage('可以刷新');
      end;
  end;
end;

procedure TForm3.ASDBGrid1Columns0ButtonClick(Sender: TObject;
  Column: TColumn);
begin
  ShowMessage('干嘛呀');
end;

end.