query.pas

劳保用品管理系统

unit query;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables, ADODB, ComCtrls, Grids, DBGrids;

type
  Tqueryfm = class(TForm)
    PageControl1: TPageControl;
    TabSheet3: TTabSheet;
    Panel21: TPanel;
    Panel22: TPanel;
    DBGrid11: TDBGrid;
    DBGrid12: TDBGrid;
    DBGrid15: TDBGrid;
    Label50: TLabel;
    Label53: TLabel;
    Label55: TLabel;
    Edit23: TEdit;
    DBGrid14: TDBGrid;
    Label54: TLabel;
    procedure DBGrid11CellClick(Column: TColumn);
    procedure DBGrid12CellClick(Column: TColumn);
    procedure Edit23Change(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  queryfm: Tqueryfm;
  a: array of Tcombobox;
  b: array of Tlabel;
  ii: integer;
implementation
{$R *.DFM}
//使用adoquery18,19,20,21
uses mylib, adodata;
//打开adoquery通用过程—OPEN方法

procedure OpenADOquery(adoqry: Tadoquery; sqltxt: string);
begin
  ADOQry.Close;
  ADOQry.SQL.Clear;
  ADOQry.SQL.Add(sqltxt);
  ADOQry.open;
end;
//执行adoquery通用过程—EXEC方法

procedure EXECADOquery(adoqry: Tadoquery; sqltxt: string);
begin
  ADOQry.Close;
  ADOQry.SQL.Clear;
  ADOQry.SQL.Add(sqltxt);
  ADOQry.ExecSQL;
end;

procedure Tqueryfm.DBGrid11CellClick(Column: TColumn);
var
  s1, s: string;
begin
  s1 := adodm.adoquery19.FieldValues['bmbh'];
  s := 'select * from lkyg where bmbh=''' + s1 + '''';
  openadoquery(adodm.ADOQuery18, s);
end;

procedure Tqueryfm.DBGrid12CellClick(Column: TColumn);
var
  s1, s: string;
begin
  if adodm.adoquery18.Active = false then exit;
  if adodm.adoquery18.RecordCount = 0 then exit;
  s1 := adodm.adoquery18.FieldValues['ygbh'];
  s := 'select * from lkyg where ygbh=''' + s1 + '''';
  openadoquery(adodm.ADOQuery20, s);
  s := 'select * from ffjl where ygbh=''' + s1 + '''';
  openadoquery(adodm.ADOQuery21, s);
end;



procedure Tqueryfm.Edit23Change(Sender: TObject);
var
  s, s1: string;
begin
  s1 := trim(edit23.text) + '%';
  s := 'select * from lkyg where xmdm like ''' + s1 + '''';
  openadoquery(adodm.ADOQuery18, s);
  if adodm.ADOQuery18.RecordCount = 1 then
  begin
    s1 := adodm.ADOQuery18.FieldValues['ygbh'];
    s := 'select * from ffjl where ygbh=''' + s1 + '''';
    openadoquery(adodm.ADOQuery21, s); //发放记录
    s := 'select * from lkyg where ygbh=''' + s1 + '''';
    openadoquery(adodm.ADOQuery20, s); //员工资料
  end;

end;



procedure Tqueryfm.TabSheet3Show(Sender: TObject);
begin
  adodm.adoquery19.close;
  adodm.adoquery19.open;
end;

procedure Tqueryfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  adodm.ADOQuery18.Close;
  adodm.ADOQuery19.Close;
  adodm.ADOQuery20.Close;
  adodm.ADOQuery21.Close;
  Action := caFree;
end;

end.