p_add.~pas

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

unit p_add;

interface

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

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

var
  F_add: TF_add;

implementation

uses p_main, p_login;

{$R *.dfm}

procedure TF_add.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_main.Query.open;
    if F_main.change=True then
      F_main.Query.Edit
      else
      begin
         with F_main.query do  //添加信息
           begin
           Close;
           SQL.Clear;
           SQL.Add('Select * from 成书质检表');
           Open;
           end;
        F_main.Query.Insert;
      end;
      with F_main.Query do
      begin
        //fieldbyname('时间').AsDateTime:=StrToDateTime(formatdatetime('c',now));
        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_main.change=True then
      begin
        F_main.Query.UpdateRecord;
      end;
    if F_main.change=True then
      begin
        F_main.change:=False;
        Close;
      end;
    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 成书质检表 where datediff("d",质检开始时间,now)<=7 order by 质检开始时间 desc');
      //SQL.Add('Select * from 发排表');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  bb.SetFocus;

end;


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

procedure TF_add.FormShow(Sender: TObject);
begin
inherited;

  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_main.change=True then
      with F_main.Query 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:=f_main.StatusBar1.Panels[1].text;
    end;
  except
  end;


end;



end.