dlwz_unit.pas

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

unit dlwz_Unit;

interface

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

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

var
  dlwzcxFrm: TdlwzcxFrm;

implementation

{$R *.dfm}
uses datam, TOUR;
procedure TdlwzcxFrm.btnokClick(Sender: TObject);
var
  sql: string;
begin
  sql := 'select * from  T_geo_gnis 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.dlxxzy.Close;

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

              dm.dlxxzy.Close;
              dm.dlxxzy.SQL.Clear;
              dm.dlxxzy.SQL.Add(sql);
              dm.dlxxzy.Open;
              if not dm.dlxxzy.Eof then
               begin
               dlxxfrm.GetAll;
               dlxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
               dlwzcxfrm.Close;
               end
              else
               begin
                 dm.dlxxzy.Close;
                 dm.dlxxzy.SQL.Clear;
                 dm.dlxxzy.SQL.Add('select * from  T_geo_gnis where 1>0');
                 dm.dlxxzy.Active :=true;
                 MessageBox(self.Handle, '输入查询条件错误!无此地区名称!,请查证!', '提示', mb_IconInformation + mb_Ok);
                 zyptbh.SetFocus;
               end;
       end;
     end;



end;


procedure TdlwzcxFrm.FormShow(Sender: TObject);
begin
RadioButton1.Checked :=true;
  zyptbh.SetFocus ;
  bzmc.Enabled :=false;

  bzmc.Color :=$00D8D8D8;

  bzmc.Text :='';

  zyptbh.Text :='';
end;

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

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

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

end.