sqedit.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 639 行 · 第 1/2 页

unit sqedit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, Buttons,DBTables;

var sqbidstr,cpbhstr,jhyid:string;
type
  TsqeditForm = class(TForm)
    TabControl1: TTabControl;
    Label8: TLabel;
    Label9: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    yxnxLabel: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    sqrqDate: TDateTimePicker;
    lshEdit: TEdit;
    sqrqEdit: TEdit;
    sqdwCombo: TComboBox;
    sqbidPanel: TPanel;
    Panel3: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    jldwCombo: TComboBox;
    sbslEdit: TEdit;
    gjjeEdit: TEdit;
    sccjCombo: TComboBox;
    yyhrwEdit: TEdit;
    sjyqEdit: TEdit;
    bzEdit: TEdit;
    cpbhEdit: TEdit;
    jhyCombo: TComboBox;
    cpmcEdit: TEdit;
    xhggEdit: TEdit;
    Panel2: TPanel;
    Label5: TLabel;
    Label3: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    xqfzrCombo: TComboBox;
    bzrCombo: TComboBox;
    shrCombo: TComboBox;
    xqrqDate: TDateTimePicker;
    bzrqDate: TDateTimePicker;
    shrqDate: TDateTimePicker;
    pzrCombo: TComboBox;
    pzrqDate: TDateTimePicker;
    bzrqEdit: TEdit;
    xqrqEdit: TEdit;
    shrqEdit: TEdit;
    pzrqEdit: TEdit;
    Label24: TLabel;
    REditBtn: TBitBtn;
    BitBtn1: TBitBtn;
    HeditBtn: TBitBtn;
    rwmcEdit: TEdit;
    procedure TabControl1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure cpbhEditKeyPress(Sender: TObject; var Key: Char);
    procedure sccjComboExit(Sender: TObject);
    procedure sqrqEditExit(Sender: TObject);
    procedure bzrqEditExit(Sender: TObject);
    procedure xqrqEditExit(Sender: TObject);
    procedure shrqEditExit(Sender: TObject);
    procedure pzrqEditExit(Sender: TObject);
    procedure sqrqDateCloseUp(Sender: TObject);
    procedure bzrqDateCloseUp(Sender: TObject);
    procedure xqrqDateCloseUp(Sender: TObject);
    procedure shrqDateCloseUp(Sender: TObject);
    procedure pzrqDateCloseUp(Sender: TObject);
    procedure REditBtnClick(Sender: TObject);
    procedure HeditBtnClick(Sender: TObject);
    procedure cpbhEditExit(Sender: TObject);
    procedure sccjComboKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbslEditKeyPress(Sender: TObject; var Key: Char);
    procedure sbslEditExit(Sender: TObject);
    procedure gjjeEditExit(Sender: TObject);
    procedure gjjeEditKeyPress(Sender: TObject; var Key: Char);
    procedure cpbhEditDblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sqeditForm: TsqeditForm;

implementation

uses Datamodule, sqbinput, wzsz, cpxxcxsz, sccgssb;

{$R *.DFM}

procedure TsqeditForm.TabControl1Change(Sender: TObject);
begin
    with TabControl1 do
    begin
     if TabIndex=1 then
     begin
     REditBtn.Visible:=False;
     HEditBtn.Visible:=True;
     panel3.Visible:=false;
     panel2.Visible:=True;
     panel1.Visible:=True;
     end
     else
     begin
     REditBtn.Visible:=True;
     HEditBtn.Visible:=False;
     panel3.Visible:=True;
     panel2.Visible:=False;
     panel1.Visible:=False;
     end;
    end;
end;

procedure TsqeditForm.FormActivate(Sender: TObject);
begin
     sqrqdate.DateTime:=date;
     xqrqdate.DateTime:=date;
     bzrqdate.DateTime:=date;
     shrqdate.DateTime:=date;
     pzrqdate.DateTime:=date;
     sqbidstr:=sqbidpanel.Caption;
     cpbhstr:=cpbhedit.Text; 
     with datamodule1.publicquery1 do
     begin
       //初始化部门名称和部门人员名称
       close;
       sql.clear;
       sql.add('Select bmmc,bmfzr from dbo.e_bmmcb');
       open;
       first;
       sqdwCombo.Items.Clear;
       bzrCombo.Items.Clear;
       xqfzrCombo.Items.Clear;
       shrCombo.Items.Clear;
       pzrCombo.Items.Clear;
       while  not eof do
       begin
         sqdwCombo.Items.Add(FieldByName('bmmc').asstring);
         bzrCombo.Items.Add(FieldByName('bmfzr').asstring);
         xqfzrCombo.Items.Add(FieldByName('bmfzr').asstring);
         shrCombo.Items.Add(FieldByName('bmfzr').asstring);
         pzrCombo.Items.Add(FieldByName('bmfzr').asstring);
         next;
       end;
    //初始化厂家名称
    close;
    sql.clear;
    sql.add('select gysmc from dbo.e_fczfzb');
    open;
    first;
       sccjCombo.Items.Clear;
       while  not eof do
       begin
         sccjCombo.Items.Add(FieldByName('gysmc').asstring);
         next;
       end;
    close;
    sql.Clear;
    sql.Add('select jhyid From dbo.p_jhyb');
    open;
    first;
    jhyCombo.Items.Clear;
      while not eof do
       begin
        jhyCombo.Items.Add(FieldByName('jhyId').asstring);
        next;
       end;
    close;
    end;
end;

procedure TsqeditForm.cpbhEditKeyPress(Sender: TObject; var Key: Char);
begin
    if length(cpbhedit.Text)=11 then
    if  not (key in [#8,#13]) then
    begin
    key:=#0;
    beep;
    end;
    
    if key=#13 then
    begin
    if length(cpbhedit.Text)<>11 then
    begin
    showmessage('请你输入十一位的产品编号！');
    exit;
    end;
    with datamodule1.PublicQuery1 do
    begin
    close;
    sql.Clear;
    sql.add('select wzmc,xhgg from dbo.e_wzdmb');
    sql.add('where wzidh='+''''+cpbhedit.Text+'''');
    prepare;
    open;
    if RecordCount=0 then
    begin
    showmessage('你输入的产品编号不存在！');
    cpmcedit.Text:='';
    xhggedit.Text:='';
    exit;
    end;
    cpmcedit.Text:=fieldByname('wzmc').asstring;
    xhggedit.Text:=fieldByName('xhgg').asstring;
    close;
    end;
    end;
end;

procedure TsqeditForm.sccjComboExit(Sender: TObject);
begin
    with datamodule1.PublicQuery1 do
    begin
    close;
    sql.clear;
    sql.add('select gysmc from dbo.e_fczfzb');
    open;
    first;
       sccjCombo.Items.Clear;
       while  not eof do
       begin
         sccjCombo.Items.Add(FieldByName('gysmc').asstring);
         next;
       end;
    close;
    end;
end;

procedure TsqeditForm.sqrqEditExit(Sender: TObject);
begin
    sqinputForm.CheckDateEdit(sqrqedit.Text);
end;

procedure TsqeditForm.bzrqEditExit(Sender: TObject);
begin
    sqinputForm.CheckDateEdit(bzrqedit.Text);
end;

procedure TsqeditForm.xqrqEditExit(Sender: TObject);
begin
    sqinputForm.CheckDateEdit(xqrqedit.Text);
end;

procedure TsqeditForm.shrqEditExit(Sender: TObject);
begin
    sqinputForm.CheckDateEdit(shrqedit.Text);
end;

procedure TsqeditForm.pzrqEditExit(Sender: TObject);
begin
    sqinputForm.CheckDateEdit(pzrqedit.Text);
end;

procedure TsqeditForm.sqrqDateCloseUp(Sender: TObject);
begin
    sqrqedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(sqrqDate.Date));
end;

procedure TsqeditForm.bzrqDateCloseUp(Sender: TObject);
begin
    bzrqedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(bzrqDate.Date));
end;

procedure TsqeditForm.xqrqDateCloseUp(Sender: TObject);
begin
   xqrqedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(xqrqDate.Date));
end;

procedure TsqeditForm.shrqDateCloseUp(Sender: TObject);
begin
    shrqedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(shrqDate.Date));
end;

procedure TsqeditForm.pzrqDateCloseUp(Sender: TObject);
begin
    pzrqedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(pzrqDate.Date));
end;

procedure TsqeditForm.REditBtnClick(Sender: TObject);
var xcgslstr:real;
begin
    if (strtofloat(sbsledit.text)-strTofloat(jhssForm.readkcsl(cpbhedit.Text)))<=0 then
    xcgslstr:=0
    else
    xcgslstr:=strtofloat(sbsledit.text)-strTofloat(jhssForm.readkcsl(cpbhedit.Text));

    with datamodule1.PublicQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsqxb');
    sql.Add('where sqbid='+''''+sqbidstr+''''+' and cpbh='+''''+cpbhedit.Text+'''');
    prepare;
    open;
    if (recordCount<>0) and (cpbhedit.Text<>cpbhstr) then
    begin