phonenote.pas

SM_Msg.rar 手机短信发送程序

unit PhoneNote;

interface

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

type
  TfrmPhoneNote = class(TForm)
    ADOTbl_PhoneNote: TADOTable;
    dsr_PhoneNote: TDataSource;
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    strdString: TStringGrid;
    BitBtn4: TBitBtn;
    ADOTbl_PhoneNoteClass: TWideStringField;
    ADOTbl_PhoneNoteName: TWideStringField;
    ADOTbl_PhoneNotePhoneNum1: TWideStringField;
    ADOTbl_PhoneNotePhoneNum2: TWideStringField;
    ADOTbl_PhoneNoteFax: TWideStringField;
    ADOTbl_PhoneNoteHomePhone: TWideStringField;
    ADOTbl_PhoneNoteMobilePhone: TWideStringField;
    ADOTbl_PhoneNoteEmail: TWideStringField;
    ADOTbl_PhoneNoteUnit: TWideStringField;
    ADOTbl_PhoneNoteOfficeAdd: TWideStringField;
    ADOTbl_PhoneNoteCommAdd: TWideStringField;
    ADOTbl_PhoneNotePost: TWideStringField;
    ADOTbl_PhoneNoteRetic: TWideStringField;
    ADOTbl_PhoneNoteQQNum: TWideStringField;
    ADOTbl_PhoneNoteBz: TWideStringField;
    cm_Search: TComboBox;
    edt_Search: TEdit;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPhoneNote: TfrmPhoneNote;

implementation

{$R *.dfm}
uses  ADOSM_Data;

procedure TfrmPhoneNote.FormShow(Sender: TObject);
var
 i:integer;
 Search_str:TStringList;
begin
ADOTbl_PhoneNote.Open;
Search_str:=TStringList.Create;
strdString.Cells[0,0]:='分类';
for i:=0 to DBGrid1.Columns.Count-1 do
 begin
  strdString.Cells[i+1,0]:=DBGrid1.Columns.Items[i].Title.Caption;
  Search_str.Add(DBGrid1.Columns.Items[i].Title.Caption);
  cm_Search.Items.Add(Search_str.Strings[i]);
 end;
Search_str.Free;
end;
procedure TfrmPhoneNote.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
ADOTbl_PhoneNote.Close;
end;

end.