fkcsp.pas

进销存开发系统

unit Fkcsp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, Buttons, ToolWin, ComCtrls, Grids, DB, ADODB, DBGrids,
  StdCtrls, ExtCtrls, RpCon, RpConDS, RpDefine, RpRave, Word2000, OleServer;

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

var
  F_kcsp: TF_kcsp;

implementation
  uses Fsbjbcx;
{$R *.dfm}

procedure TF_kcsp.getspbh(sender:Tobject);    //得到商品编号
begin
  adoquery1.Last;
  if adoquery1.RecordCount=0 then
    spbh:='T'+formatfloat('00000',1)
  else
    spbh:='T'+Formatfloat('00000',strtoint(copy(adoquery1.Fields[0].AsString,2,5))+1);
end;

procedure TF_kcsp.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(TF_sbjbcx, F_sbjbcx);
  F_sbjbcx.ShowModal;
  F_sbjbcx.Free;
end;

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

procedure TF_kcsp.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  change:=True;
  Application.CreateForm(TF_sbjbcx, F_sbjbcx);
  F_sbjbcx.ShowModal;
  F_sbjbcx.Free;
  
end;

procedure TF_kcsp.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_kcsp.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:='tradecode';
      1: searchwhat:='fullnamed';
      2: searchwhat:='name';
      3: searchwhat:='shortcode';
    end;
    try
      with ADoquery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from tb_stock ');       //写SQL语句
        SQL.Add('where '+''+searchwhat+''+' like :a order by tradecode');
        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_stock order by tradecode');   //刷新
          open;
        end;
    except
      Application.MessageBox('请正确输入条件','提示',mb_ok);
    end;
  end;
end;

procedure TF_kcsp.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_kcsp.SpeedButton6Click(Sender: TObject);
begin
  inherited;
  Rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'stockprint.rav'; //指定报表文件
  RvProject1.Execute;   //预览报表
end;

end.