untpseed.pas

养猪精液采集模块的相关大夫吗对方法对付法对

unit UntPSeed;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids,
  DBGridEh, DBClient, MConnect, SConnect, Provider,NewGrid, Buttons,
  ToolWin, Mask, DBCtrls, ImgList, DBCtrlsEh, DBLookupEh,CommonUnit, Menus;

type
  TP_Seed = class(TForm)
    Panel1: TPanel;
    pagec_P_Seed: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    DBGridEh1: TDBGridEh;
    Splitter1: TSplitter;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel4: TPanel;
    Splitter2: TSplitter;
    Panel3: TPanel;
    NewDBGrid1: TNewDBGrid;
    PageControl1: TPageControl;
    TabSheet15: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBMemo1: TDBMemo;
    TabSheet16: TTabSheet;
    DBGridEh2: TDBGridEh;
    TabSheet17: TTabSheet;
    DBGridEh3: TDBGridEh;
    TabSheet18: TTabSheet;
    DBGridEh4: TDBGridEh;
    TabSheet19: TTabSheet;
    DBGridEh5: TDBGridEh;
    TabSheet20: TTabSheet;
    Label33: TLabel;
    Label67: TLabel;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolBar3: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton16: TToolButton;
    ToolButton18: TToolButton;
    Label68: TLabel;
    DataSource2: TDataSource;
    ToolButton15: TToolButton;
    ToolBar4: TToolBar;
    ToolButton17: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    Label71: TLabel;
    DBGridEh8: TDBGridEh;
    DataSource4: TDataSource;
    ToolBar5: TToolBar;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    Label74: TLabel;
    DBGridEh7: TDBGridEh;
    ToolBar6: TToolBar;
    ToolButton34: TToolButton;
    ToolButton35: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    ToolButton40: TToolButton;
    ToolButton41: TToolButton;
    Label77: TLabel;
    DBGridEh9: TDBGridEh;
    DataSource3: TDataSource;
    DataSource5: TDataSource;
    Label80: TLabel;
    Shape7: TShape;
    Label87: TLabel;
    ToolButton42: TToolButton;
    ToolButton43: TToolButton;
    ToolButton44: TToolButton;
    ToolButton45: TToolButton;
    ToolButton46: TToolButton;
    ToolBar2: TToolBar;
    ToolButton48: TToolButton;
    ToolButton49: TToolButton;
    ToolButton50: TToolButton;
    ToolButton51: TToolButton;
    ToolButton52: TToolButton;
    ToolButton53: TToolButton;
    ToolButton54: TToolButton;
    ToolButton55: TToolButton;
    Label91: TLabel;
    DBGridEh10: TDBGridEh;
    DataSource6: TDataSource;
    DBGridEh6: TDBGridEh;
    Label98: TLabel;
    ToolBar7: TToolBar;
    ToolButton56: TToolButton;
    ToolButton57: TToolButton;
    ToolButton58: TToolButton;
    ToolButton59: TToolButton;
    ToolButton60: TToolButton;
    ToolButton61: TToolButton;
    ToolButton62: TToolButton;
    ToolButton63: TToolButton;
    ToolButton64: TToolButton;
    DBGridEh11: TDBGridEh;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    DBEditEh21: TDBEditEh;
    DBEditEh22: TDBEditEh;
    DBEditEh23: TDBEditEh;
    DBEditEh24: TDBEditEh;
    DBEditEh25: TDBEditEh;
    DBEditEh26: TDBEditEh;
    DBEditEh27: TDBEditEh;
    DBEditEh28: TDBEditEh;
    DBEditEh29: TDBEditEh;
    DBEditEh30: TDBEditEh;
    DBEditEh31: TDBEditEh;
    DBEditEh32: TDBEditEh;
    DBEditEh33: TDBEditEh;
    DBEditEh34: TDBEditEh;
    DBEditEh35: TDBEditEh;
    DataSource10: TDataSource;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    DBText14: TDBText;
    DBText15: TDBText;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;
    Shape21: TShape;
    Shape26: TShape;
    Shape27: TShape;
    Shape28: TShape;
    Shape29: TShape;
    Shape30: TShape;
    Shape31: TShape;
    Shape32: TShape;
    Shape33: TShape;
    Shape34: TShape;
    Shape35: TShape;
    Shape36: TShape;
    Shape37: TShape;
    Shape38: TShape;
    Shape39: TShape;
    Shape40: TShape;
    Shape41: TShape;
    Shape42: TShape;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label115: TLabel;
    Label116: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    Label119: TLabel;
    Label120: TLabel;
    Label121: TLabel;
    Label107: TLabel;
    DBGridEh12: TDBGridEh;
    ToolBar8: TToolBar;
    ToolButton66: TToolButton;
    ToolButton67: TToolButton;
    ToolButton68: TToolButton;
    ToolButton69: TToolButton;
    ToolButton70: TToolButton;
    ToolButton71: TToolButton;
    ToolButton72: TToolButton;
    ToolButton73: TToolButton;
    DataSource11: TDataSource;
    Label125: TLabel;
    ToolBar9: TToolBar;
    ToolButton75: TToolButton;
    ToolButton76: TToolButton;
    ToolButton77: TToolButton;
    ToolButton78: TToolButton;
    ToolButton79: TToolButton;
    ToolButton80: TToolButton;
    ToolButton81: TToolButton;
    ToolButton82: TToolButton;
    DBGridEh15: TDBGridEh;
    DataSource14: TDataSource;
    Label131: TLabel;
    DBGridEh16: TDBGridEh;
    ToolBar10: TToolBar;
    ToolButton83: TToolButton;
    ToolButton84: TToolButton;
    ToolButton85: TToolButton;
    ToolButton86: TToolButton;
    ToolButton87: TToolButton;
    ToolButton88: TToolButton;
    ToolButton89: TToolButton;
    ToolButton90: TToolButton;
    ToolButton91: TToolButton;
    DataSource15: TDataSource;
    ToolBar11: TToolBar;
    ToolButton92: TToolButton;
    dtp_end: TDateTimePicker;
    Label137: TLabel;
    dtp_start: TDateTimePicker;
    Label138: TLabel;
    sbSeedp: TSpeedButton;
    ToolBar12: TToolBar;
    ToolButton95: TToolButton;
    Label92: TLabel;
    Label93: TLabel;
    dtend5: TDateTimePicker;
    SpeedButton5: TSpeedButton;
    ToolButton97: TToolButton;
    CheckBox5: TCheckBox;
    ToolBar13: TToolBar;
    ToolButton94: TToolButton;
    Label141: TLabel;
    Label142: TLabel;
    SpeedButton7: TSpeedButton;
    ToolBar14: TToolBar;
    ToolButton101: TToolButton;
    Label122: TLabel;
    Label123: TLabel;
    SpeedButton8: TSpeedButton;
    ToolBar15: TToolBar;
    ToolButton104: TToolButton;
    Label126: TLabel;
    Label127: TLabel;
    SpeedButton9: TSpeedButton;
    ToolBar16: TToolBar;
    ToolButton107: TToolButton;
    Label133: TLabel;
    Label134: TLabel;
    ToolButton109: TToolButton;
    SpeedButton1: TSpeedButton;
    CheckBox1: TCheckBox;
    ToolBar17: TToolBar;
    ToolButton111: TToolButton;
    Label70: TLabel;
    Label81: TLabel;
    ToolButton113: TToolButton;
    SpeedButton2: TSpeedButton;
    CheckBox2: TCheckBox;
    ToolBar18: TToolBar;
    ToolButton115: TToolButton;
    Label73: TLabel;
    Label83: TLabel;
    SpeedButton3: TSpeedButton;
    CheckBox3: TCheckBox;
    ToolBar19: TToolBar;
    ToolButton119: TToolButton;
    Label76: TLabel;
    Label85: TLabel;
    ToolButton122: TToolButton;
    SpeedButton4: TSpeedButton;
    CheckBox4: TCheckBox;
    ToolBar20: TToolBar;
    ToolButton123: TToolButton;
    Label79: TLabel;
    Label89: TLabel;
    ToolButton125: TToolButton;
    SpeedButton6: TSpeedButton;
    CheckBox6: TCheckBox;
    ToolButton93: TToolButton;
    ToolButton47: TToolButton;
    ToolButton65: TToolButton;
    ToolButton74: TToolButton;
    ToolButton96: TToolButton;
    ToolButton98: TToolButton;
    ToolButton99: TToolButton;
    ToolButton100: TToolButton;
    ToolButton103: TToolButton;
    ToolButton102: TToolButton;
    PMenu_SeedRep: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PMenu_BirthRep: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    ToolButton105: TToolButton;
    ToolButton106: TToolButton;
    ToolButton108: TToolButton;
    ToolButton110: TToolButton;
    ToolButton112: TToolButton;
    ToolButton114: TToolButton;
    ToolButton116: TToolButton;
    ToolButton117: TToolButton;
    ToolButton118: TToolButton;
    CheckBox7: TCheckBox;
    ToolButton120: TToolButton;
    pnl_FTree: TPanel;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    DBEditEh5: TDBEditEh;
    DBEditEh6: TDBEditEh;
    DBEditEh7: TDBEditEh;
    DBEditEh8: TDBEditEh;
    DBEditEh9: TDBEditEh;
    DBEditEh10: TDBEditEh;
    DBEditEh11: TDBEditEh;
    DBEditEh12: TDBEditEh;
    DBEditEh13: TDBEditEh;
    DBEditEh14: TDBEditEh;
    DBEditEh15: TDBEditEh;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;