dqjj.~pas

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

unit dqjj;

interface

uses
  Windows, Messages, SysUtils,Math, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,PublicFunction, ComCtrls, ExtCtrls, Grids, DBGrids, Buttons,
  DBCtrls,ToolWin,ADODB,DB,dataM,extdlgs ,shellapi,mask,comobj;

type
  TCustomDBGridCracker=class(TCustomDBGrid);
  TdqjjxxFrm = class(TForm)
    Panel5: TPanel;
    Label11: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    lable2: TLabel;
    Label12: TLabel;
    Label17: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label10: TLabel;
    Label20: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label19: TLabel;
    Label16: TLabel;
    Label47: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label54: TLabel;
    Label53: TLabel;
    Label52: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label25: TLabel;
    Label15: TLabel;
    wlytd: TLabel;
    Label48: TLabel;
    Label46: TLabel;
    Label45: TLabel;
    Label44: TLabel;
    Label43: TLabel;
    Label39: TLabel;
    Label37: TLabel;
    Label36: TLabel;
    Label34: TLabel;
    Label33: TLabel;
    Label32: TLabel;
    Label31: TLabel;
    Label30: TLabel;
    Label29: TLabel;
    Label89: TLabel;
    Label88: TLabel;
    Label86: TLabel;
    Label85: TLabel;
    Label84: TLabel;
    Label83: TLabel;
    Label82: TLabel;
    Label81: TLabel;
    Label80: TLabel;
    Label79: TLabel;
    Label78: TLabel;
    Label77: TLabel;
    Label76: TLabel;
    Label75: TLabel;
    Label74: TLabel;
    Label73: TLabel;
    Label72: TLabel;
    Label71: TLabel;
    Label70: TLabel;
    Label69: TLabel;
    Label68: TLabel;
    Label67: TLabel;
    Label66: TLabel;
    Label65: TLabel;
    Label64: TLabel;
    Label63: TLabel;
    Label62: TLabel;
    Label61: TLabel;
    Label60: TLabel;
    Label6: TLabel;
    Label59: TLabel;
    Label58: TLabel;
    Label57: TLabel;
    Label56: TLabel;
    Label55: TLabel;
    Label42: TLabel;
    Label40: TLabel;
    Label35: TLabel;
    Label23: TLabel;
    Label2: TLabel;
    Label92: TLabel;
    Label91: TLabel;
    Label90: TLabel;
    Label87: TLabel;
    DECYGNSCZZZS: TEdit;
    rjgnsczz: TEdit;
    dycygnsczzzs: TEdit;
    DSCYGNSCZZZS: TEdit;
    NMZRK: TEdit;
    NMZHS: TEdit;
    XCHS: TEdit;
    csrk: TEdit;
    swrk: TEdit;
    RKMD: TEdit;
    NMJYRY: TEdit;
    DYCYJYRY: TEdit;
    DECYJYRY: TEdit;
    DSCYJYRY: TEdit;
    ZGZGRS: TEdit;
    year: TComboBox;
    ptzybh: TEdit;
    gxmc: TComboBox;
    Gnsczz: TEdit;
    DYCYGNSCZZ: TEdit;
    DSCYGNSCZZ: TEdit;
    dqmc: TComboBox;
    DECYGNSCZZ: TEdit;
    ZGZGPJGZ: TEdit;
    ZGZGGZZE: TEdit;
    WSTZQY: TEdit;
    QSHGDZCTZE: TEdit;
    QBGYQYZCZ: TEdit;
    nzqy: TEdit;
    jbjs: TEdit;
    GYZCZ: TEdit;
    GYQYZJZ: TEdit;
    GYQYZCZJ: TEdit;
    GYQYFZZJ: TEdit;
    GYQYCPXSSR: TEdit;
    GYDW: TEdit;
    gxgz: TEdit;
    GATTZQY: TEdit;
    ZZY: TEdit;
    ZRCL: TEdit;
    ZBZMJ: TEdit;
    YXGGMJ: TEdit;
    YRCL: TEdit;
    YLZWCL: TEdit;
    YDYWZL: TEdit;
    XXZXXSS: TEdit;
    XXZRJSS: TEdit;
    XXXXS: TEdit;
    XLETRXL: TEdit;
    XCLDL: TEdit;
    SHXFPLSPZE: TEdit;
    SCPL: TEdit;
    QT: TEdit;
    PTZXZRJSS: TEdit;
    PTZXXXS: TEdit;
    NYJXZDL: TEdit;
    NRCL: TEdit;
    NLMYYZCZZS: TEdit;
    NLMYYZCZ: TEdit;
    NLMYYLDL: TEdit;
    NCYDL: TEdit;
    NCJMRJCSR: TEdit;
    MYY: TEdit;
    MHCL: TEdit;
    LSZWBZMJ: TEdit;
    LSCL: TEdit;
    JZYZCZ: TEdit;
    JZYQYDWS: TEdit;
    JZYJYRY: TEdit;
    HFSYL: TEdit;
    GYQYLRZE: TEdit;
    GLLC: TEdit;
    DFCZZC: TEdit;
    DFCZSR: TEdit;
    CYY: TEdit;
    CYGDMJ: TEdit;
    CXJMCXCKYE: TEdit;
    BDDHYH: TEdit;
    YYWSYJSRYS: TEdit;
    YYWSYGS: TEdit;
    YYWSYCWS: TEdit;
    GZZXXSS: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DBNavigator1: TDBNavigator;
    Panel8: TPanel;
    DBGrid1: TDBGrid;
    Label7: TLabel;
    gnsczzzs: TEdit;
    Panel1: TPanel;
    bitbtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    zybm: TMemo;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BitBtn5Click(Sender: TObject);
    procedure dqmcSelect(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure yearDropDown(Sender: TObject);
    procedure dqmcDropDown(Sender: TObject);
     procedure automaticno; //资源平台编号
     procedure ENA(); // 新增记录的时候使所有的控件可用
     procedure DIS(); // 保存记录后使所有的控件不可用
     procedure CLS(); //  清除控件中的所有的内容
     procedure GetAll();  //取得所有的数据
     procedure FindNext;
    procedure gxgzKeyPress(Sender: TObject; var Key: Char);
    procedure GnsczzKeyPress(Sender: TObject; var Key: Char);
    procedure DYCYGNSCZZKeyPress(Sender: TObject; var Key: Char);
    procedure DECYGNSCZZKeyPress(Sender: TObject; var Key: Char);
    procedure DSCYGNSCZZKeyPress(Sender: TObject; var Key: Char);
    procedure gnsczzzsKeyPress(Sender: TObject; var Key: Char);
    procedure dycygnsczzzsKeyPress(Sender: TObject; var Key: Char);
    procedure rjgnsczzKeyPress(Sender: TObject; var Key: Char);
    procedure DECYGNSCZZZSKeyPress(Sender: TObject; var Key: Char);
    procedure DSCYGNSCZZZSKeyPress(Sender: TObject; var Key: Char);
    procedure NMZRKKeyPress(Sender: TObject; var Key: Char);
    procedure NMZHSKeyPress(Sender: TObject; var Key: Char);
    procedure XCHSKeyPress(Sender: TObject; var Key: Char);
    procedure csrkKeyPress(Sender: TObject; var Key: Char);
    procedure swrkKeyPress(Sender: TObject; var Key: Char);
    procedure RKMDKeyPress(Sender: TObject; var Key: Char);
    procedure NMJYRYKeyPress(Sender: TObject; var Key: Char);
    procedure DYCYJYRYKeyPress(Sender: TObject; var Key: Char);
    procedure DECYJYRYKeyPress(Sender: TObject; var Key: Char);
    procedure DSCYJYRYKeyPress(Sender: TObject; var Key: Char);
    procedure ZGZGRSKeyPress(Sender: TObject; var Key: Char);
    procedure ZGZGGZZEKeyPress(Sender: TObject; var Key: Char);
    procedure ZGZGPJGZKeyPress(Sender: TObject; var Key: Char);
    procedure QSHGDZCTZEKeyPress(Sender: TObject; var Key: Char);
    procedure GYDWKeyPress(Sender: TObject; var Key: Char);
    procedure QBGYQYZCZKeyPress(Sender: TObject; var Key: Char);
    procedure GYZCZKeyPress(Sender: TObject; var Key: Char);
    procedure GATTZQYKeyPress(Sender: TObject; var Key: Char);
    procedure GYQYZJZKeyPress(Sender: TObject; var Key: Char);
    procedure WSTZQYKeyPress(Sender: TObject; var Key: Char);
    procedure GYQYFZZJKeyPress(Sender: TObject; var Key: Char);
    procedure GYQYZCZJKeyPress(Sender: TObject; var Key: Char);
    procedure GYQYLRZEKeyPress(Sender: TObject; var Key: Char);
    procedure GYQYCPXSSRKeyPress(Sender: TObject; var Key: Char);
    procedure JZYQYDWSKeyPress(Sender: TObject; var Key: Char);
    procedure JZYJYRYKeyPress(Sender: TObject; var Key: Char);
    procedure JZYZCZKeyPress(Sender: TObject; var Key: Char);
    procedure GLLCKeyPress(Sender: TObject; var Key: Char);
    procedure YDYWZLKeyPress(Sender: TObject; var Key: Char);
    procedure BDDHYHKeyPress(Sender: TObject; var Key: Char);
    procedure DFCZSRKeyPress(Sender: TObject; var Key: Char);
    procedure DFCZZCKeyPress(Sender: TObject; var Key: Char);
    procedure NLMYYZCZKeyPress(Sender: TObject; var Key: Char);
    procedure NLMYYZCZZSKeyPress(Sender: TObject; var Key: Char);
    procedure NYJXZDLKeyPress(Sender: TObject; var Key: Char);
    procedure HFSYLKeyPress(Sender: TObject; var Key: Char);
    procedure NCYDLKeyPress(Sender: TObject; var Key: Char);
    procedure YXGGMJKeyPress(Sender: TObject; var Key: Char);
    procedure ZBZMJKeyPress(Sender: TObject; var Key: Char);
    procedure LSZWBZMJKeyPress(Sender: TObject; var Key: Char);
    procedure NCJMRJCSRKeyPress(Sender: TObject; var Key: Char);
    procedure XCLDLKeyPress(Sender: TObject; var Key: Char);
    procedure NLMYYLDLKeyPress(Sender: TObject; var Key: Char);
    procedure LSCLKeyPress(Sender: TObject; var Key: Char);
    procedure CYGDMJKeyPress(Sender: TObject; var Key: Char);
    procedure MHCLKeyPress(Sender: TObject; var Key: Char);
    procedure YLZWCLKeyPress(Sender: TObject; var Key: Char);
    procedure ZRCLKeyPress(Sender: TObject; var Key: Char);
    procedure NRCLKeyPress(Sender: TObject; var Key: Char);
    procedure YRCLKeyPress(Sender: TObject; var Key: Char);
    procedure SCPLKeyPress(Sender: TObject; var Key: Char);
    procedure SHXFPLSPZEKeyPress(Sender: TObject; var Key: Char);
    procedure MYYKeyPress(Sender: TObject; var Key: Char);
    procedure CYYKeyPress(Sender: TObject; var Key: Char);
    procedure ZZYKeyPress(Sender: TObject; var Key: Char);
    procedure QTKeyPress(Sender: TObject; var Key: Char);
    procedure CXJMCXCKYEKeyPress(Sender: TObject; var Key: Char);
    procedure GZZXXSSKeyPress(Sender: TObject; var Key: Char);
    procedure YYWSYGSKeyPress(Sender: TObject; var Key: Char);
    procedure YYWSYCWSKeyPress(Sender: TObject; var Key: Char);
    procedure PTZXXXSKeyPress(Sender: TObject; var Key: Char);
    procedure PTZXZRJSSKeyPress(Sender: TObject; var Key: Char);
    procedure XXZXXSSKeyPress(Sender: TObject; var Key: Char);
    procedure XXXXSKeyPress(Sender: TObject; var Key: Char);
    procedure XXZRJSSKeyPress(Sender: TObject; var Key: Char);
    procedure XLETRXLKeyPress(Sender: TObject; var Key: Char);
    procedure YYWSYJSRYSKeyPress(Sender: TObject; var Key: Char);
    procedure gxmcSelect(Sender: TObject);
    procedure jbjsKeyPress(Sender: TObject; var Key: Char);
    procedure nzqyKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure GnsczzExit(Sender: TObject);
    procedure DYCYGNSCZZExit(Sender: TObject);
    procedure DECYGNSCZZExit(Sender: TObject);
    procedure DSCYGNSCZZExit(Sender: TObject);
    procedure gnsczzzsExit(Sender: TObject);
    procedure dycygnsczzzsExit(Sender: TObject);
    procedure DECYGNSCZZZSExit(Sender: TObject);
    procedure DSCYGNSCZZZSExit(Sender: TObject);
    procedure NMZHSExit(Sender: TObject);
    procedure XCHSExit(Sender: TObject);
    procedure csrkExit(Sender: TObject);
    procedure swrkExit(Sender: TObject);
    procedure NMJYRYExit(Sender: TObject);
    procedure DYCYJYRYExit(Sender: TObject);
    procedure DECYJYRYExit(Sender: TObject);
    procedure DSCYJYRYExit(Sender: TObject);
    procedure ZGZGGZZEExit(Sender: TObject);
    procedure ZGZGPJGZExit(Sender: TObject);
    procedure QSHGDZCTZEExit(Sender: TObject);
    procedure GYDWExit(Sender: TObject);
    procedure gxgzExit(Sender: TObject);
    procedure QBGYQYZCZExit(Sender: TObject);
    procedure GYZCZExit(Sender: TObject);
    procedure GATTZQYExit(Sender: TObject);
    procedure GYQYZJZExit(Sender: TObject);
    procedure WSTZQYExit(Sender: TObject);
    procedure GYQYFZZJExit(Sender: TObject);
    procedure GYQYZCZJExit(Sender: TObject);
    procedure GYQYCPXSSRExit(Sender: TObject);
    procedure JZYQYDWSExit(Sender: TObject);
    procedure JZYJYRYExit(Sender: TObject);
    procedure JZYZCZExit(Sender: TObject);
    procedure YDYWZLExit(Sender: TObject);
    procedure BDDHYHExit(Sender: TObject);
    procedure DFCZSRExit(Sender: TObject);