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.
68 lines
1.6 KiB
Plaintext
68 lines
1.6 KiB
Plaintext
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('是否知道').asboolean then
|
|
begin
|
|
frm_main.t_info_tell.edit;
|
|
frm_main.t_info_tell['是否知道']:=0;
|
|
frm_main.t_info_tell.post;
|
|
end
|
|
else
|
|
begin
|
|
frm_main.t_info_tell.edit;
|
|
frm_main.t_info_tell['是否知道']:=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.
|