hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
D6HECHUAN/信息提醒/u_message_guide.pas

235 lines
7.1 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_message_guide;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,DB,
Dialogs, bsSkinCtrls, bsdbctrls, ExtCtrls, StdCtrls, RxLookup;
type
Tfrm_message_guide = class(TForm)
Notebook1: TNotebook;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinRadioGroup1: TbsSkinRadioGroup;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
bsSkinGroupBox3: TbsSkinGroupBox;
bsSkinGroupBox4: TbsSkinGroupBox;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
Panel1: TPanel;
bsSkinGroupBox6: TbsSkinGroupBox;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinRadioGroup2: TbsSkinRadioGroup;
bsSkinRadioGroup3: TbsSkinRadioGroup;
bsSkinRadioGroup4: TbsSkinRadioGroup;
bsSkinRadioGroup5: TbsSkinRadioGroup;
bsSkinRadioGroup6: TbsSkinRadioGroup;
bsSkinRadioGroup7: TbsSkinRadioGroup;
bsSkinGroupBox7: TbsSkinGroupBox;
bsSkinGroupBox8: TbsSkinGroupBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
Edit1: TEdit;
Label1: TLabel;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
Edit2: TEdit;
Label2: TLabel;
bsSkinRadioGroup8: TbsSkinRadioGroup;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
bsSkinGroupBox9: TbsSkinGroupBox;
bsSkinButton20: TbsSkinButton;
bsSkinButton21: TbsSkinButton;
bsSkinButton22: TbsSkinButton;
Memo1: TMemo;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo1: TRxDBLookupCombo;
Label7: TLabel;
Label8: TLabel;
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton21Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_message_guide: Tfrm_message_guide;
implementation
uses u_main, U_SetMessage;
{$R *.dfm}
procedure Tfrm_message_guide.bsSkinButton2Click(Sender: TObject);
var
sl:TStrings;
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
sl:=TStringList.Create;
try
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
sl.Add('<27><><EFBFBD><EFBFBD>='+bsSkinRadioGroup2.Items.Strings[bsSkinRadioGroup2.itemindex]);
sl.Add('Ƿ<>ѹ<EFBFBD><D1B9><EFBFBD>='+bsSkinRadioGroup3.Items.Strings[bsSkinRadioGroup3.itemindex]);
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=sl.CommaText;
finally
FreeAndNil(sl);
end;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton3Click(Sender: TObject);
begin
//cancel
Close;
end;
procedure Tfrm_message_guide.bsSkinButton1Click(Sender: TObject);
begin
Notebook1.PageIndex:=bsSkinRadioGroup1.ItemIndex+1;
end;
procedure Tfrm_message_guide.bsSkinButton14Click(Sender: TObject);
begin
Notebook1.PageIndex:=0;
end;
procedure Tfrm_message_guide.bsSkinButton4Click(Sender: TObject);
var
sl:TStrings;
begin
sl:=TStringList.Create;
try
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
if bsSkinRadioGroup4.ItemIndex=0 then
sl.Add(bsSkinRadioGroup4.caption+'=1');
if bsSkinRadioGroup5.ItemIndex=0 then
sl.Add(bsSkinRadioGroup5.caption+'=1');
if bsSkinRadioGroup7.ItemIndex=0 then
sl.Add(bsSkinRadioGroup7.caption+'=1');
if bsSkinRadioGroup6.ItemIndex=0 then
sl.Add(bsSkinRadioGroup6.caption+'=1');
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=sl.CommaText;
finally
FreeAndNil(sl);
end;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton6Click(Sender: TObject);
var
sl:TStrings;
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
sl:=TStringList.Create;
try
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
if bsSkinCheckRadioBox1.Checked then begin
sl.Add('<27><><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sl.Add('<27><><EFBFBD><EFBFBD>='+Edit1.Text);
end;
if bsSkinCheckRadioBox2.Checked then begin
sl.Add('<27><><EFBFBD><EFBFBD>=<3D><><EFBFBD>ں<EFBFBD>');
sl.Add('<27><><EFBFBD><EFBFBD>='+Edit2.Text);
end;
sl.Add('<27><><EFBFBD>ѷ<EFBFBD>ʽ='+bsSkinRadioGroup8.Items.Strings[bsSkinRadioGroup8.itemindex]);
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=sl.CommaText;
finally
FreeAndNil(sl);
end;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton12Click(Sender: TObject);
var
sl:TStrings;
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
sl:=TStringList.Create;
try
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
sl.Add('<27><><EFBFBD><EFBFBD>='+Edit3.Text);
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=sl.CommaText;
finally
FreeAndNil(sl);
end;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton21Click(Sender: TObject);
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=Memo1.Lines.CommaText;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton11Click(Sender: TObject);
var
sl:TStrings;
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
sl:=TStringList.Create;
try
sl.Add('<27><><EFBFBD><EFBFBD>='+RxDBLookupCombo6.DisplayValues[0]);
sl.Add('<27><><EFBFBD><EFBFBD>='+RxDBLookupCombo1.DisplayValues[0]);
TMemoField(frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).AsString:=sl.CommaText;
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
finally
FreeAndNil(sl);
end;
Close;
end;
procedure Tfrm_message_guide.bsSkinButton8Click(Sender: TObject);
begin
if not (frmMessageSet.t_sys_awoke.State in [dsinsert,dsedit]) then frmMessageSet.t_sys_awoke.edit;
frmMessageSet.t_sys_awoke.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.itemindex];
Close;
end;
end.