?? unid_principal.pas
字號(hào):
unit Unid_Principal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ActnList, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,
DB, DBClient, Math;
type
TForm_Principal = class(TForm)
ACL_Principal: TActionList;
IMG_Principal: TImageList;
ACT_Novo: TAction;
ACT_Excluir: TAction;
ACT_Duplicar: TAction;
ACT_Localizar: TAction;
ACT_Imprimir: TAction;
ACT_Sair: TAction;
BIT_Novo: TBitBtn;
BIT_Excluir: TBitBtn;
BIT_Alterar: TBitBtn;
BIT_Localizar: TBitBtn;
BIT_Imprimir: TBitBtn;
BIT_Sair: TBitBtn;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
DSC_Recibo: TDataSource;
DBGrid1: TDBGrid;
procedure ACT_NovoExecute(Sender: TObject);
procedure ACT_ExcluirExecute(Sender: TObject);
procedure ACT_DuplicarExecute(Sender: TObject);
procedure ACT_LocalizarExecute(Sender: TObject);
procedure ACT_ImprimirExecute(Sender: TObject);
procedure ACT_SairExecute(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Principal: TForm_Principal;
implementation
uses Unid_Dados, Unid_Novo_Recibo, Unid_Impressao, Unid_Sobre;
{$R *.dfm}
procedure TForm_Principal.ACT_NovoExecute(Sender: TObject);
begin
//Novo
with TForm_Novo_Recibo.Create(Nil) do
try
Tag := 1;
ShowModal;
finally
Free;
end;
end;
procedure TForm_Principal.ACT_ExcluirExecute(Sender: TObject);
begin
//Excluir
if MessageBox (Handle, 'Confirma a exclus鉶 deste Recibo?',
'Excluir Recibo', mb_OkCancel + mb_IconQuestion) = IDOK then begin
Form_Dados.CDS_Recibo.Delete;
end;
end;
procedure TForm_Principal.ACT_DuplicarExecute(Sender: TObject);
begin
//Duplicar
with TForm_Novo_Recibo.Create(Nil) do
try
Tag := 2;
ShowModal;
finally
Free;
end;
end;
procedure TForm_Principal.ACT_LocalizarExecute(Sender: TObject);
begin
//Localizar
end;
procedure TForm_Principal.ACT_ImprimirExecute(Sender: TObject);
begin
//Imprimir
with TForm_Impressao.Create(Nil) do
try
Tag := 1;
ShowModal;
finally
Free;
end;
end;
procedure TForm_Principal.ACT_SairExecute(Sender: TObject);
begin
with TForm_Sobre.Create(Nil) do
try
ShowModal;
finally
Free;
end;
Form_Dados.CDS_Recibo.SaveToFile('.\RECIBO.XML', dfXML);
Form_Dados.CDS_Recibo.Close;
Application.Terminate;
end;
procedure TForm_Principal.DBGrid1TitleClick(Column: TColumn);
begin
//Seleciona Indice.
Form_Dados.CDS_Recibo.IndexFieldNames := Column.FieldName;
if Column.FieldName = 'LOC_NOME' then begin
Form_Dados.CDS_Recibo.IndexFieldNames := 'LOC_NOME; REC_NUM';
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -