www.pudn.com > del6235577244.rar > ser_un2.pas

unit ser_un2; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, BusinessSkinForm, bsSkinCtrls, bsdbctrls, bsSkinGrids, bsDBGrids, 
  bsSkinBoxCtrls, StdCtrls, Mask, jpeg, ExtCtrls; 
 
type 
  TForm5 = class(TForm) 
    bsBusinessSkinForm1: TbsBusinessSkinForm; 
    bsSkinDBGrid1: TbsSkinDBGrid; 
    bsSkinPanel1: TbsSkinPanel; 
    bsSkinButton1: TbsSkinButton; 
    bsSkinButton2: TbsSkinButton; 
    bsSkinPanel2: TbsSkinPanel; 
    bsSkinStdLabel1: TbsSkinStdLabel; 
    bsSkinEdit1: TbsSkinEdit; 
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; 
    bsSkinGroupBox1: TbsSkinGroupBox; 
    bsSkinLinkImage1: TbsSkinLinkImage; 
    bsSkinScrollBar6: TbsSkinScrollBar; 
    bsSkinScrollBar5: TbsSkinScrollBar; 
    procedure bsSkinButton2Click(Sender: TObject); 
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn); 
    procedure bsSkinButton1Click(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form5: TForm5; 
 
implementation 
uses main_un,da_un,repo,phostu,ser4; 
{$R *.dfm} 
 
procedure TForm5.bsSkinButton2Click(Sender: TObject); 
begin 
Close; 
end; 
 
procedure TForm5.bsSkinDBGrid1CellClick(Column: TbsColumn); 
begin 
bsSkinLinkImage1.Picture.LoadFromFile(da.temp.FieldValues['photo']); 
end; 
 
procedure TForm5.bsSkinButton1Click(Sender: TObject); 
var rep1:tform6; 
rep2:tform7; 
begin 
if bsSkinEdit1.Text<>'' then 
Form6.QRLabel15.caption:=bsSkinEdit1.Text; 
if bsSkinCheckRadioBox1.Checked then 
begin 
//Form7.QRImage1.Picture.LoadFromFile(da.temp.FieldValues['photo']); 
if da.temp.RecordCount=0 then 
begin 
ShowMessage('ûÓÐÊý¾Ý'); 
exit; 
end; 
rep2:=tform7.create(owner); 
rep2.QuickRep1.Preview; 
rep2.Free; 
end 
else 
begin 
rep1:=tform6.create(owner); 
rep1.QuickRep1.Preview; 
rep1.Free; 
 
end; 
end; 
 
procedure TForm5.FormShow(Sender: TObject); 
begin 
if da.temp.RecordCount=0 then 
bsSkinDBGrid1.Enabled:=false 
else 
bsSkinDBGrid1.Enabled:=true; 
end; 
 
end.