gld120_01.pas

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Gld120_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Bas100_01, StdCtrls, Buttons, Db, ADODB, Menus;

type
  TGld120_01Form = class(TBas100_01Form)
    gbClass: TGroupBox;
    lbClass: TListBox;
    bbtnClassAdd: TBitBtn;
    bbtnClassUpdate: TBitBtn;
    bbtnClassDelete: TBitBtn;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    dsGld120A: TDataSource;
    dsGld120B: TDataSource;
    qryGld120A: TADOQuery;
    qryGld120B: TADOQuery;
    gbDetail: TGroupBox;
    lbDetail: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnClassAddClick(Sender: TObject);
    procedure bbtnClassUpdateClick(Sender: TObject);
    procedure bbtnClassDeleteClick(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure lbClassClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Gld120_01Form: TGld120_01Form;

implementation

uses SYSDATA, CommFun, Gld120_02, Gld120_03;

{$R *.DFM}

procedure TGld120_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  //摘要类别
  qryGld120A.Open;
  lbClass.Items.Clear;
  lbClass.Items.Add('(所有类别)');
  while not qryGld120A.Eof do
  begin
    lbClass.Items.Add(qryGld120A.FieldByName('G120A_002').AsString);
    qryGld120A.Next;
  end;
  lbClass.ItemIndex:=0;
  //摘要
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from GLD120B');
  SYSDM.qryQuery.Open;
  lbDetail.Items.Clear;
  while not SYSDM.qryQuery.Eof do
  begin
    lbDetail.Items.Add(SYSDM.qryQuery.FieldByName('G120B_003').AsString);
    SYSDM.qryQuery.Next;
  end;
end;

procedure TGld120_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryGld120A.Close;
  qryGld120B.Close;
end;

procedure TGld120_01Form.bbtnClassAddClick(Sender: TObject);
begin
  inherited;
//增加类别
  Gld120_02Form:=TGld120_02Form.Create(Application);
  Gld120_02Form.Caption:='增加摘要类别';
  if Gld120_02Form.ShowModal=1 then
  begin
    qryGld120A.Insert;
    qryGld120A.FieldByName('G120A_002').AsString:=Gld120_02Form.Edit1.Text;
    qryGld120A.Post;
    lbClass.Items.Add(qryGld120A.FieldByName('G120A_002').AsString);
  end;
  qryGld120A.Refresh;
end;

procedure TGld120_01Form.bbtnClassUpdateClick(Sender: TObject);
begin
  inherited;
//修改类别
  if qryGld120A.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  qryGld120A.Locate('G120A_002',lbClass.Items[lbClass.ItemIndex],[loCaseInsensitive]);
  Gld120_02Form:=TGld120_02Form.Create(Application);
  Gld120_02Form.Caption:='修改摘要类别';
  Gld120_02Form.Edit1.Text:=qryGld120A.FieldByName('G120A_002').AsString;
  if Gld120_02Form.ShowModal=1 then
  begin
    qryGld120A.Edit;
    qryGld120A.FieldByName('G120A_002').AsString:=Gld120_02Form.Edit1.Text;
    qryGld120A.Post;
    lbClass.Items.Strings[lbClass.ItemIndex]:=qryGld120A.FieldByName('G120A_002').AsString;
  end;
  qryGld120A.Refresh;
end;

procedure TGld120_01Form.bbtnClassDeleteClick(Sender: TObject);
begin
  inherited;
//删除类别
  if qryGld120A.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('是否删除该摘要类别？')=IDYES then
  begin
    qryGld120A.Locate('G120A_002',lbClass.Items[lbClass.ItemIndex],[loCaseInsensitive]);
    qryGld120A.Delete;
    qryGld120A.Post;
    lbClass.Items.Delete(lbClass.ItemIndex);
  end;
  qryGld120A.Refresh;
end;

procedure TGld120_01Form.bbtnOkClick(Sender: TObject);
begin
  inherited;
//确定
  ModalResult:=1;
end;

procedure TGld120_01Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//取消
  Close;
end;

procedure TGld120_01Form.BitBtn6Click(Sender: TObject);
begin
  inherited;
//增加樀要
  Gld120_03Form:=TGld120_03Form.Create(Application);
  Gld120_03Form.Caption:='增加摘要';
  Gld120_03Form.ComboBox1.Items:=lbClass.Items;
  Gld120_03Form.ComboBox1.Items.Delete(0);
  Gld120_03Form.ComboBox1.ItemIndex:=lbClass.ItemIndex-1;
  if Gld120_03Form.ShowModal=1 then
  begin
    qryGld120A.Locate('G120A_002',Gld120_03Form.ComboBox1.Text,[loCaseInsensitive]);
    qryGld120B.Insert;
    qryGld120B.FieldByName('G120B_002').AsString:=qryGld120A.FieldByName('G120A_001').AsString;
    qryGld120B.FieldByName('G120B_003').AsString:=Gld120_03Form.Edit1.Text;
    qryGld120B.Post;
    lbClassClick(lbClass);
  end;
  qryGld120B.Refresh;
end;

procedure TGld120_01Form.BitBtn7Click(Sender: TObject);
begin
  inherited;
//修改樀要
  if qryGld120B.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  qryGld120B.Locate('G120B_003',lbDetail.Items[lbDetail.ItemIndex],[loCaseInsensitive]);
  qryGld120A.Locate('G120A_001',qryGld120B.FieldByName('G120B_002').Value,[loCaseInsensitive]);
  Gld120_03Form:=TGld120_03Form.Create(Application);
  Gld120_03Form.Caption:='修改摘要';
  Gld120_03Form.ComboBox1.Text:=qryGld120A.FieldByName('G120A_002').AsString;
  Gld120_03Form.Edit1.Text:=qryGld120B.FieldByName('G120B_003').AsString;
  if Gld120_03Form.ShowModal=1 then
  begin
    qryGld120B.Edit;
    qryGld120B.FieldByName('G120B_002').AsString:=Gld120_03Form.ComboBox1.Text;
    qryGld120B.FieldByName('G120B_003').AsString:=Gld120_03Form.Edit1.Text;
    qryGld120B.Post;
    lbDetail.Items.Strings[lbDetail.ItemIndex]:=qryGld120B.FieldByName('G120B_003').AsString;
  end;
  qryGld120B.Refresh;
end;

procedure TGld120_01Form.BitBtn8Click(Sender: TObject);
begin
  inherited;
//删除樀要
  if qryGld120B.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('是否删除该摘要类别？')=IDYES then
  begin
    qryGld120B.Locate('G120B_003',lbDetail.Items[lbDetail.ItemIndex],[loCaseInsensitive]);
    qryGld120B.Delete;
    lbDetail.Items.Delete(lbDetail.ItemIndex);
  end;
  qryGld120B.Refresh;
end;

procedure TGld120_01Form.lbClassClick(Sender: TObject);
begin
  inherited;
//摘要
  if lbClass.ItemIndex=0 then
  begin
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('select * from GLD120B');
    SYSDM.qryQuery.Open;
    lbDetail.Items.Clear;
    while not SYSDM.qryQuery.Eof do
    begin
      lbDetail.Items.Add(SYSDM.qryQuery.FieldByName('G120B_003').AsString);
      SYSDM.qryQuery.Next;
    end;
    lbDetail.ItemIndex:=0;
  end else
  begin
    qryGld120A.Locate('G120A_002',lbClass.Items[lbClass.ItemIndex],[loCaseInsensitive]);
    qryGld120B.Close;
    qryGld120B.SQL.Clear;
    qryGld120B.SQL.Add('select * from GLD120B where G120B_002='+qryGld120A.FieldByName('G120A_001').AsString);
    qryGld120B.Open;
    lbDetail.Items.Clear;
    while not qryGld120B.Eof do
    begin
      lbDetail.Items.Add(qryGld120B.FieldByName('G120B_003').AsString);
      qryGld120B.Next;
    end;
    lbDetail.ItemIndex:=0;
  end;
end;

initialization
  RegisterClass(TGld120_01Form);

finalization
  UnRegisterClass(TGld120_01Form);

end.