u_comitem.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_comitem;

interface

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

type
  TF_Comitem = class(TForm)
    DS_Comitem: TDataSource;
    Ado_Comitem: TADOQuery;
    Ado_ComitemSid: TGuidField;
    Ado_ComitemOrder_no: TIntegerField;
    Ado_ComitemA_code: TStringField;
    Ado_ComitemA_char: TStringField;
    Ado_ComitemA_Datetime: TDateTimeField;
    Ado_ComitemA_money: TBCDField;
    Ado_ComitemA_Integer: TIntegerField;
    Ado_ComitemA_Bit: TBooleanField;
    Ado_ComitemA_memo: TStringField;
    BitSav: TBitBtn;
    Panel1: TPanel;
    Bitexit: TBitBtn;
    DBGridEh1: TDBGridEh;
    Bit_del: TBitBtn;
    Bit_add: TBitBtn;
    procedure Ado_ComitemAfterScroll(DataSet: TDataSet);
    procedure BitSavClick(Sender: TObject);
    procedure BitexitClick(Sender: TObject);
    procedure Ado_ComitemAfterInsert(DataSet: TDataSet);
    procedure Bit_delClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bit_addClick(Sender: TObject);
  private
    { Private declarations }
  public
    CODE, FCation: string;
    TABLE_NAME, FIELD, LAB: string;
    { Public declarations }
  end;

var
  F_Comitem: TF_Comitem;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Comitem.Ado_ComitemAfterScroll(DataSet: TDataSet);
begin
  Ado_Comitem.Edit;
end;

procedure TF_Comitem.BitSavClick(Sender: TObject);
begin
  ADO_comitem.UpdateBatch(arall);
end;

procedure TF_Comitem.BitexitClick(Sender: TObject);
begin
  CLOSE;
end;

procedure TF_Comitem.Ado_ComitemAfterInsert(DataSet: TDataSet);
begin
  ADO_comitem.fieldbyname('ORDER_NO').ASINTEGER := ADO_comitem.RECORDCOUNT + 1;
  ADO_comitem.fieldbyname('A_code').ASSTRING := CODE;
end;

procedure TF_Comitem.Bit_delClick(Sender: TObject);
begin
  if APPLICATION.MessageBox('你真的要删除这条吗？', '提示', MB_yesno) = IDNO then EXIT;
  ADO_comitem.UpdateBatch(arall);
  if ADO_comitem.FIELDBYNAME('ORDER_NO').ASSTRING <> '' then
  begin
    SQL_S := 'DELETE TB_Comitem WHERE A_CODE=''' + ADO_comitem.fieldbyname('A_CODE').ASSTRING + ''' AND ORDER_NO=' + ADO_comitem.FIELDBYNAME('ORDER_NO').ASSTRING;
    SQL_EXEC(SQL_S);
  end
  else
  begin
    SQL_S := 'DELETE TB_Comitem WHERE A_CODE=''' + ADO_comitem.fieldbyname('A_CODE').ASSTRING + ''' AND ORDER_NO=-1000';
    SQL_EXEC(SQL_S);
  end;
  ADO_comitem.CLOSE;
  ADO_comitem.OPEN;
end;

procedure TF_Comitem.FormShow(Sender: TObject);
begin
  SQL_S := 'SELECT * FROM TB_Comitem WHERE A_CODE=''' + CODE + ''' ORDER BY ORDER_NO';
  ADO_comitem.CLOSE;
  ADO_comitem.SQL.CLEAR;
  ADO_comitem.SQL.ADD(SQL_S);
  ADO_comitem.OPEN;
end;

procedure TF_Comitem.Bit_addClick(Sender: TObject);
begin
  Ado_Comitem.Append;
end;

end.