开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
mapu.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

mapu.pas：源码内容
  1. unit mapu;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   fcButton, fcImgBtn, ExtCtrls, fcImageForm, StdCtrls, Mask, Db, DBTables,
  8.   fcShapeBtn, fcImage, DBCtrls, fcLabel, fcClearPanel, fcButtonGroup;
  10. type
  11.   TMapForm = class(TForm)
  12.     fcImageBtn1: TfcImageBtn;
  13.     fcImageBtn2: TfcImageBtn;
  14.     fcImageBtn7: TfcImageBtn;
  15.     fcImageBtn8: TfcImageBtn;
  16.     fcImageBtn9: TfcImageBtn;
  17.     fcImageBtn10: TfcImageBtn;
  18.     DataSource1: TDataSource;
  19.     Table1: TTable;
  20.     Table1CountyName: TStringField;
  21.     Table1SalesTaxRate: TCurrencyField;
  22.     Table1NumberOfCities: TIntegerField;
  23.     Table1EstimatedPopulation: TIntegerField;
  24.     Table1EstimatedHousingUnits: TIntegerField;
  25.     Table1CountyCode: TStringField;
  26.     Panel1: TPanel;
  27.     Label1: TLabel;
  28.     DBEdit1: TDBEdit;
  29.     Label2: TLabel;
  30.     DBEdit2: TDBEdit;
  31.     Label4: TLabel;
  32.     DBEdit4: TDBEdit;
  33.     Label6: TLabel;
  34.     DBEdit6: TDBEdit;
  35.     Table1CityTownList: TMemoField;
  36.     Image2: TImage;
  37.     fcLabel4: TfcLabel;
  38.     fcImageBtn3: TfcImageBtn;
  39.     fcImageBtn4: TfcImageBtn;
  40.     fcImageBtn5: TfcImageBtn;
  41.     fcImageBtn6: TfcImageBtn;
  42.     DBMemo1: TDBMemo;
  43.     Label3: TLabel;
  44.     procedure fcShapeBtn1Click(Sender: TObject);
  45.     procedure fcImageBtn6Click(Sender: TObject);
  46.     procedure FormShow(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.   public
  50.     { Public declarations }
  51.   end;
  53. var
  54.   MapForm: TMapForm;
  56. implementation
  58. {$R *.DFM}
  61. procedure TMapForm.fcShapeBtn1Click(Sender: TObject);
  62. begin
  63.   Close;
  64. end;
  66. procedure TMapForm.fcImageBtn6Click(Sender: TObject);
  67. begin
  68.   fcLabel4.Caption := (Sender as TFcImageBtn).Caption;
  69.   case (Sender as TfcImageBtn).Tag of
  70.     1:Table1.Locate('CountyName','Marin',[loPartialKey]);
  71.     2:Table1.Locate('CountyName','Sonoma',[loPartialKey]);
  72.     3:Table1.Locate('CountyName','Napa',[loPartialKey]);
  73.     4:Table1.Locate('CountyName','Solano',[loPartialKey]);
  74.     5:Table1.Locate('CountyName','Contra Costa',[loPartialKey]);
  75.     6:Table1.Locate('CountyName','Alameda',[loPartialKey]);
  76.     7:Table1.Locate('CountyName','Santa Clara',[loPartialKey]);
  77.     8:Table1.Locate('CountyName','Santa Cruz',[loPartialKey]);
  78.     9:Table1.Locate('CountyName','San Mateo',[loPartialKey]);
  79.     10:Table1.Locate('CountyName','San Francisco',[loPartialKey]);
  80.   end;
  81. end;
  83. procedure TMapForm.FormShow(Sender: TObject);
  84. begin
  85.   // Don't Show Background if 256 or less Colors
  86.   if ((GetDeviceCaps(Image2.Canvas.Handle, BITSPIXEL) *
  87.        GetDeviceCaps(Image2.Canvas.Handle, PLANES)) <= 8) then
  88.      Image2.Visible := False;
  89. end;
  91. end.