procedure TForm1.FormCreate(Sender: TObject);
begin
    //假設Combobox1由資料庫取得得資料如下
    ComboBox1.Items.Add ('Tnos0001');    //主管
    ComboBox1.Items.Add ('Tnoa0002');    //會計
    ComboBox1.Items.Add ('Tnop0001');    //工讀生0001
    ComboBox1.Items.Add ('Tnop0003');    //工讀生0003
    ComboBox1.Items.Add ('Tnop0005');    //工讀生0005
end;    procedure TForm1.ComboBox1Change(Sender: TObject);
var i:Integer;
begin
    ComboBox2.Clear ;
    if Pos('Tnos',ComboBox1.Text)>0 then
        begin
            ComboBox2.Text :='主管';
        end
    else if  Pos('Tnoa',ComboBox1.Text)>0 then
        begin
            ComboBox2.Text :='會計';
        end
    else if  Pos('Tnop',ComboBox1.Text)>0 then
        begin
             //由資料庫取得班別資料後，逐筆加入ComboBox2
             while not ADOTable1.Recordset.EOF do
             begin
                 ComboBox2.Items.Add (ADOTable1.Recordset.Fields.Item[0].Value);
                 ADOTable1.Recordset.MoveNext ;
             end;
          ComboBox2.ItemIndex :=0;
    end;    end;

引言: 而現在的問題在於 在職位這個欄位和員工編號是有相關性的,當使用者在員工編號選擇了這個人的的身份欲做其編號時,職位就應做適當的對應,而不能在員工編號時明明選了會計,到了職位欄時,還有一個選項叫工讀的,這是不對的, 那麼 本來會很容易,只要在員工編號處選到某個類別時,就同時在職位欄填上對應的的文字,就可以了,可是因為工讀的這個還可以細分為早班,晚班等.. 所以希望當使用者,若是在員工編號中選到了,工讀這一項時,在職位的欄位中,就可以出現提供再選擇是那一個班別的人員.

引言: 不太像耶~ case DBGrid1.Columns[0].PickList.IndexOf( DataSet.FieldByName('員工編號').AsString) of 0: CodePrefix := 'Tnos'; 1: CodePrefix := 'Tnoa'; 2: begin CodePrefix := 'Tnop'; DBGrid1.Columns[6].PickList.Clear; DBGrid1.Columns[6].PickList.Add( '早班工讀生'); DBGrid1.Columns[6].PickList.Add( '午班工讀生'); DBGrid1.Columns[6].PickList.Add( '晚班工讀生'); DBGrid1.Columns[6].PickList.Add( '洗車員'); end; end; 想法是這樣,以為這樣寫可以OK,但似乎沒法子正確執行耶~ 月光小築~月牙兒

case DBGrid1.Columns[0].PickList.IndexOf( 改成妳table或query的名字不要用 dataset  .FieldByName('員工編號').AsString) of
  0: CodePrefix := 'Tnos';
  1: CodePrefix := 'Tnoa';
  2: begin
       CodePrefix := 'Tnop';
       DBGrid1.Columns[6].PickList.Create;
       DBGrid1.Columns[6].PickList.Append('早班工讀生');
       DBGrid1.Columns[6].PickList.Append('午班工讀生');
       DBGrid1.Columns[6].PickList.Append('晚班工讀生');
       DBGrid1.Columns[6].PickList.Append('洗車員');
     end;
   end;

引言: case DBGrid1.Columns[0].PickList.IndexOf( DataSet.FieldByName('員工編號').AsString) of 0: begin CodePrefix := 'Tnos'; DBGrid1.Columns[6].ReadOnly:=true; ADODataSet1.FieldByName('職稱').AsString:='站長'; end; 1: begin CodePrefix := 'Tnoa'; ADODataSet1.FieldByName('職稱').AsString:='會計'; end; 2: begin CodePrefix := 'Tnop'; DBGrid1.Columns[6].PickList.Clear; DBGrid1.Columns[6].PickList.Add('早班工讀生'); DBGrid1.Columns[6].PickList.Add('中班工讀生'); DBGrid1.Columns[6].PickList.Add('晚班工讀生'); DBGrid1.Columns[6].PickList.Add('洗車員'); end; 邏輯上似乎是沒錯啦!但是似乎還是不太可行耶,它並不會出現下拉選單,不過選到站長或是會計時,等到一post上去時,就會正確地自動寫入,但有個小問題,還在編輯時,無法鎖住那一欄,不讓使用者可以再輸入其的的資料(紅色那一段不會執行) PS.程式內容寫在BeforePost中

引言: CodePrefix := 'Tnos'; DBGrid1.Columns[6].ReadOnly:=true; ADODataSet1.FieldByName('職稱').AsString:='站長'; 但有個小問題,還在編輯時,無法鎖住那一欄,不讓使用者可以再輸入其的的資料(紅色那一段不會執行)

        CodePrefix := 'Tnos';
        ADODataSet1.FieldByName('EmpName').AsString := '站長';
        DBGrid1.Columns[1].ReadOnly := true;
    //先寫入後，設成唯讀

引言: case DBGrid1.Columns[0].PickList.IndexOf( 改成妳table或query的名字不要用 dataset .FieldByName('員工編號').AsString) of ADOQuery1.].FieldByName('員工編號').AsString這樣嗎? 好像不行耶,會有錯 還有,ddy大大,您說的法子,改過了似乎沒有影響說 後來又發現另一個問題,就是修改時,如只改個電話,還是說改別的欄位, 在編號的地方,英文字會不見,我直接接程式放到上傳區,請幫我再看看好嗎? 謝謝~~ 月光小築~月牙兒

CodePrefix := 'Tnop';
DBGrid1.Columns[6].ReadOnly :=False ;
... .. .. ... .
..
....       CodePrefix := 'Tnos';
   ADODataSet1.FieldByName('EmpName').AsString := '站長';
   DBGrid1.Columns[1].ReadOnly := true;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
        CodePrefix, Code, temp: String;
begin            case DBGrid1.Columns[0].PickList.IndexOf( ADODataSet1.fieldByName('員工編號').AsString) of
                0:
                  begin
                    CodePrefix := 'Tnos';
                    ADODataSet1.FieldByName('職稱').AsString:='站長';
                  end;
                1:
                  begin
                    CodePrefix := 'Tnoa';
                    ADODataSet1.FieldByName('職稱').AsString:='會計';
                  end;
                2:
                  begin
                    CodePrefix := 'Tnop';
                    ADODataSet1.FieldByName('職稱').AsString:='';
                    DBGrid1.Columns[6].PickList.Create;
                    DBGrid1.Columns[6].PickList.Clear ;
                    DBGrid1.Columns[6].PickList.Append('早班工讀生');
                    DBGrid1.Columns[6].PickList.Append('中班工讀生');
                    DBGrid1.Columns[6].PickList.Append('晚班工讀生');
                    DBGrid1.Columns[6].PickList.Append('洗車員');                      end;            end;
end;    procedure TForm1.ADODataSet1BeforePost(DataSet: TDataSet);
var
        CodePrefix, Code, temp: String;
begin            ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add( 'SELECT MAX(員工編號) AS MAXCODE FROM 員工基本資料表 WHERE 員工編號 LIKE ''' CodePrefix '%''');
        ADOQuery1.Open;
        temp := IntToStr(StrToInt( Copy( ADOQuery1.FieldByName( 'MAXCODE').AsString, 5, 4))   1);
        temp := CodePrefix   Copy('0000', 1, 4 - Length(temp))   temp;
        if not ADOQuery1.Eof then
        begin
          DataSet.FieldByName( '員工編號').AsString :=temp;
          DataSet.FieldByName('到職日').AsDateTime:=Date;
        end
        else
          Code := CodePrefix   '0001';
        ADOQuery1.Close;
        ADOQuery2.SQL.Text:='insert into Login(員工編號,密碼) values(''' temp ''',1111)';//新增資料同時,為此員工建密碼,預設為1111
        ADOQuery2.ExecSQL;
        DBGrid1.Columns[0].ReadOnly:=true;
        DBGrid1.Columns[6].ReadOnly:=true;
end;    

引言: ddy大,多謝你了~ 我知道你一直在告訴我邏輯的關念很重要,我也不知怎麼說,是不是女生的邏輯概念本來就差一點,還是我在規避問題,為自己找台階下,是我自己本身在邏輯的概念上沒下功夫的關係嗎?可是邏輯這種東西不是多少都要有點天份嗎?我也不知如何增強邏輯的能力~~也許以後多寫了,經驗多了,是不是會有進步一點啊! 您說我法子,我會再試試,要再沒法子,我只能先擱下,有空再回來想了,(雖然有點看不懂~~) 謝啦~~ 月光小築~月牙兒 < face="Verdana, Arial, Helvetica"> 有邏輯天份的人是會有一點吃香的啦, 但是大部份的人並非天生就有邏輯推理概念的, 能夠靠後天練習邏輯推理的能力, 一定也能截長補短熟能生巧的, 程式設計本來經驗就相當重要的! 所以,Selena加油喔, 站長支持您! ～～～Delphi K.Top討論區站長～～～