demo.pas

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

unit Demo;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, grdlook, TabNotBk, search, demoloc,
  ExtCtrls, grdmemo, wwstr,
  shellapi, DB, DBTables, Wwtable, Wwdatsrc, Wwmemo, combos,
  packtest, isearch, qbe, Wwdbgrid, DBCtrls, FltEvent, grdbitmp, pictures,
  multi, filtdlg, lkdtl, lkquery, grdbttn, ComCtrls, wwriched, wwrich, rcdvw,
  Wwintl, savefilt, rcdpnldemo, Buttons, wwDialog, wwrcdvw,
  wwDBDateTimePicker, wwmonthcalendar, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
  wwdblook, dtpick, monthcalu, navmany, wwSpeedButton, wwDBNavigator,
  NavigatorComb, rcdpnldemo2, formatu, richlabelu, dbchecku, radiou, combodemou, checkboxu, DataInspectorU, GrdIniHint,
  GridMasterDetail, GridControls, InspectorMulti, ExportDemoU, RcdVw2,
  GridExpand, lkcustom, GridExpandPanel, GridLargeEdit,
  GridMasterDetailPanel, gridDataGroup, converter, printheader, dittou,
  Mailmerge, jpeg, wwricheditbar, rtfbardemo;

type
  TMainDemo = class(TForm)
    wwIntl1: TwwIntl;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    Button1: TButton;
    Button21: TButton;
    wwDBRichEdit7: TwwDBRichEdit;
    Button20: TButton;
    wwDBRichEdit4: TwwDBRichEdit;
    Button9: TButton;
    Button17: TButton;
    Button18: TButton;
    wwDBRichEdit5: TwwDBRichEdit;
    Button16: TButton;
    Button8: TButton;
    GroupBox8: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RadioGroup1: TRadioGroup;
    wwDBRichEdit6: TwwDBRichEdit;
    Button14: TButton;
    GroupBox7: TGroupBox;
    Button10: TButton;
    GroupBox6: TGroupBox;
    Button11: TButton;
    Panel1: TPanel;
    Label31: TLabel;
    Button2: TButton;
    wwDBRichEdit1: TwwDBRichEdit;
    wwDBRichEdit8: TwwDBRichEdit;
    wwDBRichEdit2: TwwDBRichEdit;
    Button3: TButton;
    Button5: TButton;
    Button13: TButton;
    Button15: TButton;
    Button19: TButton;
    Button4: TButton;
    Button6: TButton;
    wwDBRichEdit9: TwwDBRichEdit;
    Button7: TButton;
    wwDBRichEdit10: TwwDBRichEdit;
    wwDBRichEdit11: TwwDBRichEdit;
    PageControl2: TPageControl;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    wwDBRichEdit12: TwwDBRichEdit;
    wwDBRichEdit13: TwwDBRichEdit;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    wwDBRichEdit14: TwwDBRichEdit;
    Button25: TButton;
    Button12: TButton;
    TabSheet5: TTabSheet;
    TabSheet15: TTabSheet;
    wwDBRichEdit3: TwwDBRichEdit;
    Button26: TButton;
    Button27: TButton;
    wwDBRichEdit15: TwwDBRichEdit;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    TabSheet16: TTabSheet;
    TabSheet17: TTabSheet;
    wwDBRichEdit16: TwwDBRichEdit;
    Button35: TButton;
    TabSheet18: TTabSheet;
    wwDBRichEdit17: TwwDBRichEdit;
    wwDBRichEdit18: TwwDBRichEdit;
    Button36: TButton;
    Button37: TButton;
    TabSheet19: TTabSheet;
    wwDBRichEdit19: TwwDBRichEdit;
    Button38: TButton;
    RichLabelDemoButton: TButton;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Button39: TButton;
    Button40: TButton;
    Button41: TButton;
    Button42: TButton;
    Button43: TButton;
    Button44: TButton;
    Button45: TButton;
    Bevel4: TBevel;
    Button46: TButton;
    Bevel5: TBevel;
    wwDBRichEdit21: TwwDBRichEdit;
    wwDBRichEdit20: TwwDBRichEdit;
    Button47: TButton;
    Label2: TLabel;
    Button49: TButton;
    wwRichEditBar1: TwwRichEditBar;
    procedure Demo1ButtonClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure DemoButtonClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure RichLabelDemoButtonClick(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button39Click(Sender: TObject);
    procedure Button40Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure Button42Click(Sender: TObject);
    procedure Button43Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure Button45Click(Sender: TObject);
    procedure Button46Click(Sender: TObject);
    procedure Button47Click(Sender: TObject);
    procedure button48Click(Sender: TObject);
    procedure wwDBRichEditDemoPrintHeader(Sender: TwwCustomRichEdit;
      DrawRect: TRect; PageNumber: Integer; var LeftText, CenterText,
      RightText: string; var DoDefault: Boolean);
    procedure Button49Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainDemo: TMainDemo;

implementation

{$R *.DFM}
//{$R Theme.res}

procedure TMainDemo.Demo1ButtonClick(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TGridDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button6Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TIncrSearch.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button7Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TLocate.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button8Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TSaveFilterDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.DemoButtonClick(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TGridMemoApp.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button2Click(Sender: TObject);
begin
  wwDBRichEdit1.execute;
end;

procedure TMainDemo.Button9Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TLookupForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button11Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TPackMain.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button10Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TQBEForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button49Click(Sender: TObject);
begin
  wwRichEditBar1.richedit.PrintPreview;
end;

procedure TMainDemo.Button4Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TSearchForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button13Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TBitmapForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button14Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TPictureForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button15Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TMultiSelectForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button16Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TFilterDialogForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button17Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TDetailComboForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button18Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TTableQueryForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button19Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TBtnGridForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button1Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRecordViewDemoForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;