fin.pas.~27~

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~27~ 代码 · 共 119 行

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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIn: TfrmIn;

implementation

uses UDM, Fdybm;

{$R *.dfm}

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.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.