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.