ccslipfile.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit CcSlipFile;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDefine, wwDialog, wwidlg, DB, ADODB, ActnList, ComCtrls,
  ToolWin, Grids, DBGridEh, DBCtrls, DBCtrlsEh, StdCtrls, Mask, ExtCtrls,
  Buttons,  DBLookupEh, wwdblook, ExtDlgs, cxControls, cxContainer, cxEdit,
  cxImage, cxDBEdit, Menus;

type
  TfrmCcSlipFile = class(TfrmBaseDefine)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label20: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    GroupBox1: TGroupBox;
    QBaseInfo1: TADOQuery;
    dsBaseInfo1: TDataSource;
    QDept: TADOQuery;
    QBaseInfo1fid: TBCDField;
    QBaseInfo1hth: TStringField;
    QBaseInfo1buyer: TStringField;
    QBaseInfo1xh: TStringField;
    QBaseInfo1sizes: TStringField;
    QBaseInfo1plate: TStringField;
    QBaseInfo1cuteder: TStringField;
    QBaseInfo1cut_money: TBCDField;
    QBaseInfo1cut_date: TDateTimeField;
    QBaseInfo1remark: TStringField;
    Panel2: TPanel;
    Button4: TButton;
    Button5: TButton;
    cxDBImage1: TcxDBImage;
    PopupMenu1: TPopupMenu;
    QBaseInfo1ids: TBCDField;
    Label21: TLabel;
    Button1: TButton;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    QBaseInfoID: TBCDField;
    QBaseInfodates: TDateTimeField;
    QBaseInfohth: TStringField;
    QBaseInfobuyer: TStringField;
    QBaseInfoxh: TStringField;
    QBaseInfosizes: TStringField;
    QBaseInfoPlate: TStringField;
    QBaseInfoSlip_text: TMemoField;
    QBaseInfoWeight: TBCDField;
    QBaseInfoGrain: TBCDField;
    QBaseInfoAmount: TBCDField;
    QBaseInfoLiabler: TStringField;
    QBaseInfoUp_date: TDateTimeField;
    QBaseInfoManage: TMemoField;
    QBaseInfoChecker: TStringField;
    QBaseInfoLiable_dept: TStringField;
    QBaseInforemark: TStringField;
    QBaseInfoimages: TBlobField;
    QBaseInfosavedate: TDateTimeField;
    QBaseInfoinputer: TStringField;
    QBaseInfoSum_losing: TBCDField;
    QBaseInfoDirect_losing: TBCDField;
    QBaseInfomachine_No: TStringField;
    QBaseInfoworking_procedure: TStringField;
    QBaseInfotechnics: TStringField;
    QBaseInfoproduct_line: TStringField;
    QProduct_line: TADOQuery;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit9: TDBEdit;
    DBComboBoxEh2: TDBComboBoxEh;
    DBComboBoxEh1: TDBComboBoxEh;
    DBEdit15: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    QBaseInfo1product_line: TStringField;
    QBaseInfo1Liable_dept: TStringField;
    DBGridEh2: TDBGridEh;
    QBaseInfo1plate_no: TStringField;
    QBaseInfoPlate_no: TStringField;
    Label26: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Qplate: TADOQuery;
    QBaseInfosplate: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure QBaseInfoNewRecord(DataSet: TDataSet);
    procedure QBaseInfo1NewRecord(DataSet: TDataSet);
    procedure acFindExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure dsBaseInfoStateChange(Sender: TObject);
    procedure QBaseInfoAfterScroll(DataSet: TDataSet);
    procedure DbEdit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure dsBaseInfoDataChange(Sender: TObject; Field: TField);
    procedure wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure acModifyExecute(Sender: TObject);
    procedure QBaseInfo1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCcSlipFile: TfrmCcSlipFile;
  fcut_date:TDateTime;
implementation

uses DataModule,Global,LookUpGeneralCcinput, LookupSlipFile;

{$R *.dfm}


procedure TfrmCcSlipFile.FormDestroy(Sender: TObject);
begin
//  inherited;
  frmCcSlipFile:=nil;
end;

procedure TfrmCcSlipFile.FormCreate(Sender: TObject);
begin
  inherited;
  fcut_date:=StrToDateTime('1900-01-01');
 //-------------------责任部门
  self.QDept.Close;
  self.QDept.SQL.Clear;
  self.QDept.SQL.Add(' select distinct workshop from dbo.CcWorkingProcedure ');
  self.QDept.open;
  DBComboBoxEh1.KeyItems.Clear;
  DBComboBoxEh1.Items.Clear;
  with self.QDept do
  begin
    First;
    while not eof do
    begin
      DBComboBoxEh1.KeyItems.Add(trim(QDept.FieldByName('workshop').AsString));
      DBComboBoxEh1.Items.Add(trim(QDept.FieldByName('workshop').AsString));
      next;
    end
  end;
   //-------------------产品线
  self.Qproduct_line.Close;
  self.Qproduct_line.SQL.Clear;
  self.Qproduct_line.SQL.Add(' select distinct product_line from dbo.Ccproductline ');
  self.Qproduct_line.open;
  DBComboBoxEh2.KeyItems.Clear;
  DBComboBoxEh2.Items.Clear;
  with self.Qproduct_line do
  begin
    First;
    while not eof do
    begin
      DBComboBoxEh2.KeyItems.Add(trim(Qproduct_line.FieldByName('product_line').AsString));
      DBComboBoxEh2.Items.Add(trim(Qproduct_line.FieldByName('product_line').AsString));
      next;
    end
  end;
  QBaseInfo1.Close;
  QBaseInfo1.Open;
end;


procedure TfrmCcSlipFile.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TfrmCcSlipFile.Button4Click(Sender: TObject);
begin
//  inherited;
  QBaseInfo1.Append;
end;

procedure TfrmCcSlipFile.Button5Click(Sender: TObject);
begin
//  inherited;
  if self.QBaseInfo1.RecordCount=0 then
    begin
       ShowMessage('记录为空');
       Exit;
    end
  else
    begin
      case MessageDlg('是否删除当前的记录？', mtWarning, [mbYes, mbNo], 0) of
       mrYes:
          begin
             QBaseInfo1.Delete;
          end;
        mrNo:
        begin
        end;
    end;
end;
end;



procedure TfrmCcSlipFile.QBaseInfoNewRecord(DataSet: TDataSet);
begin
   QBaseInfo.FieldValues['inputer']:=G_sUserName;
   QBaseInfo.FieldValues['dates']:=Now;
   QBaseInfo.FieldValues['hth']:='';
   QBaseInfo.FieldValues['buyer']:='';
   QBaseInfo.FieldValues['liabler']:='';
   QBaseInfo.FieldValues['xh']:='';
   QBaseInfo.FieldValues['sizes']:='';
   QBaseInfo.FieldValues['plate']:='';
   QBaseInfo.FieldValues['weight']:=0;
   QBaseInfo.FieldValues['amount']:=0;
   QBaseInfo.FieldValues['grain']:=0;
   QBaseInfo.FieldValues['liabler']:='';
   QBaseInfo.FieldValues['checker']:='';
   QBaseInfo.FieldValues['savedate']:=Now;
   QBaseInfo.FieldValues['slip_text']:='';
   QBaseInfo.FieldValues['up_date']:=Now;
   QBaseInfo.FieldValues['manage']:='';
   QBaseInfo.FieldValues['remark']:='';
   QBaseInfo.FieldValues['Sum_losing']:=0;
   QBaseInfo.FieldValues['Direct_losing']:=0;
   QBaseInfo.FieldValues['working_procedure']:='';
   QBaseInfo.FieldValues['machine_No']:='';
   QBaseInfo.FieldValues['technics']:='';
   QBaseInfo.FieldValues['product_line']:='';
   QBaseInfo.FieldValues['Liable_dept']:='';
   inherited;
end;

procedure TfrmCcSlipFile.QBaseInfo1NewRecord(DataSet: TDataSet);
begin
  QBaseInfo1.FieldValues['FID']:=QBaseInfo.FieldValues['ID'];
  QBaseInfo1.FieldValues['hth']:=QBaseInfo.FieldValues['hth'];
  QBaseInfo1.FieldValues['buyer']:=QBaseInfo.FieldValues['buyer'];
  QBaseInfo1.FieldValues['xh']:=QBaseInfo.FieldValues['xh'];
  QBaseInfo1.FieldValues['sizes']:=QBaseInfo.FieldValues['sizes'];
  QBaseInfo1.FieldValues['plate']:=QBaseInfo.FieldValues['plate'];
  QBaseInfo1.FieldValues['plate_no']:=QBaseInfo.FieldValues['plate_no'];
  QBaseInfo1.FieldValues['cuteder']:='';
  QBaseInfo1.FieldValues['cut_money']:=0;
  QBaseInfo1.FieldValues['cut_date']:=fcut_date;
  QBaseInfo1.FieldValues['remark']:='';
  QBaseInfo1.FieldValues['product_line']:=QBaseInfo.FieldValues['product_line'];
  QBaseInfo1.FieldValues['Liable_dept']:=QBaseInfo.FieldValues['Liable_dept'];
  inherited;

end;

procedure TfrmCcSlipFile.acFindExecute(Sender: TObject);
var
  QbaseinfoSQL:string;
begin
//  inherited;
  QbaseinfoSQL:='select * from CcSlipFile where 1=1 ';
  if not Assigned(frmLookupSlipFile) then
    frmLookupSlipFile:=TfrmLookupSlipFile.Create(self);
  if frmLookupSlipFile.ShowModal=mrOK then
  begin
    with QBaseInfo do
    begin
      DisableControls;
      SQL.Clear;
      SQL.Add(QbaseinfoSQL + frmLookupSlipFile.sFilter);
      Open;
      EnableControls;
    end;
  end;
  if QBaseInfo.RecordCount<>0 then
  begin
    if QBaseInfo1.Active=False then
       QBaseInfo1.Active:=True;
  end;
  QBaseInfoAfterScroll(nil);
end;

procedure TfrmCcSlipFile.acSaveExecute(Sender: TObject);
begin
//  inherited;
    case MessageBox(Handle,'是否保存记录','提示信息',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON1) of
        IDYes:
        begin
            try
                CanSave:=False;
                CanCancel:=False;
                QBaseInfo1.UpdateBatch();
                QBaseInfo.UpdateBatch();
                ShowMessage('保存完毕！');
            except
                ShowMessage('保存出错！');
                CanSave:=True;
                CanCancel:=True;
                QBaseInfo.Edit;
                self.tbtModify.Enabled:=False;
            end;
        end;
        IDNo:
        begin
        end;
    end;
end;

procedure TfrmCcSlipFile.acDeleteExecute(Sender: TObject);
begin
//  inherited;
  if self.QBaseInfo.RecordCount=0 then
  begin
    ShowMessage('记录为空');
    Exit;
  end
  else
  begin
      case MessageDlg('是否删除当前的记录？', mtWarning, [mbYes, mbNo], 0) of
        mrYes:
        begin
            CanSave:=True;
            CanCancel:=True;
            QBaseInfo.Delete;
        end;
        mrNo:
        begin
        end;
      end;
  end;
end;

procedure TfrmCcSlipFile.acCancelExecute(Sender: TObject);
begin
//  inherited;
    case MessageBox(Handle,'是否取消修改','提示信息',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON1) of
      IDYes:
      begin
        CanSave:=False;
        CanCancel:=False;
        QBaseInfo1.CancelBatch();
        QBaseInfo.CancelBatch();
      end;
      IDNo:
      begin
      end;
    end;
end;

procedure TfrmCcSlipFile.dsBaseInfoStateChange(Sender: TObject);
var
  i:Integer;
begin
  inherited;
  with Panel1 do
    for i := 0 to ControlCount - 1 do
      if Controls[i] is TDBEdit then
        (Controls[i] as TDBEdit).ReadOnly := not (QBaseInfo.State in [dsEdit])
      else if Controls[i] is TDBImage then
        (Controls[i] as TDBImage).ReadOnly := not (QBaseInfo.State in [dsEdit])
      else if Controls[i] is TDBDateTimeEditEh then
        (Controls[i] as TDBDateTimeEditEh).ReadOnly := not (QBaseInfo.State in [dsEdit])
      else if Controls[i] is TDBComboBoxEh then
        (Controls[i] as TDBComboBoxEh).ReadOnly := not (QBaseInfo.State in [dsEdit])
      else if Controls[i] is TDBMemo then
        (Controls[i] as TDBMemo).ReadOnly := not (QBaseInfo.State in [dsEdit]);
end;

procedure TfrmCcSlipFile.QBaseInfoAfterScroll(DataSet: TDataSet);
begin
  inherited;
  if QBaseInfo.RecordCount<>0 then
  begin
    if G_bAdmin=True then
    begin
      self.tbtModify.Enabled:=True;
      self.tbtDelete.Enabled:=True;
      Button1.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
    end
    else if (Copy(G_sDepName,1,4)=Copy(QBaseInfoproduct_line.AsString,1,4)) then
    begin
      self.tbtModify.Enabled:=True;
      self.tbtDelete.Enabled:=True;
      Button1.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
    end
    else
    begin
      self.tbtModify.Enabled:=False;
      self.tbtDelete.Enabled:=False;
      Button1.Enabled:=False;
      Button4.Enabled:=False;
      Button5.Enabled:=False;
    end;
    self.Label21.Caption:='档案份数：'+IntToStr(self.QBaseInfo.RecordCount)+chr(13)+'当前：'+inttostr(self.QBaseInfo.RecNo);
  end;
end;

procedure TfrmCcSlipFile.DbEdit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  QBaseInfo.FieldByName('Amount').AsFloat:= QBaseInfo.FieldByName('Weight').Asfloat*StrToFloat(DbEdit7.Text) ;
end;

procedure TfrmCcSlipFile.Button1Click(Sender: TObject);
begin

  QBaseInfo1.UpdateBatch();
  ShowMessage('保存完毕！');
  inherited;
end;

procedure TfrmCcSlipFile.FormKeyPress(Sender: TObject; var Key: Char);
begin
//  inherited;
  if Key=#13 then
    begin
        {if ActiveControl is TDBComboBoxEh then
        begin
            
        end
        else}
        begin
            keybd_event(VK_TAB,0,0,0);
            //Perform(WM_NEXTDLGCTL, 0, 0);
        end;
    end;
end;

procedure TfrmCcSlipFile.dsBaseInfoDataChange(Sender: TObject;
  Field: TField);
begin
//  inherited;
  dsBaseInfoStateChange(nil);
end;

procedure TfrmCcSlipFile.wwDBLookupCombo1CloseUp(Sender: TObject;
  LookupTable, FillTable: TDataSet; modified: Boolean);
begin
  inherited;
  QBaseInfo.FieldValues['plate']:=QBaseInfo.FieldValues['splate'];
end;

procedure TfrmCcSlipFile.acModifyExecute(Sender: TObject);
begin
  inherited;
      Button1.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
end;

procedure TfrmCcSlipFile.QBaseInfo1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if QBaseInfo1.RecordCount<>0 then
    fcut_date:=QBaseInfo1.FieldValues['cut_date'];
end;

end.