addsigner.pas

管理车队用车记录

unit addsigner;

interface

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

type
  TForm_addsigner = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    ListBox2: TListBox;
    Label2: TLabel;
    Label4: TLabel;
    BitBtn_cancle: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn_cancleClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_addsigner: TForm_addsigner;

implementation
uses dm, addunit;
{$R *.dfm}

procedure TForm_addsigner.FormShow(Sender: TObject);
begin
edit1.Text:='';
listbox1.Clear;
listbox2.Clear;
 with form_dm.ADOTable_employer do
    begin
        open;
        first;
        listbox1.Items.Clear;
        repeat
            listbox1.Items.Add(form_dm.ADOTable_employer.fieldbyname('name').AsString);
            form_dm.ADOTable_employer.Next;
        until eof;
     end;
 listbox1.ItemIndex:=-1;
end;

procedure TForm_addsigner.BitBtn1Click(Sender: TObject);
begin
if edit1.text='' then
begin
  showmessage('请输入你要增加的签字人！');
  edit1.setfocus;
  abort;
end;
if listbox1.ItemIndex=-1 then
begin
  showmessage('请选中一个单位(人)！');
  abort;
end;
with form_dm.ADOTable_signers do
begin
  open;
  append;
  fieldvalues['employer']:=listbox1.Items.Strings[listbox1.ItemIndex];
  fieldvalues['signer']:=edit1.Text;
  post;
end;
form_addsigner.OnShow(nil);
showmessage('增加成功！');
edit1.Text:='';
end;

procedure TForm_addsigner.BitBtn2Click(Sender: TObject);
begin
if (listbox1.ItemIndex<>-1) and (listbox2.ItemIndex<>-1) then
begin
  form_dm.ADOCommand1.CommandText:='delete from signers where employer='''+listbox1.items.strings[listbox1.itemindex]+''' and signer='''+listbox2.items.strings[listbox2.itemindex]+'''';
  form_dm.ADOCommand1.Execute;
  form_addsigner.OnShow(nil);
  showmessage('删除成功！');
end
else
begin
  showmessage('请在列表中选择你要删除的单位(人)！');
  abort;
end;

end;

procedure TForm_addsigner.BitBtn_cancleClick(Sender: TObject);
begin
listbox1.Clear;
listbox2.Clear;
edit1.Text:='';
close;
end;

procedure TForm_addsigner.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex<>-1 then
begin
with form_dm.adoquery_signers do
        begin
        sql.Text:='select * from signers where employer='''+listbox1.Items.Strings[listbox1.Itemindex]+'''';
        open;
        first;
        listbox2.Items.Clear;
        repeat
            listbox2.Items.Add(fieldbyname('signer').AsString);
            Next;
        until eof;
        end;
end;
end;

end.