unit kccx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, dxCntner, dxTL, dxDBCtrl, dxDBTL, ComCtrls,
  dxtree, dxdbtree, dxdbtrel, cxLookAndFeelPainters, dxfColorButton,
  StdCtrls, cxButtons, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit,
  Grids, DBGridEh, cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit,
  bsSkinCtrls, HzSpell, cxGraphics, cxCustomData, cxStyles, cxTL,
  cxInplaceContainer, cxDBTL, cxTLData, Mask, DBCtrlsEh, DBLookupEh, Menus,
  cxDBExtLookupComboBox, cxFilterControl, cxDBFilterControl,
  cxDBLookupComboBox;

type
  Tkccxck = class(TForm)
    Table2: TADOTable;
    Table3: TADOTable;
    DataSource0: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    py: THzSpell;
    spzl: TADOQuery;
    ADOQy1: TADOQuery;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    DBGridEh1: TDBGridEh;
    cxLabel1: TcxLabel;
    DataSource1: TDataSource;
    dblp1: TDBLookupComboboxEh;
    Button3: TdxfColorButton;
    spzk: TADOQuery;
    Table8: TADOTable;
    DataSource8: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ePanel1: TbsSkinExPanel;
    DBFc1: TcxDBFilterControl;
    cxButton1: TcxButton;
    Table5: TADOTable;
    DataSource5: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure dblp1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kccxck: Tkccxck;

implementation

{$R *.dfm}

uses main;

procedure Tkccxck.FormCreate(Sender: TObject);
begin
table2.Open;
table5.Open;
table8.Open;
spzl.Open;
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;
table8.Edit;
table8['mc']:=table2['mc'];
if not main.lb then dbgrideh1.Columns[3].Visible:=false; 
epanel1.RollState:=true;
end;

procedure Tkccxck.dblp1Change(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;

end;

procedure Tkccxck.N1Click(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where (ckh=:bh) and (spbh like :bh)');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Parameters[1].Value:=spzl['spbh']+'%';
adoqy1.Open;
end;

procedure Tkccxck.cxButton1Click(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where (ckh=:bh) and (spbh like :bh) and ');
adoqy1.SQL.Add(dbfc1.FilterText);
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Parameters[1].Value:=spzl['spbh']+'%';
adoqy1.Open;
epanel1.RollState:=true;
end;

end.