unit1.pas

档案资料管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EasyGrid, StdCtrls, Buttons, ExtCtrls,ShellApi;

type
  TForm1 = class(TForm)
    EasyGrid1: TEasyGrid;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    ScrollBar1: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Label1.Caption:='说明：在保存表格时请务必进行打印页面设置否则所'+#13+'      见非所得';
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
 ShellAbout(Form1.Handle,'中国电子第二分公司数据表格设计器','作者：CyqLinux'+#13+'技术支持：http://CyqLinux.Ku.net',Form1.Icon.Handle);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 WinHelp(Form1.Handle,PChar(ExtractFilePath(Application.ExeName)+'\cc.hlp'),1,1	);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
 EasyGrid1.Preview;
 EasyGrid1.EasyGridPageInfo.DetailPageInfo.PrintGridLine:=false;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 if (OpenDialog1.Execute)and(OpenDialog1.FileName<>'') then
     EasyGrid1.LoadFromFile(OpenDialog1.FileName) ;
 EasyGrid1.ShowColTitle:=True;
 EasyGrid1.ShowRowTitle:=True;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if (SaveDialog1.Execute)and(SaveDialog1.FileName<>'') then
     EasyGrid1.SaveToFile(SaveDialog1.FileName)
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 form1.AlphaBlendValue:=Scrollbar1.Position;
end;

end.