p_cszj.~pas

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

unit p_cszj;

interface

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

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

  end;

var
  F_cszj: TF_cszj;

implementation

uses p_main;

{$R *.dfm}

procedure TF_cszj.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_main.query 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=3 then
             begin
               fieldbyname('审查问题3').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况3').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论3').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间3').AsString:=Trim(wcsj.Text);
               fieldbyname('签字3').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态3').AsString:='已检';
             end;
           if f_main.qx=4 then
             begin
               fieldbyname('审查问题4').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况41').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论4').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间4').AsString:=Trim(wcsj.Text);
               fieldbyname('签字4').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态4').AsString:='已检';
             end;
           if f_main.qx=5 then
             begin
               fieldbyname('审查问题5').AsString:=formatstr(Trim(wenqi.Text));
               fieldbyname('处理情况5').AsString:=formatstr(Trim(jiejue.Text));
               fieldbyname('审查结论5').AsString:=Trim(jielun.Text);
               fieldbyname('完成时间5').AsString:=Trim(wcsj.Text);
               fieldbyname('签字5').AsString:=Trim(zjr.Text);
               fieldbyname('质检状态5').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;
        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_cszj.FormShow(Sender: TObject);
begin
wcsj.text:=formatdatetime('c',now);
zjr.Text:=f_main.StatusBar1.Panels[1].text;
end;

procedure TF_cszj.Button2Click(Sender: TObject);
begin
close;
end;

function TF_cszj.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_cszj.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.