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.
136 lines
2.8 KiB
Plaintext
136 lines
2.8 KiB
Plaintext
unit u_op_seae_double;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, BusinessSkinForm, wwdblook, RxLookup, StdCtrls, DBCtrls, Mask,
|
|
bsSkinCtrls, DB, ADODB;
|
|
|
|
type
|
|
Tfrm_op_seae_double = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
Label125: TLabel;
|
|
Label15: TLabel;
|
|
Label7: TLabel;
|
|
Label124: TLabel;
|
|
Label146: TLabel;
|
|
Label145: TLabel;
|
|
Label32: TLabel;
|
|
Label21: TLabel;
|
|
Label27: TLabel;
|
|
Label30: TLabel;
|
|
Label31: TLabel;
|
|
Label12: TLabel;
|
|
Label11: TLabel;
|
|
Label13: TLabel;
|
|
Label126: TLabel;
|
|
Label25: TLabel;
|
|
Label34: TLabel;
|
|
Label39: TLabel;
|
|
Label18: TLabel;
|
|
Label73: TLabel;
|
|
Label22: TLabel;
|
|
Label35: TLabel;
|
|
Label26: TLabel;
|
|
Label28: TLabel;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
Label8: TLabel;
|
|
Label16: TLabel;
|
|
Label23: TLabel;
|
|
Label24: TLabel;
|
|
Label29: TLabel;
|
|
Label33: TLabel;
|
|
Label164: TLabel;
|
|
Label168: TLabel;
|
|
Label6: TLabel;
|
|
Label14: TLabel;
|
|
Label20: TLabel;
|
|
Label40: TLabel;
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
Label1: TLabel;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label36: TLabel;
|
|
Label37: TLabel;
|
|
Label38: TLabel;
|
|
Label19: TLabel;
|
|
Label17: TLabel;
|
|
Label65: TLabel;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit7: TDBEdit;
|
|
DBEdit8: TDBEdit;
|
|
DBEdit9: TDBEdit;
|
|
DBEdit18: TDBEdit;
|
|
DBEdit4: TDBEdit;
|
|
DBEdit45: TDBEdit;
|
|
DBEdit46: TDBEdit;
|
|
DBEdit47: TDBEdit;
|
|
DBEdit5: TDBEdit;
|
|
DBMemo3: TDBMemo;
|
|
DBMemo4: TDBMemo;
|
|
DBMemo5: TDBMemo;
|
|
DBMemo6: TDBMemo;
|
|
DBEdit81: TDBEdit;
|
|
DBEdit82: TDBEdit;
|
|
DBEdit83: TDBEdit;
|
|
DBEdit80: TDBEdit;
|
|
DBEdit55: TDBEdit;
|
|
DBEdit56: TDBEdit;
|
|
DBEdit53: TDBEdit;
|
|
DBEdit54: TDBEdit;
|
|
DBEdit10: TDBEdit;
|
|
DBEdit17: TDBEdit;
|
|
DBEdit57: TDBEdit;
|
|
DBEdit58: TDBEdit;
|
|
DBEdit25: TDBEdit;
|
|
DBEdit59: TDBEdit;
|
|
DBEdit27: TDBEdit;
|
|
DBEdit60: TDBEdit;
|
|
DBEdit61: TDBEdit;
|
|
DBEdit70: TDBEdit;
|
|
DBEdit71: TDBEdit;
|
|
DBEdit72: TDBEdit;
|
|
DBEdit73: TDBEdit;
|
|
DBEdit26: TDBEdit;
|
|
DBEdit74: TDBEdit;
|
|
DBEdit66: TDBEdit;
|
|
DBEdit67: TDBEdit;
|
|
DBEdit68: TDBEdit;
|
|
DBEdit69: TDBEdit;
|
|
DBEdit64: TDBEdit;
|
|
DBEdit65: TDBEdit;
|
|
DBEdit62: TDBEdit;
|
|
DBEdit63: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
DBEdit3: TDBEdit;
|
|
p_old1: TDataSource;
|
|
p_old: TADOStoredProc;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
bsSkinButton5: TbsSkinButton;
|
|
Label2: TLabel;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_seae_double: Tfrm_op_seae_double;
|
|
|
|
implementation
|
|
|
|
uses u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_seae_double.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
end.
|