|
|
|
|
|
unit u_info_tell;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
|
Dialogs, dxExEdtr, bsSkinCtrls, bsdbctrls, dxDBTLCl, dxGrClms, dxTL,
|
|
|
|
|
|
dxDBCtrl, dxDBGrid, dxCntner, StdCtrls, ComCtrls, DBCtrls, Mask,
|
|
|
|
|
|
BusinessSkinForm, bsSkinTabs, ExtCtrls;
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
Tfrm_info_tell = class(TForm)
|
|
|
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
|
|
|
dxDBGrid3Column1: TdxDBGridMaskColumn;
|
|
|
|
|
|
dxDBGrid3Column2: TdxDBGridDateColumn;
|
|
|
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
|
|
|
DBRichEdit1: TDBRichEdit;
|
|
|
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
|
|
|
Label1: TLabel;
|
|
|
|
|
|
DBEdit1: TDBEdit;
|
|
|
|
|
|
DBEdit2: TDBEdit;
|
|
|
|
|
|
Label2: TLabel;
|
|
|
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
|
|
|
private
|
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
|
public
|
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frm_info_tell: Tfrm_info_tell;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
uses u_main;
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_info_tell.bsSkinButton2Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if frm_main.t_info_tell.IsEmpty then
|
|
|
|
|
|
exit;
|
|
|
|
|
|
if frm_main.t_info_tell.FieldByName('<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>').asboolean then
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_main.t_info_tell.edit;
|
|
|
|
|
|
frm_main.t_info_tell['<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>']:=0;
|
|
|
|
|
|
frm_main.t_info_tell.post;
|
|
|
|
|
|
end
|
|
|
|
|
|
else
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_main.t_info_tell.edit;
|
|
|
|
|
|
frm_main.t_info_tell['<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>']:=1;
|
|
|
|
|
|
frm_main.t_info_tell.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_info_tell.FormClose(Sender: TObject;
|
|
|
|
|
|
var Action: TCloseAction);
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_main.t_info_tell.requery;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
