ddgl_xg.pas

商品批发管理系统 本作品采用C/S模式

unit ddgl_XG;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, XPMenu;

type
  TddglXG = class(TForm)
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    DBCBkhbhXG: TDBComboBox;
    DBCBgybhXG: TDBComboBox;
    DateTimedgrq: TDateTimePicker;
    DateTimedhrq: TDateTimePicker;
    DateTimefhrq: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    DBCByhsbhXG: TDBComboBox;
    XPMenu1: TXPMenu;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ddglXG: TddglXG;

implementation

uses newDM;

{$R *.dfm}

procedure TddglXG.FormActivate(Sender: TObject);
begin//下拉列表的添加
  DM.ADOTkhgl.First;
  DBCBkhbhXG.Items.Clear;

  DM.ADOTkhgl.First;
  DBCBkhbhXG.Items.Clear;
  while not DM.ADOTkhgl.Eof do
  begin
    DBCBkhbhXG.Items.add(DM.ADOTkhgl.Fields.Fields[0].AsString);
    DM.ADOTkhgl.Next;
  end;

  DM.ADOTgygl.First;
  DBCBgybhXG.Items.Clear;
  while not DM.ADOTgygl.Eof do
  begin
    DBCBgybhXG.Items.add(DM.ADOTgygl.Fields.Fields[0].AsString);
    DM.ADOTgygl.Next;
  end;

  DM.ADOTyhsgl.First;
  DBCByhsbhXG.Items.Clear;
  while not DM.ADOTyhsgl.Eof do
  begin
    DBCByhsbhXG.Items.Add(DM.ADOTyhsgl.Fields.Fields[0].AsString);
    DM.ADOTyhsgl.Next;
  end;

  //确定日期
  datetimedgrq.Date:=DM.ADOTddgl.fieldbyname('dgrq').AsDatetime;
  datetimedhrq.Date:=DM.ADOTddgl.fieldbyname('dhrq').AsDatetime;
  datetimefhrq.Date:=DM.ADOTddgl.fieldbyname('fhrq').AsDatetime;

  DM.ADOTddgl.Edit;
end;

procedure TddglXG.Button1Click(Sender: TObject);
begin
  DM.ADOTddgl.fieldbyname('dgrq').AsDatetime:=datetimedgrq.Date;
  DM.ADOTddgl.fieldbyname('dhrq').AsDatetime:=datetimedhrq.Date;
  DM.ADOTddgl.fieldbyname('fhrq').AsDatetime:=datetimefhrq.Date;
  DM.ADOTddgl.UpdateBatch;
  close;
end;

procedure TddglXG.Button2Click(Sender: TObject);
begin
DM.ADOTddgl.CancelBatch;
close;
end;

procedure TddglXG.FormClose(Sender: TObject; var Action: TCloseAction);
begin
button2.Click;
end;

end.