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.
79 lines
1.7 KiB
Plaintext
79 lines
1.7 KiB
Plaintext
unit u_Pcd_mx;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxExEdtr, dxDBGrid, dxTL, dxDBCtrl, dxCntner, DB, ADODB,
|
|
RxLookup, StdCtrls, DBCtrls, Mask, bsSkinCtrls;
|
|
|
|
type
|
|
Tfrm_Pcd_mx = class(TForm)
|
|
dxDBGrid1: TdxDBGrid;
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
dxDBGrid1HEAD_TO: TdxDBGridMaskColumn;
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
dxDBGrid1Column5: TdxDBGridColumn;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
Label29: TLabel;
|
|
Label30: TLabel;
|
|
Label31: TLabel;
|
|
Label32: TLabel;
|
|
Label33: TLabel;
|
|
Label28: TLabel;
|
|
Label34: TLabel;
|
|
Label35: TLabel;
|
|
Label36: TLabel;
|
|
Label37: TLabel;
|
|
Label38: TLabel;
|
|
Label39: TLabel;
|
|
Label49: TLabel;
|
|
Label50: TLabel;
|
|
Label52: TLabel;
|
|
DBEdit14: TDBEdit;
|
|
DBEdit17: TDBEdit;
|
|
DBEdit18: TDBEdit;
|
|
DBEdit19: TDBEdit;
|
|
DBEdit20: TDBEdit;
|
|
DBEdit11: TDBEdit;
|
|
DBEdit21: TDBEdit;
|
|
DBEdit22: TDBEdit;
|
|
DBEdit23: TDBEdit;
|
|
DBEdit24: TDBEdit;
|
|
DBEdit25: TDBEdit;
|
|
DBMemo13: TDBMemo;
|
|
DBEdit31: TDBEdit;
|
|
DBEdit32: TDBEdit;
|
|
t_op_letter: TADOQuery;
|
|
t_op_letter1: TDataSource;
|
|
t_op_letter_pc1: TDataSource;
|
|
t_op_letter_pc: TADOQuery;
|
|
bsSkinButton5: TbsSkinButton;
|
|
DBEdit3: TDBEdit;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_Pcd_mx: Tfrm_Pcd_mx;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
uses u_main ;
|
|
|
|
procedure Tfrm_Pcd_mx.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close ;
|
|
end;
|
|
|
|
end.
|