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.
59 lines
1.3 KiB
Plaintext
59 lines
1.3 KiB
Plaintext
unit u_info_leaveword;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxExEdtr, BusinessSkinForm, bsSkinCtrls, bsdbctrls, dxDBTLCl,
|
|
dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, StdCtrls, ComCtrls,
|
|
DBCtrls, Mask;
|
|
|
|
type
|
|
Tfrm_info_leaveword = class(TForm)
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
DBRichEdit1: TDBRichEdit;
|
|
bsSkinButton2: TbsSkinButton;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
dxDBGrid5: TdxDBGrid;
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
dxDBGridMaskColumn1: TdxDBGridColumn;
|
|
dxDBGridDateColumn1: TdxDBGridColumn;
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_info_leaveword: Tfrm_info_leaveword;
|
|
|
|
implementation
|
|
|
|
uses u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_info_leaveword.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
if frm_main.t_info_leaveword.IsEmpty then
|
|
exit;
|
|
if frm_main.t_info_leaveword.FieldByName('是否知道').AsBoolean then
|
|
begin
|
|
frm_main.t_info_leaveword.edit;
|
|
frm_main.t_info_leaveword['是否知道']:=0;
|
|
frm_main.t_info_leaveword.post;
|
|
end
|
|
else
|
|
begin
|
|
frm_main.t_info_leaveword.edit;
|
|
frm_main.t_info_leaveword['是否知道']:=1;
|
|
frm_main.t_info_leaveword.post;
|
|
end;
|
|
end;
|
|
|
|
end.
|