ffylx.pas

系统目标：通过库存管理系统

unit Ffylx;

interface

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

type
  TF_fylx = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    SpeedButton5: TSpeedButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    change:boolean;     //是否为修改状态
    spbh:string;        //费用类型编号
  end;

var
  F_fylx: TF_fylx;

implementation
  uses Fdm,Ffylxcx;
{$R *.dfm}


procedure TF_fylx.FormShow(Sender: TObject);
begin
  inherited;
  change:=False;
  with adoquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from tb_feetype order by subjectcode asc');     //排序
    Open;
  end;
end;

procedure TF_fylx.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  try
    if Application.MessageBox('是否删除当前记录？','提示',mb_yesno)=id_yes then
      Adoquery1.Delete;
  except
    Application.MessageBox('不能删除','提示',mb_yesno);
  end;
end;

procedure TF_fylx.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(TF_fylxcx, F_fylxcx);
  F_fylxcx.ShowModal;
  F_fylxcx.Free;
end;

procedure TF_fylx.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  change:=True;
  Application.CreateForm(TF_fylxcx, F_fylxcx);
  F_fylxcx.ShowModal;
  F_fylxcx.Free;
end;

procedure TF_fylx.SpeedButton1Click(Sender: TObject);
var
  searchwhat:string;
begin
  inherited;
  Panel1.Visible:=not(Panel1.Visible);
  if Panel1.Visible=False then
  begin
    searchwhat:='';
    case combobox1.ItemIndex of
      0: searchwhat:='subjectcode';
      1: searchwhat:='fullname';
      2: searchwhat:='name';
      3: searchwhat:='shortcode';
    end;
    try
      with ADoquery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from tb_feetype ');
        SQL.Add('where '+''+searchwhat+''+' like :a order by subjectcode');
        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_feetype order by subjectcode');
          open;
        end;
    except
      Application.MessageBox('请正确输入条件','提示',mb_ok);
    end;
  end;
end;
procedure TF_fylx.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.