uproserveradd.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit Uproserveradd;

interface

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

type
  TfrmProserveradd = class(TForm)
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    Label12: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    bbtnSave: TBitBtn;
    bbtnExit: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label14: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBRichEdit1: TDBRichEdit;
    DBComboBox3: TDBComboBox;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure DBComboBox3DropDown(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProserveradd: TfrmProserveradd;
  keepdate:string;

implementation

uses mydata;

{$R *.dfm}

procedure TfrmProserveradd.bbtnSaveClick(Sender: TObject);
begin
if (dbcombobox1.Text='') or (dbcombobox3.Text='') then
  begin
   showmessage('请将信息填写完整！');
   exit;
  end;
dbmemo2.Text:=dbmemo2.Text+'    '+combobox1.Text;
dm.AQService.Edit;
dm.AQservice.Post;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('update service set keepdate='''+keepdate+''' where serno='''+dbedit1.Text+'''');
    execsql;
  end;
showmessage('录入成功！');
self.Close;
end;

procedure TfrmProserveradd.bbtnExitClick(Sender: TObject);
begin
dm.AQService.Cancel;
self.Close;
end;

procedure TfrmProserveradd.DBComboBox3DropDown(Sender: TObject);
begin
dbcombobox3.Items.Clear;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct keeper from service');
    open;
  end;
dm.AQAll.First;
while (not dm.AQAll.Eof)  do
   begin
      if dm.AQAll.FieldValues['keeper']=null then
      begin
       dm.AQAll.Next;
       continue;
       end
       else
       begin
       dbcombobox3.Items.Add(dm.AQAll.FieldValues['keeper']);
       dm.AQAll.Next;
       end;
   end;
end;

procedure TfrmProserveradd.DateTimePicker1Change(Sender: TObject);
begin
keepdate:=datetostr(datetimepicker1.Date);
end;

procedure TfrmProserveradd.FormShow(Sender: TObject);
begin
if dbedit1.Text<>'' then
 datetimepicker1.Date:=date();
 keepdate:=datetostr(datetimepicker1.Date);
 dm.AQservice.Edit;
 combobox1.Text:='';
end;

end.