p_jyzj.~pas

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

unit p_jyzj;

interface

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

type
  TF_jyzj = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    wenqi: TEdit;
    jiejue: TEdit;
    jielun: TComboBox;
    wcsj: TEdit;
    zjr: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    function formatstr(s:string):string;
    function timestr(s:string):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_jyzj: TF_jyzj;

implementation

uses p_main, p_jiayin;

{$R *.dfm}

procedure TF_jyzj.FormShow(Sender: TObject);
begin
wcsj.text:=formatdatetime('c',now);
zjr.Text:=f_main.StatusBar1.Panels[1].text;
end;

procedure TF_jyzj.Button1Click(Sender: TObject);
var
  zj:integer;
begin
  if (Trim(wenqi.Text)='') or (Trim(jiejue.Text)='') or (Trim(jielun.Text)='') or (Trim(wcsj.Text)='') or (Trim(zjr.Text)='') then
    begin
      Application.MessageBox('请输入完整的信息','提示',mb_ok);
      Exit;
    end;
  try

      with F_jiayin.query_jy do
        begin
           open;
           Edit;
            if f_main.qx=1 then
             begin
               fieldbyname('审查问题1').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况1').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论1').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间1').AsString:=Trim(wcsj.Text);
               fieldbyname('签字1').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态1').AsString:='已检';
             end;
           if f_main.qx=2 then
             begin
               fieldbyname('审查问题2').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况2').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论2').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间2').AsString:=Trim(wcsj.Text);
               fieldbyname('签字2').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态2').AsString:='已检';
             end;
           if f_main.qx=6 then
             begin
               fieldbyname('审查问题6').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况6').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论6').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间6').AsString:=Trim(wcsj.Text);
               fieldbyname('签字6').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态6').AsString:='已检';
             end;
           if f_main.qx=7 then
             begin
               fieldbyname('审查问题7').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况7').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论7').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间7').AsString:=Trim(wcsj.Text);
               fieldbyname('签字7').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态7').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;

function TF_jyzj.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;

function TF_jyzj.timestr(s:string):string;
var
 m:string;
begin
 m:='';
 m:=m + copy(s,1,10)+chr(13)+copy(s,11,length(s));
 result:=result+m;  
end;




end.