?? 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;//檢查產(chǎn)仔時有沒有配種信息
source1:string;//保存耳缺信息是的來源信息
Eh6flag,Eh7Flag,Eh8Flag,Eh9Flag,Eh10Flag,Eh11Flag,Eh12flag:boolean;
AllowAm:Boolean;
Eh15Flag: Boolean;
Eh16Flag: Boolean;
PrintFlag:Boolean;//True為預(yù)覽
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}
//判斷該配種記錄是否已經(jīng)產(chǎn)仔
Function tP_seed.ISBorn(Earid:String;BD:TDatetime):Boolean;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -