untpseed.pas

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

    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape43: TShape;
    Shape44: TShape;
    Shape45: TShape;
    Shape46: TShape;
    Shape47: TShape;
    Shape48: TShape;
    Shape49: TShape;
    Shape50: TShape;
    Shape51: TShape;
    Shape52: TShape;
    Shape53: TShape;
    Shape54: TShape;
    Shape55: TShape;
    Shape56: TShape;
    Shape57: TShape;
    DBText29: TDBText;
    NewDBGrid2: TNewDBGrid;
    Panel2: TPanel;
    Label50: TLabel;
    ToolButton121: TToolButton;
    Panel5: TPanel;
    Label69: TLabel;
    NewDBGrid3: TNewDBGrid;
    DataSource12: TDataSource;
    ToolButton124: TToolButton;
    L_Boar: TLabel;
    L_Sow: TLabel;
    Label78: TLabel;
    Label82: TLabel;
    dtstart5: TDateTimePicker;
    Label72: TLabel;
    DBEdit32: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    Pnl_Edit: TPanel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    dtstart7: TDateTimePicker;
    dtend7: TDateTimePicker;
    dtstart8: TDateTimePicker;
    dtend8: TDateTimePicker;
    dtstart9: TDateTimePicker;
    dtend9: TDateTimePicker;
    dtStart: TDateTimePicker;
    dtend: TDateTimePicker;
    dtStart2: TDateTimePicker;
    dtend2: TDateTimePicker;
    dtstart3: TDateTimePicker;
    dtend3: TDateTimePicker;
    dtstart4: TDateTimePicker;
    dtend4: TDateTimePicker;
    dtstart6: TDateTimePicker;
    dtend6: TDateTimePicker;
    Pnl_GapFTree: TPanel;
    Label124: TLabel;
    DBEditEh46: TDBEditEh;
    DBEditEh47: TDBEditEh;
    DBEditEh48: TDBEditEh;
    DBEditEh49: TDBEditEh;
    DBEditEh50: TDBEditEh;
    DBEditEh51: TDBEditEh;
    DBEditEh52: TDBEditEh;
    DBEditEh53: TDBEditEh;
    DBEditEh54: TDBEditEh;
    DBEditEh55: TDBEditEh;
    DBEditEh56: TDBEditEh;
    DBEditEh57: TDBEditEh;
    DBEditEh58: TDBEditEh;
    DBEditEh59: TDBEditEh;
    DBEditEh60: TDBEditEh;
    Label75: TLabel;
    Label84: TLabel;
    Label86: TLabel;
    Label88: TLabel;
    Label90: TLabel;
    Label94: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label108: TLabel;
    Shape86: TShape;
    Shape87: TShape;
    Shape88: TShape;
    Shape89: TShape;
    Shape90: TShape;
    Shape91: TShape;
    Shape92: TShape;
    Shape93: TShape;
    Shape94: TShape;
    Shape95: TShape;
    Shape96: TShape;
    Shape97: TShape;
    Shape98: TShape;
    Shape99: TShape;
    Shape100: TShape;
    Shape101: TShape;
    Shape102: TShape;
    Shape103: TShape;
    Shape104: TShape;
    Shape105: TShape;
    Shape106: TShape;
    Shape107: TShape;
    Shape108: TShape;
    Shape109: TShape;
    Shape110: TShape;
    Shape111: TShape;
    Shape112: TShape;
    Shape113: TShape;
    DBText16: TDBText;
    DBText17: TDBText;
    DBText19: TDBText;
    DBText20: TDBText;
    DBText21: TDBText;
    DBText22: TDBText;
    DBText23: TDBText;
    DBText24: TDBText;
    DBText25: TDBText;
    DBText26: TDBText;
    DBText27: TDBText;
    DBText28: TDBText;
    DBText30: TDBText;
    DBText31: TDBText;
    DBText32: TDBText;
    DataSource13: TDataSource;
    tb_begats: TToolButton;
    Panel6: TPanel;
    Pnl_SeedFTree: TPanel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Shape58: TShape;
    Shape59: TShape;
    Shape60: TShape;
    Shape61: TShape;
    Shape62: TShape;
    Shape63: TShape;
    Shape64: TShape;
    Shape65: TShape;
    Shape66: TShape;
    Shape67: TShape;
    Shape68: TShape;
    Shape69: TShape;
    Shape70: TShape;
    Shape71: TShape;
    Shape72: TShape;
    Shape73: TShape;
    Shape74: TShape;
    Shape75: TShape;
    Shape76: TShape;
    Shape77: TShape;
    Shape78: TShape;
    Shape79: TShape;
    Shape80: TShape;
    Shape81: TShape;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Shape82: TShape;
    Shape83: TShape;
    Shape84: TShape;
    Shape85: TShape;
    Label59: TLabel;
    DBText18: TDBText;
    Label60: TLabel;
    DBEditEh16: TDBEditEh;
    DBEditEh17: TDBEditEh;
    DBEditEh18: TDBEditEh;
    DBEditEh19: TDBEditEh;
    DBEditEh20: TDBEditEh;
    DBEditEh36: TDBEditEh;
    DBEditEh37: TDBEditEh;
    DBEditEh38: TDBEditEh;
    DBEditEh39: TDBEditEh;
    DBEditEh40: TDBEditEh;
    DBEditEh41: TDBEditEh;
    DBEditEh42: TDBEditEh;
    DBEditEh43: TDBEditEh;
    DBEditEh44: TDBEditEh;
    DBEditEh45: TDBEditEh;
    DBEdit10: TDBEdit;
    DBComboBox1: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure DBGridEh6DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure DBGridEh6ColExit(Sender: TObject);
    procedure DBGridEh6ColEnter(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton24Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGridEh8ColEnter(Sender: TObject);
    procedure DBGridEh8DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh8ColExit(Sender: TObject);
    procedure ToolButton27Click(Sender: TObject);
    procedure ToolButton28Click(Sender: TObject);
    procedure ToolButton29Click(Sender: TObject);
    procedure ToolButton30Click(Sender: TObject);
    procedure ToolButton31Click(Sender: TObject);
    procedure ToolButton33Click(Sender: TObject);
    procedure ToolButton35Click(Sender: TObject);
    procedure ToolButton36Click(Sender: TObject);
    procedure ToolButton37Click(Sender: TObject);
    procedure ToolButton38Click(Sender: TObject);
    procedure ToolButton39Click(Sender: TObject);
    procedure ToolButton32Click(Sender: TObject);
    procedure ToolButton40Click(Sender: TObject);
    procedure pagec_P_SeedChange(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGridEh7DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh7ColEnter(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure DBGridEh7ColExit(Sender: TObject);
    procedure DBGridEh9DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure ToolButton41Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGridEh9ColEnter(Sender: TObject);
    procedure DBGridEh9ColExit(Sender: TObject);
    procedure ToolButton42Click(Sender: TObject);
    procedure ToolButton45Click(Sender: TObject);
    procedure ToolButton44Click(Sender: TObject);
    procedure ToolButton43Click(Sender: TObject);
    procedure ToolButton46Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGridEh10DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh10ColEnter(Sender: TObject);
    procedure ToolButton55Click(Sender: TObject);
    procedure ToolButton48Click(Sender: TObject);
    procedure ToolButton49Click(Sender: TObject);
    procedure ToolButton50Click(Sender: TObject);
    procedure ToolButton51Click(Sender: TObject);
    procedure ToolButton52Click(Sender: TObject);
    procedure ToolButton54Click(Sender: TObject);
    procedure ToolButton53Click(Sender: TObject);
    procedure DBGridEh10ColExit(Sender: TObject);
    procedure pagec_P_SeedChanging(Sender: TObject;
      var AllowChange: Boolean);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ToolButton57Click(Sender: TObject);
    procedure ToolButton58Click(Sender: TObject);
    procedure ToolButton59Click(Sender: TObject);
    procedure ToolButton60Click(Sender: TObject);
    procedure DBGridEh11ColEnter(Sender: TObject);
    procedure DBGridEh11DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh11ColExit(Sender: TObject);
    procedure ToolButton61Click(Sender: TObject);
    procedure ToolButton62Click(Sender: TObject);
    procedure ToolButton63Click(Sender: TObject);
    procedure ToolButton64Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure DBGridEh12ColEnter(Sender: TObject);
    procedure ToolButton66Click(Sender: TObject);
    procedure ToolButton67Click(Sender: TObject);
    procedure ToolButton68Click(Sender: TObject);
    procedure ToolButton73Click(Sender: TObject);
    procedure ToolButton72Click(Sender: TObject);
    procedure ToolButton70Click(Sender: TObject);
    procedure ToolButton69Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure DBGridEh15ColEnter(Sender: TObject);
    procedure DBGridEh15DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure ToolButton82Click(Sender: TObject);
    procedure ToolButton81Click(Sender: TObject);
    procedure ToolButton80Click(Sender: TObject);
    procedure ToolButton79Click(Sender: TObject);
    procedure ToolButton75Click(Sender: TObject);
    procedure ToolButton76Click(Sender: TObject);
    procedure ToolButton77Click(Sender: TObject);
    procedure ToolButton78Click(Sender: TObject);
    procedure DBGridEh15ColExit(Sender: TObject);
    procedure DBGridEh16ColEnter(Sender: TObject);
    procedure DBGridEh16DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure SpeedButton9Click(Sender: TObject);
    procedure ToolButton91Click(Sender: TObject);
    procedure ToolButton90Click(Sender: TObject);
    procedure ToolButton89Click(Sender: TObject);
    procedure ToolButton84Click(Sender: TObject);
    procedure ToolButton85Click(Sender: TObject);
    procedure ToolButton86Click(Sender: TObject);
    procedure ToolButton88Click(Sender: TObject);
    procedure ToolButton87Click(Sender: TObject);
    procedure DBGridEh12DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure SpeedButton10Click(Sender: TObject);
    procedure sbSeedpClick(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure ToolButton96Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton99Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton102Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ToolButton105Click(Sender: TObject);
    procedure ToolButton108Click(Sender: TObject);
    procedure ToolButton112Click(Sender: TObject);
    procedure ToolButton116Click(Sender: TObject);
    procedure ToolButton118Click(Sender: TObject);
    procedure DBGridEh1ColEnter(Sender: TObject);
    procedure DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh3DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh5DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure CheckBox7Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure Label50Click(Sender: TObject);
    procedure NewDBGrid2DblClick(Sender: TObject);
    procedure DBGridEh1ColExit(Sender: TObject);
    procedure ToolButton121Click(Sender: TObject);
    procedure Label69Click(Sender: TObject);
    procedure NewDBGrid3DblClick(Sender: TObject);
    procedure NewDBGrid3KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox4Enter(Sender: TObject);
    procedure DBEdit3Enter(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton71Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure tb_begatsClick(Sender: TObject);
  private
   amdt:TDateTime;
   IsAm:Boolean;//检查产仔时有没有配种信息
   source1:string;//保存耳缺信息是的来源信息
   Eh6flag,Eh7Flag,Eh8Flag,Eh9Flag,Eh10Flag,Eh11Flag,Eh12flag:boolean;
   AllowAm:Boolean;
   Eh15Flag: Boolean;
   Eh16Flag: Boolean;
   PrintFlag:Boolean;//True为预览
   Function ISBorn(Earid:String;BD:TDatetime):Boolean;
  public
  Pagestr:String;
  end;


  Function SearchForm(App:TApplication;Scr:TScreen;Cl:TClientDataset;ModalID:Pchar):Pchar;stdcall;external 'search.dll';
var
  P_Seed: TP_Seed;
  FBreed,MBreed:string;
  DormName,PhaseName:string;

implementation

uses  UntData, unitfind, UntMain,DateUtils, SetFields, CustPreview,
      UntPosSelect, AdvaceFind, Unit1, UntGapFTree, untlogin,
      UntImportGap;

{$R *.dfm}

//判断该配种记录是否已经产仔
Function tP_seed.ISBorn(Earid:String;BD:TDatetime):Boolean;