controller.pas

胜天进销存源码,国产优秀的进销存

unit controller;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, wwdbedit, Buttons, wwintl, wwframe, Wwdotdot,
  Wwdbcomb, ComCtrls, wwriched, wwrichedspell2000, wwclearbuttongroup,
  wwradiogroup, wwcheckbox, Wwkeycb, wwdblook, Wwdbspin, wwdbdatetimepicker,
  fcCombo, fctreecombo, fcColorCombo, fcFontCombo, DB, DBTables, wwrcdpnl,
  wwDialog, wwrcdvw, wwfltdlg, Wwlocate;

type
  TForm1 = class(TForm)
    wwDBEdit1: TwwDBEdit;
    SpeedButton1: TSpeedButton;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    SpeedButton2: TSpeedButton;
    wwDBComboBox1: TwwDBComboBox;
    wwDBRichEdit1: TwwDBRichEdit;
    wwDBSpinEdit1: TwwDBSpinEdit;
    wwDBComboDlg1: TwwDBComboDlg;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwKeyCombo1: TwwKeyCombo;
    wwIncrementalSearch1: TwwIncrementalSearch;
    wwCheckBox1: TwwCheckBox;
    wwRadioGroup1: TwwRadioGroup;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBLookupCombo2: TwwDBLookupCombo;
    SpeedButton3: TSpeedButton;
    wwController1: TwwController;
    fcTreeCombo1: TfcTreeCombo;
    fcColorCombo1: TfcColorCombo;
    fcFontCombo1: TfcFontCombo;
    fcColorList1: TfcColorList;
    wwController2: TwwController;
    wwRecordViewPanel1: TwwRecordViewPanel;
    Table1: TTable;
    DataSource1: TDataSource;
    wwRecordViewDialog1: TwwRecordViewDialog;
    wwFilterDialog1: TwwFilterDialog;
    wwLocateDialog1: TwwLocateDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure wwFilterDialog1AcceptFilterRecord(Sender: TObject;
      DataSet: TDataSet; var Accept, DefaultFiltering: Boolean);
    procedure wwFilterDialog1InitDialog(Dialog: TwwFilterDlg);
  private
    controller: TwwController;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 wwrecordviewpanel1.controller:= wwcontroller1;
 wwrecordviewdialog1.controller:= wwcontroller1;
 exit;
 controller:= wwController1;//TwwController.create(self);
 fctreecombo1.controller:= controller;
 fccolorcombo1.controller:=controller;
 fcfontcombo1.controller:=controller;
 exit;
 with controller do
 begin
    Frame.Enabled:=True;
    Frame.FocusBorders:= [efBottomBorder];
 end;

 wwdbedit1.Controller:= controller;
 wwdbedit2.Controller:= controller;
 wwdbedit3.Controller:= controller;
 wwdbcombobox1.Controller:= controller;
 wwdbrichedit1.controller:= controller;
 wwdbcombodlg1.controller:=controller;
 wwdbspinedit1.controller:=controller;
 wwdblookupcombo1.controller:= controller;
 wwcheckbox1.controller:=controller;
 wwradiogroup1.controller:=controller;
 wwkeycombo1.Controller:=controller;
 wwincrementalsearch1.controller:=controller;
 wwdbdatetimepicker1.controller:=controller;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
wwfilterdialog1.execute;
wwrecordviewdialog1.execute;
exit;
    wwcontroller1.Frame.NonFocusColor:=clNone;
    wwcontroller1.ButtonEffects.flat:=true;
    wwcontroller1.applyframe;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
wwdbedit1.controller:=nil;
end;

procedure TForm1.wwFilterDialog1AcceptFilterRecord(Sender: TObject;
  DataSet: TDataSet; var Accept, DefaultFiltering: Boolean);
begin
wwfilterdialog1.execute;
wwlocatedialog1.execute;
end;

procedure TForm1.wwFilterDialog1InitDialog(Dialog: TwwFilterDlg);
begin
  dialog.filtervalueedit.height:= 34;
  dialog.matchtypegroup.Top:= dialog.filtervalueedit.Top + dialog.filtervalueedit.height + 4;
  dialog.filtervalueedit.WordWrap:=true;
  dialog.Panel1.Top:=dialog.MatchTypeGroup.top+dialog.MatchTypeGroup.height-4;
end;

end.