parset.~pas

SM_Msg.rar 手机短信发送程序

unit ParSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, StdCtrls, Buttons, Registry, Grids, ComCtrls, DB, ADODB,
  ExtCtrls;

type
  TfrmParSet = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
 //  procedure Load_Class;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmParSet: TfrmParSet;
  B,P,D,S:string;

implementation

{$R *.dfm}

uses SM_MsgP, SM_MsgDLL, ADOSM_Data;

{procedure TfrmParSet.Load_Class;
var
 i:integer;
begin
ADOTbl_Class.Open;
ADOTbl_Class.First;
sgrdString.Cells[0,0]:='群组编号';
sgrdString.Cells[1,0]:='群组名称';
for i:=0 to ADOTbl_Class.RecordCount-1 do
 begin
  sgrdString.Cells[0,i+1]:=ADOTbl_Class.Fields[0].Text;
  sgrdString.Cells[1,i+1]:=ADOTbl_Class.Fields[1].Text;
  ADOTbl_Class.Next;
  sgrdString.RowCount:=sgrdString.RowCount+1;  
 end;
  if sgrdString.RowCount>2 then sgrdString.RowCount:=sgrdString.RowCount-1;
end;  }

procedure TfrmParSet.FormShow(Sender: TObject);
var
 str:string;
begin
B:=Copy(Settings,1,Pos(',',Settings)-1);
P:=Copy(Settings,Pos(',',Settings)+1,1);
D:=Copy(Settings,Pos(',',Settings)+3,1);
S:=Trim(Copy(Settings,Pos(',',Settings)+5,3));
ComboBox1.Text:='COM'+IntToStr(PortComm);
ComboBox2.Text:=IntToStr(Reserve)+'天';
if ShortMess_Mode=1 then ComboBox7.Text:='是' else
  ComboBox7.Text:='否';
if P='E' then str:=P+' 偶数';
if P='M' then str:=P+' 标记';
if P='N' then str:=P+' 缺省';
if P='O' then str:=P+' 奇数';
if P='S' then str:=P+' 空格';
ComboBox3.Text:=B;
ComboBox4.Text:=str;
ComboBox5.Text:=D;
ComboBox6.Text:=S;
//Load_Class;
end;

procedure TfrmParSet.BitBtn1Click(Sender: TObject);
begin
Settings:=Trim(ComboBox3.Text)+','+Trim(Copy(ComboBox4.Text,1,1))+','+
Trim(ComboBox5.Text)+','+Trim(Copy(ComboBox6.Text,1,3));
if ComboBox7.Text='是' then ShortMess_Mode:=1 else ShortMess_Mode:=0;
with TRegistry.Create do
 try
  OpenKey('SM\Value', True);
  WriteInteger('PortComm',StrToInt(Copy(ComboBox1.text,4,1)));
  WriteString('Settings',Settings);
  WriteInteger('Reserve',StrToInt(Copy(ComboBox2.Text,1,1)));
  WriteInteger('ShortMess_Mode',ShortMess_Mode);
  CloseKey;
 finally
  Free;
end;
PortComm:=StrToInt(Copy(ComboBox1.text,4,1));
Reserve:=StrToInt(Copy(ComboBox2.Text,1,1));
end;

end.