L
lljdots_cn
Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么样在自定义subdetail or band 的大小，
还有在分栏报表中怎么样使subdetail or band 移动到下一栏！
请指教！
还有在分栏报表中怎么样使subdetail or band 移动到下一栏！
请指教！
H
hpretty
Unregistered / Unconfirmed
GUEST, unregistred user!
??说明白一点！！
L
lljdots_cn
Unregistered / Unconfirmed
GUEST, unregistred user!
在分栏报表中，每一栏放上一个subdetail或者是band:
S
sword_liu
Unregistered / Unconfirmed
GUEST, unregistred user!
unit FormInPrint;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Qrctrls, QuickRpt, DB, DBTables, Grids,
DBGrids, Mask;
type
// TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid);
TFrmInPrint = class(TForm)
Panel1: TPanel;
Label3: TLabel;
ComboBox2: TComboBox;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Button1: TButton;
Button2: TButton;
QuickRep1: TQuickRep;
PageHeaderBand2: TQRBand;
PageFooterBand2: TQRBand;
QRSubDetail1: TQRSubDetail;
GroupFooterBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand1: TQRBand;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRShape184: TQRShape;
QRShape185: TQRShape;
QRShape186: TQRShape;
QRShape187: TQRShape;
QRShape188: TQRShape;
QRShape189: TQRShape;
QRShape190: TQRShape;
QRShape191: TQRShape;
QRShape192: TQRShape;
QRShape193: TQRShape;
QRShape194: TQRShape;
QRShape195: TQRShape;
QRShape196: TQRShape;
QRShape197: TQRShape;
QRShape198: TQRShape;
QRShape199: TQRShape;
QRShape200: TQRShape;
QRShape201: TQRShape;
QRShape202: TQRShape;
QRShape205: TQRShape;
QRShape207: TQRShape;
QRShape208: TQRShape;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRLabel3: TQRLabel;
QRShape56: TQRShape;
QRShape57: TQRShape;
QRShape58: TQRShape;
QRShape59: TQRShape;
QRShape60: TQRShape;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape19: TQRShape;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape181: TQRShape;
QRShape180: TQRShape;
QRShape179: TQRShape;
QRShape28: TQRShape;
QRShape29: TQRShape;
QRShape31: TQRShape;
QRExpr1: TQRExpr;
QRExpr3: TQRExpr;
L1: TLabel;
DateTimePicker5: TDateTimePicker;
Panel2: TPanel;
L2: TLabel;
ComboBox3: TComboBox;
L4: TLabel;
L3: TLabel;
ComboBox1: TComboBox;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
ComboBox5: TComboBox;
ComboBox4: TComboBox;
QRExpr4: TQRExpr;
QRExpr5: TQRExpr;
QRExpr6: TQRExpr;
QRExpr7: TQRExpr;
QRExpr8: TQRExpr;
QRExpr9: TQRExpr;
QRExpr10: TQRExpr;
QRExpr11: TQRExpr;
QRExpr12: TQRExpr;
QRExpr13: TQRExpr;
QRExpr14: TQRExpr;
QRExpr15: TQRExpr;
QRExpr16: TQRExpr;
QRExpr17: TQRExpr;
QRExpr18: TQRExpr;
QRExpr19: TQRExpr;
QRExpr20: TQRExpr;
QRExpr21: TQRExpr;
QRExpr22: TQRExpr;
QRExpr23: TQRExpr;
QRExpr24: TQRExpr;
QRExpr25: TQRExpr;
QRExpr26: TQRExpr;
QRExpr27: TQRExpr;
QRL14: TQRLabel;
QRExpr28: TQRExpr;
QRExpr29: TQRExpr;
QRExpr30: TQRExpr;
QRExpr31: TQRExpr;
QRExpr32: TQRExpr;
QRExpr33: TQRExpr;
QRExpr34: TQRExpr;
QRExpr35: TQRExpr;
QRExpr36: TQRExpr;
QRExpr37: TQRExpr;
QRExpr38: TQRExpr;
QRExpr39: TQRExpr;
QRExpr40: TQRExpr;
QRExpr41: TQRExpr;
QRExpr42: TQRExpr;
QRExpr43: TQRExpr;
QRExpr44: TQRExpr;
QRExpr45: TQRExpr;
QRExpr46: TQRExpr;
QRExpr47: TQRExpr;
QRExpr48: TQRExpr;
QRExpr49: TQRExpr;
QRExpr50: TQRExpr;
QRExpr51: TQRExpr;
QRExpr52: TQRExpr;
QRExpr53: TQRExpr;
QRExpr54: TQRExpr;
QRLabel19: TQRLabel;
QRShape110: TQRShape;
QRShape111: TQRShape;
QRShape112: TQRShape;
QRShape113: TQRShape;
QRShape114: TQRShape;
QRShape115: TQRShape;
QRShape116: TQRShape;
QRShape117: TQRShape;
QRShape118: TQRShape;
QRShape119: TQRShape;
QRShape120: TQRShape;
QRShape30: TQRShape;
QRExpr2: TQRExpr;
QRShape55: TQRShape;
QRShape54: TQRShape;
QRShape53: TQRShape;
QRShape52: TQRShape;
QRShape51: TQRShape;
QRShape50: TQRShape;
QRShape49: TQRShape;
QRShape48: TQRShape;
QRShape47: TQRShape;
QRShape46: TQRShape;
QRShape45: TQRShape;
QRShape44: TQRShape;
QRShape43: TQRShape;
QRShape42: TQRShape;
QRL1: TQRLabel;
QRL2: TQRLabel;
QRL3: TQRLabel;
QRL4: TQRLabel;
QRL5: TQRLabel;
QRL6: TQRLabel;
QRL7: TQRLabel;
QRL8: TQRLabel;
QRL9: TQRLabel;
QRL10: TQRLabel;
QRL11: TQRLabel;
QRL12: TQRLabel;
QRL13: TQRLabel;
QRShape41: TQRShape;
QRShape40: TQRShape;
QRShape39: TQRShape;
QRShape38: TQRShape;
QRShape37: TQRShape;
QRShape36: TQRShape;
QRShape35: TQRShape;
QRShape34: TQRShape;
QRShape33: TQRShape;
QRShape32: TQRShape;
QRLabel2: TQRLabel;
QRL15: TQRLabel;
QRL16: TQRLabel;
QRL17: TQRLabel;
QRL18: TQRLabel;
QRL19: TQRLabel;
QRL20: TQRLabel;
QRL21: TQRLabel;
QRL22: TQRLabel;
QRL23: TQRLabel;
QRShape61: TQRShape;
QRLabel5: TQRLabel;
QRShape62: TQRShape;
QRExpr55: TQRExpr;
SummaryBand1: TQRBand;
QRLabel10: TQRLabel;
QRExpr56: TQRExpr;
QRShape203: TQRShape;
QuickRep2: TQuickRep;
QRBand2: TQRBand;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRBand3: TQRBand;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRSubDetail2: TQRSubDetail;
QRShape88: TQRShape;
QRShape89: TQRShape;
QRShape90: TQRShape;
QRExpr57: TQRExpr;
QRExpr82: TQRExpr;
QRLabel17: TQRLabel;
QRBand5: TQRBand;
QRShape130: TQRShape;
QRShape131: TQRShape;
QRShape132: TQRShape;
QRShape133: TQRShape;
QRShape134: TQRShape;
QRShape135: TQRShape;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRExpr109: TQRExpr;
QRLA14: TQRLabel;
QRShape136: TQRShape;
QRExpr110: TQRExpr;
QRShape137: TQRShape;
QRShape138: TQRShape;
QRShape139: TQRShape;
QRShape140: TQRShape;
QRShape141: TQRShape;
QRShape142: TQRShape;
QRShape143: TQRShape;
QRShape144: TQRShape;
QRShape145: TQRShape;
QRShape146: TQRShape;
QRShape147: TQRShape;
QRShape148: TQRShape;
QRShape149: TQRShape;
QRLA1: TQRLabel;
QRLA2: TQRLabel;
QRLA3: TQRLabel;
QRLA4: TQRLabel;
QRLA5: TQRLabel;
QRLA6: TQRLabel;
QRLA7: TQRLabel;
QRLA8: TQRLabel;
QRLA9: TQRLabel;
QRLA10: TQRLabel;
QRLA11: TQRLabel;
QRLA12: TQRLabel;
QRLA13: TQRLabel;
QRShape150: TQRShape;
QRShape151: TQRShape;
QRShape152: TQRShape;
QRShape153: TQRShape;
QRShape154: TQRShape;
QRShape155: TQRShape;
QRShape156: TQRShape;
QRShape157: TQRShape;
QRShape158: TQRShape;
QRShape159: TQRShape;
QRLabel42: TQRLabel;
QRLA15: TQRLabel;
QRLA16: TQRLabel;
QRLA17: TQRLabel;
QRLA18: TQRLabel;
QRLA19: TQRLabel;
QRLA20: TQRLabel;
QRLA21: TQRLabel;
QRLA22: TQRLabel;
QRLA23: TQRLabel;
QRShape160: TQRShape;
QRLabel52: TQRLabel;
QRShape161: TQRShape;
QRExpr111: TQRExpr;
QRGroup1: TQRGroup;
QRSubDetail3: TQRSubDetail;
QRShape63: TQRShape;
QRShape64: TQRShape;
QRShape65: TQRShape;
QRShape66: TQRShape;
QRShape67: TQRShape;
QRShape68: TQRShape;
QRShape69: TQRShape;
QRShape70: TQRShape;
QRShape71: TQRShape;
QRShape72: TQRShape;
QRShape73: TQRShape;
QRShape74: TQRShape;
QRShape75: TQRShape;
QRShape76: TQRShape;
QRShape77: TQRShape;
QRShape78: TQRShape;
QRShape79: TQRShape;
QRShape80: TQRShape;
QRShape81: TQRShape;
QRShape82: TQRShape;
QRShape83: TQRShape;
QRShape84: TQRShape;
QRShape85: TQRShape;
QRShape86: TQRShape;
QRShape87: TQRShape;
QRExpr58: TQRExpr;
QRExpr59: TQRExpr;
QRExpr60: TQRExpr;
QRExpr61: TQRExpr;
QRExpr62: TQRExpr;
QRExpr63: TQRExpr;
QRExpr64: TQRExpr;
QRExpr65: TQRExpr;
QRExpr66: TQRExpr;
QRExpr67: TQRExpr;
QRExpr68: TQRExpr;
QRExpr69: TQRExpr;
QRExpr70: TQRExpr;
QRExpr71: TQRExpr;
QRExpr72: TQRExpr;
QRExpr73: TQRExpr;
QRExpr74: TQRExpr;
QRExpr75: TQRExpr;
QRExpr76: TQRExpr;
QRExpr77: TQRExpr;
QRExpr78: TQRExpr;
QRExpr79: TQRExpr;
QRExpr80: TQRExpr;
QRExpr81: TQRExpr;
QRExpr83: TQRExpr;
QRShape162: TQRShape;
QRShape163: TQRShape;
QRShape164: TQRShape;
QRExpr112: TQRExpr;
QRExpr113: TQRExpr;
QRLabel53: TQRLabel;
GroupFooterBand2: TQRBand;
QRShape92: TQRShape;
QRShape93: TQRShape;
QRShape94: TQRShape;
QRShape95: TQRShape;
QRShape96: TQRShape;
QRShape97: TQRShape;
QRShape98: TQRShape;
QRShape99: TQRShape;
QRShape100: TQRShape;
QRShape101: TQRShape;
QRShape102: TQRShape;
QRShape103: TQRShape;
QRShape104: TQRShape;
QRShape105: TQRShape;
QRShape106: TQRShape;
QRShape107: TQRShape;
QRShape108: TQRShape;
QRShape109: TQRShape;
QRLabel18: TQRLabel;
QRExpr85: TQRExpr;
QRExpr86: TQRExpr;
QRExpr87: TQRExpr;
QRExpr88: TQRExpr;
QRExpr89: TQRExpr;
QRExpr90: TQRExpr;
QRExpr91: TQRExpr;
QRExpr92: TQRExpr;
QRExpr93: TQRExpr;
QRExpr94: TQRExpr;
QRExpr95: TQRExpr;
QRExpr96: TQRExpr;
QRExpr97: TQRExpr;
QRExpr107: TQRExpr;
QRShape91: TQRShape;
QRShape122: TQRShape;
QRShape123: TQRShape;
QRShape124: TQRShape;
QRShape125: TQRShape;
QRShape126: TQRShape;
QRShape127: TQRShape;
QRShape128: TQRShape;
QRShape129: TQRShape;
QRExpr99: TQRExpr;
QRExpr100: TQRExpr;
QRExpr101: TQRExpr;
QRExpr102: TQRExpr;
QRExpr103: TQRExpr;
QRExpr104: TQRExpr;
QRExpr105: TQRExpr;
QRExpr106: TQRExpr;
QRExpr108: TQRExpr;
QRShape121: TQRShape;
QRExpr98: TQRExpr;
QRExpr84: TQRExpr;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
MaskEdit3: TMaskEdit;
MaskEdit4: TMaskEdit;
QRLabel4: TQRLabel;
QRLabel13: TQRLabel;
QuickRep3: TQuickRep;
QRBand4: TQRBand;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRBand6: TQRBand;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRSubDetail4: TQRSubDetail;
QRShape165: TQRShape;
QRShape166: TQRShape;
QRShape167: TQRShape;
QRExpr114: TQRExpr;
QRExpr115: TQRExpr;
QRLabel30: TQRLabel;
QRBand7: TQRBand;
QRShape168: TQRShape;
QRShape169: TQRShape;
QRShape170: TQRShape;
QRShape171: TQRShape;
QRShape172: TQRShape;
QRShape173: TQRShape;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRExpr116: TQRExpr;
QRLB14: TQRLabel;
QRShape174: TQRShape;
QRExpr117: TQRExpr;
QRShape175: TQRShape;
QRShape176: TQRShape;
QRShape177: TQRShape;
QRShape178: TQRShape;
QRShape182: TQRShape;
QRShape183: TQRShape;
QRShape204: TQRShape;
QRShape206: TQRShape;
QRShape209: TQRShape;
QRShape210: TQRShape;
QRShape211: TQRShape;
QRShape212: TQRShape;
QRShape213: TQRShape;
QRLB1: TQRLabel;
QRLB2: TQRLabel;
QRLB3: TQRLabel;
QRLB4: TQRLabel;
QRLB5: TQRLabel;
QRLB6: TQRLabel;
QRLB7: TQRLabel;
QRLB8: TQRLabel;
QRLB9: TQRLabel;
QRLB10: TQRLabel;
QRLB11: TQRLabel;
QRLB12: TQRLabel;
QRLB13: TQRLabel;
QRShape214: TQRShape;
QRShape215: TQRShape;
QRShape216: TQRShape;
QRShape217: TQRShape;
QRShape218: TQRShape;
QRShape219: TQRShape;
QRShape220: TQRShape;
QRShape221: TQRShape;
QRShape222: TQRShape;
QRShape223: TQRShape;
QRLabel56: TQRLabel;
QRLB15: TQRLabel;
QRLB16: TQRLabel;
QRLB17: TQRLabel;
QRLB18: TQRLabel;
QRLB19: TQRLabel;
QRLB20: TQRLabel;
QRLB21: TQRLabel;
QRLB22: TQRLabel;
QRLB23: TQRLabel;
QRShape224: TQRShape;
QRLabel66: TQRLabel;
QRShape225: TQRShape;
QRExpr118: TQRExpr;
QRGroup2: TQRGroup;
QRSubDetail5: TQRSubDetail;
QRShape226: TQRShape;
QRShape227: TQRShape;
QRShape228: TQRShape;
QRShape229: TQRShape;
QRShape230: TQRShape;
QRShape231: TQRShape;
QRShape232: TQRShape;
QRShape233: TQRShape;
QRShape234: TQRShape;
QRShape235: TQRShape;
QRShape236: TQRShape;
QRShape237: TQRShape;
QRShape238: TQRShape;
QRShape239: TQRShape;
QRShape240: TQRShape;
QRShape241: TQRShape;
QRShape242: TQRShape;
QRShape243: TQRShape;
QRShape244: TQRShape;
QRShape245: TQRShape;
QRShape246: TQRShape;
QRShape247: TQRShape;
QRShape248: TQRShape;
QRShape249: TQRShape;
QRShape250: TQRShape;
QRExpr119: TQRExpr;
QRExpr120: TQRExpr;
QRExpr121: TQRExpr;
QRExpr122: TQRExpr;
QRExpr123: TQRExpr;
QRExpr124: TQRExpr;
QRExpr125: TQRExpr;
QRExpr126: TQRExpr;
QRExpr127: TQRExpr;
QRExpr128: TQRExpr;
QRExpr129: TQRExpr;
QRExpr130: TQRExpr;
QRExpr131: TQRExpr;
QRExpr132: TQRExpr;
QRExpr133: TQRExpr;
QRExpr134: TQRExpr;
QRExpr135: TQRExpr;
QRExpr136: TQRExpr;
QRExpr137: TQRExpr;
QRExpr138: TQRExpr;
QRExpr139: TQRExpr;
QRExpr140: TQRExpr;
QRExpr141: TQRExpr;
QRExpr142: TQRExpr;
QRExpr143: TQRExpr;
QRShape251: TQRShape;
QRShape252: TQRShape;
QRShape253: TQRShape;
QRExpr144: TQRExpr;
QRExpr145: TQRExpr;
GroupFooterBand3: TQRBand;
QRShape254: TQRShape;
QRShape255: TQRShape;
QRShape256: TQRShape;
QRShape257: TQRShape;
QRShape258: TQRShape;
QRShape259: TQRShape;
QRShape260: TQRShape;
QRShape261: TQRShape;
QRShape262: TQRShape;
QRShape263: TQRShape;
QRShape264: TQRShape;
QRShape265: TQRShape;
QRShape266: TQRShape;
QRShape267: TQRShape;
QRShape268: TQRShape;
QRShape269: TQRShape;
QRShape270: TQRShape;
QRShape271: TQRShape;
QRLabel68: TQRLabel;
QRShape272: TQRShape;
QRShape273: TQRShape;
QRShape274: TQRShape;
QRShape275: TQRShape;
QRShape276: TQRShape;
QRShape277: TQRShape;
QRShape278: TQRShape;
QRShape279: TQRShape;
QRShape280: TQRShape;
QRShape281: TQRShape;
QRExpr146: TQRExpr;
QRExpr147: TQRExpr;
QRExpr148: TQRExpr;
QRExpr149: TQRExpr;
QRExpr150: TQRExpr;
QRExpr151: TQRExpr;
QRExpr152: TQRExpr;
QRExpr153: TQRExpr;
QRExpr154: TQRExpr;
QRExpr155: TQRExpr;
QRExpr156: TQRExpr;
QRExpr157: TQRExpr;
QRExpr158: TQRExpr;
QRExpr159: TQRExpr;
QRExpr170: TQRExpr;
QRExpr160: TQRExpr;
QRExpr161: TQRExpr;
QRExpr162: TQRExpr;
QRExpr163: TQRExpr;
QRExpr164: TQRExpr;
QRExpr165: TQRExpr;
QRExpr166: TQRExpr;
QRExpr167: TQRExpr;
QRExpr169: TQRExpr;
QRExpr168: TQRExpr;
SummaryBand2: TQRBand;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRExpr171: TQRExpr;
QRExpr172: TQRExpr;
QRExpr173: TQRExpr;
QRExpr174: TQRExpr;
QRLabel41: TQRLabel;
QRShape282: TQRShape;
QRShape283: TQRShape;
QRShape284: TQRShape;
QRShape285: TQRShape;
QRShape286: TQRShape;
QRShape287: TQRShape;
QRShape288: TQRShape;
QRShape289: TQRShape;
QRShape290: TQRShape;
QRShape291: TQRShape;
QRShape292: TQRShape;
QRShape293: TQRShape;
QRShape294: TQRShape;
QRShape295: TQRShape;
QRShape296: TQRShape;
QRShape297: TQRShape;
QRShape298: TQRShape;
QRShape299: TQRShape;
QRShape300: TQRShape;
QRShape301: TQRShape;
QRShape302: TQRShape;
QRShape303: TQRShape;
QRShape304: TQRShape;
QRExpr175: TQRExpr;
QRExpr176: TQRExpr;
QRExpr177: TQRExpr;
QRExpr178: TQRExpr;
QRExpr179: TQRExpr;
QRExpr180: TQRExpr;
QRExpr181: TQRExpr;
QRExpr182: TQRExpr;
QRExpr183: TQRExpr;
QRExpr184: TQRExpr;
QRExpr185: TQRExpr;
QRExpr186: TQRExpr;
QRExpr187: TQRExpr;
QRExpr188: TQRExpr;
QRExpr189: TQRExpr;
QRExpr190: TQRExpr;
QRExpr191: TQRExpr;
QRExpr192: TQRExpr;
QRExpr193: TQRExpr;
QRExpr194: TQRExpr;
QRExpr195: TQRExpr;
QRExpr196: TQRExpr;
QRExpr197: TQRExpr;
QRShape305: TQRShape;
QRShape306: TQRShape;
QRExpr198: TQRExpr;
QRExpr199: TQRExpr;
Label7: TLabel;
ComboBox6: TComboBox;
Label8: TLabel;
ComboBox7: TComboBox;
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure QuickRep1AfterPreview(Sender: TObject);
procedure QuickRep1StartPage(Sender: TCustomQuickRep);
procedure ComboBox2Click(Sender: TObject);
procedure QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QuickRep2StartPage(Sender: TCustomQuickRep);
procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRSubDetail2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRBand5BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure FormShow(Sender: TObject);
procedure ComboBox3Click(Sender: TObject);
procedure QuickRep3StartPage(Sender: TCustomQuickRep);
procedure QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRSubDetail3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmInPrint: TFrmInPrint;
implementation
uses DatDM, FrmMain;
{$R *.DFM}
procedure TFrmInPrint.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TFrmInPrint.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TFrmInPrint.Button1Click(Sender: TObject);
var
XSQL:String;
YSQL:String;
ZSQL:String;
begin
if ComboBox2.Text=ComboBox2.Items.Strings[0] then
begin
DataModule1.ADODataSet3.Close;
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,DIN,DORDER,SECOLOR WHEREdo
RDER.¾c«¬½s¸¹=DSIZE.¾c«¬½s¸¹
AND SECOLOR.ÃC¦â¥N¸¹=DORDER.ÃC¦â½s¸¹
ANDdo
RDER.­q³æ¸¹½X=DIN.­q³æ¸¹½X AND DIN.¤J®w¤é´Á='+''''+DateToStr(DateTimePicker5.Date)+''''+' AND DIN.¤J®w³æ¦ì='+''''+ComboBox4.Text+''''+'GROUP BY DSIZE.¾c«¬½s¸¹,DSIZE.°_©l¤Ø¤o,SECOLOR.ÃC¦â¤º®e,SECOLOR.ÃC¦â¥N¸¹';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
XSQL:='SELECT * FROM DIN,DORDER WHEREdo
RDER.ÃC¦â½s¸¹=:ÃC¦â¥N¸¹
AND DIN.­q³æ¸¹½X=DORDER.­q³æ¸¹½X AND DIN.¤J®w¤é´Á='+''''+DateToStr(DateTimePicker5.Date)+''''+' AND DIN.¤J®w³æ¦ì='+''''+ComboBox4.Text+''''+'ANDdo
RDER.¾c«¬½s¸¹=:¾c«¬½s¸¹';
DataModule1.ADODataSet2.CommandText:=XSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
if DataModule1.ADODataSet3.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='µL¬ÛÃö¸ê®Æ¡A½Ð­«·s¿ï¾Ü!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep1.Preview;
end;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[1] then
begin
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,SECOLOR,DIN,DORDER WHEREdo
RDER.­q³æ¸¹½X=DIN.­q³æ¸¹½X AND DIN.¤J®w³æ¦ì='+''''+ComboBox4.Text+''''+' ANDdo
RDER.¾c«¬½s¸¹=DSIZE.¾c«¬½s¸¹
AND SECOLOR.ÃC¦â¥N¸¹=DORDER.ÃC¦â½s¸¹';
YSQL:='SELECTdo
RDER.­q³æ¸¹½X,DORDER.¾c«¬½s¸¹,DORDER.¹w­p¥æ³f¤é FROMdo
RDER,DIN WHEREdo
RDER.¾c«¬½s¸¹=:¾c«¬½s¸¹
ANDdo
RDER.ÃC¦â½s¸¹=:ÃC¦â¥N¸¹
ANDdo
RDER.­q³æ¸¹½X=DIN.­q³æ¸¹½X AND DIN.¤J®w³æ¦ì='+''''+ComboBox4.Text+'''';
ZSQL:='SELECT * FROM DIN,DORDER WHERE DIN.­q³æ¸¹½X=:­q³æ¸¹½X ANDdo
RDER.­q³æ¸¹½X=DIN.­q³æ¸¹½X AND DIN.¤J®w³æ¦ì='+''''+ComboBox4.Text+'''';
if ComboBox1.Text=ComboBox1.Items.Strings[2] then
begin
YSQL:=YSQL;
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[1] then
begin
YSQL:=YSQL+' ANDdo
RDER.­q³æª¬ºA='+''''+'OK'+'''';
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[0] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A<>'+''''+'OK'+'''';
end;
if (ComboBox5.Text='') and (ComboBox3.Text='') then
begin
XSQL:=XSQL;
end
else
begin
XSQL:=XSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
end;
if (ComboBox6.Text='') and (ComboBox7.Text='') then
begin
XSQL:=XSQL;
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text='') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+'''';
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+''''+' ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;='+''''+Copy(ComboBox7.Text,1,4)+'''';
end
else
if (ComboBox6.Text='') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL;
end;
if (MaskEdit1.Text=' / / ') or (MaskEdit1.Text=' - - ') or (MaskEdit2.Text=' / / ') or (MaskEdit2.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' AND DIN.¤J&reg;w¤é&acute;&Aacute;>='+''''+MaskEdit1.Text+''''+' AND DIN.¤J&reg;w¤é&acute;&Aacute;<='+''''+MaskEdit2.Text+'''';
end;
if (MaskEdit3.Text=' / / ') or (MaskEdit3.Text=' - - ') or (MaskEdit4.Text=' / / ') or (MaskEdit4.Text=' - - -') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é>='+''''+MaskEdit3.Text+''''+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é<='+''''+MaskEdit4.Text+'''';
end;
DataModule1.ADODataSet3.Close;
XSQL:=XSQL+' GROUP BY DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DSIZE.°_&copy;l¤&Oslash;¤o,SECOLOR.&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e,SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
YSQL:=YSQL+' GROUP BYdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é';
DataModule1.ADODataSet2.CommandText:=YSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
DataModule1.ADODataSet4.Close;
DataModule1.ADODataSet4.CommandText:=ZSQL;
DataModule1.ADODataSet4.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet4.Open;
if DataModule1.ADODataSet4.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='¨S&brvbar;&sup3;&cedil;ê&reg;&AElig;&iexcl;A&frac12;&ETH;&shy;&laquo;·s&iquest;&iuml;&frac34;&Uuml;!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep2.PreView;
end;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[2] then
begin
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,SECOLOR,DIN,DORDER WHEREdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+''''+' ANDdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
AND SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;=DORDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;';
YSQL:='SELECTdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é FROMdo
RDER,DIN WHEREdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=:&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;=:&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;
ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
ZSQL:='SELECT SUM(DIN.SIZE_1),SUM(DIN.SIZE_3),SUM(DIN.SIZE_5),SUM(DIN.SIZE_7),SUM(DIN.SIZE_9),SUM(DIN.SIZE_11),SUM(DIN.SIZE_13),SUM(DIN.SIZE_15),SUM(DIN.SIZE_17),SUM(DIN.SIZE_19),SUM(DIN.SIZE_21),SUM(DIN.SIZE_23)';
ZSQL:=ZSQL+',SUM(DIN.SIZE_25),SUM(DIN.SIZE_27),SUM(DIN.SIZE_29),SUM(DIN.SIZE_31),SUM(DIN.SIZE_33),SUM(DIN.SIZE_35),SUM(DIN.SIZE_37),SUM(DIN.SIZE_39),SUM(DIN.SIZE_41),SUM(DIN.SIZE_43),SUM(DIN.SIZE_45),SUM(DIN.SIZE_47)';
ZSQL:=ZSQL+',DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é,DORDER.SIZE_1,DORDER.SIZE_3,DORDER.SIZE_5,DORDER.SIZE_7,DORDER.SIZE_9,DORDER.SIZE_11,DORDER.SIZE_13,DORDER.SIZE_15,DORDER.SIZE_17,DORDER.SIZE_19,DORDER.SIZE_21,DORDER.SIZE_23,DORDER.SIZE_25';
ZSQL:=ZSQL+',DORDER.SIZE_27,DORDER.SIZE_29,DORDER.SIZE_31,DORDER.SIZE_33,DORDER.SIZE_35,DORDER.SIZE_37,DORDER.SIZE_39,DORDER.SIZE_41,DORDER.SIZE_43,DORDER.SIZE_45,DORDER.SIZE_47';
ZSQL:=ZSQL+' FROM DIN,DORDER WHERE DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=:&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
if ComboBox1.Text=ComboBox1.Items.Strings[2] then
begin
YSQL:=YSQL;
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[1] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A='+''''+'OK'+'''';
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[0] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A<>'+''''+'OK'+'''';
end;
if (ComboBox5.Text='') and (ComboBox3.Text='') then
begin
XSQL:=XSQL;
end
else
begin
XSQL:=XSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
end;
if (ComboBox6.Text='') and (ComboBox7.Text='') then
begin
XSQL:=XSQL;
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text='') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+'''';
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+''''+' ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;='+''''+Copy(ComboBox7.Text,1,4)+'''';
end
else
if (ComboBox6.Text='') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL;
end;
if (MaskEdit1.Text=' / / ') or (MaskEdit1.Text=' - - ') or (MaskEdit2.Text=' / / ') or (MaskEdit2.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' AND DIN.¤J&reg;w¤é&acute;&Aacute;>='+''''+MaskEdit1.Text+''''+' AND DIN.¤J&reg;w¤é&acute;&Aacute;<='+''''+MaskEdit2.Text+'''';
end;
if (MaskEdit3.Text=' / / ') or (MaskEdit3.Text=' - - ') or (MaskEdit4.Text=' / / ') or (MaskEdit4.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é>='+''''+MaskEdit3.Text+''''+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é<='+''''+MaskEdit4.Text+'''';
end;
QuickRep1.Enabled:=False;
QuickRep2.Enabled:=True;
DataModule1.ADODataSet3.Close;
XSQL:=XSQL+' GROUP BY DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DSIZE.°_&copy;l¤&Oslash;¤o,SECOLOR.&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e,SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
YSQL:=YSQL+' GROUP BYdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é';
DataModule1.ADODataSet2.CommandText:=YSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
DataModule1.ADODataSet4.Close;
ZSQL:=ZSQL+' GROUP BY DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é,DORDER.SIZE_1,DORDER.SIZE_3,DORDER.SIZE_5,DORDER.SIZE_7,DORDER.SIZE_9,DORDER.SIZE_11,DORDER.SIZE_13,DORDER.SIZE_15,DORDER.SIZE_17,DORDER.SIZE_19,DORDER.SIZE_21,DORDER.SIZE_23,DORDER.SIZE_25';
ZSQL:=ZSQL+',DORDER.SIZE_27,DORDER.SIZE_29,DORDER.SIZE_31,DORDER.SIZE_33,DORDER.SIZE_35,DORDER.SIZE_37,DORDER.SIZE_39,DORDER.SIZE_41,DORDER.SIZE_43,DORDER.SIZE_45,DORDER.SIZE_47';
DataModule1.ADODataSet4.CommandText:=ZSQL;
DataModule1.ADODataSet4.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet4.Open;
if DataModule1.ADODataSet4.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='¨S&brvbar;&sup3;&cedil;ê&reg;&AElig;&iexcl;A&frac12;&ETH;&shy;&laquo;·s&iquest;&iuml;&frac34;&Uuml;!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep3.PreView;
end;
end;
end;
procedure TFrmInPrint.QuickRep1AfterPreview(Sender: TObject);
begin
QRLabel9.Caption:=DateToStr(Date);
end;
procedure TFrmInPrint.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
QRLabel9.Caption:=DateToStr(Date);
QRLabel4.Caption:=ComboBox4.Text;
end;
procedure TFrmInPrint.ComboBox2Click(Sender: TObject);
begin
if ComboBox2.Text=ComboBox2.Items.Strings[0] then
begin
Panel2.Visible:=False;
Panel3.Visible:=False;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[1] then
begin
Panel2.Visible:=True;
Panel3.Visible:=True;
end
else
begin
Panel2.Visible:=True;
Panel3.Visible:=True;
end;
end;
procedure TFrmInPrint.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
x:String;
begin
if DataModule1.ADODataSet3.RecordCount<>0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRL'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QuickRep2StartPage(Sender: TCustomQuickRep);
begin
QRLabel12.Caption:=DateToStr(Date);
QRLabel13.Caption:=ComboBox4.Text;
end;
procedure TFrmInPrint.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
y:Integer;
begin
if QuickRep1.enabled = True then
begin
y:=0;
for i:=1 to 24do
begin
y:=DataModule1.ADODataSet2.FieldByName('SIZE_'+IntToStr(i*2-1)+'_1').AsInteger+y;
end;
QRLabel19.Caption:=IntToStr
;
end;
end;
procedure TFrmInPrint.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRL'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QRSubDetail2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
y:Integer;
begin
if QuickRep2.enabled = True then
begin
y:=0;
for i:=1 to 24do
begin
y:=DataModule1.ADODataSet4.FieldByName('SIZE_'+IntToStr(i*2-1)+'_1').AsInteger+y;
end;
QRLabel17.Caption:=IntToStr;
QRLabel53.Enabled:=True;
QRExpr113.Enabled:=QRLabel53.Enabled;
end;
end;
procedure TFrmInPrint.QRBand5BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRLA'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.FormShow(Sender: TObject);
var
XSQL:String;
begin
ComboBox5.Clear;
ComboBox3.Clear;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT &shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X FROMdo
RDER ORDER BY &shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox5.Items.Add(DataModule1.ADODataSet1.FieldByName('&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X').AsString);
ComboBox3.Items.Add(DataModule1.ADODataSet1.FieldByName('&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X').AsString);
DataModule1.ADODataSet1.Next;
end;
DateTimePicker5.Date:=Date;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT &frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
FROM DSIZE ORDER BY &frac34;c&laquo;&not;&frac12;s&cedil;&sup1;';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox6.Items.Add(DataModule1.ADODataSet1.FieldByName('&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;').AsString);
DataModule1.ADODataSet1.Next;
end;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT * FROM SECOLOR ORDER BY &Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox7.Items.Add(DataModule1.ADODataSet1.FieldByName('&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;').AsString+'.'+DataModule1.ADODataSet1.FieldByName('&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e').AsString);
DataModule1.ADODataSet1.Next;
end;
DateTimePicker5.Date:=Date;
end;
procedure TFrmInPrint.ComboBox3Click(Sender: TObject);
begin
if ComboBox3.Text<ComboBox5.Text then
begin
Main.StatusBar1.Panels[2].Text:='&sup1;&iuml;¤&pound;°_&iexcl;A¤W&shy;±&ordf;&ordm;&iquest;&iuml;&frac34;&Uuml;&reg;&Oslash;&ordf;&ordm;&cedil;ê&reg;&AElig;°&brvbar;&macr;à¤&ntilde;¤U&shy;±&ordf;&ordm;&iquest;&iuml;&frac34;&Uuml;&reg;&Oslash;&ordf;&ordm;&cedil;ê&reg;&AElig;¤p!';
ComboBox3.Text:='';
ComboBox3.SetFocus;
end
else
Main.StatusBar1.Panels[2].Text:='';
end;
procedure TFrmInPrint.QuickRep3StartPage(Sender: TCustomQuickRep);
begin
QRLabel26.Caption:=ComboBox4.Text;
QRLabel25.Caption:=DateToStr(DateTimePicker5.Date);
end;
procedure TFrmInPrint.QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRLB'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QRSubDetail3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
QRLabel53.Enabled:=False;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Qrctrls, QuickRpt, DB, DBTables, Grids,
DBGrids, Mask;
type
// TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid);
TFrmInPrint = class(TForm)
Panel1: TPanel;
Label3: TLabel;
ComboBox2: TComboBox;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Button1: TButton;
Button2: TButton;
QuickRep1: TQuickRep;
PageHeaderBand2: TQRBand;
PageFooterBand2: TQRBand;
QRSubDetail1: TQRSubDetail;
GroupFooterBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand1: TQRBand;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRShape184: TQRShape;
QRShape185: TQRShape;
QRShape186: TQRShape;
QRShape187: TQRShape;
QRShape188: TQRShape;
QRShape189: TQRShape;
QRShape190: TQRShape;
QRShape191: TQRShape;
QRShape192: TQRShape;
QRShape193: TQRShape;
QRShape194: TQRShape;
QRShape195: TQRShape;
QRShape196: TQRShape;
QRShape197: TQRShape;
QRShape198: TQRShape;
QRShape199: TQRShape;
QRShape200: TQRShape;
QRShape201: TQRShape;
QRShape202: TQRShape;
QRShape205: TQRShape;
QRShape207: TQRShape;
QRShape208: TQRShape;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRLabel3: TQRLabel;
QRShape56: TQRShape;
QRShape57: TQRShape;
QRShape58: TQRShape;
QRShape59: TQRShape;
QRShape60: TQRShape;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape19: TQRShape;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape181: TQRShape;
QRShape180: TQRShape;
QRShape179: TQRShape;
QRShape28: TQRShape;
QRShape29: TQRShape;
QRShape31: TQRShape;
QRExpr1: TQRExpr;
QRExpr3: TQRExpr;
L1: TLabel;
DateTimePicker5: TDateTimePicker;
Panel2: TPanel;
L2: TLabel;
ComboBox3: TComboBox;
L4: TLabel;
L3: TLabel;
ComboBox1: TComboBox;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
ComboBox5: TComboBox;
ComboBox4: TComboBox;
QRExpr4: TQRExpr;
QRExpr5: TQRExpr;
QRExpr6: TQRExpr;
QRExpr7: TQRExpr;
QRExpr8: TQRExpr;
QRExpr9: TQRExpr;
QRExpr10: TQRExpr;
QRExpr11: TQRExpr;
QRExpr12: TQRExpr;
QRExpr13: TQRExpr;
QRExpr14: TQRExpr;
QRExpr15: TQRExpr;
QRExpr16: TQRExpr;
QRExpr17: TQRExpr;
QRExpr18: TQRExpr;
QRExpr19: TQRExpr;
QRExpr20: TQRExpr;
QRExpr21: TQRExpr;
QRExpr22: TQRExpr;
QRExpr23: TQRExpr;
QRExpr24: TQRExpr;
QRExpr25: TQRExpr;
QRExpr26: TQRExpr;
QRExpr27: TQRExpr;
QRL14: TQRLabel;
QRExpr28: TQRExpr;
QRExpr29: TQRExpr;
QRExpr30: TQRExpr;
QRExpr31: TQRExpr;
QRExpr32: TQRExpr;
QRExpr33: TQRExpr;
QRExpr34: TQRExpr;
QRExpr35: TQRExpr;
QRExpr36: TQRExpr;
QRExpr37: TQRExpr;
QRExpr38: TQRExpr;
QRExpr39: TQRExpr;
QRExpr40: TQRExpr;
QRExpr41: TQRExpr;
QRExpr42: TQRExpr;
QRExpr43: TQRExpr;
QRExpr44: TQRExpr;
QRExpr45: TQRExpr;
QRExpr46: TQRExpr;
QRExpr47: TQRExpr;
QRExpr48: TQRExpr;
QRExpr49: TQRExpr;
QRExpr50: TQRExpr;
QRExpr51: TQRExpr;
QRExpr52: TQRExpr;
QRExpr53: TQRExpr;
QRExpr54: TQRExpr;
QRLabel19: TQRLabel;
QRShape110: TQRShape;
QRShape111: TQRShape;
QRShape112: TQRShape;
QRShape113: TQRShape;
QRShape114: TQRShape;
QRShape115: TQRShape;
QRShape116: TQRShape;
QRShape117: TQRShape;
QRShape118: TQRShape;
QRShape119: TQRShape;
QRShape120: TQRShape;
QRShape30: TQRShape;
QRExpr2: TQRExpr;
QRShape55: TQRShape;
QRShape54: TQRShape;
QRShape53: TQRShape;
QRShape52: TQRShape;
QRShape51: TQRShape;
QRShape50: TQRShape;
QRShape49: TQRShape;
QRShape48: TQRShape;
QRShape47: TQRShape;
QRShape46: TQRShape;
QRShape45: TQRShape;
QRShape44: TQRShape;
QRShape43: TQRShape;
QRShape42: TQRShape;
QRL1: TQRLabel;
QRL2: TQRLabel;
QRL3: TQRLabel;
QRL4: TQRLabel;
QRL5: TQRLabel;
QRL6: TQRLabel;
QRL7: TQRLabel;
QRL8: TQRLabel;
QRL9: TQRLabel;
QRL10: TQRLabel;
QRL11: TQRLabel;
QRL12: TQRLabel;
QRL13: TQRLabel;
QRShape41: TQRShape;
QRShape40: TQRShape;
QRShape39: TQRShape;
QRShape38: TQRShape;
QRShape37: TQRShape;
QRShape36: TQRShape;
QRShape35: TQRShape;
QRShape34: TQRShape;
QRShape33: TQRShape;
QRShape32: TQRShape;
QRLabel2: TQRLabel;
QRL15: TQRLabel;
QRL16: TQRLabel;
QRL17: TQRLabel;
QRL18: TQRLabel;
QRL19: TQRLabel;
QRL20: TQRLabel;
QRL21: TQRLabel;
QRL22: TQRLabel;
QRL23: TQRLabel;
QRShape61: TQRShape;
QRLabel5: TQRLabel;
QRShape62: TQRShape;
QRExpr55: TQRExpr;
SummaryBand1: TQRBand;
QRLabel10: TQRLabel;
QRExpr56: TQRExpr;
QRShape203: TQRShape;
QuickRep2: TQuickRep;
QRBand2: TQRBand;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRBand3: TQRBand;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRSubDetail2: TQRSubDetail;
QRShape88: TQRShape;
QRShape89: TQRShape;
QRShape90: TQRShape;
QRExpr57: TQRExpr;
QRExpr82: TQRExpr;
QRLabel17: TQRLabel;
QRBand5: TQRBand;
QRShape130: TQRShape;
QRShape131: TQRShape;
QRShape132: TQRShape;
QRShape133: TQRShape;
QRShape134: TQRShape;
QRShape135: TQRShape;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRExpr109: TQRExpr;
QRLA14: TQRLabel;
QRShape136: TQRShape;
QRExpr110: TQRExpr;
QRShape137: TQRShape;
QRShape138: TQRShape;
QRShape139: TQRShape;
QRShape140: TQRShape;
QRShape141: TQRShape;
QRShape142: TQRShape;
QRShape143: TQRShape;
QRShape144: TQRShape;
QRShape145: TQRShape;
QRShape146: TQRShape;
QRShape147: TQRShape;
QRShape148: TQRShape;
QRShape149: TQRShape;
QRLA1: TQRLabel;
QRLA2: TQRLabel;
QRLA3: TQRLabel;
QRLA4: TQRLabel;
QRLA5: TQRLabel;
QRLA6: TQRLabel;
QRLA7: TQRLabel;
QRLA8: TQRLabel;
QRLA9: TQRLabel;
QRLA10: TQRLabel;
QRLA11: TQRLabel;
QRLA12: TQRLabel;
QRLA13: TQRLabel;
QRShape150: TQRShape;
QRShape151: TQRShape;
QRShape152: TQRShape;
QRShape153: TQRShape;
QRShape154: TQRShape;
QRShape155: TQRShape;
QRShape156: TQRShape;
QRShape157: TQRShape;
QRShape158: TQRShape;
QRShape159: TQRShape;
QRLabel42: TQRLabel;
QRLA15: TQRLabel;
QRLA16: TQRLabel;
QRLA17: TQRLabel;
QRLA18: TQRLabel;
QRLA19: TQRLabel;
QRLA20: TQRLabel;
QRLA21: TQRLabel;
QRLA22: TQRLabel;
QRLA23: TQRLabel;
QRShape160: TQRShape;
QRLabel52: TQRLabel;
QRShape161: TQRShape;
QRExpr111: TQRExpr;
QRGroup1: TQRGroup;
QRSubDetail3: TQRSubDetail;
QRShape63: TQRShape;
QRShape64: TQRShape;
QRShape65: TQRShape;
QRShape66: TQRShape;
QRShape67: TQRShape;
QRShape68: TQRShape;
QRShape69: TQRShape;
QRShape70: TQRShape;
QRShape71: TQRShape;
QRShape72: TQRShape;
QRShape73: TQRShape;
QRShape74: TQRShape;
QRShape75: TQRShape;
QRShape76: TQRShape;
QRShape77: TQRShape;
QRShape78: TQRShape;
QRShape79: TQRShape;
QRShape80: TQRShape;
QRShape81: TQRShape;
QRShape82: TQRShape;
QRShape83: TQRShape;
QRShape84: TQRShape;
QRShape85: TQRShape;
QRShape86: TQRShape;
QRShape87: TQRShape;
QRExpr58: TQRExpr;
QRExpr59: TQRExpr;
QRExpr60: TQRExpr;
QRExpr61: TQRExpr;
QRExpr62: TQRExpr;
QRExpr63: TQRExpr;
QRExpr64: TQRExpr;
QRExpr65: TQRExpr;
QRExpr66: TQRExpr;
QRExpr67: TQRExpr;
QRExpr68: TQRExpr;
QRExpr69: TQRExpr;
QRExpr70: TQRExpr;
QRExpr71: TQRExpr;
QRExpr72: TQRExpr;
QRExpr73: TQRExpr;
QRExpr74: TQRExpr;
QRExpr75: TQRExpr;
QRExpr76: TQRExpr;
QRExpr77: TQRExpr;
QRExpr78: TQRExpr;
QRExpr79: TQRExpr;
QRExpr80: TQRExpr;
QRExpr81: TQRExpr;
QRExpr83: TQRExpr;
QRShape162: TQRShape;
QRShape163: TQRShape;
QRShape164: TQRShape;
QRExpr112: TQRExpr;
QRExpr113: TQRExpr;
QRLabel53: TQRLabel;
GroupFooterBand2: TQRBand;
QRShape92: TQRShape;
QRShape93: TQRShape;
QRShape94: TQRShape;
QRShape95: TQRShape;
QRShape96: TQRShape;
QRShape97: TQRShape;
QRShape98: TQRShape;
QRShape99: TQRShape;
QRShape100: TQRShape;
QRShape101: TQRShape;
QRShape102: TQRShape;
QRShape103: TQRShape;
QRShape104: TQRShape;
QRShape105: TQRShape;
QRShape106: TQRShape;
QRShape107: TQRShape;
QRShape108: TQRShape;
QRShape109: TQRShape;
QRLabel18: TQRLabel;
QRExpr85: TQRExpr;
QRExpr86: TQRExpr;
QRExpr87: TQRExpr;
QRExpr88: TQRExpr;
QRExpr89: TQRExpr;
QRExpr90: TQRExpr;
QRExpr91: TQRExpr;
QRExpr92: TQRExpr;
QRExpr93: TQRExpr;
QRExpr94: TQRExpr;
QRExpr95: TQRExpr;
QRExpr96: TQRExpr;
QRExpr97: TQRExpr;
QRExpr107: TQRExpr;
QRShape91: TQRShape;
QRShape122: TQRShape;
QRShape123: TQRShape;
QRShape124: TQRShape;
QRShape125: TQRShape;
QRShape126: TQRShape;
QRShape127: TQRShape;
QRShape128: TQRShape;
QRShape129: TQRShape;
QRExpr99: TQRExpr;
QRExpr100: TQRExpr;
QRExpr101: TQRExpr;
QRExpr102: TQRExpr;
QRExpr103: TQRExpr;
QRExpr104: TQRExpr;
QRExpr105: TQRExpr;
QRExpr106: TQRExpr;
QRExpr108: TQRExpr;
QRShape121: TQRShape;
QRExpr98: TQRExpr;
QRExpr84: TQRExpr;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
MaskEdit3: TMaskEdit;
MaskEdit4: TMaskEdit;
QRLabel4: TQRLabel;
QRLabel13: TQRLabel;
QuickRep3: TQuickRep;
QRBand4: TQRBand;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRBand6: TQRBand;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRSubDetail4: TQRSubDetail;
QRShape165: TQRShape;
QRShape166: TQRShape;
QRShape167: TQRShape;
QRExpr114: TQRExpr;
QRExpr115: TQRExpr;
QRLabel30: TQRLabel;
QRBand7: TQRBand;
QRShape168: TQRShape;
QRShape169: TQRShape;
QRShape170: TQRShape;
QRShape171: TQRShape;
QRShape172: TQRShape;
QRShape173: TQRShape;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRExpr116: TQRExpr;
QRLB14: TQRLabel;
QRShape174: TQRShape;
QRExpr117: TQRExpr;
QRShape175: TQRShape;
QRShape176: TQRShape;
QRShape177: TQRShape;
QRShape178: TQRShape;
QRShape182: TQRShape;
QRShape183: TQRShape;
QRShape204: TQRShape;
QRShape206: TQRShape;
QRShape209: TQRShape;
QRShape210: TQRShape;
QRShape211: TQRShape;
QRShape212: TQRShape;
QRShape213: TQRShape;
QRLB1: TQRLabel;
QRLB2: TQRLabel;
QRLB3: TQRLabel;
QRLB4: TQRLabel;
QRLB5: TQRLabel;
QRLB6: TQRLabel;
QRLB7: TQRLabel;
QRLB8: TQRLabel;
QRLB9: TQRLabel;
QRLB10: TQRLabel;
QRLB11: TQRLabel;
QRLB12: TQRLabel;
QRLB13: TQRLabel;
QRShape214: TQRShape;
QRShape215: TQRShape;
QRShape216: TQRShape;
QRShape217: TQRShape;
QRShape218: TQRShape;
QRShape219: TQRShape;
QRShape220: TQRShape;
QRShape221: TQRShape;
QRShape222: TQRShape;
QRShape223: TQRShape;
QRLabel56: TQRLabel;
QRLB15: TQRLabel;
QRLB16: TQRLabel;
QRLB17: TQRLabel;
QRLB18: TQRLabel;
QRLB19: TQRLabel;
QRLB20: TQRLabel;
QRLB21: TQRLabel;
QRLB22: TQRLabel;
QRLB23: TQRLabel;
QRShape224: TQRShape;
QRLabel66: TQRLabel;
QRShape225: TQRShape;
QRExpr118: TQRExpr;
QRGroup2: TQRGroup;
QRSubDetail5: TQRSubDetail;
QRShape226: TQRShape;
QRShape227: TQRShape;
QRShape228: TQRShape;
QRShape229: TQRShape;
QRShape230: TQRShape;
QRShape231: TQRShape;
QRShape232: TQRShape;
QRShape233: TQRShape;
QRShape234: TQRShape;
QRShape235: TQRShape;
QRShape236: TQRShape;
QRShape237: TQRShape;
QRShape238: TQRShape;
QRShape239: TQRShape;
QRShape240: TQRShape;
QRShape241: TQRShape;
QRShape242: TQRShape;
QRShape243: TQRShape;
QRShape244: TQRShape;
QRShape245: TQRShape;
QRShape246: TQRShape;
QRShape247: TQRShape;
QRShape248: TQRShape;
QRShape249: TQRShape;
QRShape250: TQRShape;
QRExpr119: TQRExpr;
QRExpr120: TQRExpr;
QRExpr121: TQRExpr;
QRExpr122: TQRExpr;
QRExpr123: TQRExpr;
QRExpr124: TQRExpr;
QRExpr125: TQRExpr;
QRExpr126: TQRExpr;
QRExpr127: TQRExpr;
QRExpr128: TQRExpr;
QRExpr129: TQRExpr;
QRExpr130: TQRExpr;
QRExpr131: TQRExpr;
QRExpr132: TQRExpr;
QRExpr133: TQRExpr;
QRExpr134: TQRExpr;
QRExpr135: TQRExpr;
QRExpr136: TQRExpr;
QRExpr137: TQRExpr;
QRExpr138: TQRExpr;
QRExpr139: TQRExpr;
QRExpr140: TQRExpr;
QRExpr141: TQRExpr;
QRExpr142: TQRExpr;
QRExpr143: TQRExpr;
QRShape251: TQRShape;
QRShape252: TQRShape;
QRShape253: TQRShape;
QRExpr144: TQRExpr;
QRExpr145: TQRExpr;
GroupFooterBand3: TQRBand;
QRShape254: TQRShape;
QRShape255: TQRShape;
QRShape256: TQRShape;
QRShape257: TQRShape;
QRShape258: TQRShape;
QRShape259: TQRShape;
QRShape260: TQRShape;
QRShape261: TQRShape;
QRShape262: TQRShape;
QRShape263: TQRShape;
QRShape264: TQRShape;
QRShape265: TQRShape;
QRShape266: TQRShape;
QRShape267: TQRShape;
QRShape268: TQRShape;
QRShape269: TQRShape;
QRShape270: TQRShape;
QRShape271: TQRShape;
QRLabel68: TQRLabel;
QRShape272: TQRShape;
QRShape273: TQRShape;
QRShape274: TQRShape;
QRShape275: TQRShape;
QRShape276: TQRShape;
QRShape277: TQRShape;
QRShape278: TQRShape;
QRShape279: TQRShape;
QRShape280: TQRShape;
QRShape281: TQRShape;
QRExpr146: TQRExpr;
QRExpr147: TQRExpr;
QRExpr148: TQRExpr;
QRExpr149: TQRExpr;
QRExpr150: TQRExpr;
QRExpr151: TQRExpr;
QRExpr152: TQRExpr;
QRExpr153: TQRExpr;
QRExpr154: TQRExpr;
QRExpr155: TQRExpr;
QRExpr156: TQRExpr;
QRExpr157: TQRExpr;
QRExpr158: TQRExpr;
QRExpr159: TQRExpr;
QRExpr170: TQRExpr;
QRExpr160: TQRExpr;
QRExpr161: TQRExpr;
QRExpr162: TQRExpr;
QRExpr163: TQRExpr;
QRExpr164: TQRExpr;
QRExpr165: TQRExpr;
QRExpr166: TQRExpr;
QRExpr167: TQRExpr;
QRExpr169: TQRExpr;
QRExpr168: TQRExpr;
SummaryBand2: TQRBand;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRExpr171: TQRExpr;
QRExpr172: TQRExpr;
QRExpr173: TQRExpr;
QRExpr174: TQRExpr;
QRLabel41: TQRLabel;
QRShape282: TQRShape;
QRShape283: TQRShape;
QRShape284: TQRShape;
QRShape285: TQRShape;
QRShape286: TQRShape;
QRShape287: TQRShape;
QRShape288: TQRShape;
QRShape289: TQRShape;
QRShape290: TQRShape;
QRShape291: TQRShape;
QRShape292: TQRShape;
QRShape293: TQRShape;
QRShape294: TQRShape;
QRShape295: TQRShape;
QRShape296: TQRShape;
QRShape297: TQRShape;
QRShape298: TQRShape;
QRShape299: TQRShape;
QRShape300: TQRShape;
QRShape301: TQRShape;
QRShape302: TQRShape;
QRShape303: TQRShape;
QRShape304: TQRShape;
QRExpr175: TQRExpr;
QRExpr176: TQRExpr;
QRExpr177: TQRExpr;
QRExpr178: TQRExpr;
QRExpr179: TQRExpr;
QRExpr180: TQRExpr;
QRExpr181: TQRExpr;
QRExpr182: TQRExpr;
QRExpr183: TQRExpr;
QRExpr184: TQRExpr;
QRExpr185: TQRExpr;
QRExpr186: TQRExpr;
QRExpr187: TQRExpr;
QRExpr188: TQRExpr;
QRExpr189: TQRExpr;
QRExpr190: TQRExpr;
QRExpr191: TQRExpr;
QRExpr192: TQRExpr;
QRExpr193: TQRExpr;
QRExpr194: TQRExpr;
QRExpr195: TQRExpr;
QRExpr196: TQRExpr;
QRExpr197: TQRExpr;
QRShape305: TQRShape;
QRShape306: TQRShape;
QRExpr198: TQRExpr;
QRExpr199: TQRExpr;
Label7: TLabel;
ComboBox6: TComboBox;
Label8: TLabel;
ComboBox7: TComboBox;
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure QuickRep1AfterPreview(Sender: TObject);
procedure QuickRep1StartPage(Sender: TCustomQuickRep);
procedure ComboBox2Click(Sender: TObject);
procedure QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QuickRep2StartPage(Sender: TCustomQuickRep);
procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRSubDetail2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRBand5BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure FormShow(Sender: TObject);
procedure ComboBox3Click(Sender: TObject);
procedure QuickRep3StartPage(Sender: TCustomQuickRep);
procedure QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRSubDetail3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmInPrint: TFrmInPrint;
implementation
uses DatDM, FrmMain;
{$R *.DFM}
procedure TFrmInPrint.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TFrmInPrint.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TFrmInPrint.Button1Click(Sender: TObject);
var
XSQL:String;
YSQL:String;
ZSQL:String;
begin
if ComboBox2.Text=ComboBox2.Items.Strings[0] then
begin
DataModule1.ADODataSet3.Close;
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,DIN,DORDER,SECOLOR WHEREdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
AND SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;=DORDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;
ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w¤é&acute;&Aacute;='+''''+DateToStr(DateTimePicker5.Date)+''''+' AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+''''+'GROUP BY DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DSIZE.°_&copy;l¤&Oslash;¤o,SECOLOR.&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e,SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
XSQL:='SELECT * FROM DIN,DORDER WHEREdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;=:&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;
AND DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DORDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w¤é&acute;&Aacute;='+''''+DateToStr(DateTimePicker5.Date)+''''+' AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+''''+'ANDdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=:&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;';
DataModule1.ADODataSet2.CommandText:=XSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
if DataModule1.ADODataSet3.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='&micro;L&not;&Ucirc;&Atilde;&ouml;&cedil;ê&reg;&AElig;&iexcl;A&frac12;&ETH;&shy;&laquo;·s&iquest;&iuml;&frac34;&Uuml;!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep1.Preview;
end;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[1] then
begin
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,SECOLOR,DIN,DORDER WHEREdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+''''+' ANDdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
AND SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;=DORDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;';
YSQL:='SELECTdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é FROMdo
RDER,DIN WHEREdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=:&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;=:&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;
ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
ZSQL:='SELECT * FROM DIN,DORDER WHERE DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=:&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
if ComboBox1.Text=ComboBox1.Items.Strings[2] then
begin
YSQL:=YSQL;
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[1] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A='+''''+'OK'+'''';
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[0] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A<>'+''''+'OK'+'''';
end;
if (ComboBox5.Text='') and (ComboBox3.Text='') then
begin
XSQL:=XSQL;
end
else
begin
XSQL:=XSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
end;
if (ComboBox6.Text='') and (ComboBox7.Text='') then
begin
XSQL:=XSQL;
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text='') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+'''';
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+''''+' ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;='+''''+Copy(ComboBox7.Text,1,4)+'''';
end
else
if (ComboBox6.Text='') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL;
end;
if (MaskEdit1.Text=' / / ') or (MaskEdit1.Text=' - - ') or (MaskEdit2.Text=' / / ') or (MaskEdit2.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' AND DIN.¤J&reg;w¤é&acute;&Aacute;>='+''''+MaskEdit1.Text+''''+' AND DIN.¤J&reg;w¤é&acute;&Aacute;<='+''''+MaskEdit2.Text+'''';
end;
if (MaskEdit3.Text=' / / ') or (MaskEdit3.Text=' - - ') or (MaskEdit4.Text=' / / ') or (MaskEdit4.Text=' - - -') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é>='+''''+MaskEdit3.Text+''''+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é<='+''''+MaskEdit4.Text+'''';
end;
DataModule1.ADODataSet3.Close;
XSQL:=XSQL+' GROUP BY DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DSIZE.°_&copy;l¤&Oslash;¤o,SECOLOR.&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e,SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
YSQL:=YSQL+' GROUP BYdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é';
DataModule1.ADODataSet2.CommandText:=YSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
DataModule1.ADODataSet4.Close;
DataModule1.ADODataSet4.CommandText:=ZSQL;
DataModule1.ADODataSet4.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet4.Open;
if DataModule1.ADODataSet4.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='¨S&brvbar;&sup3;&cedil;ê&reg;&AElig;&iexcl;A&frac12;&ETH;&shy;&laquo;·s&iquest;&iuml;&frac34;&Uuml;!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep2.PreView;
end;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[2] then
begin
XSQL:='SELECT DSIZE.* , SECOLOR.* FROM DSIZE,SECOLOR,DIN,DORDER WHEREdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+''''+' ANDdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
AND SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;=DORDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;';
YSQL:='SELECTdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é FROMdo
RDER,DIN WHEREdo
RDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;=:&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;=:&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;
ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
ZSQL:='SELECT SUM(DIN.SIZE_1),SUM(DIN.SIZE_3),SUM(DIN.SIZE_5),SUM(DIN.SIZE_7),SUM(DIN.SIZE_9),SUM(DIN.SIZE_11),SUM(DIN.SIZE_13),SUM(DIN.SIZE_15),SUM(DIN.SIZE_17),SUM(DIN.SIZE_19),SUM(DIN.SIZE_21),SUM(DIN.SIZE_23)';
ZSQL:=ZSQL+',SUM(DIN.SIZE_25),SUM(DIN.SIZE_27),SUM(DIN.SIZE_29),SUM(DIN.SIZE_31),SUM(DIN.SIZE_33),SUM(DIN.SIZE_35),SUM(DIN.SIZE_37),SUM(DIN.SIZE_39),SUM(DIN.SIZE_41),SUM(DIN.SIZE_43),SUM(DIN.SIZE_45),SUM(DIN.SIZE_47)';
ZSQL:=ZSQL+',DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é,DORDER.SIZE_1,DORDER.SIZE_3,DORDER.SIZE_5,DORDER.SIZE_7,DORDER.SIZE_9,DORDER.SIZE_11,DORDER.SIZE_13,DORDER.SIZE_15,DORDER.SIZE_17,DORDER.SIZE_19,DORDER.SIZE_21,DORDER.SIZE_23,DORDER.SIZE_25';
ZSQL:=ZSQL+',DORDER.SIZE_27,DORDER.SIZE_29,DORDER.SIZE_31,DORDER.SIZE_33,DORDER.SIZE_35,DORDER.SIZE_37,DORDER.SIZE_39,DORDER.SIZE_41,DORDER.SIZE_43,DORDER.SIZE_45,DORDER.SIZE_47';
ZSQL:=ZSQL+' FROM DIN,DORDER WHERE DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=:&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X=DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X AND DIN.¤J&reg;w&sup3;&aelig;&brvbar;ì='+''''+ComboBox4.Text+'''';
if ComboBox1.Text=ComboBox1.Items.Strings[2] then
begin
YSQL:=YSQL;
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[1] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A='+''''+'OK'+'''';
end
else
if ComboBox1.Text=ComboBox1.Items.Strings[0] then
begin
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&ordf;&not;&ordm;A<>'+''''+'OK'+'''';
end;
if (ComboBox5.Text='') and (ComboBox3.Text='') then
begin
XSQL:=XSQL;
end
else
begin
XSQL:=XSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
YSQL:=YSQL+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X>='+''''+ComboBox5.Text+''''+' ANDdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X<='+''''+ComboBox3.Text+'''';
end;
if (ComboBox6.Text='') and (ComboBox7.Text='') then
begin
XSQL:=XSQL;
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text='') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+'''';
end
else
if (ComboBox6.Text<>'') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL+' AND DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;='+''''+ComboBox6.Text+''''+' ANDdo
RDER.&Atilde;C&brvbar;&acirc;&frac12;s&cedil;&sup1;='+''''+Copy(ComboBox7.Text,1,4)+'''';
end
else
if (ComboBox6.Text='') and (ComboBox7.Text<>'') then
begin
XSQL:=XSQL;
end;
if (MaskEdit1.Text=' / / ') or (MaskEdit1.Text=' - - ') or (MaskEdit2.Text=' / / ') or (MaskEdit2.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' AND DIN.¤J&reg;w¤é&acute;&Aacute;>='+''''+MaskEdit1.Text+''''+' AND DIN.¤J&reg;w¤é&acute;&Aacute;<='+''''+MaskEdit2.Text+'''';
end;
if (MaskEdit3.Text=' / / ') or (MaskEdit3.Text=' - - ') or (MaskEdit4.Text=' / / ') or (MaskEdit4.Text =' - - ') then
begin
YSQL:=YSQL;
end
else
begin
YSQL:=YSQL+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é>='+''''+MaskEdit3.Text+''''+' ANDdo
RDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é<='+''''+MaskEdit4.Text+'''';
end;
QuickRep1.Enabled:=False;
QuickRep2.Enabled:=True;
DataModule1.ADODataSet3.Close;
XSQL:=XSQL+' GROUP BY DSIZE.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DSIZE.°_&copy;l¤&Oslash;¤o,SECOLOR.&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e,SECOLOR.&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet3.CommandText:=XSQL;
DataModule1.ADODataSet3.Open;
DataModule1.ADODataSet2.Close;
YSQL:=YSQL+' GROUP BYdo
RDER.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é';
DataModule1.ADODataSet2.CommandText:=YSQL;
DataModule1.ADODataSet2.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet2.Parameters.Items[1].DataType:=ftString;
DataModule1.ADODataSet2.Open;
DataModule1.ADODataSet4.Close;
ZSQL:=ZSQL+' GROUP BY DIN.&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X,DORDER.&sup1;w&shy;p&yen;&aelig;&sup3;f¤é,DORDER.SIZE_1,DORDER.SIZE_3,DORDER.SIZE_5,DORDER.SIZE_7,DORDER.SIZE_9,DORDER.SIZE_11,DORDER.SIZE_13,DORDER.SIZE_15,DORDER.SIZE_17,DORDER.SIZE_19,DORDER.SIZE_21,DORDER.SIZE_23,DORDER.SIZE_25';
ZSQL:=ZSQL+',DORDER.SIZE_27,DORDER.SIZE_29,DORDER.SIZE_31,DORDER.SIZE_33,DORDER.SIZE_35,DORDER.SIZE_37,DORDER.SIZE_39,DORDER.SIZE_41,DORDER.SIZE_43,DORDER.SIZE_45,DORDER.SIZE_47';
DataModule1.ADODataSet4.CommandText:=ZSQL;
DataModule1.ADODataSet4.Parameters.Items[0].DataType:=ftString;
DataModule1.ADODataSet4.Open;
if DataModule1.ADODataSet4.RecordCount=0 then
begin
Main.StatusBar1.Panels[2].Text:='¨S&brvbar;&sup3;&cedil;ê&reg;&AElig;&iexcl;A&frac12;&ETH;&shy;&laquo;·s&iquest;&iuml;&frac34;&Uuml;!';
end
else
begin
Main.StatusBar1.Panels[2].Text:='';
QuickRep3.PreView;
end;
end;
end;
procedure TFrmInPrint.QuickRep1AfterPreview(Sender: TObject);
begin
QRLabel9.Caption:=DateToStr(Date);
end;
procedure TFrmInPrint.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
QRLabel9.Caption:=DateToStr(Date);
QRLabel4.Caption:=ComboBox4.Text;
end;
procedure TFrmInPrint.ComboBox2Click(Sender: TObject);
begin
if ComboBox2.Text=ComboBox2.Items.Strings[0] then
begin
Panel2.Visible:=False;
Panel3.Visible:=False;
end
else
if ComboBox2.Text=ComboBox2.Items.Strings[1] then
begin
Panel2.Visible:=True;
Panel3.Visible:=True;
end
else
begin
Panel2.Visible:=True;
Panel3.Visible:=True;
end;
end;
procedure TFrmInPrint.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
x:String;
begin
if DataModule1.ADODataSet3.RecordCount<>0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRL'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QuickRep2StartPage(Sender: TCustomQuickRep);
begin
QRLabel12.Caption:=DateToStr(Date);
QRLabel13.Caption:=ComboBox4.Text;
end;
procedure TFrmInPrint.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
y:Integer;
begin
if QuickRep1.enabled = True then
begin
y:=0;
for i:=1 to 24do
begin
y:=DataModule1.ADODataSet2.FieldByName('SIZE_'+IntToStr(i*2-1)+'_1').AsInteger+y;
end;
QRLabel19.Caption:=IntToStr
;end;
end;
procedure TFrmInPrint.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRL'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QRSubDetail2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:Integer;
y:Integer;
begin
if QuickRep2.enabled = True then
begin
y:=0;
for i:=1 to 24do
begin
y:=DataModule1.ADODataSet4.FieldByName('SIZE_'+IntToStr(i*2-1)+'_1').AsInteger+y;
end;
QRLabel17.Caption:=IntToStr
;QRLabel53.Enabled:=True;
QRExpr113.Enabled:=QRLabel53.Enabled;
end;
end;
procedure TFrmInPrint.QRBand5BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRLA'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.FormShow(Sender: TObject);
var
XSQL:String;
begin
ComboBox5.Clear;
ComboBox3.Clear;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT &shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X FROMdo
RDER ORDER BY &shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox5.Items.Add(DataModule1.ADODataSet1.FieldByName('&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X').AsString);
ComboBox3.Items.Add(DataModule1.ADODataSet1.FieldByName('&shy;q&sup3;&aelig;&cedil;&sup1;&frac12;X').AsString);
DataModule1.ADODataSet1.Next;
end;
DateTimePicker5.Date:=Date;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT &frac34;c&laquo;&not;&frac12;s&cedil;&sup1;
FROM DSIZE ORDER BY &frac34;c&laquo;&not;&frac12;s&cedil;&sup1;';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox6.Items.Add(DataModule1.ADODataSet1.FieldByName('&frac34;c&laquo;&not;&frac12;s&cedil;&sup1;').AsString);
DataModule1.ADODataSet1.Next;
end;
DataModule1.ADODataSet1.Close;
XSQL:='SELECT * FROM SECOLOR ORDER BY &Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;';
DataModule1.ADODataSet1.CommandText:=XSQL;
DataModule1.ADODataSet1.Open;
while not DataModule1.ADODataSet1.Eofdo
begin
ComboBox7.Items.Add(DataModule1.ADODataSet1.FieldByName('&Atilde;C&brvbar;&acirc;&yen;N&cedil;&sup1;').AsString+'.'+DataModule1.ADODataSet1.FieldByName('&Atilde;C&brvbar;&acirc;¤&ordm;&reg;e').AsString);
DataModule1.ADODataSet1.Next;
end;
DateTimePicker5.Date:=Date;
end;
procedure TFrmInPrint.ComboBox3Click(Sender: TObject);
begin
if ComboBox3.Text<ComboBox5.Text then
begin
Main.StatusBar1.Panels[2].Text:='&sup1;&iuml;¤&pound;°_&iexcl;A¤W&shy;±&ordf;&ordm;&iquest;&iuml;&frac34;&Uuml;&reg;&Oslash;&ordf;&ordm;&cedil;ê&reg;&AElig;°&brvbar;&macr;à¤&ntilde;¤U&shy;±&ordf;&ordm;&iquest;&iuml;&frac34;&Uuml;&reg;&Oslash;&ordf;&ordm;&cedil;ê&reg;&AElig;¤p!';
ComboBox3.Text:='';
ComboBox3.SetFocus;
end
else
Main.StatusBar1.Panels[2].Text:='';
end;
procedure TFrmInPrint.QuickRep3StartPage(Sender: TCustomQuickRep);
begin
QRLabel26.Caption:=ComboBox4.Text;
QRLabel25.Caption:=DateToStr(DateTimePicker5.Date);
end;
procedure TFrmInPrint.QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
x:String;
i:Integer;
begin
if DataModule1.ADODataSet3.RecordCount <> 0 then
begin
x:=DataModule1.ADODataSet3.FieldByName('°_&copy;l¤&Oslash;¤o').AsString;
for i:=1 to 23do
begin
with FrmInPrint.FindComponent('QRLB'+IntToStr(i)) As TQRLabeldo
begin
Caption:=FloatToStr(StrToFloat(x)+(i / 2));
end;
end;
end;
end;
procedure TFrmInPrint.QRSubDetail3AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
QRLabel53.Enabled:=False;
end;
end.
