main.pas

我所收集的所有编程开发资料

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdActns, ActnList, ActnMan, ImgList, Menus, ComCtrls,
  SUIListView, SUITreeView, ExtCtrls, SUIMainMenu, ToolWin, ActnCtrls,
  SUIForm, StdCtrls, CheckLst, SUIPageControl, SUITabControl,
  SUISideChannel,Jpeg, DBCtrls,fun, SUIImagePanel, SUIGroupBox,
  SUIRadioGroup, XPStyleActnCtrls;

type
  TMainForm = class(TForm)
    ToolbarImages: TImageList;
    ActionManager1: TActionManager;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditCut1: TEditCut;
    EditSelectAll1: TEditSelectAll;
    actView1: TAction;
    actView2: TAction;
    actView3: TAction;
    actView4: TAction;
    actNew: TAction;
    actEdit: TAction;
    actDelete: TAction;
    actFind: TAction;
    actPrint: TAction;
    actExit: TAction;
    actRefresh: TAction;
    imlSmall: TImageList;
    imlLarge: TImageList;
    suiForm1: TsuiForm;
    ActionToolBar1: TActionToolBar;
    suiMainMenu1: TsuiMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    suiSideChannel1: TsuiSideChannel;
    Splitter1: TSplitter;
    Panel1: TPanel;
    ListView1: TsuiListView;
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    tree: TsuiTreeView;
    Panel2: TPanel;
    Edit1: TEdit;
    DBMemo1: TDBMemo;
    Action1: TAction;
    N16: TMenuItem;
    StatusBar1: TStatusBar;
    ListBox1: TListBox;
    suiRadioGroup1: TsuiRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListView1CustomDraw(Sender: TCustomListView;
      const ARect: TRect; var DefaultDraw: Boolean);
    procedure FormShow(Sender: TObject);
    procedure treeClick(Sender: TObject);
    procedure actView1Execute(Sender: TObject);
    procedure actExitExecute(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure actEditExecute(Sender: TObject);
    procedure actNewExecute(Sender: TObject);
    procedure actDeleteExecute(Sender: TObject);
    procedure actPrintExecute(Sender: TObject);
  private
    { Private declarations }
    FJpg:TJPEGImage;
    sc:Tsc;
  public
    { Public declarations }

  end;

var
  MainForm: TMainForm;

implementation
   uses datamdo,editform,dy;
{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var
  NewColumn: TListColumn;
begin
  sc:=Tsc.create(self);

  with ListView1 do
  begin
    SmallImages := imlSmall;
    LargeImages := imlLarge;
    NewColumn := Columns.Add;
    NewColumn.Caption :='名称';
    NewColumn.Width:=280;
    NewColumn := Columns.Add;
    NewColumn.Caption :='类别';
    NewColumn.Width:=80;
    NewColumn := Columns.Add;
    NewColumn.Caption :='日期';
    NewColumn.Width:=100;
  end;
  Fjpg:=TJPEGImage.Create;
  Fjpg.LoadFromFile('BG003.JPG');
end;


procedure TMainForm.FormDestroy(Sender: TObject);
begin
FJpg.free;
end;

procedure TMainForm.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
var
  x,y,w,h:Integer;
begin
  with FJpg do
  begin
    w:=Width;
    h:=Height;
  end;
  y:=0;
  while y<ListView1.Height do
  begin
    x:=0;
    while x<ListView1.Width do
    begin
      ListView1.Canvas.Draw(x,y,FJpg);
      Inc(x,w);
    end;
    Inc(y,h);
  end;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  sc.liststatusbar(statusbar1);
  sc.listtree(tree);
end;


procedure TMainForm.treeClick(Sender: TObject);
begin
  dbmemo1.Visible:=false;
  listview1.Visible:=true;
  sc.treeclick(tree,listview1);
end;

procedure TMainForm.actView1Execute(Sender: TObject);
begin
   ListView1.ViewStyle := TViewStyle((Sender as TComponent).Tag);
end;

procedure TMainForm.actExitExecute(Sender: TObject);
begin
  close;
end;

procedure TMainForm.ListView1DblClick(Sender: TObject);
begin
  dbmemo1.Visible:=true;
  listview1.Visible:=false;
  dbmemo1.DataSource:=dm.DataSource3;
  sc.selectdata('select * from sc where 名称='''+listview1.Selected.Caption+'''');
end;

procedure TMainForm.Action1Execute(Sender: TObject);
begin
  dbmemo1.Visible:=false;
  listview1.Visible:=true;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
DBMemo1.ScrollBars:=ssVertical;
DBMemo1.WordWrap:=true;
end;

procedure TMainForm.Edit1Change(Sender: TObject);
begin
  sc.editchange(edit1.Text,listbox1,suiRadioGroup1.ItemIndex);
end;

procedure TMainForm.ListBox1DblClick(Sender: TObject);
var
str:string;
begin
str:=listbox1.Items.Strings[listbox1.ItemIndex];
dbmemo1.Visible:=true;
  listview1.Visible:=false;
  dbmemo1.DataSource:=dm.DataSource3;
  sc.selectdata('select * from sc where 名称='''+str+'''');
end;

procedure TMainForm.actEditExecute(Sender: TObject);
begin
     edform.suiDBNavigator1.VisibleButtons:=[nbedit,nbpost,nbcancel,nbrefresh];
  edform.ShowModal;
end;

procedure TMainForm.actNewExecute(Sender: TObject);
begin
  edform.suiDBNavigator1.VisibleButtons:=[nbinsert,nbpost,nbcancel,nbrefresh];
  edform.ShowModal;
  sc.listtree(tree);
end;

procedure TMainForm.actDeleteExecute(Sender: TObject);
begin
  edform.suiDBNavigator1.VisibleButtons:=[nbdelete,nbpost,nbcancel,nbrefresh];
  edform.ShowModal;
  sc.listtree(tree);
end;

procedure TMainForm.actPrintExecute(Sender: TObject);
begin
  dyform.QuickRep1.Preview;
end;

end.