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.
111 lines
2.5 KiB
Plaintext
111 lines
2.5 KiB
Plaintext
unit u_code_print_head;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Mask, DBCtrls, BusinessSkinForm, bsSkinCtrls, ExtDlgs,
|
|
Grids, Wwdbigrd, Wwdbgrid, wwdblook;
|
|
|
|
type
|
|
Tfrm_code_print_head = class(TForm)
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
wwDBGrid1: TwwDBGrid;
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
lbl1: TLabel;
|
|
lbl2: TLabel;
|
|
lbl3: TLabel;
|
|
lbl4: TLabel;
|
|
lbl5: TLabel;
|
|
lbl6: TLabel;
|
|
lbl7: TLabel;
|
|
lbl8: TLabel;
|
|
lbl9: TLabel;
|
|
lbl10: TLabel;
|
|
lbl11: TLabel;
|
|
lbl12: TLabel;
|
|
lbl13: TLabel;
|
|
lbl14: TLabel;
|
|
lbl15: TLabel;
|
|
lbl16: TLabel;
|
|
dbedt1: TDBEdit;
|
|
dbedt2: TDBEdit;
|
|
dbedt3: TDBEdit;
|
|
dbedt4: TDBEdit;
|
|
dbedt5: TDBEdit;
|
|
dbedt6: TDBEdit;
|
|
dbedt7: TDBEdit;
|
|
dbedt8: TDBEdit;
|
|
dbedt9: TDBEdit;
|
|
dbedt10: TDBEdit;
|
|
dbedt11: TDBEdit;
|
|
dbedt12: TDBEdit;
|
|
dbedt13: TDBEdit;
|
|
dbedt14: TDBEdit;
|
|
dbedt15: TDBEdit;
|
|
dbimg1: TDBImage;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
dlgOpenPic1: TOpenPictureDialog;
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_code_print_head: Tfrm_code_print_head;
|
|
|
|
implementation
|
|
|
|
uses u_data_share, my_sys_function, u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_code_print_head.FormCloseQuery(Sender: TObject;
|
|
var CanClose: Boolean);
|
|
begin
|
|
CanClose:=frm_close_query(frm_data_share.t_sys_report_head);
|
|
end;
|
|
|
|
procedure Tfrm_code_print_head.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
if dlgOpenPic1.Execute then
|
|
begin
|
|
frm_data_share.t_sys_report_head.Edit;
|
|
dbimg1.Picture.LoadFromFile(dlgOpenPic1.FileName);
|
|
frm_data_share.t_sys_report_head.post;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_code_print_head.FormShow(Sender: TObject);
|
|
begin
|
|
frm_data_share.t_sys_report_head.requery;
|
|
if not frm_data_share.t_code_subcomp.Active then
|
|
frm_data_share.t_code_subcomp.Open;
|
|
end;
|
|
|
|
procedure Tfrm_code_print_head.FormKeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
if key=#13 then
|
|
begin
|
|
Perform(WM_NEXTDLGCTL,0,0);
|
|
key:=#0;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_code_print_head.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
update_jiandu;
|
|
end;
|
|
|
|
end.
|