You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
1.7 KiB
Plaintext
76 lines
1.7 KiB
Plaintext
11 months ago
|
unit u_op_aire_double;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, BusinessSkinForm, DB, ADODB, bsSkinCtrls, StdCtrls, RxLookup,
|
||
|
|
Mask, DBCtrls, wwdbdatetimepicker;
|
||
|
|
|
||
|
|
type
|
||
|
|
Tfrm_op_aire_double = class(TForm)
|
||
|
|
p_old: TADOStoredProc;
|
||
|
|
p_old1: TDataSource;
|
||
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
||
|
|
bsSkinPanel1: TbsSkinPanel;
|
||
|
|
Label2: TLabel;
|
||
|
|
bsSkinButton5: TbsSkinButton;
|
||
|
|
bsSkinPanel2: TbsSkinPanel;
|
||
|
|
Label1: TLabel;
|
||
|
|
Label19: TLabel;
|
||
|
|
Label17: TLabel;
|
||
|
|
Label37: TLabel;
|
||
|
|
Label5: TLabel;
|
||
|
|
Label38: TLabel;
|
||
|
|
Label6: TLabel;
|
||
|
|
Label36: TLabel;
|
||
|
|
Label65: TLabel;
|
||
|
|
DBEdit1: TDBEdit;
|
||
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
||
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
||
|
|
DBEdit8: TDBEdit;
|
||
|
|
DBEdit9: TDBEdit;
|
||
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
||
|
|
DBEdit19: TDBEdit;
|
||
|
|
DBEdit4: TDBEdit;
|
||
|
|
DBEdit38: TDBEdit;
|
||
|
|
Label122: TLabel;
|
||
|
|
DBMemo33: TDBMemo;
|
||
|
|
Label121: TLabel;
|
||
|
|
DBMemo34: TDBMemo;
|
||
|
|
Label123: TLabel;
|
||
|
|
DBMemo35: TDBMemo;
|
||
|
|
Label85: TLabel;
|
||
|
|
DBEdit22: TDBEdit;
|
||
|
|
Label86: TLabel;
|
||
|
|
DBEdit23: TDBEdit;
|
||
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
||
|
|
Label87: TLabel;
|
||
|
|
Label88: TLabel;
|
||
|
|
Label29: TLabel;
|
||
|
|
DBEdit24: TDBEdit;
|
||
|
|
DBEdit25: TDBEdit;
|
||
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
||
|
|
Label110: TLabel;
|
||
|
|
DBMemo18: TDBMemo;
|
||
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frm_op_aire_double: Tfrm_op_aire_double;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure Tfrm_op_aire_double.bsSkinButton5Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|