jbqkxg.pas

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

unit jbqkxg;

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, RxDBComb, Menus;

type
  Tjbqkxgf = 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;
    ComboBox2: TComboBox;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ComboBox3: TComboBox;
    Label33: TLabel;
    ComboBox4: TComboBox;
    Label34: TLabel;
    ComboBox5: TComboBox;
    Label35: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label56: TLabel;
    Label55: TLabel;
    Label38: 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;
    DBImage1: TDBImage;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label8: TLabel;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    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;
    DBNavPlus1: TDBNavPlus;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    RxDBLookupCombo1: TRxDBLookupCombo;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    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);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbqkxgf: Tjbqkxgf;

implementation

{$R *.DFM}
uses data;

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

procedure Tjbqkxgf.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 maskedit1.text<>'    -  -  ' then
  begin
    if maskedit2.text='    -  -  ' then
      tj:=tj+bq+'出生日期 like "'+maskedit1.text+'%'+'"'
    else
      tj:=tj+bq+'出生日期 between '+'"'+maskedit1.text+'"'+' and '+'"'+maskedit2.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 Tjbqkxgf.ToolButton9Click(Sender: TObject);
begin
  panel2.visible:=false;
  PageControl1.visible:=true;
  close;
end;

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

procedure Tjbqkxgf.FormDestroy(Sender: TObject);
begin
  jbqkxgf:=nil;
end;

procedure Tjbqkxgf.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;

procedure Tjbqkxgf.N1Click(Sender: TObject);
begin
  DBImage1.CopyToClipboard;//clipboard.assign(DBImage1.picture); uses clipbrd
end;

procedure Tjbqkxgf.N2Click(Sender: TObject);
begin
  DBImage1.PasteFromClipboard;
end;

procedure Tjbqkxgf.N4Click(Sender: TObject);
begin
  DBImage1.CutToClipboard;
end;

end.