appealinfo.pas

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

unit AppealInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDefine, wwDialog, wwidlg, DB, ADODB, ActnList, ComCtrls,
  ToolWin, Grids, DBGridEh, StdCtrls, DBCtrls, cxControls, cxContainer,
  cxEdit, cxImage, cxDBEdit, ExtCtrls, frxClass,Buttons, frxDBSet;

type
  TfrmAppealInfo = class(TfrmBaseDefine)
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    Qplate: TADOQuery;
    Qplateplate_no: TStringField;
    Qplateplate_name: TStringField;
    QBaseInfoid: TBCDField;
    QBaseInfoournal_No: TStringField;
    QBaseInfoAppeal_Date: TDateTimeField;
    QBaseInfobuyer: TStringField;
    QBaseInfohth: TStringField;
    QBaseInfoxh: TStringField;
    QBaseInfosizes: TStringField;
    QBaseInfoPlate: TStringField;
    QBaseInfoPlate_no: TStringField;
    QBaseInfoAppeal_text: TMemoField;
    QBaseInfochecks: TMemoField;
    QBaseInfoSolve: TMemoField;
    QBaseInfoLiabler: TStringField;
    QBaseInfoManage: TMemoField;
    QBaseInfoStresser: TStringField;
    QBaseInfotype: TStringField;
    QBaseInfoLiable_dept: TStringField;
    QBaseInforemark: TStringField;
    QBaseInfoimage: TBlobField;
    QBaseInfosavedate: TDateTimeField;
    QBaseInfotechnics: TStringField;
    QBaseInfoproduct_line: TStringField;
    QBaseInfosplate_no: TStringField;
    QBaseInfosplate: TStringField;
    Splitter1: TSplitter;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    cxDBImage1: TcxDBImage;
    GroupBox2: TGroupBox;
    DBMemo1: TDBMemo;
    GroupBox3: TGroupBox;
    DBMemo2: TDBMemo;
    GroupBox4: TGroupBox;
    DBMemo3: TDBMemo;
    GroupBox5: TGroupBox;
    DBMemo4: TDBMemo;
    Button1: TButton;
    Button2: TButton;
    qryLSH: TADOQuery;
    qryLSHqno: TStringField;
    qryLSHxno: TStringField;
    frxReportall: TfrxReport;
    frxReportone: TfrxReport;
    procedure lshs;
    procedure FormDestroy(Sender: TObject);
    procedure QBaseInfoAfterScroll(DataSet: TDataSet);
    procedure dsBaseInfoStateChange(Sender: TObject);
    procedure dsBaseInfoDataChange(Sender: TObject; Field: TField);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure acFindExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QBaseInfoAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAppealInfo: TfrmAppealInfo;
  LSH:string;
  bs:Integer;//流水号中需补零的个数
implementation

{$R *.dfm}
uses DataModule, Global , main , khcx ;


procedure TfrmAppealInfo.lshs;
begin
  with qryLSH do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select  substring(convert(varchar(50),getdate(),120),1,4)+substring(convert(varchar(50),getdate(),120),6,2) qno,isnull(convert(varchar(50),max(convert(int,substring(ournal_No,7,4)))+1),0) xno  ');
    SQL.Add('from ccclientappeal where substring(ournal_No,1,6)= substring(convert(varchar(50),getdate(),120),1,4)+substring(convert(varchar(50),getdate(),120),6,2)  ');
    Open;
  end;
  bs:=4-Length(qryLSHxno.AsString);
  if bs=3 then
  begin
    LSH:=qryLSHqno.AsString+'000'+inttostr(qrylshxno.AsInteger);
  end
  else if bs=2 then
  begin
    LSH:=qryLSHqno.AsString+'00'+inttostr(qrylshxno.AsInteger);
  end
  else if bs=1 then
  begin
    LSH:=qryLSHqno.AsString+'0'+inttostr(qrylshxno.AsInteger);
  end
  else if bs=0 then
  begin
    LSH:=qryLSHqno.AsString+inttostr(qrylshxno.AsInteger);
  end;
  QBaseInfo.FieldValues['ournal_No']:=LSH;

end;


procedure TfrmAppealInfo.FormDestroy(Sender: TObject);
begin
  inherited;
  frmAppealInfo:=nil ;
end;

procedure TfrmAppealInfo.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;
     end
     else if  (Copy(G_sDepName,1,4)=Copy(QBaseInfoproduct_line.AsString,1,4)) then
       begin
         self.tbtModify.Enabled:=True;
         self.tbtDelete.Enabled:=True;
       end
       else
       begin
         self.tbtModify.Enabled:=False;
         self.tbtDelete.Enabled:=False;
       end;
    end; 
end;

procedure TfrmAppealInfo.dsBaseInfoStateChange(Sender: TObject);
begin
  inherited;
  DBMemo1.ReadOnly :=not (QBaseInfo.State in [dsEdit]);
  DBMemo2.ReadOnly :=not (QBaseInfo.State in [dsEdit]);
  DBMemo3.ReadOnly:=not (QBaseInfo.State in [dsEdit]);
  DBMemo4.ReadOnly:=not (QBaseInfo.State in [dsEdit]);
  cxDBImage1.Properties.ReadOnly:=not (QBaseInfo.State in [dsEdit]);
end;

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

procedure TfrmAppealInfo.Button1Click(Sender: TObject);
begin
  inherited;
  frxReportone.ShowReport();
end;

procedure TfrmAppealInfo.Button2Click(Sender: TObject);
begin
  inherited;
  frxReportall.ShowReport();
end;

procedure TfrmAppealInfo.acFindExecute(Sender: TObject);
begin
 // inherited;
    frmkhcx:=Tfrmkhcx.Create(frmkhcx);
    frmkhcx.ShowModal;
    QBaseInfoAfterScroll(nil);
end;

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

procedure TfrmAppealInfo.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 TfrmAppealInfo.acCancelExecute(Sender: TObject);
begin
  //inherited;
   case MessageBox(Handle,'是否取消修改','提示信息',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON1) of
      IDYes:
      begin
        CanSave:=False;
        CanCancel:=False;
        QBaseInfo.CancelBatch();
      end;
      IDNo:
      begin
      end;
    end;   
end;

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

procedure TfrmAppealInfo.QBaseInfoAfterInsert(DataSet: TDataSet);
begin
  inherited;
  lshs;
   //QBaseInfoSavedate.AsDateTime:=Now;
  //QBaseInfoournal_No.AsString:=LSH;
   QBaseInfo.FieldValues['savedate']:=Now ;
   QBaseInfo.FieldValues['ournal_No']:= LSH ;
   QBaseInfo.FieldValues['product_line']:='';
   QBaseInfo.FieldValues['appeal_date']:=Now;
   QBaseInfo.FieldValues['splate_no']:='';
   QBaseInfo.FieldValues['plate_no']:='';
   QBaseInfo.FieldValues['plate']:='';
   QBaseInfo.FieldValues['buyer']:='';
   QBaseInfo.FieldValues['hth']:='';
   QBaseInfo.FieldValues['xh']:='';
   QBaseInfo.FieldValues['sizes']:='';
   QBaseInfo.FieldValues['liabler']:='';
   QBaseInfo.FieldValues['stresser']:='';
   QBaseInfo.FieldValues['type']:='';
   QBaseInfo.FieldValues['liable_dept']:='';
   QBaseInfo.FieldValues['remark']:='';
end;

end.