D6HECHUAN/信息提醒/u_message_guide.pas

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.