main.pas

本程序采用Delphi开发

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, Grids, DBGridEh, Mask,
  DBCtrlsEh, DB, ADODB, Buttons,ShellAPI;

type
  TFrmMain = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    TabSheet4: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label4: TLabel;
    DBEditEh1: TDBEditEh;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    BitBtn3: TBitBtn;
    Memo2: TMemo;
    Memo1: TMemo;
    Label3: TLabel;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label7MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

procedure TFrmMain.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=false;
end;

procedure TFrmMain.BitBtn1Click(Sender: TObject);
var FieldName:String;
begin
  if trim(DBEditEh2.Text)='' then begin
    Application.MessageBox(PChar('请输入要查找的'+DBComboBoxEh1.Text), PChar(Application.Title), MB_ICONINFORMATION);
    DBEditEh2.SetFocus;
    exit;
  end;
  Case DBComboBoxEh1.ItemIndex of
    0:FieldName:='区号';
    1:FieldName:='邮编';
    2:FieldName:='省名';
    3:FieldName:='县市名';
    else FieldName:='区号';
  end;
  with ADOQuery1 do begin
    Active:=false;
    SQL.Text:=format('Select * from AreaData where %S like ''%S''',[FieldName,'%'+DBEditEh2.Text+'%']);
    Active:=True;
    DataSource1.DataSet:=ADOQuery1;    
  end;
    
end;

procedure TFrmMain.BitBtn2Click(Sender: TObject);
var SearchCode:Integer;
begin
  if Length(trim(DBEditEh1.Text))<7 then begin
    Application.MessageBox(PChar('手机号码必须输入7位以上!'), PChar(Application.Title), MB_ICONINFORMATION);
    DBEditEh1.SetFocus;
    exit;
  end;
  SearchCode:=StrToInt(Copy(trim(DBEditEh1.Text),1,7));
  DataSource1.DataSet:=nil;  
  with ADOQuery1 do begin
    Active:=false;
    SQL.Text:=Format('Select * from MobileCode where 号码B<=%D and 号码E>=%D',[SearchCode,SearchCode]); 
    Active:=true;
    Memo1.Lines.Clear;
    Memo1.Lines.Add('所属地区: '+FieldByName('地区').AsString);
    Memo1.Lines.Add('所属城市: '+FieldByName('城市').AsString);
    Memo1.Lines.Add('所属区号: '+FieldByName('区号').AsString);
    Memo1.Lines.Add('手机类型: '+FieldByName('类型').AsString);
    Active:=false;    
  end;



end;

procedure TFrmMain.BitBtn3Click(Sender: TObject);
var SearchCode:Integer;
begin
  if Length(trim(DBEditEh3.Text))<6 then begin
    Application.MessageBox(PChar('身份证号码必须输入6位以上!'), PChar(Application.Title), MB_ICONINFORMATION);
    DBEditEh3.SetFocus;
    exit;
  end;
  SearchCode:=StrToInt(Copy(trim(DBEditEh3.Text),1,6));
  DataSource1.DataSet:=nil;
  with ADOQuery1 do begin
    Active:=false;
    SQL.Text:=Format('Select * from ZipCode where BM=%D',[SearchCode]); 
    Active:=true;
    Memo2.Lines.Clear;
    Memo2.Lines.Add('原户籍所在地: ');
    Memo2.Lines.Add(FieldByName('DQ').AsString);
    Active:=false;
  end;
end;

procedure TFrmMain.Label7MouseEnter(Sender: TObject);
begin
 (Sender as TLabel).Font.Color:=clred;
end;

procedure TFrmMain.Label7MouseLeave(Sender: TObject);
begin
 (Sender as TLabel).Font.Color:=clBlue;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
var FileName:String;
begin
  Font:=Screen.IconFont;
  FileName:=ExtractFilePath(Application.ExeName)+'Code.BM';
  if not FileExists(FileName) then begin
    Application.MessageBox(PChar('数据文件:'+FileName+'不存在!'), PChar(Application.Title), MB_ICONINFORMATION);
    Application.Terminate;
    exit;
  end;
  ADOConnection1.Connected:=false;
//driver={Microsoft Access Driver (*.mdb)};UserID=Admin;pwd=etopsoft1234;dbq=d:\easycashier\data\我的账本.acc;Persist Security Info=False
  ADOConnection1.ConnectionString:=format('driver={Microsoft Access Driver (*.mdb)};UserID=Admin;pwd=%S;dbq=%S;Persist Security Info=False',['etopsoft1234',FileName]);
  try
    ADOConnection1.Connected:=true;
  except
  end;

end;

procedure TFrmMain.Label3Click(Sender: TObject);
begin

end;

end.