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.
83 lines
1.9 KiB
Plaintext
83 lines
1.9 KiB
Plaintext
unit u_op_airi_double;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, StdCtrls, BusinessSkinForm, DB, ADODB, RxLookup,
|
|
Mask, DBCtrls, wwdbdatetimepicker;
|
|
|
|
type
|
|
Tfrm_op_airi_double = class(TForm)
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
Label2: TLabel;
|
|
bsSkinButton5: TbsSkinButton;
|
|
p_old: TADOStoredProc;
|
|
p_old1: TDataSource;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
Label9: TLabel;
|
|
Label11: TLabel;
|
|
Label12: TLabel;
|
|
Label13: TLabel;
|
|
Label14: TLabel;
|
|
Label15: TLabel;
|
|
Label65: TLabel;
|
|
DBEdit5: TDBEdit;
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
DBEdit11: TDBEdit;
|
|
DBEdit13: TDBEdit;
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
DBEdit14: TDBEdit;
|
|
DBEdit18: TDBEdit;
|
|
DBEdit12: TDBEdit;
|
|
Label25: TLabel;
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
Label16: TLabel;
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
Label18: TLabel;
|
|
DBEdit15: TDBEdit;
|
|
Label85: TLabel;
|
|
DBEdit20: TDBEdit;
|
|
Label86: TLabel;
|
|
DBEdit19: TDBEdit;
|
|
Label26: TLabel;
|
|
DBEdit17: TDBEdit;
|
|
Label24: TLabel;
|
|
DBEdit16: TDBEdit;
|
|
Label21: TLabel;
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
Label23: TLabel;
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
Label22: TLabel;
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
Label164: TLabel;
|
|
DBEdit31: TDBEdit;
|
|
Label27: TLabel;
|
|
DBEdit30: TDBEdit;
|
|
Label96: TLabel;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_airi_double: Tfrm_op_airi_double;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_airi_double.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
end.
|