tdlycxunit.pas

地理资源的录入程序运用了api的一些知识

unit tdlycxUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, WinSkinStore, WinSkinData;

type
  TtdlycxFrm = class(TForm)
    GroupBox1: TGroupBox;
    dqmc: TComboBox;
    GroupBox2: TGroupBox;
    ZYPTBH: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    btnok: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tdlycxFrm: TtdlycxFrm;

implementation

{$R *.dfm}
uses dataM,tdly;
procedure TtdlycxFrm.FormShow(Sender: TObject);
begin
  RadioButton1.Checked :=true;
  zyptbh.SetFocus ;
  dqmc.Enabled :=false;
  //gxmc.Enabled :=false;
  dqmc.Color :=$00D8D8D8;
  //gxmc.Color :=$00D8D8D8;
  dqmc.Text :='';
 // gxmc.Text :='';
  zyptbh.Text :='';
end;

procedure TtdlycxFrm.RadioButton1Click(Sender: TObject);
begin
    radiobutton2.Checked :=false;
    zyptbh.Enabled :=true;
    zyptbh.SetFocus ;
    dqmc.Enabled :=false;
    //gxmc.Enabled :=false;
    dqmc.Color :=$00D8D8D8;
   // gxmc.Color :=$00D8D8D8;
    zyptbh.Color :=clwindow;
    dqmc.Text :='';
    //gxmc.Text :='';
end;

procedure TtdlycxFrm.RadioButton2Click(Sender: TObject);
begin
      radiobutton1.Checked :=false;
      zyptbh.Text :='' ;
      dqmc.Enabled :=true;
      //gxmc.Enabled :=true;
      dqmc.Color :=clwindow;
      //gxmc.Color :=clwindow;
      zyptbh.Enabled :=false;
      zyptbh.Color :=$00D8D8D8;
end;

procedure TtdlycxFrm.btnCancelClick(Sender: TObject);
begin
close;
end;

procedure TtdlycxFrm.btnokClick(Sender: TObject);
var
  sql: string;
begin
  sql := 'select * from  T_geo_landuse where 1>0';

    if radiobutton1.Checked = true  then
        if zyptbh.Text ='' then
         begin
             MessageBox(self.Handle, '请输入查询条件', '提示', mb_IconInformation + mb_Ok);
             zyptbh.SetFocus;
         end
         else
           begin
              sql := sql + ' and Z_PTZYBH like ''%' + trim(zyptbh.Text) + '%''';
               dm.tdlyxx.Close;

              dm.tdlyxx.Close;
              dm.tdlyxx.SQL.Clear;
              dm.tdlyxx.SQL.Add(sql);
              dm.tdlyxx.Open;
              if not dm.tdlyxx.Eof then
               begin
               tdlyxxfrm.GetAll;
               tdlyxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
               tdlycxfrm.Close;
               end
              else
               begin
                 dm.tdlyxx.Close;
                 dm.tdlyxx.SQL.Clear;
                 dm.tdlyxx.SQL.Add('select * from  T_geo_landuse where 1>0');
                 dm.tdlyxx.Active :=true;
                 MessageBox(self.Handle, '输入查询条件错误!无此资源平台号,请查证!', '提示', mb_IconInformation + mb_Ok);
                 zyptbh.SetFocus;
               end;
          end
  else
     if radiobutton2.Checked = true  then
     begin
       if dqmc.Text ='' then
          MessageBox(self.Handle, '请输入查询条件!', '提示', mb_IconInformation + mb_Ok)
       else
        begin
          sql := sql + ' and Z_dwmc like ''%' + trim(dqmc.Text) + '%''';
          dm.tdlyxx.Close;
           dm.tdlyxx.SQL.Clear;
           dm.tdlyxx.SQL.Add(sql);
           dm.tdlyxx.Open;
            if not dm.tdlyxx.Eof then
               begin
               tdlyxxfrm.GetAll;
               tdlyxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
               tdlycxfrm.Close;
               end
             else
               begin
                 dm.tdlyxx.Close;
                 dm.tdlyxx.SQL.Clear;
                 dm.tdlyxx.SQL.Add('select * from  T_geo_landuse where 1>0');
                 dm.tdlyxx.Active :=true;
                 MessageBox(self.Handle, '输入查询条件错误!无此地区名称!,请查证!', '提示', mb_IconInformation + mb_Ok);
                 
               end;
       end;
     end;



end;


end.