dhsl.pas

服务信息管理系统

unit dhsl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, DB, DBTables,
  DBGridEh;

type
  Tfrmdhsl = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    CloseButton: TBitBtn;
    Panel3: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    DataSource2: TDataSource;
    DBGrid2: TDBGridEh;
    DBGrid1: TDBGridEh;
    QueryKhcx: TQuery;
    KhgjTable: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CloseButtonClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure QueryKhcxFilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdhsl: Tfrmdhsl;
  lsbl_cxnr: string;

implementation

uses scpgd, mainform, fwdjb;

{$R *.dfm}

procedure Tfrmdhsl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmdhsl := nil;
end;

procedure Tfrmdhsl.CloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrmdhsl.FormResize(Sender: TObject);
begin
  DbGrid2.Top := 30;
  DbGrid2.Height := Panel2.Height - 31;
  Label4.Left := Self.Width - 122;
  Label3.Left := Self.Width - 193;
  CloseButton.Left := self.Width - 97;
end;

procedure Tfrmdhsl.FormShow(Sender: TObject);
var
  lsbl_khbh: string;
begin
  QueryKhcx.OnFilterRecord := nil;
  QueryKhcx.active := True;
  Label4.Caption := InttoStr(QueryKhcx.RecordCount);
  QueryKhcx.First;
  lsbl_khbh := QueryKhcx.FieldValues['Kh_bh'];
end;

procedure Tfrmdhsl.Edit1Change(Sender: TObject);
begin
  lsbl_cxnr := Trim(Edit1.text);
  if lsbl_cxnr = '' then
    begin
      QueryKhcx.OnFilterRecord := nil;
      QueryKhcx.Filtered := False;
    end
  else
    begin
      QueryKhcx.OnFilterRecord := QueryKhcxFilterRecord;
      QueryKhcx.Filtered := True;
    end;
  Label4.Caption := InttoStr(QueryKhcx.RecordCount);
end;

procedure Tfrmdhsl.DBGrid1DblClick(Sender: TObject);
begin
  frmscpgd := Tfrmscpgd.Create(Self);
  with frmscpgd do
    begin
      KhbhEdit.Text := Trim(QueryKhcx.FieldByName('Kh_bh').AsString);
      KhmcEdit.Text := Trim(QueryKhcx.FieldByName('Kh_mc').AsString);
      lxrEdit.Text := Trim(QueryKhcx.FieldByName('kh_lxr').AsString);
      lxdhEdit.Text := Trim(QueryKhcx.FieldByName('kh_dh').AsString);
      dzEdit.Text := Trim(QueryKhcx.FieldByName('kh_dz').AsString);
      ShowModal;
    end;
end;

procedure Tfrmdhsl.Button2Click(Sender: TObject);
begin
  QueryKhcx.OnFilterRecord := nil;
  Edit1.Text := '';
  QueryKhcx.Filtered := False;
  QueryKhcx.Active := False;
  QueryKhcx.Active := True;
  Edit1.SetFocus;
end;

procedure Tfrmdhsl.QueryKhcxFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('kh_bh').AsString)) or (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('kh_mc').AsString)) or
    (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('kh_zjm').AsString)) or (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('kh_dh').AsString)) or
    (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('dq_mc').AsString)) or (sysform.StrLike(lsbl_cxnr, QueryKhcx.FieldByName('kh_lxr').AsString));
end;

end.