pg_print.pas

汽配前台收费,一个具有详细功能的小系统

unit pg_print;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_pg_print = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    combo_bh: TComboBox;
    combo_name: TComboBox;
    cmd_print: TBitBtn;
    cmd_cancel: TBitBtn;
    qe_jy: TQuery;
    qe_pg: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure combo_bhChange(Sender: TObject);
    procedure combo_nameChange(Sender: TObject);
    procedure cmd_printClick(Sender: TObject);
    procedure cmd_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    p_bh: string;
    p_cph: string;
    p_cz: string;
    p_cx: string;
    p_dph: string;
  end;

var
  frm_pg_print: Tfrm_pg_print;

implementation

{$R *.DFM}

uses
  log, print;

procedure Tfrm_pg_print.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tfrm_pg_print.FormDestroy(Sender: TObject);
begin
  qe_jy := nil;
  qe_pg := nil;
  //
  frm_pg_print := nil;
end;

procedure Tfrm_pg_print.FormShow(Sender: TObject);
begin
  qe_jy.Close;
  qe_jy.ParamByName('ibh').Value := p_bh;
  qe_jy.Open;
  qe_jy.First;
  //
  while not qe_jy.Eof do begin
    combo_bh.Items.Add(Trim(qe_jy.FieldByName('pg_id').AsString));
    combo_name.Items.Add(Trim(qe_jy.FieldByName('pg_name').AsString));
    qe_jy.Next;
  end;
  //
  combo_bh.ItemIndex := -1;
  combo_name.ItemIndex := -1;
end;

procedure Tfrm_pg_print.combo_bhChange(Sender: TObject);
begin
  combo_name.ItemIndex := combo_bh.ItemIndex;
end;

procedure Tfrm_pg_print.combo_nameChange(Sender: TObject);
begin
  combo_bh.ItemIndex := combo_name.ItemIndex;
end;

procedure Tfrm_pg_print.cmd_printClick(Sender: TObject);
begin
  //
  if (Trim(combo_bh.Text) = '') or (Trim(combo_name.Text) = '') then begin
    MessageBox(Handle, '请选择派工人员', '沈阳信德', MB_ICONQUESTION or MB_OK);
    Exit;
  end;
  //
  qe_pg.Close;
  qe_pg.ParamByName('ibh').Value := p_bh;
  qe_pg.ParamByName('id').Value := Trim(combo_bh.Text);
  qe_pg.Open;
  qe_pg.First;
  //
  frm_print.pc_main.ActivePageIndex := 3;
  frm_print.lbl_cap3.Caption := frm_log.cur_gs_name;
  frm_print.llbl_cph3.Caption := p_cph;
  frm_print.lbl_dph3.Caption := p_dph;
  frm_print.lbl_cx3.Caption := p_cx;
  frm_print.lbl_cz3.Caption := p_cz;
  frm_print.lbl_bh3.Caption := p_bh;
  frm_print.lbl_date3.Caption := frm_log.controlDate(DateToStr(Date()));
  frm_print.lbl_id3.Caption := combo_bh.Text;
  frm_print.lbl_name3.Caption := combo_name.Text;
  frm_print.qr_pg.DataSet := qe_pg;
  frm_print.txt_gs_text.DataSet := qe_pg;
  frm_print.qr_pg.Print;
end;

procedure Tfrm_pg_print.cmd_cancelClick(Sender: TObject);
begin
  Close;
end;

end.