p_jysp.~pas

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

unit p_jysp;

interface

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

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

var
  F_jysp: TF_jysp;

implementation

uses p_main, p_jiayin;

{$R *.dfm}

procedure TF_jysp.Button1Click(Sender: TObject);
var
  zj:integer;
  i:integer;
  s:string;
begin
  for i:=0 to zjyj.Lines.Count-1 do
      s:=s+zjyj.lines.Strings[i];
  try
      with F_jiayin.query_jy do
        begin
           open;
           Edit;
           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=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_jiayin.Query_jy.UpdateRecord;
        F_jiayin.Query_jy.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_jiayin.Query_jy do
       begin
         Close;
         SQL.Clear;
         SQL.Add('Select * from 加印图书质检 order by 质检开始时间 desc');
         Open;
       end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  close;
end;

procedure TF_jysp.FormShow(Sender: TObject);
begin
if (f_main.qx=90) or (f_main.qx=100) then
  begin
  label1.Caption:='代批意见';
  label2.Caption:='代批结果';
  label4.Caption:='代 批 人';
  label3.Caption:='代批日期';
  end;
sprq.text:=formatdatetime('c',now);
fzr.Text:=f_main.StatusBar1.Panels[1].text;
end;

function TF_jysp.formatstr(s:string):string;
var
 i:integer;
 m:string;
begin
 m:='';
 for i:=1 to length(s) do
    begin
      if i mod 16 =0 then
        m:=m+copy(s,i-15,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.