uworkinfo.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 169 行

unit uWorkInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub1, dxExEdtr, ImgList, ActnList, Menus, DB, ComCtrls,
  ToolWin, StdCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, DBCtrls,
  dxEditor, dxEdLib, dxDBELib, Mask, dxDBTLCl, dxGrClms, Buttons;

type
  TfmWorkInfo = class(Tfmpub1)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    dxDBSpinEdit1: TdxDBSpinEdit;
    DBRadioGroup1: TDBRadioGroup;
    DSBillAction: TDataSource;
    DSAction: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2ActionID: TdxDBGridMaskColumn;
    dxDBGrid2ActionName: TdxDBGridLookupColumn;
    dxDBGrid1ActionID: TdxDBGridMaskColumn;
    dxDBGrid1ActionName: TdxDBGridMaskColumn;
    dxDBGrid1CostTypeName: TdxDBGridLookupColumn;
    dxDBGrid1Remark: TdxDBGridMaskColumn;
    dxDBGrid1Creater: TdxDBGridMaskColumn;
    dxDBGrid1Createdate: TdxDBGridDateColumn;
    dxDBGrid1Updater: TdxDBGridMaskColumn;
    dxDBGrid1Updatedate: TdxDBGridDateColumn;
    dxDBGrid1CostRate: TdxDBGridCalcColumn;
    GroupBox2: TGroupBox;
    dxDBGrid1Enabled: TdxDBGridCheckColumn;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    Label11: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label12: TLabel;
    DBEdit9: TDBEdit;
    Label13: TLabel;
    DBEdit10: TDBEdit;
    GroupBox3: TGroupBox;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure dxDBGrid2DblClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ASaveExecute(Sender: TObject);
    procedure DBGrid1ChangeNode(Sender: TObject; OldNode,
      Node: TdxTreeListNode);
    procedure DBRadioGroup1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmWorkInfo: TfmWorkInfo;

implementation

uses uWIPDM, SherryLib;

{$R *.dfm}

procedure TfmWorkInfo.dxDBGrid2DblClick(Sender: TObject);
begin
  if Not DMWip.CBillAction.IsEmpty then DMWip.CBillAction.Delete
end;

procedure TfmWorkInfo.dxDBGrid1DblClick(Sender: TObject);
begin
  if not DMWip.CBillAction.Locate('ActionID',DMWip.CWorkAction['ActionID'],[loCaseInsensitive]) then
  DMWip.CBillAction.AppendRecord([DMWip.CWorkBill['BillID'],DMWip.CWorkAction['ActionID'],DMWip.CWorkAction['ActionName']]);
end;

procedure TfmWorkInfo.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  SherryLib.FormKeyDown(Sender,Key,Shift,dxDBGrid1);
end;

procedure TfmWorkInfo.dxDBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  dxDbgridKeyDown(key,dxDBGrid1, Shift);
end;

procedure TfmWorkInfo.FormCreate(Sender: TObject);
begin
  OpenData(DSAction);
  inherited;
  dxDBGrid2.ApplyBestFit(nil);
  dxDBGrid1.ApplyBestFit(nil);
end;

procedure TfmWorkInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseData(DSAction);
  inherited;
end;

procedure TfmWorkInfo.ASaveExecute(Sender: TObject);
begin
  if length(trim(DMWip.CWorkBill['BillName']))=0 then
  Warn('工时单据名称不能为空。');
  inherited;
  if DMWip.CWorkAction.ChangeCount>0 then
  DMWip.CWorkAction.ApplyUpdates(0)
end;

procedure TfmWorkInfo.DBGrid1ChangeNode(Sender: TObject; OldNode,
  Node: TdxTreeListNode);
begin
  //if Boolean(DMWip.CWorkBill['ByMachine']) then GroupBox2.Visible:=False
  //else GroupBox2.Visible:=True
end;

procedure TfmWorkInfo.DBRadioGroup1Change(Sender: TObject);
begin
  if DBRadioGroup1.ItemIndex=0 then
  begin GroupBox2.Visible:=False; Panel2.Visible:=False end
  else begin GroupBox2.Visible:=True; Panel2.Visible:=True end
end;

procedure TfmWorkInfo.BitBtn1Click(Sender: TObject);
begin
  dxDBGrid2DblClick(Sender);
end;

procedure TfmWorkInfo.BitBtn2Click(Sender: TObject);
begin
  dxDBGrid1DblClick(Sender);
end;

procedure TfmWorkInfo.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','A'..'Z',Chr(8)]) then Key:=#0;
end;

end.