unit u_op_znjyj; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, wwdbdatetimepicker, bsSkinCtrls, BusinessSkinForm, DB,ADODB, Mask, DBCtrls, wwdblook, ExtCtrls, jpeg, ComCtrls; type Tfrm_op_znjyj = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; DataSource1: TDataSource; bsSkinPanel1: TbsSkinPanel; bsSkinButton1: TbsSkinButton; Panel1: TPanel; Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; lblcust: TLabel; lblmonth: TLabel; lblzq: TLabel; lbldate: TLabel; lblys: TLabel; lblznj: TLabel; Label12: TLabel; lblttlznj: TLabel; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Memo1: TMemo; procedure bsSkinButton5Click(Sender: TObject); private { Private declarations } public { Public declarations } BSTYPE:string; end; var frm_op_znjyj: Tfrm_op_znjyj; implementation uses my_sys_function, u_data_share; {$R *.dfm} procedure Tfrm_op_znjyj.bsSkinButton5Click(Sender: TObject); begin close; end; end.