diff --git a/贸易管理/U_CKProductBCPInList.dfm b/贸易管理/U_CKProductBCPInList.dfm index 67eadea..64c140e 100644 --- a/贸易管理/U_CKProductBCPInList.dfm +++ b/贸易管理/U_CKProductBCPInList.dfm @@ -146,7 +146,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList #26816#39564#30721#21333'-10' 'PD'#33457#22411#31859#25968'+'#30721#25968 'PD'#31859#25968'+'#30721#25968 - #26816#39564#30721#21333'('#28151#33394#25171#21253')') + #26816#39564#30721#21333'('#28151#33394#25171#21253')' + #20108#32500#30721#30721#21333) end object TBClose: TToolButton Left = 801 diff --git a/贸易管理/U_CKProductBCPInList.pas b/贸易管理/U_CKProductBCPInList.pas index 495078b..a66c07a 100644 --- a/贸易管理/U_CKProductBCPInList.pas +++ b/贸易管理/U_CKProductBCPInList.pas @@ -1089,7 +1089,7 @@ begin end; if trim(ComboBox1.Text) = 'PD+' then begin - with ADOQueryTemp do + with ADOQueryTemp do begin Close; sql.Clear; @@ -1113,7 +1113,19 @@ begin SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; - + if trim(ComboBox1.Text) = 'ά뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDHAEIL '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; with ADOQueryTemp do begin Close; diff --git a/贸易管理/U_CKProductBCPOutList.dfm b/贸易管理/U_CKProductBCPOutList.dfm index c15249f..b546302 100644 --- a/贸易管理/U_CKProductBCPOutList.dfm +++ b/贸易管理/U_CKProductBCPOutList.dfm @@ -138,7 +138,8 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList #26816#39564#30721#21333'-10' 'PD'#33457#22411#31859#25968'+'#30721#25968 'PD'#31859#25968'+'#30721#25968 - #26816#39564#30721#21333'('#28151#33394#25171#21253')') + #26816#39564#30721#21333'('#28151#33394#25171#21253')' + #20108#32500#30721#30721#21333) end object ToolButton2: TToolButton Left = 673 diff --git a/贸易管理/U_CKProductBCPOutList.pas b/贸易管理/U_CKProductBCPOutList.pas index fbc3809..9c20775 100644 --- a/贸易管理/U_CKProductBCPOutList.pas +++ b/贸易管理/U_CKProductBCPOutList.pas @@ -855,7 +855,7 @@ begin sql.add(',@CNum=''8'' '); Open; end; - SCreateCDS20(ADOQueryTemp, CDS_HZ); + SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; if trim(ComboBox1.Text) = '뵥(ɫ)' then @@ -1088,7 +1088,20 @@ begin sql.add('@DName=' + quotedstr(Trim(DCode))); Open; end; - SCreateCDS20(ADOQueryTemp, CDS_HZ); + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ά뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDHAEIL '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; with ADOQueryTemp do diff --git a/贸易管理/U_JYOrderCDOne.dfm b/贸易管理/U_JYOrderCDOne.dfm index f6721ea..253c00e 100644 --- a/贸易管理/U_JYOrderCDOne.dfm +++ b/贸易管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 81 - Top = 200 + Left = 365 + Top = 219 Width = 1382 Height = 770 Caption = #26816#39564#25253#21578 @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1366 - Height = 62 + Height = 92 AutoSize = True ButtonHeight = 30 ButtonWidth = 131 @@ -96,12 +96,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne AutoSize = True Caption = #26816#21518#22238#20462 ImageIndex = 54 + Wrap = True Visible = False OnClick = TBAftChkHXClick end object ToolButton12: TToolButton - Left = 465 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#25968#37327#21333#20301 ImageIndex = 57 @@ -109,8 +110,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton12Click end object ToolButton3: TToolButton - Left = 600 - Top = 0 + Left = 135 + Top = 30 AutoSize = True Caption = #25442#31639#31995#25968 ImageIndex = 57 @@ -118,25 +119,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton1: TToolButton - Left = 687 - Top = 0 + Left = 222 + Top = 30 AutoSize = True Caption = #25171#21360#21367#26631#31614 ImageIndex = 96 OnClick = ToolButton1Click end object ToolButton9: TToolButton - Left = 786 - Top = 0 + Left = 321 + Top = 30 AutoSize = True Caption = #25195#25551#25171#21360#21367#26631#31614 ImageIndex = 96 - Wrap = True Visible = False OnClick = ToolButton9Click end object ToolButton4: TToolButton - Left = 0 + Left = 444 Top = 30 AutoSize = True Caption = #24067#21305#25171#21253 @@ -145,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton4Click end object ToolButton6: TToolButton - Left = 87 + Left = 531 Top = 30 AutoSize = True Caption = #25764#38144#25171#21253 @@ -154,17 +154,18 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton6Click end object ToolButton5: TToolButton - Left = 174 + Left = 618 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 ImageIndex = 96 + Wrap = True Visible = False OnClick = ToolButton5Click end object ToolButton7: TToolButton - Left = 273 - Top = 30 + Left = 0 + Top = 60 AutoSize = True Caption = #24067#21305#25442#32568 ImageIndex = 57 @@ -172,8 +173,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 360 - Top = 30 + Left = 87 + Top = 60 AutoSize = True Caption = #26816#39564#25253#21578 ImageIndex = 12 @@ -181,8 +182,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton8Click end object ToolButton10: TToolButton - Left = 447 - Top = 30 + Left = 174 + Top = 60 AutoSize = True Caption = #26816#39564#27719#24635#25253#21578 ImageIndex = 12 @@ -190,8 +191,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton10Click end object ToolButton2: TToolButton - Left = 558 - Top = 30 + Left = 285 + Top = 60 AutoSize = True Caption = #26816#39564#25253#21578 ImageIndex = 12 @@ -199,8 +200,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton2Click end object ToolButton11: TToolButton - Left = 645 - Top = 30 + Left = 372 + Top = 60 AutoSize = True Caption = #25171#21253#30721#21333 ImageIndex = 12 @@ -208,17 +209,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton11Click end object TBClose: TToolButton - Left = 732 - Top = 30 + Left = 459 + Top = 60 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end + object ToolButton13: TToolButton + Left = 522 + Top = 60 + AutoSize = True + Caption = #25171#21360#26816#39564#25253#21578 + ImageIndex = 12 + OnClick = ToolButton13Click + end end object Panel1: TPanel Left = 0 - Top = 62 + Top = 92 Width = 1366 Height = 87 Align = alTop @@ -875,7 +884,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 149 + Top = 179 Width = 1366 Height = 466 Align = alTop @@ -1241,6 +1250,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 70 end + object Tv1Column4: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -1602,6 +1617,115 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne GridView = TV4 end end + object Panel8: TPanel + Left = 439 + Top = 155 + Width = 231 + Height = 216 + TabOrder = 9 + Visible = False + object Label30: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel9: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image1: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image1Click + end + end + object Button11: TButton + Left = 83 + Top = 180 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button11Click + end + object RadioGroup2: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #26816#39564#25253#21578) + TabOrder = 1 + end + end + object cxImage1: TcxImage + Left = 259 + Top = 474 + AutoSize = True + TabOrder = 10 + Visible = False + Height = 113 + Width = 169 + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> @@ -1799,4 +1923,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 96 Top = 173 end + object ADOQuery2: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 147 + Top = 443 + end end diff --git a/贸易管理/U_JYOrderCDOne.pas b/贸易管理/U_JYOrderCDOne.pas index 1bda99d..3439555 100644 --- a/贸易管理/U_JYOrderCDOne.pas +++ b/贸易管理/U_JYOrderCDOne.pas @@ -4,15 +4,67 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, - cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, - cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, - RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, - cxContainer, cxCurrencyEdit, U_SMLB, BtnEdit, RM_e_main, RM_e_htm, - RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + StrUtils, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, + cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, + RM_e_Xls, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, U_SMLB, + BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, + RM_E_llPDF, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxImage; + +type + TZintSymbol = packed record + symbology: Integer; + height: Integer; + whitespace_width: Integer; + border_width: Integer; + output_options: Integer; + fgcolour: array[0..9] of AnsiChar; + bgcolour: array[0..9] of AnsiChar; + outfile: array[0..255] of AnsiChar; + scale: Single; + option_1: Integer; + option_2: Integer; + option_3: Integer; + show_hrt: Integer; + input_mode: Integer; + eci: Integer; + text: array[0..127] of AnsiChar; + rows: Integer; + width: Integer; + primary: array[0..127] of AnsiChar; + encoded_data: array[0..199, 0..142] of AnsiChar; + row_height: array[0..199] of Integer; // Largest symbol is 189 x 189 + errtxt: array[0..99] of AnsiChar; + bitmap: PAnsiChar; + bitmap_width: Integer; + bitmap_height: Integer; + bitmap_byte_length: Cardinal; + dot_size: Single; + rendered: Pointer; + debug: Integer; + end; + + PZintSymbol = ^TZintSymbol; + +const + // Tbarcode 7 codes + BARCODE_QRCODE = 71; type TfrmJYOrderCDOne = class(TForm) @@ -194,6 +246,16 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + ToolButton13: TToolButton; + Panel8: TPanel; + Label30: TLabel; + Panel9: TPanel; + Image1: TImage; + Button11: TButton; + RadioGroup2: TRadioGroup; + ADOQuery2: TADOQuery; + cxImage1: TcxImage; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -244,6 +306,9 @@ type procedure ToolButton12Click(Sender: TObject); procedure TV4DblClick(Sender: TObject); procedure BAONOChange(Sender: TObject); + procedure ToolButton13Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Image1Click(Sender: TObject); private DQdate: TDateTime; FLeft, FTop: Integer; @@ -253,12 +318,30 @@ type function Savedata(): Boolean; procedure GetCDSData(); procedure GetBGData(); + procedure tsewm6(); //ȡά { Private declarations } public FFInt: Integer; + FDETM6: string; { Public declarations } end; +const + LibName = 'zint.dll'; + + //struct zint_symbol *ZBarcode_Create(void); +function ZBarcode_Create(): PZintSymbol; cdecl; external LibName; + + //void ZBarcode_Delete(struct zint_symbol *symbol); +procedure ZBarcode_Delete(symbol: PZintSymbol); cdecl; external LibName; + + //int ZBarcode_Encode_and_Buffer(struct zint_symbol *symbol, unsigned char *input, int length, int rotate_angle); +function ZBarcode_Encode_and_Buffer(symbol: PZintSymbol; input: PAnsiChar; length, rotate_angle: Integer): Integer; cdecl; external LibName; + + // create bitmap ʹñͼBitmapļzint˲zint.hͷļУzint.hͷļС + +procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap); + var frmJYOrderCDOne: TfrmJYOrderCDOne; @@ -269,6 +352,86 @@ uses U_ZDYHelp, U_ProductOrderListSel; {$R *.dfm} +procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap); +var + SrcRGB: PRGBTriple; + Row, RowWidth: Integer; +begin + ABitmap.PixelFormat := pf24bit; + ABitmap.Height := symbol.bitmap_height; + ABitmap.Width := symbol.bitmap_width; + +// ABitmap.Height := 80; +// ABitmap.Width := 80; + + SrcRGB := Pointer(symbol.bitmap); + RowWidth := symbol.bitmap_width * 3; + + for Row := 0 to symbol.bitmap_height - 1 do + begin + CopyMemory(ABitmap.ScanLine[Row], SrcRGB, RowWidth); + Inc(SrcRGB, symbol.bitmap_width); + end; + + SetBitmapBits(ABitmap.Handle, symbol.bitmap_width * symbol.bitmap_height * 3, symbol.bitmap); +end; + +procedure TfrmJYOrderCDOne.tsewm6(); +var + lvData: UTF8String; // ʹUTF8ַ + lvBitMap: TBitmap; + lvSymbol: PZintSymbol; + lvErrorNumber: Integer; + lvErrorText: string; + bitmap: TBitmap; +begin + lvSymbol := ZBarcode_Create(); + if lvSymbol = nil then + Exit; + lvBitMap := TBitmap.Create; + try //'010872020901234590RS9999-100R1011234567893112005160' + lvData := UTF8String(FDETM6); + // ΪQRCODE + lvSymbol.symbology := BARCODE_QRCODE; +// lvSymbol.option_2 := 1; + //Data Matrix ISO 16022(and HIBC) + // + lvErrorNumber := ZBarcode_Encode_and_Buffer(lvSymbol, PAnsiChar(lvData), Length(lvData), 0); + // ɹ + if lvErrorNumber = 0 then + begin + // Bitmapͼ + ZBarcode_To_Bitmap(lvSymbol, lvBitMap); + // ʾImage + cxImage1.Picture.Bitmap.Width := 80; + cxImage1.Picture.Bitmap.Height := 80; + cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite; + cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height)); + cxImage1.Picture.Bitmap.Canvas.StretchDraw(Rect(10, 10, cxImage1.Width - 10, cxImage1.Height - 10), lvBitMap); + + end + else + begin + cxImage1.Picture.Bitmap.Width := cxImage1.Width; + cxImage1.Picture.Bitmap.Height := cxImage1.Height; + cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite; + cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height)); + lvErrorText := string(AnsiString(lvSymbol.errtxt)); + ShowMessage('ʱ' + lvErrorText); + end; + finally + lvBitMap.Free; + lvBitMap := nil; + ZBarcode_Delete(lvSymbol); + end; + bitmap := TBitmap.Create; + try + bitmap.Assign(cxImage1.Picture.Bitmap); + bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + 'image\temp6.bmp'); + finally + bitmap.Free; + end; +end; procedure TfrmJYOrderCDOne.FormDestroy(Sender: TObject); begin @@ -430,7 +593,7 @@ begin begin MJType.ItemIndex := MJType.Items.IndexOf('Ʒ'); MJType.Enabled := false; - + ToolButton12.Visible := false; end; end; @@ -620,7 +783,7 @@ end; procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); var fPrintFile: string; - Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3: string; + Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3, fImagePath5, fImagePath6, Txt7, fImagePath7: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; @@ -650,12 +813,12 @@ begin end; with ADOQueryPrint do begin - Close; + Close; SQL.Clear; sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.MPRTCode,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName '); sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); - sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTCode,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); sql.Add(' from WFB_MJJY A'); sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); @@ -728,7 +891,49 @@ begin application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); exit; end; - + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM5').AsString); + fImagePath5 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath5) then + DeleteFile(fImagePath5); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath5), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt7 := Trim(ADOQueryPrint.fieldbyname('DETM7').AsString); + fImagePath7 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath7) then + DeleteFile(fImagePath7); + Makebar(pchar(Txt7), Length(Txt7), 3, 3, 0, PChar(fImagePath7), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + try + fImagePath6 := ExtractFilePath(Application.ExeName) + 'image\temp6.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath6) then + DeleteFile(fImagePath6); + FDETM6 := Trim(ADOQueryPrint.fieldbyname('DETM6').AsString); +// FDETM6 := 'TECLECL01XXX' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + ' ' + '#' + Trim(ADOQueryPrint.fieldbyname('PRTHX').AsString) + '-' + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4) + '-' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr2').AsString); + tsewm6(); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; if Trim(ADOQueryPrint.fieldbyname('LbName').AsString) <> '' then fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LbName').AsString) + '.rmf' else @@ -740,9 +945,12 @@ begin RMVariables['QRBARCODE1'] := fImagePath1; RMVariables['QRBARCODE2'] := fImagePath2; RMVariables['QRBARCODE3'] := fImagePath3; + RMVariables['QRBARCODE5'] := fImagePath5; + RMVariables['QRBARCODE6'] := fImagePath6; + RMVariables['QRBARCODE7'] := fImagePath7; RM2.LoadFromFile(fPrintFile); Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); - RM2.ShowReport; + RM2.ShowReport; RM2.PrintReport; { IF Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then begin @@ -983,8 +1191,8 @@ begin RMVariables['CustomerNoName'] := Trim(Order_Main.fieldbyname('CustomerNoName').AsString); RMVariables['MPRTCodeName'] := Trim(Order_Main.fieldbyname('MPRTCodeName').AsString); RMVariables['MPRTMF'] := Trim(Order_Main.fieldbyname('MPRTMF').AsString); - RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString); - RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString); +// RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString); +// RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString); RMCD.ShowReport; end else @@ -1022,6 +1230,7 @@ begin SInitCDSData20(ADOQueryTemp, CDS_CD); if CDS_CD.IsEmpty = False then CDS_CD.Delete; + with ADOQueryTemp do begin Close; @@ -1924,5 +2133,74 @@ begin end; end; +procedure TfrmJYOrderCDOne.ToolButton13Click(Sender: TObject); +var + fPrintFile, fZMFile: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + Panel8.Visible := true; +end; + +procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject); +var + fPrintFile, fZMFile, LBName: string; +begin + if Order_Main.IsEmpty then + Exit; +// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf'; + LBName := RadioGroup2.Items.Strings[RadioGroup2.ItemIndex]; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'; + ExportFtErpFile(Trim(LBName) + '.rmf', ADOQueryCmd); + + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.add('exec P_Do_Print_JYBB '); + sql.add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainid').AsString))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQuery2, CDS_HZ); + SInitCDSData20(ADOQuery2, CDS_HZ); + if FileExists(fPrintFile) then + begin + if RMCD.CanExport = true then + begin + fZMFile := 'C:\Users\Administrator\Desktop'; + if not DirectoryExists(fZMFile) then + begin + fZMFile := 'C:\Documents and Settings\Administrator\\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.xls'; + end + else + begin + fZMFile := 'C:\Users\Administrator\Desktop\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.XLS'; + end; + RMCD.ExportTo(RMXLSExport1, fZMFile); + end; + RMCD.CanExport := true; + RMCD.LoadFromFile(fPrintFile); + RMCD.ShowReport; + RMCD.CanExport := False; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), 'ʾ', 0); //+ 'Report\鱨.rmf' + + end; +end; + +procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject); +begin + Panel8.Visible := false; +end; + end. diff --git a/贸易管理/U_MJManageNewFDNew.dfm b/贸易管理/U_MJManageNewFDNew.dfm index 2b3c030..a07d64f 100644 --- a/贸易管理/U_MJManageNewFDNew.dfm +++ b/贸易管理/U_MJManageNewFDNew.dfm @@ -1952,6 +1952,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit1Click OnKeyPress = MJstr3KeyPress end + object cxImage1: TcxImage + Left = 27 + Top = 625 + AutoSize = True + TabOrder = 27 + Visible = False + Height = 113 + Width = 169 + end end object Panel3: TPanel Left = 4 diff --git a/贸易管理/U_MJManageNewFDNew.pas b/贸易管理/U_MJManageNewFDNew.pas index fa03f49..ef45436 100644 --- a/贸易管理/U_MJManageNewFDNew.pas +++ b/贸易管理/U_MJManageNewFDNew.pas @@ -8,11 +8,24 @@ uses cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, - RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, - cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, - cxSplitter, cxCheckBox, MovePanel, cxContainer, cxImage, cxDBEdit,StrUtils, - IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, + MovePanel, cxContainer, cxImage, cxDBEdit, StrUtils, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; IntTime:integer):integer;stdcall;external 'JCYData.DLL'; function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; @@ -31,6 +44,44 @@ function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; function GetCommData1301(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } +type + TZintSymbol = packed record + symbology: Integer; + height: Integer; + whitespace_width: Integer; + border_width: Integer; + output_options: Integer; + fgcolour: array[0..9] of AnsiChar; + bgcolour: array[0..9] of AnsiChar; + outfile: array[0..255] of AnsiChar; + scale: Single; + option_1: Integer; + option_2: Integer; + option_3: Integer; + show_hrt: Integer; + input_mode: Integer; + eci: Integer; + text: array[0..127] of AnsiChar; + rows: Integer; + width: Integer; + primary: array[0..127] of AnsiChar; + encoded_data: array[0..199, 0..142] of AnsiChar; + row_height: array[0..199] of Integer; // Largest symbol is 189 x 189 + errtxt: array[0..99] of AnsiChar; + bitmap: PAnsiChar; + bitmap_width: Integer; + bitmap_height: Integer; + bitmap_byte_length: Cardinal; + dot_size: Single; + rendered: Pointer; + debug: Integer; + end; + + PZintSymbol = ^TZintSymbol; + +const + // Tbarcode 7 codes + BARCODE_QRCODE = 71; type TfrmMJManageNewFDNewSF = class(TForm) @@ -265,28 +316,21 @@ type Kaip1: TEdit; Kaip2: TEdit; Kaip3: TEdit; + cxImage1: TcxImage; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); - procedure Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TBCDClick(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure MJMaoZClick(Sender: TObject); procedure MJLenClick(Sender: TObject); procedure MJFKClick(Sender: TObject); procedure MJBanZuClick(Sender: TObject); procedure MJSJKZClick(Sender: TObject); - procedure Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure Tv3CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure FormClick(Sender: TObject); procedure Button12Click(Sender: TObject); procedure BTAddClick(Sender: TObject); @@ -332,50 +376,94 @@ type procedure Kaip1Click(Sender: TObject); private { Private declarations } - FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; - FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID:String; - MValue,FCDName:String; - isCommopen,IsJsMessage:boolean; - fxsType:string; + + FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; + FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string; + MValue, FCDName: string; + isCommopen, IsJsMessage: boolean; + fxsType: string; procedure InitJP(); procedure InitCDGrid(); procedure InitCDGridID(); - procedure AddCD(Fbtn:TButton); - procedure AddSL(Fbtn:TButton); - function SaveData():Boolean; - procedure AddSLNew(Fbtn:TSpeedButton); - procedure AddCDNew(Fbtn:TSpeedButton); + procedure AddCD(Fbtn: TButton); + procedure AddSL(Fbtn: TButton); + function SaveData(): Boolean; + procedure AddSLNew(Fbtn: TSpeedButton); + procedure AddCDNew(Fbtn: TSpeedButton); procedure SavedataCK(); - procedure PrtData(FMJID:String); - procedure OpenCom(DllName:string); - procedure CloseCom(DllName:string); - procedure On1201(Var Message:Tmessage);Message 1201; + procedure tsewm6(); //ȡά + procedure PrtData(FMJID: string); + procedure OpenCom(DllName: string); + procedure CloseCom(DllName: string); + procedure On1201(var Message: Tmessage); message 1201; procedure InitImage(); - procedure LookImage(FileName:string); + procedure LookImage(FileName: string); // procedure On1301(Var Message:Tmessage);Message 1301; public - fmanage:string; - fFlileFlag:string; + fmanage: string; + fFlileFlag: string; + FDETM6: string; { Public declarations } end; +const + LibName = 'zint.dll'; + + //struct zint_symbol *ZBarcode_Create(void); +function ZBarcode_Create(): PZintSymbol; cdecl; external LibName; + + //void ZBarcode_Delete(struct zint_symbol *symbol); +procedure ZBarcode_Delete(symbol: PZintSymbol); cdecl; external LibName; + + //int ZBarcode_Encode_and_Buffer(struct zint_symbol *symbol, unsigned char *input, int length, int rotate_angle); +function ZBarcode_Encode_and_Buffer(symbol: PZintSymbol; input: PAnsiChar; length, rotate_angle: Integer): Integer; cdecl; external LibName; + + // create bitmap ʹñͼBitmapļzint˲zint.hͷļУzint.hͷļС + +procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap); + var frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF; - newh,newh1:hwnd; + newh, newh1: hwnd; implementation + uses - U_DataLink,U_Fun,U_ZDYHelp,U_iniParam, U_ClothHCList; + U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList; {$R *.dfm} -procedure TfrmMJManageNewFDNewSF.CloseCom(DllName:string); +procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap); +var + SrcRGB: PRGBTriple; + Row, RowWidth: Integer; +begin + ABitmap.PixelFormat := pf24bit; + ABitmap.Height := symbol.bitmap_height; + ABitmap.Width := symbol.bitmap_width; + +// ABitmap.Height := 80; +// ABitmap.Width := 80; + + SrcRGB := Pointer(symbol.bitmap); + RowWidth := symbol.bitmap_width * 3; + + for Row := 0 to symbol.bitmap_height - 1 do + begin + CopyMemory(ABitmap.ScanLine[Row], SrcRGB, RowWidth); + Inc(SrcRGB, symbol.bitmap_width); + end; + + SetBitmapBits(ABitmap.Handle, symbol.bitmap_width * symbol.bitmap_height * 3, symbol.bitmap); +end; + +procedure TfrmMJManageNewFDNewSF.CloseCom(DllName: string); type - TMyFunc = function(sCommName:PAnsiChar): HWND; stdcall; + TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall; var Tf1: TMyFunc; Tp1: TFarProc; - Th1:Thandle; + Th1: Thandle; begin Th1 := LoadLibrary(Pchar(trim(DllName))); if Th1 > 0 then @@ -385,7 +473,7 @@ begin if Tp1 <> nil then begin Tf1 := TMyFunc(Tp1); - newh1:=Tf1('Comm1'); + newh1 := Tf1('Comm1'); end else begin @@ -397,18 +485,17 @@ begin end else begin - application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + application.MessageBox(Pchar('Ҳ ' + trim(DllName) + ' ļ'), 'ʾ'); end; end; -procedure TfrmMJManageNewFDNewSF.OpenCom(DllName:string); +procedure TfrmMJManageNewFDNewSF.OpenCom(DllName: string); type - TMyFunc = function(fhandle:hwnd;sCommName:PAnsiChar; - IntTime:integer;IsMessage:integer): HWND; stdcall; + TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall; var - Tf:TMyFunc; - Tp:TFarProc; - Th:Thandle; + Tf: TMyFunc; + Tp: TFarProc; + Th: Thandle; begin // closeCom(FComFile); Th := LoadLibrary(Pchar(trim(DllName))); @@ -419,17 +506,17 @@ begin if Tp <> nil then begin Tf := TMyFunc(Tp); - newh:=Tf(self.Handle,'Comm1',500,1); - if newh<1 then + newh := Tf(self.Handle, 'Comm1', 500, 1); + if newh < 1 then begin - application.MessageBox(Pchar('򿪴ʧܣ'),'ʾ'); + application.MessageBox(Pchar('򿪴ʧܣ'), 'ʾ'); end else - IsCommOpen:=true; + IsCommOpen := true; end else begin - IsCommOpen:=false; + IsCommOpen := false; end; finally // FreeLibrary(Th); @@ -437,31 +524,32 @@ begin end else begin - IsCommOpen:=false; - application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + IsCommOpen := false; + application.MessageBox(Pchar('Ҳ ' + trim(DllName) + ' ļ'), 'ʾ'); end; end; procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject); begin - frmMJManageNewFDNewSF:=nil; + frmMJManageNewFDNewSF := nil; end; -procedure TfrmMJManageNewFDNewSF.On1201(Var Message:Tmessage); + +procedure TfrmMJManageNewFDNewSF.On1201(var Message: Tmessage); var - i1,i2:integer; - unitname:string; - fdata:double; + i1, i2: integer; + unitname: string; + fdata: double; begin - i1:=message.WParam; - i2:=message.LParam; + i1 := Message.WParam; + i2 := Message.LParam; // MJMaoZ.Text:=format('%.2f',[i1 /100000]); - IF IsJsMessage then + if IsJsMessage then begin - IF trim(Edit7.Text)='' then + if trim(Edit7.Text) = '' then begin - MJMaoZ.Text:=format('%.1f',[i1 /100000]); + MJMaoZ.Text := format('%.1f', [i1 / 100000]); // MJLen.Text:= format('%.2f',[i1 /100000]); // IF i2=0 then Label9.Caption:='M' else Label9.Caption:='Y'; end; @@ -473,33 +561,34 @@ begin MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); } end; -procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; var Action: TCloseAction); begin //DataLink_WFBProducttion.ADOLink.Connected:=False; - if isCommopen then + if isCommopen then begin closeCom(JCYDLL); end; - Action:=caFree; + Action := caFree; end; + procedure TfrmMJManageNewFDNewSF.InitCDGrid(); begin with ADOQueryMain do begin Close; SQL.Clear; - if PState=1 then + if PState = 1 then sql.Add('select * from WFB_MJJY_CD where MJID='''' ') else - sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add('select * from WFB_MJJY_CD where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryMain,CDS_MJCD); - SInitCDSData20(ADOQueryMain,CDS_MJCD); + SCreateCDS20(ADOQueryMain, CDS_MJCD); + SInitCDSData20(ADOQueryMain, CDS_MJCD); end; + procedure TfrmMJManageNewFDNewSF.InitCDGridID(); begin with ADOQueryMain do @@ -507,24 +596,24 @@ begin Close; SQL.Clear; sql.Add('select A.*'); - sql.Add('from WFB_MJJY A where APID='''+Trim(FAPID)+''''); - if Trim(SCXFlag)<>'' then - sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + sql.Add('from WFB_MJJY A where APID=''' + Trim(FAPID) + ''''); + if Trim(SCXFlag) <> '' then + sql.Add(' and JTType=''' + Trim(SCXFlag) + ''''); - sql.Add(' and Filler='''+Trim(DName)+''''); + sql.Add(' and Filler=''' + Trim(DName) + ''''); Open; end; - SCreateCDS20(ADOQueryMain,CDS_MJID); - SInitCDSData20(ADOQueryMain,CDS_MJID); + SCreateCDS20(ADOQueryMain, CDS_MJID); + SInitCDSData20(ADOQueryMain, CDS_MJID); end; procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject); var - maxno:string; + maxno: string; begin - if CDS_MJCD.IsEmpty=False then + if CDS_MJCD.IsEmpty = False then begin - if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + if Trim(CDS_MJCD.FieldByName('MCID').AsString) = '' then begin //try //ADOCmd.Connection.BeginTrans; @@ -564,31 +653,29 @@ begin Next; end; end; } - close; + close; //ADOCmd.Connection.CommitTrans; //ModalResult:=1; //except //ADOCmd.Connection.RollbackTrans; //Application.MessageBox('ʱʧܣ','ʾ',0); //end; - end else + end + else begin Close; end; - end else + end + else begin Close; end; - - end; -procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var - fsj:string; + fsj: string; begin //FInt:=0; //Tv1.DataController.FocusedRecordIndex; @@ -598,14 +685,14 @@ end; procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='WFBCD'; - flagname:='õ'; - fnote:=True; - V1Note.Caption:='Ӣ'; - if ShowModal=1 then + flag := 'WFBCD'; + flagname := 'õ'; + fnote := True; + V1Note.Caption := 'Ӣ'; + if ShowModal = 1 then begin Self.InitJP(); end; @@ -622,9 +709,9 @@ begin begin Close; sql.Clear; - sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + ''''); Open; - FBanZu:=Trim(Fieldbyname('BanZu').AsString); + FBanZu := Trim(Fieldbyname('BanZu').AsString); end; {if Trim(FBanZu)='' then begin @@ -640,21 +727,22 @@ begin begin FCk:=9; end; } - IF trim(Edit7.Text)=''then - IsJsMessage:=true; + if trim(Edit7.Text) = '' then + IsJsMessage := true; - IF trim(fmanage)<>'Ȩ' then + if trim(fmanage) <> 'Ȩ' then begin - IF trim(DllName)<>'' then - OpenCom(DllName); - Edit7.Visible:=true; - Label35.Visible:=true; + if trim(DllName) <> '' then + OpenCom(DllName); + Edit7.Visible := true; + Label35.Visible := true; end; end; + procedure TfrmMJManageNewFDNewSF.InitJP(); var - AA:array[0..100] of string; - i,j:Integer; + AA: array[0..100] of string; + i, j: Integer; begin with ADOTmp do begin @@ -671,96 +759,110 @@ begin with ADOTmp do begin First; - i:=0; + i := 0; while not Eof do begin - AA[i]:=Trim(fieldbyname('ZDYName').AsString); - i:=i+1; + AA[i] := Trim(fieldbyname('ZDYName').AsString); + i := i + 1; Next; end; end; - i:=i-1; - if i>69 then + i := i - 1; + if i > 69 then begin - i:=69; + i := 69; end; - for j:=0 to i do + for j := 0 to i do begin with ScrollBox1 do begin - TSpeedButton(Controls[j]).Visible:=True; - TSpeedButton(Controls[j]).Hint:=AA[j]; - if Length(AA[j])>4 then + TSpeedButton(Controls[j]).Visible := True; + TSpeedButton(Controls[j]).Hint := AA[j]; + if Length(AA[j]) > 4 then begin - TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); - end else - TSpeedButton(Controls[j]).Caption:=AA[j]; + TSpeedButton(Controls[j]).Caption := Copy(Trim(AA[j]), 1, 4) + #13 + Copy(Trim(AA[j]), 5, Length(AA[j]) - 4); + end + else + TSpeedButton(Controls[j]).Caption := AA[j]; end; end; end; -procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn:TButton); +procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn: TButton); begin - if PState<1 then Exit; - if Order_MJ.IsEmpty then Exit; + if PState < 1 then + Exit; + if Order_MJ.IsEmpty then + Exit; with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption); Post; end; end; -procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn:TSpeedButton); + +procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn: TSpeedButton); begin with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint); Post; end; end; -procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn:TButton); + +procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn: TButton); begin - if PState<1 then Exit; - if Order_MJ.IsEmpty then Exit; + if PState < 1 then + Exit; + if Order_MJ.IsEmpty then + Exit; //if MJMaoZ.Focused then - if FInt=4 then Exit; - if CDS_MJCD.IsEmpty=False then + if FInt = 4 then + Exit; + if CDS_MJCD.IsEmpty = False then begin - FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; - if Trim(FColumn)<>'' then + FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn) <> '' then begin with CDS_MJCD do begin Edit; - FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); - if Trim(fieldbyname('CDQtyS').AsString)<>'' then - Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + FieldByName(FColumn).Value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString) <> '' then + Fieldbyname('CDQty').Value := Trim(fieldbyname('CDQtyS').AsString); Post; end; end; end; end; -procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn:TSpeedButton); + +procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn: TSpeedButton); begin - if PState<1 then Exit; - if Trim(FAPID)='' then Exit; + if PState < 1 then + Exit; + if Trim(FAPID) = '' then + Exit; //if MJMaoZ.Focused then - if FInt=4 then Exit; - if FInt=11 then + if FInt = 4 then + Exit; + if FInt = 11 then begin - if TSpeedButton(Fbtn).Tag=9 then Exit; - Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + if TSpeedButton(Fbtn).Tag = 9 then + Exit; + Edit1.Text := Trim(Edit1.Text) + Trim(TSpeedButton(Fbtn).Caption); Edit1.SelectAll; - end else - if FInt=12 then + end + else if FInt = 12 then begin - if TSpeedButton(Fbtn).Tag=9 then Exit; - Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + if TSpeedButton(Fbtn).Tag = 9 then + Exit; + Edit2.Text := Trim(Edit2.Text) + Trim(TSpeedButton(Fbtn).Caption); Edit2.SelectAll; - end;{ else + end; { else if CDS_MJCD.IsEmpty=False then begin FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; @@ -778,16 +880,16 @@ begin end; } end; -procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //if Tv2.OptionsSelection.CellSelect=True then - if CDS_MJCD.IsEmpty then Exit; + if CDS_MJCD.IsEmpty then + Exit; - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; CDS_MJCD.Delete; end; @@ -795,154 +897,149 @@ end; procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); begin - FInt:=1; - FColumn:=''; - panel3.Visible:=True; + FInt := 1; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject); begin - FInt:=2; - FColumn:=''; - panel3.Visible:=True; + FInt := 2; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject); begin - FInt:=3; - FColumn:=''; - panel3.Visible:=True; + FInt := 3; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; -procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - FInt:=4; + FInt := 4; InitCDGridID(); end; -procedure TfrmMJManageNewFDNewSF.Tv3CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv3CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - if CDS_MJCD.IsEmpty=False then + if CDS_MJCD.IsEmpty = False then begin - if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MJID').AsString) = '' then begin - Application.MessageBox('δ,!','ʾ',0); + Application.MessageBox('δ,!', 'ʾ', 0); Exit; end; end; - FInt:=4; + FInt := 4; // PState:=0; - PState:=2; + PState := 2; InitCDGrid(); with ADOTmp do begin close; sql.Clear; - sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add('select * from WFB_MJJY where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''''); Open; end; - MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); - MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); - MJstr4.Text:=Trim(ADOTmp.fieldbyname('MJstr4').AsString); - MJXH.Text:=Trim(ADOTmp.fieldbyname('MJXH').AsString); - MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); - MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); - MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); - Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); - MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); - if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); + MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'Ʒ' then begin - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - end else - if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + end + else if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'Ʒ' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; - end else - if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; + end + else if Trim(ADOTmp.fieldbyname('MJType').AsString) = '' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; end; - Label16.Caption:=''; + Label16.Caption := ''; end; - procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject); var - fsj:string; + fsj: string; begin - if PState<1 then Exit; - if Trim(FAPID)='' then Exit; - if FInt=4 then Exit; + if PState < 1 then + Exit; + if Trim(FAPID) = '' then + Exit; + if FInt = 4 then + Exit; begin - FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; - if Trim(FColumn)<>'' then + FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn) <> '' then begin - if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + if Trim(CDS_MJCD.FieldByName(FColumn).AsString) <> '' then begin with CDS_MJCD do begin Edit; - if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then begin - FieldByName(FColumn).Value:=null ; - FieldByName('CDQty').Value:=0; + FieldByName(FColumn).Value := null; + FieldByName('CDQty').Value := 0; end else begin - FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); - FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1); + FieldByName('CDQty').Value := FieldByName(FColumn).Value; end; Post; end; end; - end; end; end; -function TfrmMJManageNewFDNewSF.SaveData():Boolean; +function TfrmMJManageNewFDNewSF.SaveData(): Boolean; var - maxno,FMJID,BZID,strsql:String; - FMJLen:Double; - FOrder:Integer; - + maxno, FMJID, BZID, strsql: string; + FMJLen: Double; + FOrder: Integer; begin - if PState=1 then - FMJID:='' - else - if PState=2 then - FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) - else - if PState<1 then Exit; + if PState = 1 then + FMJID := '' + else if PState = 2 then + FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState < 1 then + Exit; try ADOCmd.Connection.BeginTrans; @@ -952,90 +1049,91 @@ begin begin Close; sql.Clear; - SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + ''''); Open; end; with ADOCmd do begin - if Trim(FMJID)='' then + if Trim(FMJID) = '' then begin Append; - if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY', 4, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣','ʾ',0); + Application.MessageBox('ˮ쳣', 'ʾ', 0); exit; end; end else begin - maxno:=Trim(FMJID); + maxno := Trim(FMJID); Edit; end; - FieldByName('MainId').value:=Trim(FMainId); - FieldByName('SubId').value:=Trim(FSubId); - FieldByName('APId').value:=Trim(FAPID); - FieldByName('MJID').Value:=Trim(maxno); - FieldByName('MJStr2').Value:='δ'; - FieldByName('MJBanZu').Value:=Trim(FBanZu); - FieldByName('MJstr3').Value:=Trim(MJstr3.Text); - FieldByName('MJstr4').Value:=Trim(MJstr4.Text); - FieldByName('mjxh').Value:=strtointdef(trim(mjxh.Text),0); + FieldByName('MainId').value := Trim(FMainId); + FieldByName('SubId').value := Trim(FSubId); + FieldByName('APId').value := Trim(FAPID); + FieldByName('MJID').Value := Trim(maxno); + FieldByName('MJStr2').Value := 'δ'; + FieldByName('MJBanZu').Value := Trim(FBanZu); + FieldByName('MJstr3').Value := Trim(MJstr3.Text); + FieldByName('MJstr4').Value := Trim(MJstr4.Text); + FieldByName('mjxh').Value := strtointdef(trim(mjxh.Text), 0); FieldByName('Kaip1').Value := StrToFloatdef(trim(Kaip1.Text), 0); FieldByName('Kaip2').Value := StrToFloatdef(trim(Kaip2.Text), 0); FieldByName('Kaip3').Value := StrToFloatdef(trim(Kaip3.Text), 0); - FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); - FieldByName('MJStr1').Value:=Trim(Label13.Caption); - FieldByName('MJLen').Value:=StrToFloatdef(trim(MJLen.Text),0); - FieldByName('MJQty1').Value:=StrToFloatdef(trim(MJQty1.Text),0); - FieldByName('MJQty2').Value:=StrToFloatdef(trim(MJQty2.Text),0); - FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); - FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); - FieldByName('MKXS').Value:=StrToFloatdef(trim(MKXS.Text),0); + FieldByName('MJTypeOther').Value := Trim(Label9.Caption); + FieldByName('MJStr1').Value := Trim(Label13.Caption); + FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0); + FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); + FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); + FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); + FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0); + FieldByName('MKXS').Value := StrToFloatdef(trim(MKXS.Text), 0); - FieldByName('MJFK').Value:=StrToFloatdef(trim(MJFK.Text),0); - FieldByName('MJSJKZ').Value:=StrToFloatdef(trim(MJSJKZ.Text),0); - FieldByName('MJMaoZ').Value:=StrToFloatdef(trim(MJMaoZ.Text),0); - FieldByName('baoNO').Value:=Trim(Edit11.Text); - FieldByName('baoID').Value:=''; - if Trim(Edit3.Text)<>'' then + FieldByName('MJFK').Value := StrToFloatdef(trim(MJFK.Text), 0); + FieldByName('MJSJKZ').Value := StrToFloatdef(trim(MJSJKZ.Text), 0); + FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0); + FieldByName('baoNO').Value := Trim(Edit11.Text); + FieldByName('baoID').Value := ''; + if Trim(Edit3.Text) <> '' then begin - FieldByName('MJType').Value:='Ʒ'; + FieldByName('MJType').Value := 'Ʒ'; end; - if Trim(Edit4.Text)<>'' then + if Trim(Edit4.Text) <> '' then begin - FieldByName('MJType').Value:='Ʒ'; + FieldByName('MJType').Value := 'Ʒ'; end; - if Trim(Edit5.Text)<>'' then + if Trim(Edit5.Text) <> '' then begin - FieldByName('MJType').Value:='ƴ'; + FieldByName('MJType').Value := 'ƴ'; end; - FieldByName('MJStr1').Value:=Trim(Label13.Caption); - if Trim(FMJID)='' then + FieldByName('MJStr1').Value := Trim(Label13.Caption); + if Trim(FMJID) = '' then begin - FieldByName('Filler').Value:=Trim(DName); - end else + FieldByName('Filler').Value := Trim(DName); + end + else begin - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp); end; - if Trim(SCXFlag)<>'' then + if Trim(SCXFlag) <> '' then begin - FieldByName('JTType').Value:=Trim(SCXFlag); + FieldByName('JTType').Value := Trim(SCXFlag); end; - FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJTypeOther').Value := Trim(Label9.Caption); Post; end; - if PState=1 then + if PState = 1 then begin with ADOCmd do begin Close; sql.Clear; sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=WFB_MJJY.APID and X.MJID<>WFB_MJJY.MJID),(select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=WFB_MJJY.APID))'); - sql.Add(' where MJID='''+Trim(maxno)+''''); + sql.Add(' where MJID=''' + Trim(maxno) + ''''); execsql; end; with ADOCmd do @@ -1043,57 +1141,58 @@ begin Close; sql.Clear; sql.Add('select MJXH from WFB_MJJY'); - sql.Add('where MJID='''+Trim(maxno)+''''); + sql.Add('where MJID=''' + Trim(maxno) + ''''); open; - If not IsEmpty then + if not IsEmpty then begin - MJXH.Text:=fieldbyname('mjxh').AsString; + MJXH.Text := fieldbyname('mjxh').AsString; end; end; end; - FMJID:=Trim(maxno); - FFFMJID:=Trim(maxno); + FMJID := Trim(maxno); + FFFMJID := Trim(maxno); ///ĸõ with CDS_MJCD do begin First; while not Eof do begin - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then begin - if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD', 5, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡˮʧܣ','ʾ',0); + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); Exit; end; - end else + end + else begin - maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + maxno := Trim(CDS_MJCD.fieldbyname('MCID').AsString); end; with ADOCmd do begin Close; SQL.Clear; sql.Add('select * from WFB_MJJY_CD '); - sql.Add(' where MCID='''+Trim(maxno)+''''); + sql.Add(' where MCID=''' + Trim(maxno) + ''''); Open; end; with ADOCmd do begin - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then Append else Edit; - FieldByName('MJId').Value:=Trim(FMJID); - FieldByName('MCID').Value:=Trim(maxno); - SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); - FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + FieldByName('MJId').Value := Trim(FMJID); + FieldByName('MCID').Value := Trim(maxno); + SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0); + FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value; Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + CDS_MJCD.FieldByName('MCID').Value := Trim(maxno); Next; end; end; @@ -1102,43 +1201,47 @@ begin begin Close; sql.Clear; - sql.Add('UPDATE WFB_MJJY SET DETM=dbo.F_Get_MJJY_DETM(MJID),DETM2=dbo.F_Get_MJJY_DETM2(MJID),DETM3=dbo.F_Get_MJJY_DETM3(MJID) WHERE MJID='''+Trim(FMJID)+''' '); - sql.Add('exec P_Do_JYCRK @MJID='''+trim(FMJID)+''''); + sql.Add('UPDATE WFB_MJJY SET DETM=dbo.F_Get_MJJY_DETM(MJID),DETM2=dbo.F_Get_MJJY_DETM2(MJID),DETM3=dbo.F_Get_MJJY_DETM3(MJID),DETM5=dbo.F_Get_MJJY_DETM5(MJID)'); + sql.Add(',DETM6=dbo.F_Get_MJJY_DETM6(MJID),DETM7=dbo.F_Get_MJJY_DETM7(MJID) WHERE MJID=''' + Trim(FMJID) + ''' '); + sql.Add('exec P_Do_JYCRK @MJID=''' + trim(FMJID) + ''''); execsql; end; ADOCmd.Connection.CommitTrans; - Result:=True; - PState:=0; + Result := True; + PState := 0; except - Result:=False; + Result := False; ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ʧܣ','ʾ',0); + Application.MessageBox('ʧܣ', 'ʾ', 0); end; end; procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject); begin - if Trim(Label24.Caption)='' then Exit; - PState:=1; + if Trim(Label24.Caption) = '' then + Exit; + PState := 1; InitCDGridID(); InitCDGrid(); - Label16.Caption:=''; + Label16.Caption := ''; end; procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject); begin - if CDS_MJID.IsEmpty then Exit; - PState:=2; - Label16.Caption:='޸'; + if CDS_MJID.IsEmpty then + Exit; + PState := 2; + Label16.Caption := '޸'; end; procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject); var - fPrintFile:String; - mvalue:Double; - i,ZS:Integer; + fPrintFile: string; + mvalue: Double; + i, ZS: Integer; begin - if Trim(FAPID)='' then Exit; + if Trim(FAPID) = '' then + Exit; with ADOQueryPrint do begin Close; @@ -1146,162 +1249,161 @@ begin sql.Add('select B.LBName,B.NLBName '); sql.Add('from CK_SXPB_CR A'); SQL.Add('inner join JYOrder_Main B on A.OrdMainIDCK=B.MainId'); - SQL.Add(' where A.SPId='''+Trim(FAPID)+''''); + SQL.Add(' where A.SPId=''' + Trim(FAPID) + ''''); Open; - IF not IsEmpty then + if not IsEmpty then begin - if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)='' then + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString) = '' then begin - application.MessageBox('ûñǩܴ','ʾϢ',0); + application.MessageBox('ûñǩܴ', 'ʾϢ', 0); exit; end; end; end; - if FInt=4 then + if FInt = 4 then begin - if CDS_MJID.IsEmpty=False then + if CDS_MJID.IsEmpty = False then begin - Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Application.MessageBox('Ѵ룿볢ش', 'ʾ', 0); Exit; end; end; - - IF trim(Label9.Caption)='' then + if trim(Label9.Caption) = '' then begin - Application.MessageBox('ȵλΪ!','ʾ',0); + Application.MessageBox('ȵλΪ!', 'ʾ', 0); Exit; end; - if Trim(MJFK.Text)<>'' then + if Trim(MJFK.Text) <> '' then begin - if TryStrToFloat(MJFK.Text,mvalue)=False then + if TryStrToFloat(MJFK.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJMaoZ.Text)<>'' then + if Trim(MJMaoZ.Text) <> '' then begin - if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + if TryStrToFloat(MJMaoZ.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; - IF strtofloatdef(trim(MJMaoZ.Text),0)>80 then + if strtofloatdef(trim(MJMaoZ.Text), 0) > 80 then begin - Application.MessageBox(',ܴ80!','ʾ',0); + Application.MessageBox(',ܴ80!', 'ʾ', 0); Exit; end; - IF (strtofloatdef(trim(MJMaoZ.Text),0)>0) and (strtofloatdef(trim(MJMaoZ.Text),0)<1) then + if (strtofloatdef(trim(MJMaoZ.Text), 0) > 0) and (strtofloatdef(trim(MJMaoZ.Text), 0) < 1) then begin - Application.MessageBox(',С1!','ʾ',0); + Application.MessageBox(',С1!', 'ʾ', 0); Exit; end; end; - if Trim(MJSJKZ.Text)<>'' then + if Trim(MJSJKZ.Text) <> '' then begin - if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + if TryStrToFloat(MJSJKZ.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJQty2.Text)<>'' then + if Trim(MJQty2.Text) <> '' then begin - if TryStrToFloat(MJQty2.Text,mvalue)=False then + if TryStrToFloat(MJQty2.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(Edit11.Text)<>'' then + if Trim(Edit11.Text) <> '' then begin - if TryStrToInt(Edit11.Text,ZS)=False then + if TryStrToInt(Edit11.Text, ZS) = False then begin - Application.MessageBox('ű','ʾ',0); + Application.MessageBox('ű', 'ʾ', 0); Exit; end; end; - if strtofloatdef(trim(MJQty4.Text),0)<0.00 then + if strtofloatdef(trim(MJQty4.Text), 0) < 0.00 then begin - application.MessageBox('С0','ʾϢ',0); + application.MessageBox('С0', 'ʾϢ', 0); exit; end; - if strtofloatdef(trim(MJLen.Text),0)<0.00 then + if strtofloatdef(trim(MJLen.Text), 0) < 0.00 then begin - application.MessageBox('ȲС0','ʾϢ',0); + application.MessageBox('ȲС0', 'ʾϢ', 0); exit; end; - if Trim(MJLen.Text)<>'' then + if Trim(MJLen.Text) <> '' then begin - IF strtofloatdef(trim(MJLen.Text),0)>300 then + if strtofloatdef(trim(MJLen.Text), 0) > 300 then begin - Application.MessageBox('ȴ,ܴ300!','ʾ',0); + Application.MessageBox('ȴ,ܴ300!', 'ʾ', 0); Exit; end; - IF (strtofloatdef(trim(MJLen.Text),0)>0) and (strtofloatdef(trim(MJLen.Text),0)<15) then + if (strtofloatdef(trim(MJLen.Text), 0) > 0) and (strtofloatdef(trim(MJLen.Text), 0) < 15) then begin - Application.MessageBox('ȴ,С15!','ʾ',0); + Application.MessageBox('ȴ,С15!', 'ʾ', 0); Exit; end; end; - IF (strtofloatdef(trim(MJLen.Text),0)=0) and (strtofloatdef(trim(MJQty4.Text),0)=0) then + if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(MJQty4.Text), 0) = 0) then begin - Application.MessageBox('ȺܶΪ0!','ʾ',0); + Application.MessageBox('ȺܶΪ0!', 'ʾ', 0); Exit; end; - IF strtointdef(trim(Edit10.Text),0)>20 then + if strtointdef(trim(Edit10.Text), 0) > 20 then begin - Application.MessageBox('ܴ20!','ʾ',0); + Application.MessageBox('ܴ20!', 'ʾ', 0); Exit; end; - for i:=1 to strtointdef(Edit10.Text,1) do + for i := 1 to strtointdef(Edit10.Text, 1) do begin if SaveData() then begin - if Trim(Edit6.Text)='' then + if Trim(Edit6.Text) = '' then begin PrtData(FFFMJID); end; BTAdd.Click; - if Edit9.Text<>'' then + if Edit9.Text <> '' then begin - Edit11.Text:=FloatToStr(strtofloat(Edit11.Text)+1); + Edit11.Text := FloatToStr(strtofloat(Edit11.Text) + 1); end; end else - exit; + exit; end; - MJLen.Text:=''; - MJMaoZ.Text:=''; - MJQty1.Text:=''; - MJQty2.Text:=''; - Label15.Caption:=''; - MJQty4.Text:=''; - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; + MJLen.Text := ''; + MJMaoZ.Text := ''; + MJQty1.Text := ''; + MJQty2.Text := ''; + Label15.Caption := ''; + MJQty4.Text := ''; + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; kaip1.Text := ''; kaip2.Text := ''; kaip3.Text := ''; - Edit10.text:='1'; - Label16.Caption:=''; + Edit10.text := '1'; + Label16.Caption := ''; BTAdd.Click; MJLen.SetFocus; end; -procedure TfrmMJManageNewFDNewSF.PrtData(FMJID:String); +procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); var - fPrintFile:String; - Txt,fImagePath,fImagePath1,fImagePath2,fImagePath3:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + fPrintFile: string; + Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3, fImagePath5, fImagePath6, Txt7, fImagePath7: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin with ADOQueryPrint do begin @@ -1310,292 +1412,349 @@ begin sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName '); sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); - sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTCode,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); sql.Add(',MBQty=(select Sum(E.MJLen) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); sql.Add(',MBJZQty=(select Sum(E.MJQty4) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); sql.Add(',MBMZQty=(select Sum(E.MJMaoZ) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); sql.Add(',MBPS=(select Count(E.MJID) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); sql.Add(',MBGangNo=dbo.F_Get_Order_SubStr(A.MJID,''MBGangNo'')'); - sql.Add(' from WFB_MJJY A') ; + sql.Add(' from WFB_MJJY A'); sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); sql.Add(' inner join CK_SXPB_CR D on D.SPId=A.APId '); - SQL.Add(' where A.MJID='''+Trim(FMJID)+''''); + SQL.Add(' where A.MJID=''' + Trim(FMJID) + ''''); Open; end; try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').AsString); - fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath) then DeleteFile(fImagePath); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); except - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); - exit; + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; end; try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ADOQueryPrint.fieldbyname('DETM').AsString); - fImagePath1:=ExtractFilePath(Application.ExeName)+'image\temp1.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath1) then DeleteFile(fImagePath1); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath1),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM').AsString); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath1) then + DeleteFile(fImagePath1); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath1), 3); except - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); - exit; + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; end; try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ADOQueryPrint.fieldbyname('DETM2').AsString); - fImagePath2:=ExtractFilePath(Application.ExeName)+'image\temp2.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath2) then DeleteFile(fImagePath2); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath2),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM2').AsString); + fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath2) then + DeleteFile(fImagePath2); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath2), 3); except - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); - exit; + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; end; try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ADOQueryPrint.fieldbyname('DETM3').AsString); - fImagePath3:=ExtractFilePath(Application.ExeName)+'image\temp3.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath3) then DeleteFile(fImagePath3); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath3),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM3').AsString); + fImagePath3 := ExtractFilePath(Application.ExeName) + 'image\temp3.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath3) then + DeleteFile(fImagePath3); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath3), 3); except - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); - exit; + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM5').AsString); + fImagePath5 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath5) then + DeleteFile(fImagePath5); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath5), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt7 := Trim(ADOQueryPrint.fieldbyname('DETM7').AsString); + fImagePath7 := ExtractFilePath(Application.ExeName) + 'image\temp7.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath7) then + DeleteFile(fImagePath7); + Makebar(pchar(Txt7), Length(Txt7), 3, 3, 0, PChar(fImagePath7), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + try + fImagePath6 := ExtractFilePath(Application.ExeName) + 'image\temp6.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath6) then + DeleteFile(fImagePath6); +// FDETM6 := Trim(ADOQueryPrint.fieldbyname('PRTHX').AsString) + '-' + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4) + '-' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr2').AsString); + FDETM6 := Trim(ADOQueryPrint.fieldbyname('DETM6').AsString); + tsewm6(); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; end; - if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf' else - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨӢıǩ.rmf'; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; - RMVariables['QRBARCODE1']:=fImagePath1; - RMVariables['QRBARCODE2']:=fImagePath2; - RMVariables['QRBARCODE3']:=fImagePath3; + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE1'] := fImagePath1; + RMVariables['QRBARCODE2'] := fImagePath2; + RMVariables['QRBARCODE3'] := fImagePath3; + RMVariables['QRBARCODE5'] := fImagePath5; + RMVariables['QRBARCODE6'] := fImagePath6; + RMVariables['QRBARCODE7'] := fImagePath7; RM2.LoadFromFile(fPrintFile); - Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); // RM2.ShowReport; RM2.PrintReport; end else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString)), 'ʾ', 0); end; - if edit9.Text<>'' then + if edit9.Text <> '' then begin - if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf' + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf' else - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨӢıǩ.rmf'; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - Rm2.DefaultCopies:=strtointdef(trim(ComboBox2.Text),1); + Rm2.DefaultCopies := strtointdef(trim(ComboBox2.Text), 1); // RM2.ShowReport; RM2.PrintReport; end else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)), 'ʾ', 0); end; end; end; + procedure TfrmMJManageNewFDNewSF.SavedataCK(); var - CRID:Integer; - MaxCkNo,MaxCkSubNo:String; + CRID: Integer; + MaxCkNo, MaxCkSubNo: string; begin //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// - with ADOCmd do - begin - Close; - sql.Clear; - SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); - sql.Add('select * from CK_BanCP_CRID'); - Open; - end; - CRID:=ADOCmd.fieldbyname('CRID').Value; - if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then - begin - ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡƷֿʧܣ','ʾ',0); - Exit; - end; - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_CR where 1<>1'); - Open; - end; - with ADOCmd do - begin - Append; - FieldByName('MainId').Value:=Trim(FMainId); - FieldByName('SubId').Value:=Trim(FSubId); - FieldByName('APID').Value:=Trim(FAPID); - FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); - FieldByName('CRFlag').Value:=''; - FieldByName('CRType').Value:=''; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID := ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ', 'ʾ', 0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value := Trim(FMainId); + FieldByName('SubId').Value := Trim(FSubId); + FieldByName('APID').Value := Trim(FAPID); + FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('CRTime').Value := SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value := ''; + FieldByName('CRType').Value := ''; //FieldByName('JTType').Value:=Trim(XJFlag); - FieldByName('CRID').Value:=CRID; - if Trim(MJMaoZ.Text)<>'' then - begin - FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); - end; - if Trim(MJLen.Text)<>'' then - begin - FieldByName('Qty').Value:=StrToFloat(MJLen.Text); - end; - FieldByName('QtyUnit').Value:=Trim(Label9.Caption); - FieldByName('Filler').Value:=Trim(DName); - FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); - if Trim(Edit3.Text)<>'' then - begin - FieldByName('CPType').Value:='Ʒ'; - end; - if Trim(Edit4.Text)<>'' then - begin - FieldByName('CPType').Value:='Ʒ'; - end; - Post; - end; - with ADOCmd do + FieldByName('CRID').Value := CRID; + if Trim(MJMaoZ.Text) <> '' then begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_KC where 1<>1'); - Open; + FieldByName('KGQty').Value := StrToFloat(MJMaoZ.Text); end; - with ADOCmd do + if Trim(MJLen.Text) <> '' then begin - Append; - FieldByName('CRID').Value:=CRID; - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); - if Trim(MJMaoZ.Text)<>'' then - begin - FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); - end; - if Trim(MJLen.Text)<>'' then - begin - FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); - end; - FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); - Post; + FieldByName('Qty').Value := StrToFloat(MJLen.Text); end; + FieldByName('QtyUnit').Value := Trim(Label9.Caption); + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text) <> '' then + begin + FieldByName('CPType').Value := 'Ʒ'; + end; + if Trim(Edit4.Text) <> '' then + begin + FieldByName('CPType').Value := 'Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value := CRID; + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text) <> '' then + begin + FieldByName('KCKGQty').Value := StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text) <> '' then + begin + FieldByName('KCQty').Value := StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value := Trim(Label9.Caption); + Post; + end; end; procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); var - mvalue:string; + mvalue: string; begin try - mvalue:=TcxTextEdit(Sender).EditingText; - if Trim(mvalue)<>'' then + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) <> '' then begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.FieldByName('CDQty').Value := mvalue; CDS_MJCD.Post; - end else + end + else begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.FieldByName('CDQty').Value := 0; CDS_MJCD.Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + CDS_MJCD.FieldByName('CDQtyS').Value := mvalue; except - Application.MessageBox('Ƿ֣','ʾ',0); + Application.MessageBox('Ƿ֣', 'ʾ', 0); end; end; procedure TfrmMJManageNewFDNewSF.SpeedButton1Click(Sender: TObject); var - fsj:string; + fsj: string; begin - fsj:=Trim(TSpeedButton(Sender).Hint); - if Trim(fsj)='' then Exit; - fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); - TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + fsj := Trim(TSpeedButton(Sender).Hint); + if Trim(fsj) = '' then + Exit; + fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := fsj + Trim(TSpeedButton(Sender).Caption); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmMJManageNewFDNewSF.SpeedButton12Click(Sender: TObject); var - fsj:string; + fsj: string; begin - fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); - if Trim(fsj)='' then Exit; - TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj) = '' then + Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject); var - i:Integer; + i: Integer; begin - if Trim(Label24.Caption)='' then Exit; - if Label24.Visible=False then Exit; - if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + if Trim(Label24.Caption) = '' then + Exit; + if Label24.Visible = False then + Exit; + if Trim(CDS_MJCD.fieldbyname('MJID').AsString) <> '' then begin BTAdd.Click; end; - if Trim(Label15.Caption)<>'' then + if Trim(Label15.Caption) <> '' then begin //MJFK.Text:=''; //MJSJKZ.Text:=''; - MJLen.Text:=''; - MJMaoZ.Text:=''; - MJQty1.Text:=''; + MJLen.Text := ''; + MJMaoZ.Text := ''; + MJQty1.Text := ''; //MJSJKZ.Text:=''; - Label15.Caption:=''; + Label15.Caption := ''; end; - if Trim(FAPID)='' then Exit; - FCDName:=Trim(TSpeedButton(Sender).Hint); - MovePanel1.Visible:=True; - Label21.Caption:=Trim(FCDName); - FInt:=11; + if Trim(FAPID) = '' then + Exit; + FCDName := Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible := True; + Label21.Caption := Trim(FCDName); + FInt := 11; Edit1.SetFocus; //CDQty.SetFocus; - Panel3.Visible:=True; - PState:=1; + Panel3.Visible := True; + PState := 1; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + TSpeedButton(Controls[i]).Hint := Trim(Edit1.Name); end; end; end; @@ -1604,79 +1763,79 @@ end; procedure TfrmMJManageNewFDNewSF.cxGridDBColumn2PropertiesChange(Sender: TObject); var - fsj:String; + fsj: string; begin - fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + fsj := Trim(Order_MJ.fieldbyname('SubId').AsString); Order_MJ.DisableControls; with Order_MJ do begin First; while not Eof do begin - if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then begin Edit; - FieldByName('SSel').Value:=False; + FieldByName('SSel').Value := False; end; Next; end; end; Order_MJ.EnableControls; - Order_MJ.Locate('SubId',fsj,[]); + Order_MJ.Locate('SubId', fsj, []); end; procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); var - mvalue:Double; + mvalue: Double; begin { if Trim(Edit1.Text)='' then begin Application.MessageBox('λòΪգ','ʾ',0); exit; end; } - if Trim(Edit1.Text)<>'' then + if Trim(Edit1.Text) <> '' then begin - if Trim(Edit2.Text)<>'' then + if Trim(Edit2.Text) <> '' then begin - if StrToFloat(Edit2.Text)'' then + if CDQty.Text <> '' then begin - if TryStrToFloat(CDQty.Text,mvalue)=False then + if TryStrToFloat(CDQty.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; end; with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(FCDName); - FieldByName('CDbeg').Value:=Trim(Edit1.Text); - FieldByName('CDEnd').Value:=Trim(Edit2.Text); - FieldByName('KouFenQty').Value:=0; - if RadioGroup1.ItemIndex>-1 then - FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; - if RadioGroup1.ItemIndex>-1 then + FieldByName('cdname').Value := Trim(FCDName); + FieldByName('CDbeg').Value := Trim(Edit1.Text); + FieldByName('CDEnd').Value := Trim(Edit2.Text); + FieldByName('KouFenQty').Value := 0; + if RadioGroup1.ItemIndex > -1 then + FieldByName('KouFenType').Value := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex > -1 then begin - if RadioGroup1.ItemIndex<3 then + if RadioGroup1.ItemIndex < 3 then begin - FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1; end else begin - FieldByName('KouFenQty').Value:=4; + FieldByName('KouFenQty').Value := 4; end; end; - IF Trim(FCDName)='' then - FieldByName('KouFenQty').Value:=0; - FieldByName('CDQty').Value:=StrToFloatdef(trim(CDQty.Text),0); + if Trim(FCDName) = '' then + FieldByName('KouFenQty').Value := 0; + FieldByName('CDQty').Value := StrToFloatdef(trim(CDQty.Text), 0); {if Trim(Edit2.Text)<>'' then begin FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); @@ -1687,20 +1846,20 @@ begin Post; end; - Edit1.Text:=''; - Edit2.Text:=''; - CDQty.Text:=''; - MovePanel1.Visible:=False; - Panel3.Visible:=False; + Edit1.Text := ''; + Edit2.Text := ''; + CDQty.Text := ''; + MovePanel1.Visible := False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject); begin - Edit1.Text:=''; - Edit2.Text:=''; - CDQty.Text:=''; - MovePanel1.Visible:=False; - Panel3.Visible:=False; + Edit1.Text := ''; + Edit2.Text := ''; + CDQty.Text := ''; + MovePanel1.Visible := False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); @@ -1711,14 +1870,15 @@ end; procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject); var - fPrintFile:String; - i:Integer; - mvalue:Double; + fPrintFile: string; + i: Integer; + mvalue: Double; begin - if CDS_MJID.IsEmpty then Exit; - IF trim(Label9.Caption)='' then + if CDS_MJID.IsEmpty then + Exit; + if trim(Label9.Caption) = '' then begin - Application.MessageBox('ȵλΪ!','ʾ',0); + Application.MessageBox('ȵλΪ!', 'ʾ', 0); Exit; end; { IF strtofloatdef(trim(MJLen.Text),0)=0 then @@ -1741,93 +1901,93 @@ begin Application.MessageBox('ԭ벻Ϊ!','ʾ',0); Exit; end; } - if Trim(MJQty1.Text)<>'' then + if Trim(MJQty1.Text) <> '' then begin - if TryStrToFloat(MJQty1.Text,mvalue)=False then + if TryStrToFloat(MJQty1.Text, mvalue) = False then begin - Application.MessageBox('ԭ¼!','ʾ',0); + Application.MessageBox('ԭ¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJFK.Text)<>'' then + if Trim(MJFK.Text) <> '' then begin - if TryStrToFloat(MJFK.Text,mvalue)=False then + if TryStrToFloat(MJFK.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJMaoZ.Text)<>'' then + if Trim(MJMaoZ.Text) <> '' then begin - if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + if TryStrToFloat(MJMaoZ.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJSJKZ.Text)<>'' then + if Trim(MJSJKZ.Text) <> '' then begin - if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + if TryStrToFloat(MJSJKZ.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJQty2.Text)<>'' then + if Trim(MJQty2.Text) <> '' then begin - if TryStrToFloat(MJQty2.Text,mvalue)=False then + if TryStrToFloat(MJQty2.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if strtofloatdef(trim(MJQty4.Text),0)<0.00 then + if strtofloatdef(trim(MJQty4.Text), 0) < 0.00 then begin - application.MessageBox('С0','ʾϢ',0); + application.MessageBox('С0', 'ʾϢ', 0); exit; end; - if strtofloatdef(trim(MJLen.Text),0)<0.00 then + if strtofloatdef(trim(MJLen.Text), 0) < 0.00 then begin - application.MessageBox('ȲС0','ʾϢ',0); + application.MessageBox('ȲС0', 'ʾϢ', 0); exit; end; - + if SaveData() then begin - MJLen.Text:=''; - MJMaoZ.Text:=''; - MJQty1.Text:=''; - MJQty2.Text:=''; - Label15.Caption:=''; - MJQty4.Text:=''; - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - FInt:=0; + MJLen.Text := ''; + MJMaoZ.Text := ''; + MJQty1.Text := ''; + MJQty2.Text := ''; + Label15.Caption := ''; + MJQty4.Text := ''; + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + FInt := 0; end; - if Trim(Edit6.Text)='' then + if Trim(Edit6.Text) = '' then begin PrtData(FFFMJID); end; - Label16.Caption:=''; + Label16.Caption := ''; BTAdd.Click; - Edit8.Text:=''; - Button5.Visible:=false; + Edit8.Text := ''; + Button5.Visible := false; MJLen.SetFocus; end; procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject); begin - Panel3.Visible:=False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then - begin - fxsType:=''; + if Key = #13 then + begin + fxsType := ''; with ADOTmp do begin Close; @@ -1841,59 +2001,53 @@ begin sql.Add('maxRoll=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=A.SPID),A.QSJHNo)'); sql.Add(' from CK_SXPB_CR A'); SQL.Add(' inner join JYOrder_Main B on A.OrdMainIDCK=B.MainId'); - sql.Add(' where SPID='''+Trim(APID.Text)+''''); + sql.Add(' where SPID=''' + Trim(APID.Text) + ''''); Open; end; - if ADOTmp.IsEmpty=False then + if ADOTmp.IsEmpty = False then begin - Label24.Visible:=True; - Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); - Label25.Visible:=True; - Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); - FAPID:=Trim(APID.Text); - FMainId:=Trim(ADOTmp.fieldbyname('OrdMainIDCK').AsString); - FSubId:=Trim(ADOTmp.fieldbyname('OrdsubIDCK').AsString); - MJXH.Text:= Trim(ADOTmp.fieldbyname('maxRoll').AsString); - MKXS.Text:=Trim(ADOTmp.fieldbyname('Xs').AsString); - XSDian.Text:=IntToStr(ADOTmp.fieldbyname('XSDian').AsInteger); - MJstr4.Text:=Trim(ADOTmp.fieldbyname('gangNo').AsString); - fxsType:=Trim(ADOTmp.fieldbyname('xsType').AsString); - AOrdDefNote1.Text:= - ':'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 - +'̽:'+Trim(ADOTmp.fieldbyname('OrdDefNote2').AsString)+#13 - +':'+Trim(ADOTmp.fieldbyname('OrdDefNote3').AsString)+#13 - +'ŷ:'+Trim(ADOTmp.fieldbyname('MPRTMF').AsString)+#13 - +':'+Trim(ADOTmp.fieldbyname('MPRTKZ').AsString)+#13 - +'Ҫ:'+Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString)+#13 - +'رʾ:'+Trim(ADOTmp.fieldbyname('MPRTTeBieNote').AsString); - MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); - if Trim(ADOTmp.fieldbyname('OrderUnit').AsString)='YDS' then + Label24.Visible := True; + Label24.Caption := Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible := True; + Label25.Caption := Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID := Trim(APID.Text); + FMainId := Trim(ADOTmp.fieldbyname('OrdMainIDCK').AsString); + FSubId := Trim(ADOTmp.fieldbyname('OrdsubIDCK').AsString); + MJXH.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString); + MKXS.Text := Trim(ADOTmp.fieldbyname('Xs').AsString); + XSDian.Text := IntToStr(ADOTmp.fieldbyname('XSDian').AsInteger); + MJstr4.Text := Trim(ADOTmp.fieldbyname('gangNo').AsString); + fxsType := Trim(ADOTmp.fieldbyname('xsType').AsString); + AOrdDefNote1.Text := ':' + Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString) + #13 + '̽:' + Trim(ADOTmp.fieldbyname('OrdDefNote2').AsString) + #13 + ':' + Trim(ADOTmp.fieldbyname('OrdDefNote3').AsString) + #13 + 'ŷ:' + Trim(ADOTmp.fieldbyname('MPRTMF').AsString) + #13 + ':' + Trim(ADOTmp.fieldbyname('MPRTKZ').AsString) + #13 + 'Ҫ:' + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString) + #13 + 'رʾ:' + Trim(ADOTmp.fieldbyname('MPRTTeBieNote').AsString); + MJQty3.Text := Trim(ADOTmp.fieldbyname('PiZhong').AsString); + if Trim(ADOTmp.fieldbyname('OrderUnit').AsString) = 'YDS' then begin - Label9.Caption:='Y'; - Label19.Caption:=Label9.Caption; - Label20.Caption:=Label9.Caption; - Label7.Caption:=Label9.Caption; + Label9.Caption := 'Y'; + Label19.Caption := Label9.Caption; + Label20.Caption := Label9.Caption; + Label7.Caption := Label9.Caption; end; - if Trim(ADOTmp.fieldbyname('QtyUnit').AsString)<>'' then + if Trim(ADOTmp.fieldbyname('QtyUnit').AsString) <> '' then begin //Label9.Caption:=Trim(ADOTmp.fieldbyname('QtyUnit').AsString); //Label19.Caption:=Label9.Caption; //Label20.Caption:=Label9.Caption; //Label7.Caption:=Label9.Caption; end; - end else + end + else begin - Application.MessageBox('!','ʾ',0); - Label2.Visible:=False; - Label2.Caption:=''; - APID.Text:=''; - FAPID:=''; - FMainId:=''; - FSubId:=''; - AOrdDefNote1.Text:=''; + Application.MessageBox('!', 'ʾ', 0); + Label2.Visible := False; + Label2.Caption := ''; + APID.Text := ''; + FAPID := ''; + FMainId := ''; + FSubId := ''; + AOrdDefNote1.Text := ''; Exit; end; - APID.Text:=''; + APID.Text := ''; BTAdd.Click; MJLen.SetFocus; InitImage(); @@ -1902,16 +2056,16 @@ end; procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; @@ -1919,114 +2073,119 @@ end; procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); var - mvalue:Double; + mvalue: Double; begin - if Trim(Edit1.Text)<>'' then + if Trim(Edit1.Text) <> '' then begin - if TryStrToFloat(Edit1.Text,mvalue)=False then + if TryStrToFloat(Edit1.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - end else + end + else begin Exit; end; - if Trim(Edit2.Text)<>'' then + if Trim(Edit2.Text) <> '' then begin - if TryStrToFloat(Edit2.Text,mvalue)=False then + if TryStrToFloat(Edit2.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - end else + end + else begin Exit; end; - CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + CDQty.Text := FloatToStr(StrToFloat(Edit2.Text) - StrToFloat(Edit1.Text)); end; procedure TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject); begin - if Trim(Edit3.Text)='' then + if Trim(Edit3.Text) = '' then begin - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - end else + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + end + else begin - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject); begin - if Trim(Edit4.Text)='' then + if Trim(Edit4.Text) = '' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; - end else + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; + end + else begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject); begin - if Trim(Edit5.Text)='' then + if Trim(Edit5.Text) = '' then begin - Edit5.Text:=''; - Edit3.Text:=''; - Edit4.Text:=''; - end else + Edit5.Text := ''; + Edit3.Text := ''; + Edit4.Text := ''; + end + else begin - Edit5.Text:=''; - Edit3.Text:=''; - Edit4.Text:=''; + Edit5.Text := ''; + Edit3.Text := ''; + Edit4.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject); begin - if Trim(Edit6.Text)='' then + if Trim(Edit6.Text) = '' then begin - Edit6.Text:=''; - end else + Edit6.Text := ''; + end + else begin - Edit6.Text:=''; + Edit6.Text := ''; end; end; -procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; - var Key: Char); +procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char); begin - if Key = #13 then - begin - Key := #0; - SelectNext(ActiveControl as TWinControl, True, True); - end; + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; end; procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); begin - if trim(Label9.Caption)='M' then + if trim(Label9.Caption) = 'M' then begin - Label9.Caption:='Y'; - Label19.Caption:='Y'; - Label20.Caption:='Y'; - Label7.Caption:='Y'; + Label9.Caption := 'Y'; + Label19.Caption := 'Y'; + Label20.Caption := 'Y'; + Label7.Caption := 'Y'; end else begin - Label9.Caption:='M'; - Label19.Caption:='M'; - Label20.Caption:='M'; - Label7.Caption:='M'; + Label9.Caption := 'M'; + Label19.Caption := 'M'; + Label20.Caption := 'M'; + Label7.Caption := 'M'; end; end; @@ -2037,115 +2196,123 @@ end; procedure TfrmMJManageNewFDNewSF.MJQty4Exit(Sender: TObject); begin - if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; - if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; - if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJMaoZ.Text) = '') and (trim(MJQty4.Text) = '') then + exit; + if (trim(MJMaoZ.Text) = '') and (trim(MJQty3.Text) = '') then + exit; + if (trim(MJQty4.Text) = '') and (trim(MJQty3.Text) = '') then + exit; - if (trim(MJQty3.Text)='') then exit; + if (trim(MJQty3.Text) = '') then + exit; - if (trim(MJQty4.Text)<>'') then + if (trim(MJQty4.Text) <> '') then begin - MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + MJMaoZ.Text := floattostr(strtofloatdef(trim(MJQty3.Text), 0) + strtofloatdef(trim(MJQty4.Text), 0)); exit; end; end; procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); begin - RadioGroup1.ItemIndex:=-1; + RadioGroup1.ItemIndex := -1; end; procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(MJQty4.Text)='' then + if Trim(MJQty4.Text) = '' then begin // MJLen.Text:=''; - MJMaoZ.Text:=''; + MJMaoZ.Text := ''; Exit; end; - if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; - if Trim(MJQty3.Text)<>'' then + if TryStrToFloat(MJQty4.Text, FReal) = False then + Exit; + if Trim(MJQty3.Text) <> '' then begin - if TryStrToFloat(MJQty3.Text,FReal)=True then - MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); - end else + if TryStrToFloat(MJQty3.Text, FReal) = True then + MJMaoZ.Text := FloatToStr(StrToFloat(MJQty4.Text) + StrToFloat(MJQty3.Text)); + end + else begin - MJMaoZ.Text:=MJQty4.Text; + MJMaoZ.Text := MJQty4.Text; end; - IF trim(fxsType)='ػ㳤'then + if trim(fxsType) = 'ػ㳤' then begin - if XSDian.Text='0' then - MJLen.Text:=format('%.0f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); - if XSDian.Text='1' then - MJLen.Text:=format('%.1f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); - if XSDian.Text='2' then - MJLen.Text:=format('%.2f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + if XSDian.Text = '0' then + MJLen.Text := format('%.0f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]); + if XSDian.Text = '1' then + MJLen.Text := format('%.1f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]); + if XSDian.Text = '2' then + MJLen.Text := format('%.2f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]); end; end; procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject); var - FReal:Double; + FReal: Double; begin // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; - if Trim(MJMaoZ.Text)='' then + if Trim(MJMaoZ.Text) = '' then begin //MJLen.Text:=''; - MJQty4.Text:=''; + MJQty4.Text := ''; Exit; end; - if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; - if Trim(MJQty3.Text)<>'' then + if TryStrToFloat(MJMaoZ.Text, FReal) = False then + Exit; + if Trim(MJQty3.Text) <> '' then begin - if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; - MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); - end else + if TryStrToFloat(MJQty3.Text, FReal) = False then + Exit; + MJQty4.Text := FloatToStr(StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text)); + end + else begin - MJQty4.Text:=MJMaoZ.Text; + MJQty4.Text := MJMaoZ.Text; end; end; procedure TfrmMJManageNewFDNewSF.APIDClick(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; end; - procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); begin - if Trim(Edit7.Text)='' then + if Trim(Edit7.Text) = '' then begin - Edit7.Text:=''; - if not IsCommOpen then OpenCom(JCYDLL); - IsJsMessage:=true; + Edit7.Text := ''; + if not IsCommOpen then + OpenCom(JCYDLL); + IsJsMessage := true; end else begin - Edit7.Text:=''; - IsJsMessage:=true; + Edit7.Text := ''; + IsJsMessage := true; end; end; -procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; - var Key: Char); +procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin BTPrint.Click; end; @@ -2153,19 +2320,19 @@ end; procedure TfrmMJManageNewFDNewSF.MKXSChange(Sender: TObject); begin - MJQty4.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); - MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + MJQty4.Text := format('%.1f', [StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]); + MJMaoZ.Text := FloatToStr(StrToFloat(MJQty4.Text) + StrToFloat(MJQty3.Text)); end; procedure TfrmMJManageNewFDNewSF.FormCreate(Sender: TObject); begin - IsCommopen:=false; - IsJsMessage:=false; + IsCommopen := false; + IsJsMessage := false; end; procedure TfrmMJManageNewFDNewSF.MJQty2Change(Sender: TObject); var - FReal:double; + FReal: double; begin { IF trim(MKXS.Text)<>'' then begin @@ -2207,24 +2374,24 @@ end; procedure TfrmMJManageNewFDNewSF.Edit8Click(Sender: TObject); begin - if Trim(Edit8.Text)='' then + if Trim(Edit8.Text) = '' then begin - Edit8.Text:=''; - Button5.Visible:=true; + Edit8.Text := ''; + Button5.Visible := true; end else begin - Edit8.Text:=''; - Button5.Visible:=false; + Edit8.Text := ''; + Button5.Visible := false; end; end; procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject); begin - IF trim(fxsType)='Ȼ㾻'then + if trim(fxsType) = 'Ȼ㾻' then begin - MJQty4.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); - MJMaoZ.Text:=FloatToStr(StrToFloatdef(trim(MJQty4.Text),0)+StrToFloatdef(trim(MJQty3.Text),0)); + MJQty4.Text := format('%.1f', [StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]); + MJMaoZ.Text := FloatToStr(StrToFloatdef(trim(MJQty4.Text), 0) + StrToFloatdef(trim(MJQty3.Text), 0)); end; end; @@ -2232,40 +2399,41 @@ procedure TfrmMJManageNewFDNewSF.InitImage(); begin with ADOQueryImage do begin - + close; sql.Clear; sql.Add('select * from TP_File A'); - sql.Add('where WBID='+quotedstr(ADOTmp.fieldbyname('OrderNo').AsString)); + sql.Add('where WBID=' + quotedstr(ADOTmp.fieldbyname('OrderNo').AsString)); open; end; end; procedure TfrmMJManageNewFDNewSF.Picture4DblClick(Sender: TObject); begin - IF TcxDBImage(Sender).Picture.Height=0 then exit; + if TcxDBImage(Sender).Picture.Height = 0 then + exit; LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); end; -procedure TfrmMJManageNewFDNewSF.LookImage(FileName:string); +procedure TfrmMJManageNewFDNewSF.LookImage(FileName: string); var - sFieldName:string; + sFieldName: string; // ff: TADOBlobStream; // FJStream : TMemoryStream; begin - sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\ͼƬ鿴'; + sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴'; if not DirectoryExists(pchar(sFieldName)) then - CreateDirectory(pchar(sFieldName),nil); + CreateDirectory(pchar(sFieldName), nil); - sFieldName:=sFieldName+'\'+trim(fileName); + sFieldName := sFieldName + '\' + trim(FileName); try - IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); IdFTP1.Username := 'three'; - IdFTP1.Password := '641010'; + IdFTP1.Password := '641010'; IdFTP1.Connect(); except ; @@ -2278,7 +2446,7 @@ begin // Panel2.Visible:=true; // application.ProcessMessages; try - IdFTP1.Get(fFlileFlag+'\'+ Trim(fileName), sFieldName,true, false); + IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); except // Panel2.Visible:=false; Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); @@ -2294,32 +2462,32 @@ begin Exit; end; // Panel2.Visible:=false; - if IdFTP1.Connected then IdFTP1.Quit; - ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + if IdFTP1.Connected then + IdFTP1.Quit; + ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); end; -procedure TfrmMJManageNewFDNewSF.MJStr4KeyPress(Sender: TObject; - var Key: Char); +procedure TfrmMJManageNewFDNewSF.MJStr4KeyPress(Sender: TObject; var Key: Char); begin - if Key = #13 then - begin - Key := #0; - SelectNext(ActiveControl as TWinControl, True, True); - end; + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; end; procedure TfrmMJManageNewFDNewSF.MJStr4Click(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; @@ -2327,16 +2495,16 @@ end; procedure TfrmMJManageNewFDNewSF.KJZHClick(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; @@ -2344,31 +2512,89 @@ end; procedure TfrmMJManageNewFDNewSF.Edit9Click(Sender: TObject); begin - if Trim(Edit9.Text)='' then + if Trim(Edit9.Text) = '' then begin - Edit9.Text:=''; - end else + Edit9.Text := ''; + end + else begin - Edit9.Text:=''; + Edit9.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Kaip1Click(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; end; +procedure TfrmMJManageNewFDNewSF.tsewm6(); +var + lvData: UTF8String; // ʹUTF8ַ + lvBitMap: TBitmap; + lvSymbol: PZintSymbol; + lvErrorNumber: Integer; + lvErrorText: string; + bitmap: TBitmap; +begin + lvSymbol := ZBarcode_Create(); + if lvSymbol = nil then + Exit; + lvBitMap := TBitmap.Create; + try //'010872020901234590RS9999-100R1011234567893112005160' + lvData := UTF8String(FDETM6); + // ΪQRCODE + lvSymbol.symbology := BARCODE_QRCODE; +// lvSymbol.option_2 := 1; + //Data Matrix ISO 16022(and HIBC) + // + lvErrorNumber := ZBarcode_Encode_and_Buffer(lvSymbol, PAnsiChar(lvData), Length(lvData), 0); + // ɹ + if lvErrorNumber = 0 then + begin + // Bitmapͼ + ZBarcode_To_Bitmap(lvSymbol, lvBitMap); + // ʾImage + cxImage1.Picture.Bitmap.Width := 80; + cxImage1.Picture.Bitmap.Height := 80; + cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite; + cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height)); + cxImage1.Picture.Bitmap.Canvas.StretchDraw(Rect(10, 10, cxImage1.Width - 10, cxImage1.Height - 10), lvBitMap); + + end + else + begin + cxImage1.Picture.Bitmap.Width := cxImage1.Width; + cxImage1.Picture.Bitmap.Height := cxImage1.Height; + cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite; + cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height)); + lvErrorText := string(AnsiString(lvSymbol.errtxt)); + ShowMessage('ʱ' + lvErrorText); + end; + finally + lvBitMap.Free; + lvBitMap := nil; + ZBarcode_Delete(lvSymbol); + end; + bitmap := TBitmap.Create; + try + bitmap.Assign(cxImage1.Picture.Bitmap); + bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + 'image\temp6.bmp'); + finally + bitmap.Free; + end; +end; end. +