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.
141 lines
2.9 KiB
Plaintext
141 lines
2.9 KiB
Plaintext
unit u_op_seai_double;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, DB, BusinessSkinForm, RxLookup, StdCtrls, Mask, DBCtrls,
|
|
bsSkinCtrls, ADODB;
|
|
|
|
type
|
|
Tfrm_op_seai_double = class(TForm)
|
|
p_old1: TDataSource;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
p_old: TADOStoredProc;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
Label122: TLabel;
|
|
Label121: TLabel;
|
|
Label123: TLabel;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
Label29: TLabel;
|
|
Label28: TLabel;
|
|
Label35: TLabel;
|
|
Label36: TLabel;
|
|
Label14: TLabel;
|
|
Label18: TLabel;
|
|
Label20: TLabel;
|
|
Label33: TLabel;
|
|
Label24: TLabel;
|
|
Label25: TLabel;
|
|
Label32: TLabel;
|
|
Label31: TLabel;
|
|
Label9: TLabel;
|
|
Label11: TLabel;
|
|
Label124: TLabel;
|
|
Label125: TLabel;
|
|
Label30: TLabel;
|
|
Label12: TLabel;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
Label126: TLabel;
|
|
Label10: TLabel;
|
|
Label26: TLabel;
|
|
Label13: TLabel;
|
|
Label22: TLabel;
|
|
Label73: TLabel;
|
|
Label27: TLabel;
|
|
Label23: TLabel;
|
|
Label21: TLabel;
|
|
Label164: TLabel;
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
Label1: TLabel;
|
|
Label19: TLabel;
|
|
Label2: TLabel;
|
|
Label17: TLabel;
|
|
Label3: TLabel;
|
|
Label37: TLabel;
|
|
Label5: TLabel;
|
|
Label38: TLabel;
|
|
Label4: TLabel;
|
|
Label6: TLabel;
|
|
Label65: TLabel;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
DBEdit3: TDBEdit;
|
|
DBEdit8: TDBEdit;
|
|
DBEdit9: TDBEdit;
|
|
DBEdit18: TDBEdit;
|
|
DBEdit4: TDBEdit;
|
|
DBEdit6: TDBEdit;
|
|
DBEdit16: TDBEdit;
|
|
DBEdit17: TDBEdit;
|
|
DBEdit19: TDBEdit;
|
|
DBMemo33: TDBMemo;
|
|
DBMemo34: TDBMemo;
|
|
DBMemo35: TDBMemo;
|
|
DBEdit81: TDBEdit;
|
|
DBEdit5: TDBEdit;
|
|
DBMemo1: TDBMemo;
|
|
DBEdit29: TDBEdit;
|
|
DBMemo3: TDBMemo;
|
|
DBMemo4: TDBMemo;
|
|
DBEdit13: TDBEdit;
|
|
DBEdit83: TDBEdit;
|
|
DBEdit82: TDBEdit;
|
|
DBEdit30: TDBEdit;
|
|
DBEdit32: TDBEdit;
|
|
DBEdit31: TDBEdit;
|
|
DBEdit26: TDBEdit;
|
|
DBEdit15: TDBEdit;
|
|
DBEdit7: TDBEdit;
|
|
DBEdit10: TDBEdit;
|
|
DBEdit21: TDBEdit;
|
|
DBEdit20: TDBEdit;
|
|
DBEdit14: TDBEdit;
|
|
DBEdit11: TDBEdit;
|
|
DBEdit24: TDBEdit;
|
|
DBEdit27: TDBEdit;
|
|
DBEdit63: TDBEdit;
|
|
DBEdit22: TDBEdit;
|
|
DBEdit23: TDBEdit;
|
|
DBEdit12: TDBEdit;
|
|
DBEdit25: TDBEdit;
|
|
DBEdit28: TDBEdit;
|
|
DBEdit36: TDBEdit;
|
|
DBEdit35: TDBEdit;
|
|
DBEdit34: TDBEdit;
|
|
DBEdit33: TDBEdit;
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
Label34: TLabel;
|
|
bsSkinButton5: TbsSkinButton;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_seai_double: Tfrm_op_seai_double;
|
|
|
|
implementation
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_seai_double.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_op_seai_double.FormShow(Sender: TObject);
|
|
begin
|
|
Label37.Caption:=Logininfo.seaewtno;
|
|
|
|
end;
|
|
|
|
end.
|