p_sp.~pas

图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制

unit p_sp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TF_sp = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    sprq: TEdit;
    Label4: TLabel;
    fzr: TEdit;
    Button1: TButton;
    zjjg: TComboBox;
    zjyj: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    function formatstr(s:string):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sp: TF_sp;

implementation

uses p_main;

{$R *.dfm}

procedure TF_sp.Button1Click(Sender: TObject);

var
  zj:integer;
  i:integer;
  s:string;
begin
  if Trim(zjjg.Text)='' then
    begin
      Application.MessageBox('请输入质检结果！','提示',mb_ok);
      Exit;
    end;
    for i:=0 to zjyj.Lines.Count-1 do
        s:=s+zjyj.lines.Strings[i];
  try

      with F_main.query do
        begin
           open;
           Edit;
           if f_main.qx=7 then
             begin
               fieldbyname('处理情况7').AsString:=formatstr(s);
               fieldbyname('完成时间7').AsString:=Trim(sprq.Text);
               fieldbyname('签字7').AsString:=Trim(fzr.Text);
               fieldbyname('质检状态7').AsString:='已批';
             end;
           if f_main.qx=8 then
             begin
               fieldbyname('处理情况8').AsString:=formatstr(s);
               fieldbyname('审查结论8').AsString:=Trim(zjjg.Text);
               fieldbyname('完成时间8').AsString:=Trim(sprq.Text);
               fieldbyname('签字8').AsString:=Trim(fzr.Text);
               fieldbyname('质检状态8').AsString:='已批';
             end;
           if f_main.qx=9 then
             begin
               fieldbyname('处理情况9').AsString:=formatstr(s);
               fieldbyname('审查结论9').AsString:=Trim(zjjg.Text);
               fieldbyname('完成时间9').AsString:=Trim(sprq.Text);
               fieldbyname('签字9').AsString:=Trim(fzr.Text);
               fieldbyname('质检状态9').AsString:='已批';
             end;
           if f_main.qx=10 then
             begin
               fieldbyname('处理情况10').AsString:=formatstr(s);
               fieldbyname('审查结论10').AsString:=Trim(zjjg.Text);
               fieldbyname('完成时间10').AsString:=Trim(sprq.Text);
               fieldbyname('签字10').AsString:=Trim(fzr.Text);
               fieldbyname('质检状态10').AsString:='已批';
             end;
            if f_main.qx=90 then
             begin
               fieldbyname('处理情况9').AsString:=formatstr(s);
               fieldbyname('审查结论9').AsString:=Trim(zjjg.Text);
               fieldbyname('完成时间9').AsString:=Trim(sprq.Text);
               fieldbyname('签字9').AsString:=Trim(fzr.Text)+'代批';
               fieldbyname('质检状态9').AsString:='代批';
             end;
            if f_main.qx=100 then
             begin
               fieldbyname('处理情况10').AsString:=formatstr(s);
               fieldbyname('审查结论10').AsString:=Trim(zjjg.Text);
               fieldbyname('完成时间10').AsString:=Trim(sprq.Text);
               fieldbyname('签字10').AsString:=Trim(fzr.Text)+'代批';
               fieldbyname('质检状态10').AsString:='代批';
             end;


         end;
        F_main.Query.UpdateRecord;
        F_main.Query.Post;

    for zj:=0 to self.ComponentCount-1 do
      begin
        if (self.Components[zj] is TEdit) then
        TEdit(self.Components[zj]).Clear;
      end;
    with F_main.query do
       begin
         Close;
         SQL.Clear;
         SQL.Add('Select * from 成书质检表 order by 质检开始时间 desc');
         Open;
       end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  close;
end;

procedure TF_sp.FormShow(Sender: TObject);
begin
if f_main.qx=7 then
  begin
    label1.Caption:='质检部质检员意见';
    label3.Caption:='质检日期';
     button1.Caption:='提　交';
    zjjg.Visible:=false;
  end;
if (f_main.qx=90) or (f_main.qx=100) then
  begin
    label1.Caption:='代批意见';
    label2.Caption:='代批结果';
    label3.Caption:='代批日期';
    label4.Caption:='代 批 人';
    button1.Caption:='提　交';
  end;
sprq.text:=formatdatetime('c',now);
fzr.Text:=f_main.StatusBar1.Panels[1].text;
end;


function TF_sp.formatstr(s:string):string;
var
 i:integer;
 m:string;
begin
 m:='';
 for i:=1 to length(s) do
    begin
      if i mod 32 =0 then
        m:=m+copy(s,i-31,i)+chr(13);
    end;
//m:=copy(s,1,16)+ chr(13) + copy(s,17,32)+ chr(13) + copy(s,33,48);
 result:=result+m;
end;



end.