jbqkcx.pas

来自「这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信」· PAS 代码 · 共 233 行

unit jbqkcx;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, ExtCtrls,
  StdCtrls, Buttons, Mask, DBLookup, ComCtrls,Tabnotbk,DbiTypes,DbiErrs,DbiProcs,
  DBNavPlus, ImgList, DBGridEh, ToolEdit, RxLookup, RXCtrls,
  RXDBCtrl, ToolWin, PrnDbgeh, ADODB, Menus;

type
  Tjbqkcxf = class(TForm)
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    dyb: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    Panel3: TPanel;
    DBS: TDBStatusLabel;
    Label29: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label30: TLabel;
    Label32: TLabel;
    ComboBox3: TComboBox;
    Label33: TLabel;
    ComboBox4: TComboBox;
    Label34: TLabel;
    ComboBox5: TComboBox;
    Label35: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label56: TLabel;
    Label55: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel4: TPanel;
    Label13: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label44: TLabel;
    Label60: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    DBImage1: TDBImage;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label8: TLabel;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    DBEdit12: TDBEdit;
    Label12: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label15: TLabel;
    jbqk: TADOQuery;
    PrintDBGridEh1: TPrintDBGridEh;
    zyb: TADOQuery;
    zyby: TDataSource;
    jbqky: TDataSource;
    jbqkDSDesigner: TWideStringField;
    jbqkDSDesigner2: TWideStringField;
    jbqkDSDesigner3: TWideStringField;
    jbqkDSDesigner4: TWideStringField;
    jbqkDSDesigner5: TWideStringField;
    jbqkDSDesigner6: TDateTimeField;
    jbqkDSDesigner7: TWideStringField;
    jbqkDSDesigner8: TWideStringField;
    jbqkDSDesigner9: TWideStringField;
    jbqkDSDesigner10: TDateTimeField;
    jbqkDSDesigner11: TWideStringField;
    jbqkDSDesigner12: TWideStringField;
    jbqkDSDesigner13: TWideStringField;
    jbqkDSDesigner14: TWideStringField;
    jbqkEmail: TWideStringField;
    jbqkDSDesigner15: TWideStringField;
    jbqkDSDesigner16: TMemoField;
    jbqkDSDesigner17: TBlobField;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DateEdit1: TDateEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure dybClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbqkcxf: Tjbqkcxf;

implementation

{$R *.DFM}
uses data;

procedure Tjbqkcxf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tjbqkcxf.BitBtn5Click(Sender: TObject);
var bmm0,bmm,bq,rq,bl,tj:string;
    i:integer;
begin
  tj:='';
  bq:='';
  i:=0;
  if edit1.text<>'' then
  begin
    tj:='姓名 like '+'"'+edit1.text+'%"';
    bq:=' and ';
  end;
  if combobox1.text<>'' then
  begin
    tj:=tj+bq+'性别="'+combobox1.text+'"';
    bq:=' and ';
  end;
  if DateEdit1.text<>'    -  -  ' then
  begin
    tj:=tj+bq+'出生日期 like '+''''+DateEdit1.text+'%'+'''';
    bq:=' and ';
  end;

  if combobox3.text<>'' then
  begin
    tj:=tj+bq+'籍贯 ="'+combobox3.text+'"';
    bq:=' and ';
  end;
  if combobox4.text<>'' then
  begin
    tj:=tj+bq+'民族="'+combobox4.text+'"';
    bq:=' and ';
  end;
  if combobox5.text<>'' then
  begin
    tj:=tj+bq+'文化程度="'+combobox5.text+'"';
    bq:=' and ';
  end;
  if DBLookupComboBox1.text<>'' then
  begin
    tj:=tj+bq+'所学专业="'+DBLookupComboBox1.text+'"';
    bq:=' and ';
  end;
  if DBLookupComboBox2.text<>'' then
     tj:=tj+bq+'从事专业="'+DBLookupComboBox2.text+'"';

  if tj='' then
    tj:='select * from jbqk ORDER BY 姓名,籍贯 '
  else
    tj:='select * from jbqk where '+tj;
  jbqk.Close;
  jbqk.sql.clear;
  jbqk.sql.add(tj);
  jbqk.Open;
end;

procedure Tjbqkcxf.ToolButton9Click(Sender: TObject);
begin
  panel2.visible:=false;
  PageControl1.visible:=true;
  close;
end;

procedure Tjbqkcxf.FormShow(Sender: TObject);
begin
  zyb.Active:=true;
  jbqk.Close;
  jbqk.sql.clear;
  jbqk.sql.add('select * from jbqk where 姓名='+''''+''+'''');
  jbqk.Open;
end;

procedure Tjbqkcxf.FormDestroy(Sender: TObject);
begin
  jbqkcxf:=nil;
end;

procedure Tjbqkcxf.dybClick(Sender: TObject);
begin
  if jbqk.Active=false then
     showmessage('请先执行“查询”');
  with printdbgrideh1 do
  begin
    PageHeader.Font.Name :='黑体';
    PageHeader.Font.Size:=14;
    PageHeader.CenterText.Clear ;
    PageHeader.CenterText.Add('基本情况');

    Pagesecondtitle.Font.Name:='宋体';
    Pagesecondtitle.Font.Size:=10;
    Pagesecondtitle.lefttext.Clear ;

    PageFooter.Font.Name :='宋体';
    PageFooter.Font.Size :=10;
    PageFooter.Linetype:=pcltSingleLine;
    PageFooter.leftText.Clear ;
    PageFooter.leftText.Add('&[longdate]'+chr(13));
    PageFooter.rightText.Clear ;
    PageFooter.rightText.Add('第&[Page]页'+chr(13));
    Preview;
  end;

end;

end.