fin.pas.~32~

delphi2007开发的汽车配件进销存系统.实用级的源码.

unit Fin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxBar, cxClasses, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, dxBarExtItems,
  cxBlobEdit, cxBarEditItem, cxCalc, cxContainer, cxGroupBox, cxPC, GridsEh,
  DBGridEh, cxLabel, cxTextEdit;

type
  TfrmIn = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarButton1: TdxBarButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarEdit1: TdxBarEdit;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGroupBox1: TcxGroupBox;
    cxGroupBox2: TcxGroupBox;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    cxTextEdit1: TcxTextEdit;
    cxLabel1: TcxLabel;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    dxBarLargeButton4: TdxBarLargeButton;
    cxButton3: TcxButton;
    cxButton4: TcxButton;
    cxButton5: TcxButton;
    cxButton6: TcxButton;
    procedure FormCreate(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
    procedure cxButton6Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIn: TfrmIn;

implementation

uses UDM, Fdybm;

{$R *.dfm}

procedure TfrmIn.cxButton1Click(Sender: TObject);
begin
  with dm.qry2 do begin
    active:=false;
    with sql do begin
      Clear;
      add('select * from spxx where bm like :pbm or pm like :ppm or gg like :pgg ');
    end;
    Parameters.ParamByName('pbm').value:='%'+ cxTextEdit1.Text+'%';
    Parameters.ParamByName('ppm').value:='%'+ cxTextEdit1.Text+'%';
    Parameters.ParamByName('pgg').value:='%'+ cxTextEdit1.Text+'%';
    Active:=true;
  end;
end;

procedure TfrmIn.cxButton2Click(Sender: TObject);
begin
  Frmdybm.ShowModal;
end;

procedure TfrmIn.cxButton4Click(Sender: TObject);
begin
  if Application.MessageBox('退出本页？', '提示信息', MB_OKCANCEL +
    MB_ICONQUESTION) = IDOK then
  begin
    close;
  end;
end;

procedure TfrmIn.cxButton5Click(Sender: TObject);
begin
  if Application.MessageBox('删除选中的记录吗？', '提示信息', MB_OKCANCEL +
    MB_ICONQUESTION) = IDOK then
  begin
    dm.qry1.Delete;
  end;
end;

procedure TfrmIn.cxButton6Click(Sender: TObject);
begin
  dm.qry1.active:=false;
  dm.qry1.Active:=true;
end;

procedure TfrmIn.cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 cxButton1.Click;
end;

procedure TfrmIn.DBGridEh1DblClick(Sender: TObject);
begin
  //DBGridEh1.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit]
  dm.qry1.Edit;
end;

procedure TfrmIn.FormCreate(Sender: TObject);
begin
  dxBarManager1.Style := TdxBarManagerStyle(4);

  //修改表头
  DBGridEh1.Columns[0].Title.caption:='进货单号';
  DBGridEh1.Columns[1].Title.caption:='配件编码';
  DBGridEh1.Columns[2].Title.caption:='数量';
  DBGridEh1.Columns[3].Title.caption:='进价';
  DBGridEh1.Columns[4].Title.caption:='单价';
  DBGridEh1.Columns[5].Title.caption:='进货日期';
  DBGridEh1.Columns[6].Title.caption:='进货金额';

  //修改表头
  DBGridEh2.Columns[0].Title.caption:='货位';
  DBGridEh2.Columns[1].Title.caption:='编码';
  DBGridEh2.Columns[2].Title.caption:='品名';
  DBGridEh2.Columns[3].Title.caption:='规格';
  DBGridEh2.Columns[4].Title.caption:='产地';
  DBGridEh2.Columns[5].Title.caption:='单位';
  DBGridEh2.Columns[6].Title.caption:='进价';
  DBGridEh2.Columns[7].Title.caption:='单价';
  DBGridEh2.Columns[8].Title.caption:='数量';
end;

end.