dqjjcx.pas

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

unit dqjjcx;

interface

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

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

var
  dqcxfrm: Tdqcxfrm;

implementation

uses DataM, dqjj;

{$R *.dfm}

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

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

procedure Tdqcxfrm.FormShow(Sender: TObject);
begin
  RadioButton1.Checked :=true;
  zypth.SetFocus ;
  dqmc.Enabled :=false;
  gxmc.Enabled :=false;
  dqmc.Color :=$00D8D8D8;
  gxmc.Color :=$00D8D8D8;
  dqmc.Text :='';
  gxmc.Text :='';
  zypth.Text :='';
end;

procedure Tdqcxfrm.btnCancelClick(Sender: TObject);
begin
dqcxfrm.Close;

end;

procedure Tdqcxfrm.dqmcDropDown(Sender: TObject);
var
  l:string;
begin
    dqmc.Items.Clear;
    dm.Qur_dmb.Close;
    dm.Qur_dmb.SQL.Clear;
    dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from T_dmb where z_dmlxbm >0 and z_dmlxbm <2');
    dm.Qur_dmb.open;
    dm.Qur_dmb.First;
    while not dm.Qur_dmb.Eof do
     begin
      l:=dm.Qur_dmb.Fields[0].Value;
      dqmc.AddItem(l,dqmc);
      dm.Qur_dmb.next;
     end;
end;
procedure Tdqcxfrm.dqmcSelect(Sender: TObject);
var
l:string;
begin
   gxmc.Clear;
   if dqmc.ItemIndex=0 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >100 and z_dmbm < 200 and z_dmlxbm=2 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
   else
      if dqmc.ItemIndex=1 then
         begin
           gxmc.Clear;
          dm.Qur_dmb.Close;
          dm.Qur_dmb.SQL.Clear;
          dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >200 and z_dmbm < 300 and z_dmlxbm=2');
          dm.Qur_dmb.Open;
          dm.Qur_dmb.first;
          while not dm.Qur_dmb.Eof do
            begin
            l:=dm.Qur_dmb.Fields[0].Value;
            gxmc.AddItem(l,gxmc);
            dm.Qur_dmb.Next;
            end;
          end
       else
            if dqmc.ItemIndex=2 then
                  begin
                      gxmc.Clear;
                      dm.Qur_dmb.Close;
                      dm.Qur_dmb.SQL.Clear;
                      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >300 and z_dmbm < 400 and z_dmlxbm=2');
                      dm.Qur_dmb.Open;
                      dm.Qur_dmb.first;
                      while not dm.Qur_dmb.Eof do
                       begin
                           l:=dm.Qur_dmb.Fields[0].Value;
                           gxmc.AddItem(l,gxmc);
                           dm.Qur_dmb.Next;
                       end;
                  end
else
    if dqmc.ItemIndex=3 then
                  begin
                      gxmc.Clear;
                      dm.Qur_dmb.Close;
                      dm.Qur_dmb.SQL.Clear;
                      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >400 and z_dmbm < 500 and z_dmlxbm=2');
                      dm.Qur_dmb.Open;
                      dm.Qur_dmb.first;
                      while not dm.Qur_dmb.Eof do
                       begin
                           l:=dm.Qur_dmb.Fields[0].Value;
                           gxmc.AddItem(l,gxmc);
                           dm.Qur_dmb.Next;
                       end;
                  end
       else
          if dqmc.ItemIndex=4 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >500 and z_dmbm < 600 and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
       else
          if dqmc.ItemIndex=5 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >600 and z_dmbm < 700 and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
     else
       if dqmc.ItemIndex=6 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >700 and z_dmbm <800 and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
      else
      if dqmc.ItemIndex=7 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >800 and z_dmbm < 900 and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
      else
       if dqmc.ItemIndex=8 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >900 and z_dmbm < 1000 and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
       else
       if dqmc.ItemIndex=9 then
    begin
    gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >1000 and z_dmbm < 1100   and z_dmlxbm=2');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
   else
        if dqmc.ItemIndex=10 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >1100 and z_dmbm < 1200 and z_dmlxbm=2 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
    end;
  
end;

procedure Tdqcxfrm.btnokClick(Sender: TObject);
var
  sql: string;
  gxc, dqc:string;
 get_Q   :TADOQuery;
begin
  sql := 'select * from  T_geo_economic where 1>0';

    if radiobutton1.Checked = true  then
        if zypth.Text ='' then
         begin
         MessageBox(self.Handle, '请输入查询条件', '提示', mb_IconInformation + mb_Ok);
         zypth.SetFocus;
         end
         else
           begin
              sql := sql + ' and Z_PTZYBH like ''%' + trim(zypth.Text) + '%''  asc';
              dm.dqjjxx.Close;
              dm.dqjjxx.SQL.Clear;
              dm.dqjjxx.SQL.Add(sql);
              dm.dqjjxx.Open;
              if not dm.dqjjxx.Eof then
               begin
               dqjjxxfrm.GetAll;
               dqjjxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
               dqcxfrm.Close;
               end
              else
               begin
                 dm.dqjjxx.Close;
                 dm.dqjjxx.SQL.Clear;
                 dm.dqjjxx.SQL.Add('select * from  T_geo_economic where 1>0');
                 dm.dqjjxx.Active :=true;
                 MessageBox(self.Handle, '输入查询条件错误!无此资源平台号,请查证!', '提示', mb_IconInformation + mb_Ok);
                 zypth.SetFocus;
               end;
          end
  else
     if radiobutton2.Checked = true  then
     begin
       if dqmc.Text ='' then
          MessageBox(self.Handle, '请输入查询条件!', '提示', mb_IconInformation + mb_Ok)
       else
         if gxmc.Text ='' then
         begin
         begin
        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        get_Q.SQL.add('select * from t_dmb where z_dmmc="'+dqmc.Text+'" and t_dmb.z_dmlxbm=1 ');
        get_Q.open;
        dqc:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
          end;
          sql := sql + ' and Z_dqmc like ''%' + dqc + '%''order by z_ptzybh asc';
          dm.dqjjxx.Close;
           dm.dqjjxx.SQL.Clear;
           dm.dqjjxx.SQL.Add(sql);
           dm.dqjjxx.Open;
            if not dm.dqjjxx.Eof then
               begin
               dqjjxxfrm.GetAll;
               dqjjxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
               dqcxfrm.Close;
               end
             else
               begin
                 dm.dqjjxx.Close;
                 dm.dqjjxx.SQL.Clear;
                 dm.dqjjxx.SQL.Add('select * from  T_geo_economic where 1>0 order by z_ptzybh asc');
                 dm.dqjjxx.Active :=true;
                 MessageBox(self.Handle, '输入查询条件错误!无此资源平台号,请查证!', '提示', mb_IconInformation + mb_Ok);
                 
               end;
         end
         else
           begin
            begin
              get_Q:=TADOQuery.Create(self);
              get_Q.Connection:=dm.conn;

              get_Q.SQL.add('select * from t_dmb where z_dmmc="'+dqmc.Text+'" and t_dmb.z_dmlxbm=1');

              get_Q.open;
              dqc:=trim(get_Q.FieldValues['z_dmbm']);
              get_Q.Close;
      end;
       begin
        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;

        get_Q.SQL.add('select * from t_dmb where z_dmmc="'+gxmc.Text+'" and t_dmb.z_dmlxbm=2');
//        get_q.Parameters.ParamByName('b').Value:=a;
        get_Q.open;
        gxc:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        end;
            sql := sql + ' and Z_dqmc =:l and Z_gxmc =:s ';
           dm.dqjjxx.Close;
           dm.dqjjxx.SQL.Clear;
           dm.dqjjxx.SQL.Add(sql);
           dm.dqjjxx.Parameters.ParamByName('s').Value :=gxc;
           dm.dqjjxx.Parameters.paramByName('l').Value :=dqc;
           dm.dqjjxx.Open;
           if not dm.dqjjxx.Eof then
            begin
             dqjjxxfrm.GetAll;
             dqjjxxfrm.Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
             dqcxfrm.Close;
           end
           else
             begin
              dm.dqjjxx.Close;
              dm.dqjjxx.SQL.Clear;
              dm.dqjjxx.SQL.Add('select * from  T_geo_economic where 1>0 order by z_ptzybh asc');
              dm.dqjjxx.Active :=true;
              MessageBox(self.Handle, '无此地区信息!', '提示', mb_IconInformation + mb_Ok);
            end;
           end;
    end;



end;

end.