|
|
|
|
|
unit u_op_delnote;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
|
Dialogs, StdCtrls, Mask, DBCtrls, bsSkinCtrls, DB, ADODB, RxLookup;
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
Tfrm_op_delnote = class(TForm)
|
|
|
|
|
|
bsSkinGroupBox9: TbsSkinGroupBox;
|
|
|
|
|
|
lbl4: TLabel;
|
|
|
|
|
|
lbl5: TLabel;
|
|
|
|
|
|
lbl6: TLabel;
|
|
|
|
|
|
bsSkinButton56: TbsSkinButton;
|
|
|
|
|
|
dbedt4: TDBEdit;
|
|
|
|
|
|
dbedt5: TDBEdit;
|
|
|
|
|
|
ds_op_delnote1: TDataSource;
|
|
|
|
|
|
t_op_delnote: TADOQuery;
|
|
|
|
|
|
DBMemo1: TDBMemo;
|
|
|
|
|
|
DataSource1: TDataSource;
|
|
|
|
|
|
t_code_del: TADOQuery;
|
|
|
|
|
|
t_code_del1: TDataSource;
|
|
|
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
|
|
|
bsSkinSpeedButton1: TbsSkinSpeedButton;
|
|
|
|
|
|
procedure t_op_delnoteAfterInsert(DataSet: TDataSet);
|
|
|
|
|
|
procedure t_op_delnoteBeforePost(DataSet: TDataSet);
|
|
|
|
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
|
|
|
|
procedure RxDBLookupCombo2Change(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
|
|
private
|
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
|
public
|
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frm_op_delnote: Tfrm_op_delnote;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
uses u_main, u_op_seae, my_sys_function, u_code_delnote;
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.t_op_delnoteAfterInsert(DataSet: TDataSet);
|
|
|
|
|
|
begin
|
|
|
|
|
|
t_op_delnote.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=DataSource1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
t_op_delnote.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
|
|
|
|
|
|
t_op_delnote.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asdatetime:=date;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.t_op_delnoteBeforePost(DataSet: TDataSet);
|
|
|
|
|
|
begin
|
|
|
|
|
|
table_before_post(t_op_delnote,'<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>');
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.FormCloseQuery(Sender: TObject;
|
|
|
|
|
|
var CanClose: Boolean);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if t_op_delnote.State in [dsedit,dsinsert] then
|
|
|
|
|
|
t_op_delnote.Post;
|
|
|
|
|
|
CanClose:=frm_close_query(t_op_delnote)
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
t_op_delnote.Edit;
|
|
|
|
|
|
t_op_delnote['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=t_code_del['ɾ<><C9BE>ԭ<EFBFBD><D4AD>'];
|
|
|
|
|
|
t_op_delnote.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_code_delnote:=Tfrm_code_delnote.Create(self);
|
|
|
|
|
|
try
|
|
|
|
|
|
frm_code_delnote.ShowModal;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(frm_code_delnote);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_delnote.FormShow(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
t_code_del.Open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
