cacp.txt

一个程序而已

工程AddView的程序

CAllApps.pas程序

unit CAllApps;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  CClients,CParts;
type
  TfrmAllApps = class(TForm)
    cmdExit: TButton;
    cmdClients: TButton;
    cmdParts: TButton;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cmdClientsClick(Sender: TObject);
    procedure cmdPartsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmAllApps: TfrmAllApps;
implementation
{$R *.dfm}
procedure TfrmAllApps.cmdExitClick(Sender: TObject);
begin
Close;
end;
procedure TfrmAllApps.FormCloseQuery(Sender: TObject;
                                    var CanClose: Boolean);
var
UserChoiceWord:Word;
begin
UserChoiceWord:=
 MessageDlg('Are you sure you want to exit?',
            mtConfirmation,
            [mbYes,mbNo],
            0);
 CanClose:=(UserChoiceWord=mrYes);
end;
procedure TfrmAllApps.cmdClientsClick(Sender: TObject);
begin
{frmClients.ShowModal; }
frmClients.Show;
end;
procedure TfrmAllApps.cmdPartsClick(Sender: TObject);
begin
frmParts.ShowModal;
end;
end.


实现Clients窗体的程序

CClients.pas程序

unit CClients;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables;
type
  TfrmClients = class(TForm)
    cmdClose: TButton;
    ClientsTable: TTable;
    ClientsDataSourse: TDataSource;
    ClientsDBNavigator: TDBNavigator;
    ClientsDBGrid: TDBGrid;
    cmdPrint: TButton;
    procedure cmdCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmClients: TfrmClients;
implementation
{$R *.dfm}
procedure TfrmClients.cmdCloseClick(Sender: TObject);
begin
Close;
end;

procedure TfrmClients.FormCreate(Sender: TObject);
begin
ClientsTable.Open;
end;
procedure TfrmClients.cmdPrintClick(Sender: TObject);
begin
Print;
end;
end.


实现Parts窗体的程序

CParts.pas程序

unit CParts;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables;
type
  TfrmParts = class(TForm)
    cmdClose: TButton;
    PartsTable: TTable;
    PartsDataSource: TDataSource;
    PartsDBNavigator: TDBNavigator;
    PartsDBGrid: TDBGrid;
    cmdPrint: TButton;
    cmdMark: TButton;
    cmdGoToBookmark: TButton;
    procedure cmdCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdMarkClick(Sender: TObject);
    procedure cmdGoToBookmarkClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    gMarkedRecord:TBookmark;
  end;
var
  frmParts: TfrmParts;
implementation
{$R *.dfm}
procedure TfrmParts.cmdCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmParts.FormCreate(Sender: TObject);
begin
PartsTable.Open;
end;
procedure TfrmParts.cmdPrintClick(Sender: TObject);
begin
Print;
end;
procedure TfrmParts.cmdMarkClick(Sender: TObject);
begin
if Assigned(gMarkedRecord)then
   PartsTable.FreeBookmark(gMarkedRecord);
gMarkedRecord:=PartsTable.GetBookmark;
end;
procedure TfrmParts.cmdGoToBookmarkClick(Sender: TObject);
begin
PartsTable.GotoBookmark(gMarkedRecord);
end;
procedure TfrmParts.FormDestroy(Sender: TObject);
begin
if Assigned(gMarkedRecord) then
begin
  PartsTable.FreeBookmark(gMarkedRecord);
  gMarkedRecord:=nil;
end;
end;
end.