fjsr.pas

进销存开发系统

unit Fjsr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ToolWin,
  ComCtrls;

type
  TF_jsr = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    SpeedButton3: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_jsr: TF_jsr;

implementation
  uses Fusers,Fdm,Fjhd,Fzct, Fjhthd,Fxsd, Fxsthd, Fzyxx,Ffk, Fsk,Fxjfy,Fybfy;
{$R *.dfm}

procedure TF_jsr.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  if F_zct.wf=1 then
    F_jhd.Edit4.Text:=Adoquery1.Fields[1].AsString;
  if F_zct.wf=2 then
    F_jhthd.Edit4.Text:=Adoquery1.Fields[1].AsString;
  if F_zct.wf=3 then
    F_xsd.Edit4.Text:=adoquery1.Fields[1].AsString;
  if F_zct.wf=4 then
    F_xsthd.Edit4.Text:=adoquery1.Fields[1].AsString;
  if F_zct.wf=5 then
    F_zyxx.Edit2.Text:=adoquery1.Fields[1].AsString;
  if F_zct.wf=6 then
    F_fk.Edit4.Text:=adoquery1.Fields[1].AsString;
  if F_zct.wf=7 then
    F_sk.Edit4.Text:=adoquery1.Fields[1].AsString;
  if F_zct.wf=8 then
    F_xjfy.Edit3.Text:=Adoquery1.Fields[1].AsString;
  if F_zct.wf=9 then
    F_ybfy.Edit4.Text:=Adoquery1.Fields[1].AsString;
  if F_zct.wf=10 then
  begin
    F_users.Edit1.Text:=Adoquery1.Fields[0].AsString;
    F_users.Edit2.Text:=Adoquery1.Fields[1].AsString;
  end;
  Close;
end;

procedure TF_jsr.SpeedButton3Click(Sender: TObject);
var
  searchwhat:string;
begin
  inherited;
  searchwhat:='';
  case combobox1.ItemIndex of
    0: searchwhat:='employecode';
    1: searchwhat:='fullname';
    2: searchwhat:='name';
    3: searchwhat:='shortcode';
  end;
  try
    with ADoquery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from tb_employ ');
      SQL.Add('where '+''+searchwhat+''+' like :a');
      parameters.ParamByName('a').Value:='%'+Trim(Edit1.Text)+'%';
      open;
    end;
    if Application.MessageBox('是否刷新表？','提示',mb_yesno)=Id_yes then
      with ADoquery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from tb_employ order by employecode asc');
        open;
      end;
  except
    Application.MessageBox('请正确输入条件','提示',mb_ok);
  end;
end;

procedure TF_jsr.FormShow(Sender: TObject);
begin
  inherited;
  with ADoquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from tb_employ order by employecode asc');
    open;
  end;
end;

procedure TF_jsr.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TF_jsr.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then speedbutton2.Click;
end;

end.