p_addjiayin.pas

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

unit p_addjiayin;

interface

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

type
  TF_addjiayin = class(TForm)
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Panel2: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Button1: TButton;
    Button2: TButton;
    km: TComboBox;
    tsxl: TComboBox;
    banben: TComboBox;
    zjkssj: TEdit;
    lry: TEdit;
    mk: TComboBox;
    bb: TComboBox;
    Panel1: TPanel;
    dm: TEdit;
    dj: TEdit;
    Panel4: TPanel;
    xuanze: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_addjiayin: TF_addjiayin;

implementation

uses p_jiayin, p_main;

{$R *.dfm}

procedure TF_addjiayin.FormShow(Sender: TObject);
begin

  with xuanze do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 版别表 order by 排序');
      open;
      end;
      while Not xuanze.Eof do
      begin
      bb.Items.Add(xuanze.FieldByName('版别').Value);
      xuanze.Next;
      end;


  with xuanze do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 图书系列表 order by 排序');
      open;
      end;
      while Not xuanze.Eof do
      begin
       tsxl.Items.Add(xuanze.FieldByName('图书系列').Value);
       xuanze.Next;
      end;

  with xuanze do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 学科表 order by 排序');
      open;
      end;
      while Not xuanze.Eof do
      begin
      km.Items.Add(xuanze.FieldByName('学科').Value);
      xuanze.Next;
      end;


  with xuanze do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 模块表 order by 排序');
      open;
      end;
      while Not xuanze.Eof do
      begin
      mk.Items.Add(xuanze.FieldByName('模块').Value);
      xuanze.Next;
      end;

  with xuanze do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 版本表 order by 排序');
      open;
      end;
      while Not xuanze.Eof do
      begin
       banben.Items.Add(xuanze.FieldByName('版本').Value);
       xuanze.Next;
      end;

  try
    if F_jiayin.change_jy=True then
      with F_jiayin.Query_jy do
      begin
        zjkssj.Text:=formatdatetime('c',now);
        bb.Text:=fieldbyname('版别').AsString;
        tsxl.Text:=fieldbyname('图书系列').AsString;
        km.Text:=fieldbyname('科目').AsString;
        mk.Text:=fieldbyname('模块').AsString;
        banben.Text:=fieldbyname('版本').AsString;
        dm.Text:=fieldbyname('代码').AsString;
        dj.Text:=fieldbyname('定价').AsString;
        zjkssj.Text:=datetimetostr(fieldbyname('质检开始时间').AsDateTime);
        lry.Text:=fieldbyname('录入员').AsString;
      end
    else
    begin
      zjkssj.text:=formatdatetime('c',now);
      lry.Text:=trim(f_jiayin.StatusBar1.Panels[1].text);
    end;
  except
  end;

end;

procedure TF_addjiayin.Button1Click(Sender: TObject);
var
  zj:integer;

begin

 if (Trim(tsxl.Text)='') or (Trim(km.Text)='') or (Trim(mk.Text)='') or (Trim(bb.Text)='') or (Trim(banben.Text)='') or (Trim(dm.Text)='') or (Trim(dj.Text)='') or (Trim(zjkssj.Text)='') then
  begin
    Application.MessageBox('请输入完整的信息','提示',mb_ok);
    Exit;
  end;


  try
    F_jiayin.Query_jy.open;
    if F_jiayin.change_jy=True then
      F_jiayin.Query_jy.Edit
      else
      begin
         with F_jiayin.query_jy do  //添加信息
           begin
           Close;
           SQL.Clear;
           SQL.Add('Select * from 加印图书质检');
           Open;
           end;
        F_jiayin.Query_jy.Insert;
      end;
      with F_jiayin.Query_jy do
      begin

        fieldbyname('版别').AsString:=Trim(bb.Text);
        fieldbyname('图书系列').AsString:=Trim(tsxl.Text);
        fieldbyname('科目').AsString:=Trim(km.Text);
        fieldbyname('模块').AsString:=Trim(mk.Text);
        fieldbyname('版本').AsString:=Trim(banben.Text);
        fieldbyname('代码').AsString:=Trim(dm.Text);
        fieldbyname('定价').AsString:=Trim(dj.Text);
        fieldbyname('质检开始时间').AsDateTime:=strtodatetime(Trim(zjkssj.Text));
        fieldbyname('录入员').AsString:=Trim(lry.Text);
        fieldbyname('书名').AsString:=Trim(bb.Text)+Trim(tsxl.Text)+Trim(km.Text)+Trim(mk.Text)+Trim(banben.Text);
      end;
    if F_jiayin.change_jy=True then
      begin
        F_jiayin.Query_jy.UpdateRecord;
      end;
    if F_jiayin.change_jy=True then
      begin
        F_jiayin.change_jy:=False;
        Close;
      end;
    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 加印图书质检 where datediff("d",质检开始时间,now)<=7 order by 质检开始时间 desc');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  bb.SetFocus;
end;

procedure TF_addjiayin.Button2Click(Sender: TObject);
begin
xuanze.Close;
close;
end;

end.