unit1.pas

人事管理系统 开发工具是VB+access 比较简单

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls,
  ComCtrls, Buttons, QuickRpt;

type
  TForm1 = class(TForm)
    Database1: TDatabase;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Button1: TButton;
    Edit1: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    xm: TDBEdit;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    BYXX1: TDBEdit;
    BYXX2: TDBEdit;
    BYXX3: TDBEdit;
    BYXX4: TDBEdit;
    Panel7: TPanel;
    zy1: TDBEdit;
    ZY2: TDBEdit;
    ZY3: TDBEdit;
    ZY4: TDBEdit;
    XL1: TDBEdit;
    XL2: TDBEdit;
    XL3: TDBEdit;
    XL4: TDBEdit;
    XW1: TDBEdit;
    XW2: TDBEdit;
    XW3: TDBEdit;
    XW4: TDBEdit;
    ZMR2: TDBEdit;
    ZMR3: TDBEdit;
    ZMR4: TDBEdit;
    ZMR1: TDBEdit;
    sfzh: TDBEdit;
    zzmm: TDBEdit;
    hyzk: TDBEdit;
    zc: TDBEdit;
    xw: TDBEdit;
    zgxl: TDBEdit;
    xgzdw: TDBEdit;
    xrzw: TDBEdit;
    cym: TDBEdit;
    rybh: TDBEdit;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Button2: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel12: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Panel14: TPanel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    GroupBox3: TGroupBox;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel19: TPanel;
    Panel20: TPanel;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    Panel21: TPanel;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    GroupBox4: TGroupBox;
    Panel22: TPanel;
    Panel23: TPanel;
    Panel26: TPanel;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    Panel8: TPanel;
    Panel13: TPanel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var str:string;
   begin
      str:='select * from ryxx where xm like'+''''+edit1.Text+'%'+'''';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(str);
      query1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
 var str:string;
begin
      str:='select * from ryxx where rybh like'+''''+edit1.Text+'%'+'''';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(str);
      query1.Open;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  form2.QuickRep1.Preview;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //     form2.
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   form2.QuickRep1.Print;
end;

end.