lookup.pas

这是用DELPHI制作的一个简单的闭路电视收费

unit Lookup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fcButton, fcImgBtn, fcShapeBtn, fcStatusBar, Grids, Wwdbigrd, Wwdbgrid,
  wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel, StdCtrls;

type
  TFormLookup = class(TForm)
    DBGridService: TwwDBGrid;
    fcStatusBar1: TfcStatusBar;
    BtnPrint: TfcShapeBtn;
    BtnExit: TfcShapeBtn;
    Navigator: TwwDBNavigator;
    NavigatorFirst: TwwNavButton;
    NavigatorPriorPage: TwwNavButton;
    NavigatorPrior: TwwNavButton;
    NavigatorNext: TwwNavButton;
    NavigatorNextPage: TwwNavButton;
    NavigatorLast: TwwNavButton;
    Label1: TLabel;
    DBGridUser: TwwDBGrid;
    BtnPrintPreview: TfcShapeBtn;
    procedure FormResize(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure BtnPrintPreviewClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLookup: TFormLookup;

implementation

uses DM, LookupPrint;

{$R *.DFM}

procedure TFormLookup.FormResize(Sender: TObject);
begin
  //DBGrid.Height:=337*Height div 460; //auto set the size
  //DBGrid.Width:=561*Width div 680;
  //DBGridService.Height:=ClientHeight-35-DBGridService.Top;
  DBGridService.Top:=ClientHeight-35-DBGridService.Height;
  DBGridService.Width:=ClientWidth-95-DBGridService.Left;
  DBGridUser.Height:=ClientHeight-220-DBGridUser.Top;
  DBGridUser.Width:=ClientWidth-95-DBGridUser.Left;
  //Label1.Top:=ClientHeight-15-DBGridService.Height;
  Label1.Top:=ClientHeight-193;
  Navigator.Left:=ClientWidth-80;
  //BtnSave.Top:=DBGridService.Top;
  //BtnSave.Left:=ClientWidth-80;
  BtnPrint.Top:=DBGridService.Top+20;
  BtnPrint.Left:=ClientWidth-80;
  BtnExit.Top:=BtnPrint.Top+52;
  BtnExit.Left:=ClientWidth-80;
end;

procedure TFormLookup.BtnExitClick(Sender: TObject);
begin
  DataM.TableUser.Close;
  Close;
end;

procedure TFormLookup.BtnPrintPreviewClick(Sender: TObject);
begin
  LookupP.QuickRep1.Preview;
end;

procedure TFormLookup.BtnPrintClick(Sender: TObject);
begin
  LookupP.QuickRep1.Print;
end;

end.