unitpreview.pas

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· PAS 代码 · 共 729 行 · 第 1/2 页

        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery11.Open;

    ADOQuery12.sql.Text := 'select * from T11T12T13 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery12.Open;

    ADOQuery13.sql.Text := 'select * from T14 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery13.Open;

    ADOQuery14.sql.Text := 'select * from T15 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery14.Open;

    ADOQuery15.sql.Text := 'select * from T16T17 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery15.Open;

    ADOQuery16.sql.Text := 'select * from T18T19T22T24  WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery16.Open;
    {ADOQuery17.sql.Text := 'select * from f3  WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery17.Open;
     }
    application.ProcessMessages;
    caption := 'T5===>总览与打印 嘉俊工商表格套打' + SID;

    PageControl1.Pages[0].Show;

end;



procedure TPreviewForm.LbSpeedButton1Click(Sender: TObject);
var
 tabNO:Integer;
begin
If PrinterSetupDialog1.Execute then
Begin
 tabNO :=PageControl1.TabIndex ;
 Printer.Canvas.Font.Size:=11;
 Printer.Canvas.Font.Name:='宋体';
 Printer.title:='嘉俊工商表格套打：'+PAGECONTROL1.Pages[TABNO].Caption ;
 Printer.BeginDoc;
 PrintADO(tabno);
 Printer.EndDoc ;
 printer.Title:='';
End;
 
end;


procedure TPreviewForm.printado(tabNo: Integer);
begin
   case tabNo of
     0:begin
        PrintPage2 ;
     end;
     1:begin
        PrintPage3;
     END;
     2:begin
        printpage4;
     end;
     3:begin
        printpage5;
     end;
     4:begin
        printpage6;
     end;

   end;
END;


procedure TPreviewForm.LbSpeedButton5Click(Sender: TObject);
var
  s:string;
  pointx,pointy:integer;
begin
    PointX:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
    PointY:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);

    s:='打印机:'+ComboBox1.Text +#13+
    '分辨率:'+IntToStr(pointx)+ ':'+IntToStr(pointy)+#13+
    '字符高度:'+IntToStr(printer.Canvas.TextHeight('嘉俊'));

    Application.MessageBox(PChar(s),'打印机信息',MB_OK+MB_ICONINFORMATION );
end;

procedure TPreviewForm.FormCreate(Sender: TObject);

begin

memo9.Text:='';
 DataModule2.ADOTableSet.Active:=true;
 DataModule2.ADOTableSet.Edit;
 ComboBox1.Items:=Printer.Printers ;
 //combobox1.itemindex:= ComboBox1.Items.IndexOf(GetDefPrinter);






end;

procedure TPreviewForm.LbSpeedButton6Click(Sender: TObject);
begin
    SetDefPrinter(ComboBox1.ItemIndex );
end;

procedure TPreviewForm.LbSpeedButton4Click(Sender: TObject);
var
  i:Integer;
  sp:string;
begin
 LbSpeedButton1.Enabled :=false;
 LbSpeedButton6.Enabled :=false;
 ProgressBar1.Position :=0;
 Printer.Canvas.Font.Size:=11;
 Printer.Canvas.Font.Name:='宋体';
 for i :=0 to 15 do begin
   if i=15 then
     sp:='附件3'
   else
     sp:= '第'+IntToStr(i+2)+'页';

{   if i=0 then
     Application.MessageBox(PChar('准备打印第'+IntToStr(i+2)+ '页,'+#13+
     '打印前请确定纸已放好放正，按确定开始打印第'+IntToStr(i+2)+'页！')
     ,'准备打印',mb_ok+MB_ICONWARNING  )
   else if i=15 then
     Application.MessageBox(PChar('正在打印第'+IntToStr(i+1) +'页....'),
     '准备打印',mb_ok+MB_ICONWARNING)
   else
     Application.MessageBox(PChar('正在打印第'+IntToStr(i+1) +'页....'+#13+
     '准备打印第'+IntToStr(i+2)+'页,'+#13+
     '打印前请确定纸已放好放正，按确定开始打印第'+IntToStr(i+2)+'页！')
     ,'准备打印',mb_ok+MB_ICONWARNING  );
 }
   Printer.title:='商品房买卖合同套打:'+sp;
   Printer.BeginDoc ;
   PrintADO(i);
   Printer.EndDoc;
   ProgressBar1.StepIt;;
 end;

 LbSpeedButton1.Enabled :=TRUE;
 LbSpeedButton6.Enabled :=TRUE;

{ Application.MessageBox(PChar('当前合同：'+DBEDIT1.TEXT+'打印完毕!!'),
    '打印完毕',mb_ok+MB_ICONINFORMATION);}
end;
procedure TPreviewForm.LbSpeedButton3Click(Sender: TObject);
begin
   if Printer.Printing  then
      Printer.Abort ;
   Close;
end;



procedure TPreviewForm.ComboBox2Select(Sender: TObject);
begin
Combobox3.ItemIndex:=Combobox2.ItemIndex;
end;

procedure TPreviewForm.ComboBox3Select(Sender: TObject);
begin
Combobox2.ItemIndex:=Combobox3.ItemIndex;
end;

Procedure smalltobig(var wei:string);
Begin
if wei='0' then
wei:='零';
if wei='1' then
wei:='壹';
if wei='2' then
wei:='贰';
if wei='3' then
wei:='叁';
if wei='4' then
wei:='肆';
if wei='5' then
wei:='伍';
if wei='6' then
wei:='陆';
if wei='7' then
wei:='柒';
if wei='8' then
wei:='捌';
if wei='9' then
wei:='玖';
if wei='￥' then
wei:='';
End;

procedure TPreviewForm.Edit130Change(Sender: TObject);
begin
aa:=edit130.Text;
smalltobig(aa);
edit140.Text:=aa;
Edit157.Text:=Edit130.Text;
end;

procedure TPreviewForm.Edit131Change(Sender: TObject);
begin
aa:=edit131.Text;
smalltobig(aa);
edit141.Text:=aa;
Edit158.Text:=Edit131.Text;
end;

procedure TPreviewForm.Edit132Change(Sender: TObject);
begin
aa:=edit132.Text;
smalltobig(aa);
edit142.Text:=aa;
Edit159.Text:=Edit132.Text;
end;

procedure TPreviewForm.Edit133Change(Sender: TObject);
begin
aa:=edit133.Text;
smalltobig(aa);
edit143.Text:=aa;
Edit160.Text:=Edit133.Text;
end;

procedure TPreviewForm.Edit134Change(Sender: TObject);
begin
aa:=edit134.Text;
smalltobig(aa);
edit144.Text:=aa;
Edit161.Text:=Edit134.Text;
end;

procedure TPreviewForm.Edit135Change(Sender: TObject);
begin
aa:=edit135.Text;
smalltobig(aa);
edit145.Text:=aa;
Edit162.Text:=Edit135.Text;
end;

procedure TPreviewForm.Edit136Change(Sender: TObject);
begin
aa:=edit136.Text;
smalltobig(aa);
edit146.Text:=aa;
Edit163.Text:=Edit136.Text;
end;

procedure TPreviewForm.Edit137Change(Sender: TObject);
begin
aa:=edit137.Text;
smalltobig(aa);
edit147.Text:=aa;
Edit164.Text:=Edit137.Text;
end;

procedure TPreviewForm.Edit138Change(Sender: TObject);
begin
aa:=edit138.Text;
smalltobig(aa);
edit148.Text:=aa;
Edit165.Text:=Edit138.Text;
end;

procedure TPreviewForm.Edit139Change(Sender: TObject);
begin
aa:=edit139.Text;
smalltobig(aa);
edit149.Text:=aa;
Edit166.Text:=Edit139.Text;
end;

procedure TPreviewForm.Edit128Change(Sender: TObject);
begin
Edit155.Text:=Edit128.Text;
end;

procedure TPreviewForm.Edit129Change(Sender: TObject);
begin
Edit156.Text:=Edit129.Text;
end;

procedure TPreviewForm.TabSheet2Show(Sender: TObject);
var
Y,M,D:string;
begin
        DBEditX.DataField:='X坐标3';
        DBEditY.DataField:='Y坐标3';
  Y:=FormatDateTime('YYYY',Date());
  M:=FormatDateTime('M',Date());
  D:=FormatDateTime('D',Date());
  Edit122.Text:=Y;
  Edit123.Text:=M;
  Edit124.Text:=D;
  Edit155.Text:=Y;
  Edit156.Text:=M;
  Edit128.Text:=Y;
  Edit129.Text:=M;
end;

procedure TPreviewForm.TabSheet4Show(Sender: TObject);
begin
        DBEditX.DataField:='X坐标';
        DBEditY.DataField:='Y坐标';
end;

procedure TPreviewForm.TabSheet5Show(Sender: TObject);
begin
        DBEditX.DataField:='X坐标';
        DBEditY.DataField:='Y坐标';
end;

procedure TPreviewForm.TabSheet1Show(Sender: TObject);
begin
        DBEditX.DataField:='X坐标2';
        DBEditY.DataField:='Y坐标2';
end;

procedure TPreviewForm.LbSpeedButton8Click(Sender: TObject);
begin
DataModule2.ADOTableSet.Post;
end;

procedure TPreviewForm.LbSpeedButton9Click(Sender: TObject);
begin
DataModule2.ADOTableSet.Cancel;
end;

procedure TPreviewForm.sncCurrencyEdit1Change(Sender: TObject);
Var
  nLeft, nRigth,RMB: string;
//I: Integer;
begin
 RMB:=FormatCurr('0.00', sncCurrencyEdit1.value);
nLeft:=copy(RMB, 1, Pos('.', RMB) - 1);
nRigth:=copy(RMB, Pos('.', RMB) + 1, 2);

nLeft:=ReverseString(nLeft);//反序
//ShowMessage(IntToStr(Length(nLeft)));
//if Length(nLeft)>8 then   Edit67.Text:=nLeft[9]  Else   Edit67.Clear;
if Length(nLeft)>7 then   Edit130.Text:=nLeft[8] Else if Length(nLeft)=7 then  Edit130.Text:='￥'  else  Edit130.Clear;
if Length(nLeft)>6 then   Edit131.Text:=nLeft[7] Else if Length(nLeft)=6 then  Edit131.Text:='￥'  else  Edit131.Clear;
if Length(nLeft)>5 then   Edit132.Text:=nLeft[6] Else if Length(nLeft)=5 then  Edit132.Text:='￥'  else  Edit132.Clear;
if Length(nLeft)>4 then   Edit133.Text:=nLeft[5] Else if Length(nLeft)=4 then  Edit133.Text:='￥'  else  Edit133.Clear;
if Length(nLeft)>3 then   Edit134.Text:=nLeft[4] Else if Length(nLeft)=3 then  Edit134.Text:='￥'  else  Edit134.Clear;
if Length(nLeft)>2 then   Edit135.Text:=nLeft[3] Else if Length(nLeft)=2 then  Edit135.Text:='￥'  else  Edit135.Clear;
if Length(nLeft)>1 then   Edit136.Text:=nLeft[2] Else if Length(nLeft)=1 then  Edit136.Text:='￥'  else  Edit136.Clear;
if Length(nLeft)>0 then   Edit137.Text:=nLeft[1] Else if Length(nLeft)=0 then  Edit137.Text:='￥'  else  Edit137.Clear;

Edit138.Text:=nRigth[1];
Edit139.Text:=nRigth[2];
end;

end.