⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 u_p_choose.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
字号:
🔍 
unit U_P_Choose;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, jpeg, StdCtrls, Buttons, Db, ADODB,
  ExtDlgs, QuickRpt, Qrctrls;

type
  TF_P_Choose = class(TForm)
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    Panel1: TPanel;
    Bevel1: TBevel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image1: TImage;
    Panel6: TPanel;
    Label6: TLabel;
    Bevel2: TBevel;
    BitBtn2: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    ADOQueryxy: TADOQuery;
    DataSourcexy: TDataSource;
    Label7: TLabel;
    Label8: TLabel;
    Panel7: TPanel;
    Panel8: TPanel;
    BitBtn3: TBitBtn;
    Image2: TImage;
    Image4: TImage;
    Image5: TImage;
    QRImage2: TQRImage;
    QRImage3: TQRImage;
    QRImage4: TQRImage;
    QRImage5: TQRImage;
    QRImage6: TQRImage;
    QRImage7: TQRImage;
    QRImage8: TQRImage;
    QRImage9: TQRImage;
    QRImage10: TQRImage;
    QRImage11: TQRImage;
    QRImage12: TQRImage;
    QRImage13: TQRImage;
    QRImage14: TQRImage;
    QRImage15: TQRImage;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Image6: TImage;
    Panel15: TPanel;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image15: TImage;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Image12: TImage;
    Image13: TImage;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Image3: TImage;
    Label18: TLabel;
    MyADO: TADOQuery;
    Label21: TLabel;
    Image14: TImage;
    Button1: TBitBtn;
    BitBtn1: TBitBtn;
    procedure Image1DblClick(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure Image4DblClick(Sender: TObject);
    procedure Image2DblClick(Sender: TObject);
    procedure Image5DblClick(Sender: TObject);
    procedure Image3DblClick(Sender: TObject);
    procedure Image6DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image7DblClick(Sender: TObject);
    procedure Image8DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Image15DblClick(Sender: TObject);
    procedure Image9DblClick(Sender: TObject);
    procedure Image10DblClick(Sender: TObject);
    procedure Image11DblClick(Sender: TObject);
    procedure Image12DblClick(Sender: TObject);
    procedure Image13DblClick(Sender: TObject);
    procedure Image14DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_P_Choose: TF_P_Choose;
  XYNo: Integer=1 ;
  FlagImage15,flagxyqx: Boolean;
implementation
  uses U_DM,U_ZHXD,U_ZHXDCX,U_P_ZHXD, Uprint;
{$R *.DFM}

procedure TF_P_Choose.Image1DblClick(Sender: TObject);
begin
  Image1.Picture := nil;
  Label16.Caption:='';
  XYNo := 1;
end;

procedure TF_P_Choose.DBImage1DblClick(Sender: TObject);
begin
   
   case XYNo of
    1:
       begin
       Image1.Picture := DBImage1.Picture;
       Label16.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    2:
       begin
        Image2.Picture := DBImage1.Picture;
        Label17.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    3:  
       begin
        Image3.Picture := DBImage1.Picture;
        Label18.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    4:  
       begin
        Image4.Picture := DBImage1.Picture;
        Label19.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    5:  
       begin
        Image5.Picture := DBImage1.Picture;
        Label20.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    6:  
       begin
        Image6.Picture := DBImage1.Picture;
        Label21.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    7:  
       begin
        Image7.Picture := DBImage1.Picture;
        Label22.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    8:  
       begin
        Image8.Picture := DBImage1.Picture;
        Label23.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    9:  
       begin
        Image9.Picture := DBImage1.Picture;
        Label24.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    10: 
       begin
        Image10.Picture := DBImage1.Picture;
        Label25.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    11: 
       begin
        Image11.Picture := DBImage1.Picture;
        Label26.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    12: 
       begin
        Image12.Picture := DBImage1.Picture;
        Label27.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    13: 
       begin
        Image13.Picture := DBImage1.Picture;
        Label28.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
    14: 
       begin
        Image14.Picture := DBImage1.Picture;
        Label29.Caption:=ADOQueryxy.fieldbyname('R_name').asstring;
       end;
  end;
  XYNo := XYNo+1;
  if  XYNo >= 15 then
    Application.MessageBox('只能加栽十四个鞋样！','装箱单打印设置',0+64);
end;

procedure TF_P_Choose.Image4DblClick(Sender: TObject);
begin
  Image4.Picture := nil;
  Label19.Caption:='';
  XYNo := 4;
end;

procedure TF_P_Choose.Image2DblClick(Sender: TObject);
begin
  Image2.Picture := nil;
  Label17.Caption:='';
  XYNo := 2;
end;

procedure TF_P_Choose.Image5DblClick(Sender: TObject);
begin
  Image5.Picture := nil;
  Label20.Caption:='';
  XYNo := 5;
end;

procedure TF_P_Choose.Image3DblClick(Sender: TObject);
begin
  Image3.Picture := nil;
  Label18.Caption:='';
  XYNo := 3;
end;

procedure TF_P_Choose.Image6DblClick(Sender: TObject);
begin
  Image6.Picture := nil;
  Label21.Caption:='';
  XYNo := 6;
end;

procedure TF_P_Choose.BitBtn2Click(Sender: TObject);
var
  MySize:array of  string;
  pause:string;
begin
  flagxyqx:=true;
  Screen.Cursor := -11;
  if F_P_ZHXD=nil then
    F_P_ZHXD:=TF_P_ZHXD.Create(self);
  if not FlagImage15 then
    F_P_ZHXD.QRBand1.Height := F_P_ZHXD.QRBand1.Height - F_P_ZHXD.QRImage1.Height;
  Screen.Cursor := 0;
  F_P_ZHXD.QuickRep1.Preview;
  Close;
  flagxyqx:=false;
end;

procedure TF_P_Choose.BitBtn1Click(Sender: TObject);
begin
  Screen.Cursor := -11;
  if F_P_ZHXD=nil then
    F_P_ZHXD:=TF_P_ZHXD.Create(self);
  //对打印窗体各QRImage赋值
  if not FlagImage15 then
    F_P_ZHXD.QRBand1.Height := F_P_ZHXD.QRBand1.Height - F_P_ZHXD.QRImage1.Height;

  F_P_ZHXD.QRImage1.Picture:=F_P_Choose.Image15.Picture;
  F_P_ZHXD.QRImage2.Picture:=F_P_Choose.Image1.Picture;
  F_P_ZHXD.QRImage3.Picture:=F_P_Choose.Image2.Picture;
  F_P_ZHXD.QRImage4.Picture:=F_P_Choose.Image3.Picture;
  F_P_ZHXD.QRImage5.Picture:=F_P_Choose.Image4.Picture;
  F_P_ZHXD.QRImage6.Picture:=F_P_Choose.Image5.Picture;
  F_P_ZHXD.QRImage7.Picture:=F_P_Choose.Image6.Picture;
  F_P_ZHXD.QRImage8.Picture:=F_P_Choose.Image7.Picture;
  Screen.Cursor := 0;
  F_P_ZHXD.QuickRep1.Preview;
  Close;
end;

procedure TF_P_Choose.Image7DblClick(Sender: TObject);
begin
  Image7.Picture := nil;
  Label22.Caption:='';
  XYNo := 7;
end;

procedure TF_P_Choose.Image8DblClick(Sender: TObject);
begin
  Image8.Picture := nil;
  Label23.Caption:='';
  XYNo := 8;
end;

procedure TF_P_Choose.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TF_P_Choose.Image15DblClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    Image15.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    FlagImage15 := True;
  end;
end;

procedure TF_P_Choose.Image9DblClick(Sender: TObject);
begin
  Image9.Picture := nil;
  Label24.Caption:='';
  XYNo := 9;
end;

procedure TF_P_Choose.Image10DblClick(Sender: TObject);
begin
  Image10.Picture := nil;
  Label25.Caption:='';
  XYNo := 10;
end;

procedure TF_P_Choose.Image11DblClick(Sender: TObject);
begin
  Image11.Picture := nil;
  Label26.Caption:='';
  XYNo := 11;
end;

procedure TF_P_Choose.Image12DblClick(Sender: TObject);
begin
  Image12.Picture := nil;
  Label27.Caption:='';
  XYNo := 12;
end;

procedure TF_P_Choose.Image13DblClick(Sender: TObject);
begin
  Image13.Picture := nil;
  Label28.Caption:='';
  XYNo := 13;
end;

procedure TF_P_Choose.Image14DblClick(Sender: TObject);
begin
  Image14.Picture := nil;
  Label29.Caption:='';
  XYNo := 14;
end;

procedure TF_P_Choose.Button1Click(Sender: TObject);
begin
  screen.Cursor:=-11;
  myprint(Myado,1,'ShippingMarks','装箱单唛头');
  Screen.Cursor := 0;
end;

procedure TF_P_Choose.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_P_Choose:=nil;
  Action:=caFree;
  ZHXDshow:=false;
  ZHXDCXshow:=false;
end;

procedure TF_P_Choose.FormCreate(Sender: TObject);
begin
  xyno:=1;
  if not ADOQueryxy.Active then
    ADOQueryxy.Active:=true;
  if not MyADO.Active then
    MyADO.Active:=true;  
end;

procedure TF_P_Choose.FormShow(Sender: TObject);
begin
 { ADOQueryxy.Close;
  ADOQueryxy.SQL.Clear;
  ADOQueryxy.SQL.Add('select R_name, picture from xs_order2 '); }
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -