Programação

Formulário Principal

[pic]

Código do Formulário Principal

unit dftPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TdftPrincipalF = class(TForm)

MainMenu1: TMainMenu; Parametros: TMenuItem; Manutencao: TMenuItem; Funcionarios: TMenuItem; N21: TMenuItem; Clientes: TMenuItem; Produtos: TMenuItem; Fornecedores: TMenuItem; Lancamentos: TMenuItem; Faturar: TMenuItem; N31: TMenuItem; Entregas: TMenuItem; Recebimentos: TMenuItem; Informacoes: TMenuItem; SobreoAplicativo: TMenuItem; Saida: TMenuItem; EncerrarAplicativo: TMenuItem;

procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure SobreoAplicativoClick(Sender: TObject); procedure EncerrarAplicativoClick(Sender: TObject); procedure FuncionariosClick(Sender: TObject); procedure ClientesClick(Sender: TObject); procedure FornecedoresClick(Sender: TObject); procedure ProdutosClick(Sender: TObject); procedure FaturarClick(Sender: TObject); procedure EntregasClick(Sender: TObject); procedure NotasFisClick(Sender: TObject); procedure RepresComClick(Sender: TObject); procedure ReceberClick(Sender: TObject); procedure PagtoClick(Sender: TObject); private { Private declarations } public { Public declarations } end;

var dftPrincipalF: TdftPrincipalF;

implementation

{$R *.dfm}

uses dftFuncionarios, dftClientes, dftFornecedores, dftProdutos, dftFaturar, dftEntregas, dftNotasFis, dftRepresCom, dftReceber, dftPagto;

procedure TdftPrincipalF.FormCreate(Sender: TObject); begin // end; procedure