ssbedit.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 224 行

unit ssbedit;

interface

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

type
  TssbeditForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    bzfzrCombo: TComboBox;
    shrCombo: TComboBox;
    pzrCombo: TComboBox;
    bzfzrqzEdit: TEdit;
    shrqEdit: TEdit;
    pzrqEdit: TEdit;
    bzfzrqzDate: TDateTimePicker;
    shrqDate: TDateTimePicker;
    pzrqDate: TDateTimePicker;
    Panel1: TPanel;
    Label2: TLabel;
    yxnxLabel: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    rwmcLabel: TLabel;
    Label16: TLabel;
    bzsjDate: TDateTimePicker;
    bdidLabel: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label14: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label25: TLabel;
    sbslEdit: TEdit;
    ycdhsjEdit: TEdit;
    bzEdit: TEdit;
    cpbhEdit: TEdit;
    cpmcEdit: TEdit;
    xhggEdit: TEdit;
    Label15: TLabel;
    Label18: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    kcslEdit: TEdit;
    xcgslEdit: TEdit;
    Label17: TLabel;
    sqdwEdit: TEdit;
    Label23: TLabel;
    jldwEdit: TEdit;
    ycdhsjDate: TDateTimePicker;
    cgslhsEdit: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    lshedit: TEdit;
    bzsjedit: TEdit;
    procedure ycdhsjDateCloseUp(Sender: TObject);
    procedure bzsjDateCloseUp(Sender: TObject);
    procedure bzfzrqzDateCloseUp(Sender: TObject);
    procedure shrqDateCloseUp(Sender: TObject);
    procedure pzrqDateCloseUp(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure cgslhsEditKeyPress(Sender: TObject; var Key: Char);
    procedure cgslhsEditExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ssbeditForm: TssbeditForm;

implementation

uses sqbinput, Datamodule;

{$R *.DFM}

procedure TssbeditForm.ycdhsjDateCloseUp(Sender: TObject);
begin
   ycdhsjedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(ycdhsjDate.Date));
end;

procedure TssbeditForm.bzsjDateCloseUp(Sender: TObject);
begin
   bzsjedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(bzsjDate.Date));
end;

procedure TssbeditForm.bzfzrqzDateCloseUp(Sender: TObject);
begin
    bzfzrqzedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(bzfzrqzDate.Date));
end;

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

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

procedure TssbeditForm.FormActivate(Sender: TObject);
begin
   bzfzrqzdate.DateTime:=date;
   shrqdate.DateTime:=date;
   pzrqdate.DateTime:=date;
   bzsjdate.DateTime:=date;
   ycdhsjdate.DateTime:=date;
   pageControl1.ActivePage:=TabSheet1;
   with datamodule1.publicquery1 do
    begin
       //初始化部门名称和部门人员名称
       sql.clear;
       sql.add('Select bmmc,bmfzr from dbo.e_bmmcb');
       open;
       first;
       bzfzrCombo.Items.Clear;
       shrCombo.Items.Clear;
       pzrCombo.Items.Clear;
       while  not eof do
       begin
         bzfzrCombo.Items.Add(FieldByName('bmfzr').asstring);
         pzrCombo.Items.Add(FieldByName('bmfzr').asstring);
         shrCombo.Items.Add(FieldByName('bmfzr').asstring);
         next;
       end;
    end;
end;

procedure TssbeditForm.BitBtn3Click(Sender: TObject);
begin
    with datamodule1.PublicQuery1 do
    begin
    requestLive:=True;
    close;
    sql.Clear;
    sql.Add('select * from dbo.a_cgssxb');
    sql.Add('where sqbid='+''''+bdidLabel.caption+''''+' and cpbh='+''''+cpbhedit.text+'''');
    prepare;
    open;
    edit;
    FieldByname('ycdhsj').asstring:=sqinputForm.GetDate709(ycdhsjedit.Text);
    FieldByname('cgslhs').asFloat:=StrTofloat(cgslhsedit.text);
    FieldByName('Bz').asstring:=bzedit.Text;
    post;

    sql.Clear;
    sql.Add('Select * From dbo.a_cghzglb');
    sql.Add('where sqbid='+''''+bdidLabel.Caption+''''+' and cpbh='+''''+cpbhedit.Text+'''');
    prepare;
    open;
    edit;
    FieldByName('ycdhsj').asstring:=sqinputForm.GetDate709(ycdhsjedit.text);
    FieldBYname('cgslhs').asFloat:=StrTOInt(cgslhsedit.text);
    post;
    RequestLive:=False;
    close;
    showmessage('您已经成功修改当前的实施表记录！');
    end;
end;

procedure TssbeditForm.BitBtn1Click(Sender: TObject);
begin
    with datamodule1.PublicQuery1 do
    begin
    requestLive:=True;
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsszb');
    sql.Add('where sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    edit;
    FieldByName('lsh').asstring:=lshedit.Text;
    fieldByname('bzsj').asstring:=sqinputForm.GetDate709(bzsjedit.Text);
    FieldByName('bzfzr').asstring:=bzfzrCombo.Text;
    FieldByname('shr').asstring:=shrCombo.Text;
    FieldByname('pzr').asstring:=PzrCombo.Text;
    FieldBYName('bzqzrq').asstring:=sqinputForm.GetDate709(bzfzrqzedit.Text);
    FieldByname('shrq').asstring:=sqinputForm.GetDate709(shrqedit.Text);
    FieldByname('pzrq').asstring:=sqinputForm.GetDate709(pzrqedit.text);
    post;
    requestlive:=false;
    close;
    end;
    showmessage('您已经成功修改了当前实施表表头！');
end;

procedure TssbeditForm.cgslhsEditKeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9','.',#8,#13]) then
    begin
      key:=#0;
      beep;
    end;
end;

procedure TssbeditForm.cgslhsEditExit(Sender: TObject);
begin
    cgslhsEdit.Text:=sqinputForm.CheckFloatData(cgslhsEdit.Text);
end;

end.